/[MITgcm]/MITgcm/pkg/cost/cost_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/cost/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, Sat May 6 14:33:25 2006 UTC revision 1.6 by heimbach, Wed Jun 7 01:55:13 2006 UTC
# Line 56  c--   Initialize the tiled cost function Line 56  c--   Initialize the tiled cost function
56            objf_atl(bi,bj)  = 0. _d 0            objf_atl(bi,bj)  = 0. _d 0
57            objf_test(bi,bj) = 0. _d 0            objf_test(bi,bj) = 0. _d 0
58            objf_tracer(bi,bj) = 0. _d 0            objf_tracer(bi,bj) = 0. _d 0
59    #ifdef ALLOW_COST_TRANSPORT
60              objf_transport(bi,bj) = 0. _d 0
61    #endif
62    #ifdef ALLOW_COST_DEPTH
63              objf_depth(bi,bj) = 0. _d 0
64    #endif
65  #ifdef ALLOW_COST_VECTOR  #ifdef ALLOW_COST_VECTOR
66            do i=1,sNx            do i=1,sNx
67              objf_vector(i,bi,bj) = 0. _d 0              objf_vector(i,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