/[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.14 by heimbach, Tue Apr 4 14:52:43 2006 UTC revision 1.15 by heimbach, Wed Jun 7 01:55:13 2006 UTC
# Line 85  c--   Sum up all contributions. Line 85  c--   Sum up all contributions.
85       &         ' --> objf_tracer(bi,bj) = ', objf_tracer(bi,bj)       &         ' --> objf_tracer(bi,bj) = ', objf_tracer(bi,bj)
86            write(standardmessageunit,'(A,D22.15)')            write(standardmessageunit,'(A,D22.15)')
87       &         ' --> objf_atl(bi,bj)    = ', objf_atl(bi,bj)       &         ' --> objf_atl(bi,bj)    = ', objf_atl(bi,bj)
88    #ifdef ALLOW_COST_TRANSPORT
89              write(standardmessageunit,'(A,D22.15)')
90         &         ' --> objf_transport(bi,bj) = ', objf_transport(bi,bj)
91    #endif
92    
93            fc = fc            fc = fc
94       &            + mult_test   * objf_test(bi,bj)       &            + mult_test   * objf_test(bi,bj)
95       &            + mult_tracer * objf_tracer(bi,bj)       &            + mult_tracer * objf_tracer(bi,bj)
96       &            + mult_atl    * objf_atl(bi,bj)       &            + mult_atl    * objf_atl(bi,bj)
97    #ifdef ALLOW_COST_TRANSPORT
98         &            + mult_transport * objf_transport(bi,bj)
99    #endif
100          enddo          enddo
101        enddo        enddo
102    
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22