/[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.19 by jmc, Tue Apr 28 18:08:13 2009 UTC revision 1.20 by heimbach, Thu Oct 15 05:21:50 2009 UTC
# Line 32  c     == global variables == Line 32  c     == global variables ==
32  #ifdef ALLOW_CTRL  #ifdef ALLOW_CTRL
33  # include "ctrl.h"  # include "ctrl.h"
34  #endif  #endif
35    #ifdef ALLOW_DIC
36    cph-- quickly for testing
37    # include "DIC_COST.h"
38    #endif
39    
40  c     == routine arguments ==  c     == routine arguments ==
41    
# Line 126  c--   Sum up all contributions. Line 130  c--   Sum up all contributions.
130  c--   Do global summation.  c--   Do global summation.
131        _GLOBAL_SUM_RL( fc , myThid )        _GLOBAL_SUM_RL( fc , myThid )
132    
133    #ifdef ALLOW_DIC
134    cph-- quickly for testing
135          fc = totcost
136    #endif
137    
138        write(standardmessageunit,'(A,D22.15)') ' global fc = ', fc        write(standardmessageunit,'(A,D22.15)') ' global fc = ', fc
139    
140  #endif /* ALLOW_ECCO */  #endif /* ALLOW_ECCO */
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22