/[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.10 by stephd, Mon Oct 6 20:37:30 2003 UTC revision 1.29 by edhill, Wed Oct 13 20:42:30 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 28  C       |-- ZONAL_FILT_INIT Line 29  C       |-- ZONAL_FILT_INIT
29  C       |  C       |
30  C       |-- AIM_INITIALISE  C       |-- AIM_INITIALISE
31  C       |  C       |
32    C       |-- GRIDALT_INITIALISE
33    C       |
34    C       |-- FIZHI_INIT_FIXED
35    C       |
36  C       |-- LAND_INITIALISE  C       |-- LAND_INITIALISE
37    C       |
38    C       |-- ECCO_COST_INIT_FIXED
39    C       |
40    C       |-- CTRL_INIT
41    C       |
42    C       |-- GCHEM_INIT_FIXED
43    C       |
44    C       |-- OPPS_INIT
45    C       |
46    C       |-- DIAGNOSTICS_INITIALISE
47    
48  C     !USES:  C     !USES:
49        IMPLICIT NONE        IMPLICIT NONE
# Line 52  C--   Initialize fixed arrays for OBCS Line 67  C--   Initialize fixed arrays for OBCS
67         CALL OBCS_INIT_FIXED( myThid )         CALL OBCS_INIT_FIXED( myThid )
68        ENDIF        ENDIF
69  #endif  #endif
70    
71  #ifdef ALLOW_FLT  #ifdef ALLOW_FLT
72  C--   Initialise Float positions  C--   Initialise Float positions
73        IF (useFLT) THEN        IF (useFLT) THEN
# Line 59  C--   Initialise Float positions Line 75  C--   Initialise Float positions
75        _BARRIER        _BARRIER
76        ENDIF        ENDIF
77  #endif  #endif
78    
79    #ifdef ALLOW_TIMEAVE
80    C     IF (useTIMEAVE) THEN
81          CALL TIMEAVE_INIT_FIXED( myThid )
82    C     ENDIF
83    #endif
84    
85  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
86  C--   Latitude circle filter initialisation  C--   Latitude circle filter initialisation
87        IF (useZONAL_FILT) THEN        IF (useZONAL_FILT) THEN
# Line 72  C--   Initialise & Read AIM physical par Line 95  C--   Initialise & Read AIM physical par
95        IF (useAIM) CALL AIM_INITIALISE( myThid )        IF (useAIM) CALL AIM_INITIALISE( myThid )
96  #endif  #endif
97    
98    C AMM
99    #ifdef ALLOW_GRIDALT
100    C--   Initialise GRIDALT parameters - the alternative grid
101          IF (useGRIDALT) then
102           CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
103           CALL GRIDALT_INITIALISE( myThid )
104           CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
105          ENDIF
106    
107    #endif
108    
109    #ifdef ALLOW_FIZHI
110    C--   Initialise & Read FIZHI physical parameters
111          IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
112    #endif
113    C AMM
114    
115  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
116  C--   Initialise & Read Land package parameters  C--   Initialise & Read Land package parameters
117        IF (useLand) CALL LAND_INITIALISE( myThid )        IF (useLand) CALL LAND_INITIALISE( myThid )
118  #endif  #endif
119    
120  #if (defined (ALLOW_ADJOINT_RUN) || \  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
121       defined (ALLOW_TANGENTLINEAR_RUN) || \  C--   Initialise ecco-specific cost function.
122       defined (ALLOW_ECCO_OPTIMIZATION))  C--   This needs to preceed the call ctrl_init
123    C--   in order to provide the weight files
124          IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )
125    #endif
126    
127    #ifdef ALLOW_AUTODIFF
128  C--   Initialise the control variables  C--   Initialise the control variables
129        CALL CTRL_INIT( myThid )        CALL CTRL_INIT( myThid )
130        _BARRIER        _BARRIER
131  #endif  #endif
132    
133  #ifdef INCLUDE_ECCO_PACKAGE  #ifdef ALLOW_PTRACERS
134  # ifdef ALLOW_COST        IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)
 C--   Initialise ecco-specific cost function.  
        IF (useECCO) CALL COST_INIT_FIXED( myThid )  
 # endif  
135  #endif  #endif
136    
137  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
# Line 100  C--   Initialise ecco-specific cost func Line 142  C--   Initialise ecco-specific cost func
142  #endif  #endif
143  #endif  #endif
144    
145    #ifdef ALLOW_CD_CODE
146          IF (useCDscheme) then
147           call CD_CODE_INIT_FIXED(mythid)
148          ENDIF
149    #endif
150    
151    #ifdef ALLOW_OPPS
152          IF (useOPPS) CALL OPPS_INIT( myThid )
153    #endif /* ALLOW_OPPS */
154    
155    CAMM
156    #ifdef ALLOW_DIAGNOSTICS
157          IF (usediagnostics) then
158           call diagnostics_initialise(mythid)
159          ENDIF
160    #endif
161    CAMM
162    
163        RETURN        RETURN
164        END        END
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22