/[MITgcm]/MITgcm/model/src/packages_init_fixed.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_init_fixed.F

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

revision 1.12 by edhill, Thu Oct 23 04:41:40 2003 UTC revision 1.18 by molod, Thu Feb 12 16:01:32 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
 #include "AD_CONFIG.h"  
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
# Line 74  C--   Initialise & Read AIM physical par Line 73  C--   Initialise & Read AIM physical par
73        IF (useAIM) CALL AIM_INITIALISE( myThid )        IF (useAIM) CALL AIM_INITIALISE( myThid )
74  #endif  #endif
75    
76    C AMM
77    #ifdef ALLOW_GRIDALT
78    C--   Initialise GRIDALT parameters - the alternative grid
79          IF (useGRIDALT) CALL GRIDALT_INITIALISE( myThid )
80    #endif
81    
82    #ifdef ALLOW_FIZHI
83    C--   Initialise & Read FIZHI physical parameters
84          IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
85    #endif
86    C AMM
87    
88  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
89  C--   Initialise & Read Land package parameters  C--   Initialise & Read Land package parameters
90        IF (useLand) CALL LAND_INITIALISE( myThid )        IF (useLand) CALL LAND_INITIALISE( myThid )
91  #endif  #endif
92    
93  #if (defined (ALLOW_ADJOINT_RUN) || \  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
94       defined (ALLOW_TANGENTLINEAR_RUN) || \  C--   Initialise ecco-specific cost function.
95       defined (ALLOW_ECCO_OPTIMIZATION))  C--   This needs to preceed the call ctrl_init
96    C--   in order to provide the weight files
97          IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )
98    #endif
99    
100    #ifdef ALLOW_AUTODIFF
101  C--   Initialise the control variables  C--   Initialise the control variables
102        CALL CTRL_INIT( myThid )        CALL CTRL_INIT( myThid )
103        _BARRIER        _BARRIER
104  #endif  #endif
105    
 #ifdef INCLUDE_ECCO_PACKAGE  
 # ifdef ALLOW_COST  
 C--   Initialise ecco-specific cost function.  
        IF (useECCO) CALL COST_INIT_FIXED( myThid )  
 # endif  
 #endif  
   
106  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
107  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
108        IF (usePTRACERS) then        IF (usePTRACERS) then
# Line 102  C--   Initialise ecco-specific cost func Line 111  C--   Initialise ecco-specific cost func
111  #endif  #endif
112  #endif  #endif
113    
114    CAMM
115    #ifdef ALLOW_DIAGNOSTICS
116          IF (usediagnostics) then
117           call diagnostics_init(mythid)
118          ENDIF
119    #endif
120    CAMM
121    
122        RETURN        RETURN
123        END        END
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22