/[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.9 by heimbach, Mon Jun 23 22:32:02 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    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  CBOP  CBOP
# Line 72  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    
106  #ifdef INCLUDE_ECCO_PACKAGE  #ifdef ALLOW_PTRACERS
107  # ifdef ALLOW_COST  #ifdef ALLOW_GCHEM
108  C--   Initialise ecco-specific cost function.        IF (usePTRACERS) then
109         IF (useECCO) CALL COST_INIT_FIXED( myThid )         call GCHEM_INIT_FIXED(mythid)
110  # endif        ENDIF
111    #endif
112    #endif
113    
114    CAMM
115    #ifdef ALLOW_DIAGNOSTICS
116          IF (usediagnostics) then
117           call diagnostics_init(mythid)
118          ENDIF
119  #endif  #endif
120    CAMM
121    
122        RETURN        RETURN
123        END        END
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22