/[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.15 by heimbach, Wed Jun 7 01:55:13 2006 UTC revision 1.16 by jmc, Mon Oct 8 23:59:21 2007 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "COST_CPPOPTIONS.h"  #include "COST_CPPOPTIONS.h"
# Line 79  c--   Sum up all contributions. Line 80  c--   Sum up all contributions.
80        do bj = jtlo,jthi        do bj = jtlo,jthi
81          do bi = itlo,ithi          do bi = itlo,ithi
82    
83            write(standardmessageunit,'(A,D22.15)')            write(standardmessageunit,'(A,D22.15)')
84       &          ' --> objf_test(bi,bj)   = ', objf_test(bi,bj)       &          ' --> objf_test(bi,bj)   = ', objf_test(bi,bj)
85            write(standardmessageunit,'(A,D22.15)')            write(standardmessageunit,'(A,D22.15)')
86       &         ' --> objf_tracer(bi,bj) = ', objf_tracer(bi,bj)       &         ' --> objf_tracer(bi,bj) = ', objf_tracer(bi,bj)
87            write(standardmessageunit,'(A,D22.15)')            write(standardmessageunit,'(A,D22.15)')
88       &         ' --> objf_atl(bi,bj)    = ', objf_atl(bi,bj)       &         ' --> objf_atl(bi,bj)    = ', objf_atl(bi,bj)
89  #ifdef ALLOW_COST_TRANSPORT  #ifdef ALLOW_COST_TRANSPORT
90            write(standardmessageunit,'(A,D22.15)')            write(standardmessageunit,'(A,D22.15)')
91       &         ' --> objf_transport(bi,bj) = ', objf_transport(bi,bj)       &         ' --> objf_transport(bi,bj) = ', objf_transport(bi,bj)
92  #endif  #endif
93    
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22