/[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.4 by jmc, Tue Oct 9 00:02:50 2007 UTC revision 1.5 by jmc, Tue Apr 28 18:13:28 2009 UTC
# Line 341  c--         Print cost function for each Line 341  c--         Print cost function for each
341    
342  #ifdef ECCO_VERBOSE  #ifdef ECCO_VERBOSE
343  c--     Print cost function for all tiles.  c--     Print cost function for all tiles.
344          _GLOBAL_SUM_R8( fcthread_drift , myThid )          _GLOBAL_SUM_RL( fcthread_drift , myThid )
345          write(msgbuf,'(a)') ' '          write(msgbuf,'(a)') ' '
346          call print_message( msgbuf, standardmessageunit,          call print_message( msgbuf, standardmessageunit,
347       &                      SQUEEZE_RIGHT , mythid)       &                      SQUEEZE_RIGHT , mythid)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22