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

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

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

revision 1.7 by heimbach, Sat May 3 00:31:07 2008 UTC revision 1.8 by jmc, Tue Apr 28 18:13:28 2009 UTC
# Line 226  c--       Print cost function for each t Line 226  c--       Print cost function for each t
226    
227  #ifdef ECCO_VERBOSE  #ifdef ECCO_VERBOSE
228  c--     Print cost function for all tiles.  c--     Print cost function for all tiles.
229          _GLOBAL_SUM_R8( fcthread_wdrift , myThid )          _GLOBAL_SUM_RL( fcthread_wdrift , myThid )
230          write(msgbuf,'(a)') ' '          write(msgbuf,'(a)') ' '
231          call print_message( msgbuf, standardmessageunit,          call print_message( msgbuf, standardmessageunit,
232       &                      SQUEEZE_RIGHT , mythid)       &                      SQUEEZE_RIGHT , mythid)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22