/[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.13 by heimbach, Tue Sep 11 01:32:02 2012 UTC
# Line 1  Line 1 
 C  
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "PACKAGES_CONFIG.h"  #include "COST_OPTIONS.h"
 #include "COST_CPPOPTIONS.h"  
   
5    
6        subroutine cost_dependent_init( mythid )        subroutine cost_dependent_init( mythid )
7    
# Line 49  c     == end of interface == Line 46  c     == end of interface ==
46        itlo = mybxlo(mythid)        itlo = mybxlo(mythid)
47        ithi = mybxhi(mythid)        ithi = mybxhi(mythid)
48    
49        fc   = 0.0  #ifdef ALLOW_AUTODIFF_OPENAD
50          fc%v = 0.0
51    #else
52          fc   = 0. _d 0
53    #endif
54    
55  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
56    
57    #ifdef ALLOW_AUTODIFF_OPENAD
58        adfc = 1.0        adfc = 1.0
59  #ifdef ALLOW_DIC  #else
60        adtotcost = 1.0        if ( myProcId .EQ. 0 ) then
61           adfc = 1. _d 0
62          endif
63  #endif  #endif
64    
65        do bj = jtlo,jthi        do bj = jtlo,jthi
# Line 85  cph because we need it in ADM*TLM Line 89  cph because we need it in ADM*TLM
89    
90        return        return
91        end        end
   
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22