/[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.16 by jmc, Mon Oct 8 23:59:21 2007 UTC revision 1.17 by dfer, Tue Jan 15 20:28:39 2008 UTC
# Line 75  c     == end of interface == Line 75  c     == end of interface ==
75  # ifdef ALLOW_COST_ATLANTIC_HEAT  # ifdef ALLOW_COST_ATLANTIC_HEAT
76        CALL COST_ATLANTIC_HEAT (myThid)        CALL COST_ATLANTIC_HEAT (myThid)
77  # endif  # endif
78    #ifdef ALLOW_COST_HFLUXM
79          CALL COST_HFLUX (myThid)
80    #endif
81    #ifdef ALLOW_COST_TEMP
82          CALL COST_TEMP (myThid)
83    #endif
84    
85  c--   Sum up all contributions.  c--   Sum up all contributions.
86        do bj = jtlo,jthi        do bj = jtlo,jthi
# Line 86  c--   Sum up all contributions. Line 92  c--   Sum up all contributions.
92       &         ' --> objf_tracer(bi,bj) = ', objf_tracer(bi,bj)       &         ' --> objf_tracer(bi,bj) = ', objf_tracer(bi,bj)
93            write(standardmessageunit,'(A,D22.15)')            write(standardmessageunit,'(A,D22.15)')
94       &         ' --> objf_atl(bi,bj)    = ', objf_atl(bi,bj)       &         ' --> objf_atl(bi,bj)    = ', objf_atl(bi,bj)
95    #ifdef ALLOW_COST_TEMP
96              write(standardmessageunit,'(A,D22.15)')
97         &          ' --> objf_temp(bi,bj)   = ', objf_temp(bi,bj)
98    #endif
99    #ifdef ALLOW_COST_HFLUXM
100              write(standardmessageunit,'(A,D22.15)')
101         &         ' --> objf_hfluxm(bi,bj) = ', objf_hfluxm(bi,bj)
102    #endif
103  #ifdef ALLOW_COST_TRANSPORT  #ifdef ALLOW_COST_TRANSPORT
104            write(standardmessageunit,'(A,D22.15)')            write(standardmessageunit,'(A,D22.15)')
105       &         ' --> objf_transport(bi,bj) = ', objf_transport(bi,bj)       &         ' --> objf_transport(bi,bj) = ', objf_transport(bi,bj)
# Line 98  c--   Sum up all contributions. Line 112  c--   Sum up all contributions.
112  #ifdef ALLOW_COST_TRANSPORT  #ifdef ALLOW_COST_TRANSPORT
113       &            + mult_transport * objf_transport(bi,bj)       &            + mult_transport * objf_transport(bi,bj)
114  #endif  #endif
115    #ifdef ALLOW_COST_TEMP
116         &            + mult_temp   * objf_temp(bi,bj)
117    #endif
118    #ifdef ALLOW_COST_HFLUXM
119         &            + mult_hfluxm * objf_hfluxm(bi,bj)
120    #endif
121          enddo          enddo
122        enddo        enddo
123    
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22