/[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.36 by gforget, Tue Dec 29 14:30:32 2015 UTC revision 1.37 by gforget, Sat Feb 18 16:20:12 2017 UTC
# Line 51  c     == local variables == Line 51  c     == local variables ==
51  #ifdef ALLOW_PROFILES  #ifdef ALLOW_PROFILES
52        integer num_file,num_var        integer num_file,num_var
53  #endif  #endif
54          character*(MAX_LEN_MBUF) msgBuf
55    
56  c     == end of interface ==  c     == end of interface ==
57    
# Line 103  cgf : to compile previous line user is e Line 104  cgf : to compile previous line user is e
104  cgf : to compile previous line user is expected to provide cost_temp.F  cgf : to compile previous line user is expected to provide cost_temp.F
105  #endif  #endif
106    
107        write(standardmessageunit,'(A,D22.15)') '  early fc = ', fc        write(msgBuf,'(A,D22.15)') '  early fc = ', fc
108          call print_message( msgBuf, standardmessageunit,
109         &                    SQUEEZE_RIGHT , mythid)
110    
111  c--   Sum up all contributions.  c--   Sum up all contributions.
112        loc_fc = 0.        loc_fc = 0.
# Line 176  c--   Sum up all contributions. Line 179  c--   Sum up all contributions.
179         ENDDO         ENDDO
180        ENDDO        ENDDO
181    
182        write(standardmessageunit,'(A,D22.15)') '  local fc = ', loc_fc        write(msgBuf,'(A,D22.15)') '  local fc = ', loc_fc
183          call print_message( msgBuf, standardmessageunit,
184         &                    SQUEEZE_RIGHT , mythid)
185    
186  c--   Do global summation.  c--   Do global summation.
187        CALL GLOBAL_SUM_TILE_RL( tile_fc, glob_fc, myThid )        CALL GLOBAL_SUM_TILE_RL( tile_fc, glob_fc, myThid )
# Line 194  cph-- quickly for testing Line 199  cph-- quickly for testing
199        fc = totcost        fc = totcost
200  #endif  #endif
201    
202        write(standardmessageunit,'(A,D22.15)') ' global fc = ', fc        write(msgBuf,'(A,D22.15)') ' global fc = ', fc
203          call print_message( msgBuf, standardmessageunit,
204         &                    SQUEEZE_RIGHT , mythid)
205    
206  c--   to avoid re-write of output in reverse checkpointing loops,  c--   to avoid re-write of output in reverse checkpointing loops,
207  c--   switch off output flag :  c--   switch off output flag :
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22