/[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.8 by heimbach, Wed Oct 14 20:50:06 2009 UTC revision 1.10 by heimbach, Mon Apr 26 15:58:54 2010 UTC
# Line 49  c     == end of interface == Line 49  c     == end of interface ==
49        itlo = mybxlo(mythid)        itlo = mybxlo(mythid)
50        ithi = mybxhi(mythid)        ithi = mybxhi(mythid)
51    
52        fc   = 0.0        fc   = 0. _d 0
53    
54  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
55    
56        adfc = 1.0        if ( myProcId .EQ. 0 ) then
57  #ifdef ALLOW_DIC         adfc = 1. _d 0
58        adtotcost = 1.0        endif
 #endif  
59    
60        do bj = jtlo,jthi        do bj = jtlo,jthi
61         do bi = itlo,ithi         do bi = itlo,ithi
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22