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

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

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

revision 1.6 by jmc, Tue Oct 9 00:02:50 2007 UTC revision 1.7 by jmc, Tue Apr 28 18:13:27 2009 UTC
# Line 218  c--         End of loop over layers. Line 218  c--         End of loop over layers.
218    
219  #ifdef ECCO_VERBOSE  #ifdef ECCO_VERBOSE
220  c--     Print cost function for all tiles.  c--     Print cost function for all tiles.
221          _GLOBAL_SUM_R8( fcthread_ctdt , myThid )          _GLOBAL_SUM_RL( fcthread_ctdt , myThid )
222          write(msgbuf,'(a)') ' '          write(msgbuf,'(a)') ' '
223          call print_message( msgbuf, standardmessageunit,          call print_message( msgbuf, standardmessageunit,
224       &                      SQUEEZE_RIGHT , mythid)       &                      SQUEEZE_RIGHT , mythid)
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22