/[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.11 by heimbach, Thu Feb 10 00:46:06 2005 UTC revision 1.12 by heimbach, Thu Feb 10 01:04:33 2005 UTC
# Line 73  c--   Sum up all contributions. Line 73  c--   Sum up all contributions.
73        do bj = jtlo,jthi        do bj = jtlo,jthi
74          do bi = itlo,ithi          do bi = itlo,ithi
75    
76            write(standardmessageunit,'(A,E22.14)')            write(standardmessageunit,'(A,D22.15)')
77       &          ' --> objf_test(bi,bj)   = ', objf_test(bi,bj)       &          ' --> objf_test(bi,bj)   = ', objf_test(bi,bj)
78            write(standardmessageunit,'(A,E22.14)')            write(standardmessageunit,'(A,D22.15)')
79       &         ' --> objf_tracer(bi,bj) = ', objf_tracer(bi,bj)       &         ' --> objf_tracer(bi,bj) = ', objf_tracer(bi,bj)
80            write(standardmessageunit,'(A,E22.14)')            write(standardmessageunit,'(A,D22.15)')
81       &         ' --> objf_atl(bi,bj)    = ', objf_atl(bi,bj)       &         ' --> objf_atl(bi,bj)    = ', objf_atl(bi,bj)
82    
83            fc = fc            fc = fc
# Line 87  c--   Sum up all contributions. Line 87  c--   Sum up all contributions.
87          enddo          enddo
88        enddo        enddo
89    
90        write(standardmessageunit,'(A,E22.14)') '  local fc = ', fc        write(standardmessageunit,'(A,D22.15)') '  local fc = ', fc
91    
92  c--   Do global summation.  c--   Do global summation.
93        _GLOBAL_SUM_R8( fc , myThid )        _GLOBAL_SUM_R8( fc , myThid )
94    
95        write(standardmessageunit,'(A,E22.14)') ' global fc = ', fc        write(standardmessageunit,'(A,D22.15)') ' global fc = ', fc
96    
97  #endif /* ALLOW_ECCO */  #endif /* ALLOW_ECCO */
98    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22