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

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

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

revision 1.7 by jmc, Tue Oct 9 00:02:51 2007 UTC revision 1.8 by jmc, Tue Apr 28 18:13:28 2009 UTC
# Line 223  c--         End of loop over layers. Line 223  c--         End of loop over layers.
223    
224  #ifdef ECCO_VERBOSE  #ifdef ECCO_VERBOSE
225  c--     Print cost function for all tiles.  c--     Print cost function for all tiles.
226          _GLOBAL_SUM_R8( fcthread_xbt , myThid )          _GLOBAL_SUM_RL( fcthread_xbt , myThid )
227          write(msgbuf,'(a)') ' '          write(msgbuf,'(a)') ' '
228          call print_message( msgbuf, standardmessageunit,          call print_message( msgbuf, standardmessageunit,
229       &                      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