/[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.17 by dfer, Tue Jan 15 20:28:39 2008 UTC revision 1.18 by dfer, Thu Jan 17 20:53:08 2008 UTC
# Line 94  c--   Sum up all contributions. Line 94  c--   Sum up all contributions.
94       &         ' --> objf_atl(bi,bj)    = ', objf_atl(bi,bj)       &         ' --> objf_atl(bi,bj)    = ', objf_atl(bi,bj)
95  #ifdef ALLOW_COST_TEMP  #ifdef ALLOW_COST_TEMP
96            write(standardmessageunit,'(A,D22.15)')            write(standardmessageunit,'(A,D22.15)')
97       &          ' --> objf_temp(bi,bj)   = ', objf_temp(bi,bj)       &          ' --> objf_temp_tut(bi,bj)   = ', objf_temp_tut(bi,bj)
98  #endif  #endif
99  #ifdef ALLOW_COST_HFLUXM  #ifdef ALLOW_COST_HFLUXM
100            write(standardmessageunit,'(A,D22.15)')            write(standardmessageunit,'(A,D22.15)')
101       &         ' --> objf_hfluxm(bi,bj) = ', objf_hfluxm(bi,bj)       &         ' --> objf_hflux_tut(bi,bj) = ', objf_hflux_tut(bi,bj)
102  #endif  #endif
103  #ifdef ALLOW_COST_TRANSPORT  #ifdef ALLOW_COST_TRANSPORT
104            write(standardmessageunit,'(A,D22.15)')            write(standardmessageunit,'(A,D22.15)')
# Line 113  c--   Sum up all contributions. Line 113  c--   Sum up all contributions.
113       &            + mult_transport * objf_transport(bi,bj)       &            + mult_transport * objf_transport(bi,bj)
114  #endif  #endif
115  #ifdef ALLOW_COST_TEMP  #ifdef ALLOW_COST_TEMP
116       &            + mult_temp   * objf_temp(bi,bj)       &            + mult_temp_tut  * objf_temp_tut(bi,bj)
117  #endif  #endif
118  #ifdef ALLOW_COST_HFLUXM  #ifdef ALLOW_COST_HFLUXM
119       &            + mult_hfluxm * objf_hfluxm(bi,bj)       &            + mult_hflux_tut * objf_hflux_tut(bi,bj)
120  #endif  #endif
121          enddo          enddo
122        enddo        enddo
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22