/[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.2.6.3 by heimbach, Thu May 30 20:01:26 2002 UTC revision 1.2.6.4 by dimitri, Thu Feb 27 07:04:39 2003 UTC
# Line 14  c Line 14  c
14  c     o Sum of all cost function contributions.  c     o Sum of all cost function contributions.
15  c  c
16  c     started: Christian Eckert eckert@mit.edu 30-Jun-1999  c     started: Christian Eckert eckert@mit.edu 30-Jun-1999
 c  
17  c     changed: Christian Eckert eckert@mit.edu 25-Feb-2000  c     changed: Christian Eckert eckert@mit.edu 25-Feb-2000
 c  
18  c              - Restructured the code in order to create a package  c              - Restructured the code in order to create a package
19  c                for the MITgcmUV.  c                for the MITgcmUV.
20    c     added sea-ice term: menemenlis@jpl.nasa.gov 26-Feb-2003
21  c  c
22  c     ==================================================================  c     ==================================================================
23  c     SUBROUTINE cost_Final  c     SUBROUTINE cost_Final
# Line 161  c--   Sum up all contributions. Line 160  c--   Sum up all contributions.
160            print*,' --> objf_obcss(bi,bj)   =',objf_obcss(bi,bj)            print*,' --> objf_obcss(bi,bj)   =',objf_obcss(bi,bj)
161            print*,' --> objf_obcsw(bi,bj)   =',objf_obcsw(bi,bj)            print*,' --> objf_obcsw(bi,bj)   =',objf_obcsw(bi,bj)
162            print*,' --> objf_obcse(bi,bj)   =',objf_obcse(bi,bj)            print*,' --> objf_obcse(bi,bj)   =',objf_obcse(bi,bj)
163              print*,' --> objf_ice(bi,bj)     =',objf_ice(bi,bj)
164    
165            fc = fc            fc = fc
166       &            + mult_temp    * objf_temp(bi,bj)       &            + mult_temp    * objf_temp(bi,bj)
# Line 202  c--   Sum up all contributions. Line 202  c--   Sum up all contributions.
202       &            + mult_obcss   * objf_obcss(bi,bj)         &            + mult_obcss   * objf_obcss(bi,bj)  
203       &            + mult_obcsw   * objf_obcsw(bi,bj)         &            + mult_obcsw   * objf_obcsw(bi,bj)  
204       &            + mult_obcse   * objf_obcse(bi,bj)         &            + mult_obcse   * objf_obcse(bi,bj)  
205         &            + mult_ice     * objf_ice(bi,bj)  
206    
207            f_temp = f_temp + objf_temp(bi,bj)            f_temp = f_temp + objf_temp(bi,bj)
208            f_salt = f_salt + objf_salt(bi,bj)            f_salt = f_salt + objf_salt(bi,bj)
Legend:
Removed from v.1.2.6.3  
changed lines
  Added in v.1.2.6.4
  ViewVC Help
Powered by ViewVC 1.1.22