/[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.17 by molod, Thu Jan 29 14:45:47 2004 UTC revision 1.42 by edhill, Mon Aug 1 21:07:34 2005 UTC
# Line 19  C     \ev Line 19  C     \ev
19  C     !CALLING SEQUENCE:  C     !CALLING SEQUENCE:
20  C     PACKAGES_INIT_FIXED  C     PACKAGES_INIT_FIXED
21  C       |  C       |
22    C       |-- RUNCLOCK_INIT
23    C       |
24    C       |-- DIAGNOSTICS_INIT_EARLY
25    C       |-- DIAGNOSTICS_MAIN_INIT
26    C       |
27  C       |-- GAD_INIT  C       |-- GAD_INIT
28  C       |  C       |
29    C       |-- CD_CODE_INIT_FIXED
30    C       |
31    C       |-- EXF_INIT_FIXED
32    C       |
33    C       |-- GMREDI_INIT_FIXED
34    C       |
35    C       |-- KPP_INIT_FIXED
36    C       |
37    C       |-- OPPS_INIT
38    C       |
39  C       |-- OBCS_INIT_FIXED  C       |-- OBCS_INIT_FIXED
40  C       |  C       |
41  C       |-- FLT_INIT  C       |-- FLT_INIT
42  C       |  C       |
43    C       |-- TIMEAVE_INIT_FIXED
44    C       |
45    C       |-- SHAP_FILT_INIT_FIZED
46    C       |
47  C       |-- ZONAL_FILT_INIT  C       |-- ZONAL_FILT_INIT
48  C       |  C       |
49    C       |-- ATM_DIAGNOSTICS_INIT
50    C       |
51  C       |-- AIM_INITIALISE  C       |-- AIM_INITIALISE
52  C       |  C       |
53    C       |-- GRIDALT_INITIALISE
54    C       |
55    C       |-- FIZHI_INIT_FIXED
56    C       |
57  C       |-- LAND_INITIALISE  C       |-- LAND_INITIALISE
58    C       |
59    C       |-- ECCO_COST_INIT_FIXED
60    C       |
61    C       |-- CTRL_INIT
62    C       |
63    C       |-- PTRACERS_INITIALISE
64    C       |
65    C       |-- GCHEM_INIT_FIXED
66    C       |
67    C       |-- DIC_INIT_FIXED
68    C       |
69    C       |-- THSICE_INIT_FIXED
70    C       |
71    C       |-- CPL_INIT_FIXED
72    C       |
73    C       |-- DIAGNOSTICS_INIT_FIXED
74    
75  C     !USES:  C     !USES:
76        IMPLICIT NONE        IMPLICIT NONE
# Line 44  C     myThid -  Number of this instances Line 85  C     myThid -  Number of this instances
85        INTEGER myThid        INTEGER myThid
86  CEOP  CEOP
87    
88    #ifdef ALLOW_RUNCLOCK
89          IF ( useRunClock ) THEN
90            CALL RUNCLOCK_INIT( myThid )
91          ENDIF
92    #endif
93    
94    #ifdef ALLOW_DIAGNOSTICS
95          IF ( useDiagnostics ) THEN
96            CALL DIAGNOSTICS_INIT_EARLY( myThid )
97            CALL DIAGNOSTICS_MAIN_INIT( myThid )
98          ENDIF
99    #endif
100    
101    #ifdef ALLOW_GENERIC_ADVDIFF
102  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
103        CALL GAD_INIT( myThid )        CALL GAD_INIT( myThid )
104    #endif
105    
106    #ifdef ALLOW_CD_CODE
107          IF (useCDscheme) THEN
108           CALL CD_CODE_INIT_FIXED(mythid)
109          ENDIF
110    #endif
111    
112    #ifdef ALLOW_EXF
113    C--   Initialize fixed arrays for EXF
114    c     IF ( useEXF ) THEN
115           CALL EXF_INIT_FIXED( myThid )
116    c     ENDIF
117    #endif
118    
119    #ifdef ALLOW_GMREDI
120    C--   Initialize fixed arrays for GM-Redi
121          IF ( useGMRedi ) THEN
122           CALL GMREDI_INIT_FIXED( myThid )
123          ENDIF
124    #endif
125    
126    #ifdef ALLOW_KPP
127    C--   Initialize fixed arrays for KPP
128          IF ( useKPP ) THEN
129           CALL KPP_INIT_FIXED( myThid )
130          ENDIF
131    #endif
132    
133    #ifdef ALLOW_OPPS
134          IF (useOPPS) CALL OPPS_INIT( myThid )
135    #endif /* ALLOW_OPPS */
136    
137  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
138  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
# Line 53  C--   Initialize fixed arrays for OBCS Line 140  C--   Initialize fixed arrays for OBCS
140         CALL OBCS_INIT_FIXED( myThid )         CALL OBCS_INIT_FIXED( myThid )
141        ENDIF        ENDIF
142  #endif  #endif
143    
144  #ifdef ALLOW_FLT  #ifdef ALLOW_FLT
145  C--   Initialise Float positions  C--   Initialise Float positions
146        IF (useFLT) THEN        IF (useFLT) THEN
# Line 60  C--   Initialise Float positions Line 148  C--   Initialise Float positions
148        _BARRIER        _BARRIER
149        ENDIF        ENDIF
150  #endif  #endif
151    
152    #ifdef ALLOW_TIMEAVE
153    C     IF (useTIMEAVE) THEN
154          IF ( taveFreq.GT.0. ) THEN
155           CALL TIMEAVE_INIT_FIXED( myThid )
156          ENDIF
157    #endif
158    
159    #ifdef ALLOW_SHAP_FILT
160    C--   Shapiro filter initialisation
161          IF (useSHAP_FILT) THEN
162           CALL SHAP_FILT_INIT_FIXED( myThid )
163          ENDIF
164    #endif
165    
166  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
167  C--   Latitude circle filter initialisation  C--   Latitude circle filter initialisation
168        IF (useZONAL_FILT) THEN        IF (useZONAL_FILT) THEN
# Line 76  C--   Initialise & Read AIM physical par Line 179  C--   Initialise & Read AIM physical par
179  C AMM  C AMM
180  #ifdef ALLOW_GRIDALT  #ifdef ALLOW_GRIDALT
181  C--   Initialise GRIDALT parameters - the alternative grid  C--   Initialise GRIDALT parameters - the alternative grid
182        IF (useGRIDALT) CALL GRIDALT_INITIALISE( myThid )        IF (useGRIDALT) then
183           CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
184           CALL GRIDALT_INITIALISE( myThid )
185           CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
186          ENDIF
187    
188  #endif  #endif
189    
190  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
# Line 94  C--   Initialise & Read Land package par Line 202  C--   Initialise & Read Land package par
202  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
203  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
204  C--   in order to provide the weight files  C--   in order to provide the weight files
205        IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )        CALL ECCO_COST_INIT_FIXED( myThid )
206  #endif  #endif
207    
208  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
# Line 104  C--   Initialise the control variables Line 212  C--   Initialise the control variables
212  #endif  #endif
213    
214  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
215          IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)
216    #endif
217    
218  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
219        IF (usePTRACERS) then        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
        call GCHEM_INIT_FIXED(mythid)  
       ENDIF  
220  #endif  #endif
221    
222    #ifdef ALLOW_DIC
223    C     IF (useDIC)
224          CALL DIC_INIT_FIXED(mythid)
225    #endif
226    
227    #ifdef ALLOW_THSICE
228          IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
229  #endif  #endif
230    
231    #ifdef COMPONENT_MODULE
232          IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
233    #endif
234    
235    #ifdef ALLOW_DIAGNOSTICS
236          IF ( useDiagnostics ) THEN
237            CALL DIAGNOSTICS_INIT_FIXED( myThid )
238          ENDIF
239    #endif
240    
241        RETURN        RETURN
242        END        END
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22