/[MITgcm]/MITgcm/pkg/ecco/cost_drifter.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/cost_drifter.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by heimbach, Thu Nov 6 22:10:07 2003 UTC revision 1.2 by heimbach, Mon Oct 11 16:38:53 2004 UTC
# Line 323  c--         Print cost function for each Line 323  c--         Print cost function for each
323       &                          SQUEEZE_RIGHT , mythid)       &                          SQUEEZE_RIGHT , mythid)
324              write(msgbuf,'(a,d22.15)')              write(msgbuf,'(a,d22.15)')
325       &        '     cost function (temperature) = ',       &        '     cost function (temperature) = ',
326       &        fctile_theta       &        fctile_drift
327              call print_message( msgbuf, standardmessageunit,              call print_message( msgbuf, standardmessageunit,
328       &                      SQUEEZE_RIGHT , mythid)       &                      SQUEEZE_RIGHT , mythid)
329  #endif  #endif
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22