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

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

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

revision 1.3 by jmc, Tue Oct 9 00:02:50 2007 UTC revision 1.4 by jmc, Tue Apr 28 18:13:28 2009 UTC
# Line 253  c--         End of loop over layers. Line 253  c--         End of loop over layers.
253    
254  #ifdef ECCO_VERBOSE  #ifdef ECCO_VERBOSE
255  c--     Print cost function for all tiles.  c--     Print cost function for all tiles.
256          _GLOBAL_SUM_R8( fcthread , myThid )          _GLOBAL_SUM_RL( fcthread , myThid )
257          write(msgbuf,'(a)') ' '          write(msgbuf,'(a)') ' '
258          call print_message( msgbuf, standardmessageunit,          call print_message( msgbuf, standardmessageunit,
259       &                      SQUEEZE_RIGHT , mythid)       &                      SQUEEZE_RIGHT , mythid)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22