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

Diff of /MITgcm/pkg/cost/cost_dependent_init.F

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

revision 1.7 by heimbach, Mon Dec 19 23:29:25 2005 UTC revision 1.8 by heimbach, Wed Oct 14 20:50:06 2009 UTC
# Line 54  c     == end of interface == Line 54  c     == end of interface ==
54  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
55    
56        adfc = 1.0        adfc = 1.0
57    #ifdef ALLOW_DIC
58          adtotcost = 1.0
59    #endif
60    
61        do bj = jtlo,jthi        do bj = jtlo,jthi
62         do bi = itlo,ithi         do bi = itlo,ithi
63  #ifdef ALLOW_COST_VECTOR  #ifdef ALLOW_COST_VECTOR
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22