/[MITgcm]/MITgcm/pkg/ecco/ecco_cost_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/ecco_cost_init_varia.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by heimbach, Fri Jul 7 22:53:36 2006 UTC revision 1.7 by heimbach, Sun Dec 24 14:23:44 2006 UTC
# Line 83  c--   Initialize the tiled cost function Line 83  c--   Initialize the tiled cost function
83            objf_hfluxmm(bi,bj)  = 0. _d 0            objf_hfluxmm(bi,bj)  = 0. _d 0
84            objf_sflux(bi,bj)    = 0. _d 0            objf_sflux(bi,bj)    = 0. _d 0
85            objf_sfluxm(bi,bj)   = 0. _d 0            objf_sfluxm(bi,bj)   = 0. _d 0
           objf_sfluxmm(bi,bj)  = 0. _d 0  
86            objf_tauu(bi,bj)     = 0. _d 0            objf_tauu(bi,bj)     = 0. _d 0
87            objf_tauum(bi,bj)    = 0. _d 0            objf_tauum(bi,bj)    = 0. _d 0
88            objf_tauv(bi,bj)     = 0. _d 0            objf_tauv(bi,bj)     = 0. _d 0
# Line 260  c--   Initialise the "global" parts of t Line 259  c--   Initialise the "global" parts of t
259        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
260          objf_obcsvol = 0. _d 0          objf_obcsvol = 0. _d 0
261          objf_hmean   = 0. _d 0          objf_hmean   = 0. _d 0
262            objf_sfluxmm = 0. _d 0
263          num_obcsvol = 0. _d 0          num_obcsvol = 0. _d 0
264          num_hmean   = 0. _d 0          num_hmean   = 0. _d 0
265        _END_MASTER( mythid )        _END_MASTER( mythid )
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22