/[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.13 by jmc, Tue Oct 9 00:02:51 2007 UTC revision 1.14 by gforget, Sat Feb 2 02:34:14 2008 UTC
# Line 131  c--   Initialize the tiled cost function Line 131  c--   Initialize the tiled cost function
131            objf_ageos(bi,bj)    = 0. _d 0            objf_ageos(bi,bj)    = 0. _d 0
132            objf_diffkr(bi,bj)   = 0. _d 0            objf_diffkr(bi,bj)   = 0. _d 0
133            objf_kapgm(bi,bj)    = 0. _d 0            objf_kapgm(bi,bj)    = 0. _d 0
134              objf_kapredi(bi,bj)    = 0. _d 0
135            objf_theta_ini_fin(bi,bj) = 0. _d 0            objf_theta_ini_fin(bi,bj) = 0. _d 0
136            objf_salt_ini_fin(bi,bj)  = 0. _d 0            objf_salt_ini_fin(bi,bj)  = 0. _d 0
137            objf_eddytau(bi,bj)    = 0. _d 0            objf_eddytau(bi,bj)    = 0. _d 0
# Line 191  c Line 192  c
192            num_ageos(bi,bj)    = 0. _d 0            num_ageos(bi,bj)    = 0. _d 0
193            num_diffkr(bi,bj)   = 0. _d 0            num_diffkr(bi,bj)   = 0. _d 0
194            num_kapgm(bi,bj)    = 0. _d 0            num_kapgm(bi,bj)    = 0. _d 0
195              num_kapredi(bi,bj)    = 0. _d 0
196            num_eddytau(bi,bj)    = 0. _d 0            num_eddytau(bi,bj)    = 0. _d 0
197            num_bottomdrag(bi,bj)    = 0. _d 0            num_bottomdrag(bi,bj)    = 0. _d 0
198            do k=1,NGENCOST            do k=1,NGENCOST
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22