/[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.5 by heimbach, Fri Mar 24 22:58:25 2006 UTC revision 1.6 by heimbach, Fri Jul 7 22:53:36 2006 UTC
# Line 98  c--   Initialize the tiled cost function Line 98  c--   Initialize the tiled cost function
98            objf_sst(bi,bj)      = 0. _d 0            objf_sst(bi,bj)      = 0. _d 0
99            objf_sss(bi,bj)      = 0. _d 0            objf_sss(bi,bj)      = 0. _d 0
100            objf_h(bi,bj)        = 0. _d 0            objf_h(bi,bj)        = 0. _d 0
101              objf_tp(bi,bj)       = 0. _d 0
102              objf_ers(bi,bj)      = 0. _d 0
103              objf_gfo(bi,bj)      = 0. _d 0
104            objf_ctdt(bi,bj)     = 0. _d 0            objf_ctdt(bi,bj)     = 0. _d 0
105            objf_ctds(bi,bj)     = 0. _d 0            objf_ctds(bi,bj)     = 0. _d 0
106            objf_ctdtclim(bi,bj) = 0. _d 0            objf_ctdtclim(bi,bj) = 0. _d 0
# Line 149  c Line 152  c
152            num_sst(bi,bj)      = 0. _d 0            num_sst(bi,bj)      = 0. _d 0
153            num_sss(bi,bj)      = 0. _d 0            num_sss(bi,bj)      = 0. _d 0
154            num_h(bi,bj)        = 0. _d 0            num_h(bi,bj)        = 0. _d 0
155              num_tp(bi,bj)       = 0. _d 0
156              num_ers(bi,bj)      = 0. _d 0
157              num_gfo(bi,bj)      = 0. _d 0
158            num_ctdt(bi,bj)     = 0. _d 0            num_ctdt(bi,bj)     = 0. _d 0
159            num_ctds(bi,bj)     = 0. _d 0            num_ctds(bi,bj)     = 0. _d 0
160            num_ctdtclim(bi,bj) = 0. _d 0            num_ctdtclim(bi,bj) = 0. _d 0
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22