/[MITgcm]/MITgcm/pkg/cost/cost_final.F
ViewVC logotype

Diff of /MITgcm/pkg/cost/cost_final.F

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

revision 1.18 by dfer, Thu Jan 17 20:53:08 2008 UTC revision 1.19 by jmc, Tue Apr 28 18:08:13 2009 UTC
# Line 124  c--   Sum up all contributions. Line 124  c--   Sum up all contributions.
124        write(standardmessageunit,'(A,D22.15)') '  local fc = ', fc        write(standardmessageunit,'(A,D22.15)') '  local fc = ', fc
125    
126  c--   Do global summation.  c--   Do global summation.
127        _GLOBAL_SUM_R8( fc , myThid )        _GLOBAL_SUM_RL( fc , myThid )
128    
129        write(standardmessageunit,'(A,D22.15)') ' global fc = ', fc        write(standardmessageunit,'(A,D22.15)') ' global fc = ', fc
130    
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22