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

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

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

revision 1.1 by gforget, Sat Feb 2 02:34:14 2008 UTC revision 1.2 by jmc, Tue Apr 28 18:13:28 2009 UTC
# Line 144  c--         Print cost function for each Line 144  c--         Print cost function for each
144    
145  #ifdef ECCO_VERBOSE  #ifdef ECCO_VERBOSE
146  c--     Print cost function for all tiles.  c--     Print cost function for all tiles.
147          _GLOBAL_SUM_R8( fcthread , myThid )          _GLOBAL_SUM_RL( fcthread , myThid )
148          write(msgbuf,'(a)') ' '          write(msgbuf,'(a)') ' '
149          call print_message( msgbuf, standardmessageunit,          call print_message( msgbuf, standardmessageunit,
150       &                      SQUEEZE_RIGHT , mythid)       &                      SQUEEZE_RIGHT , mythid)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22