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

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

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


Revision 1.67 - (show annotations) (download)
Sat Jan 31 22:22:25 2009 UTC (15 years, 4 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint61n, checkpoint61q, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61i, checkpoint61r, checkpoint61p
Changes since 1.66: +10 -13 lines
replace FLT_INIT by 3-steps standard initialization S/R: readparms,
 init_fixed & ini_varia

1 C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.66 2009/01/04 01:00:19 jmc Exp $
2 C $Name: $
3
4 #include "PACKAGES_CONFIG.h"
5 #include "CPP_OPTIONS.h"
6
7 CBOP
8 C !ROUTINE: PACKAGES_INIT_FIXED
9 C !INTERFACE:
10 SUBROUTINE PACKAGES_INIT_FIXED( myThid )
11
12 C !DESCRIPTION: \bv
13 C *==========================================================*
14 C | SUBROUTINE PACKAGES_INIT_FIXED
15 C | o Does initialisation of package-related fixed fields
16 C *==========================================================*
17 C \ev
18
19 C !CALLING SEQUENCE:
20 C PACKAGES_INIT_FIXED
21 C |
22 C |-- RUNCLOCK_INIT
23 C |
24 C |-- DIAGNOSTICS_INIT_EARLY
25 C |-- DIAGNOSTICS_MAIN_INIT
26 C |
27 C |-- GAD_INIT
28 C |
29 C |-- MOM_INIT_FIXED
30 C |
31 C |-- CD_CODE_INIT_FIXED
32 C |
33 C |-- EXF_INIT_FIXED
34 C |
35 C |-- GMREDI_INIT_FIXED
36 C |
37 C |-- DWNSLP_INIT_FIXED
38 C |
39 C |-- KPP_INIT_FIXED
40 C |
41 C |-- MY82_INIT_FIXED
42 C |
43 C |-- GGL90_INIT_FIXED
44 C |
45 C |-- OPPS_INIT
46 C |
47 C |-- OBCS_INIT_FIXED
48 C |
49 C |-- TIMEAVE_INIT_FIXED
50 C |
51 C |-- SHAP_FILT_INIT_FIZED
52 C |
53 C |-- ZONAL_FILT_INIT
54 C |
55 C |-- AIM_INITIALISE
56 C |
57 C |-- GRIDALT_INITIALISE
58 C |
59 C |-- FIZHI_INIT_FIXED
60 C |
61 C |-- LAND_INITIALISE
62 C |
63 C |-- SEAICE_COST_INIT_FIXED
64 C |
65 C |-- ECCO_COST_INIT_FIXED
66 C |
67 C |-- PROFILES_INIT_FIXED
68 C |
69 C |-- CTRL_INIT
70 C |
71 C |-- FLT_INIT_FIXED
72 C |
73 C |-- PTRACERS_INIT_FIXED
74 C |
75 C |-- GCHEM_INIT_FIXED
76 C |
77 C |-- THSICE_INIT_FIXED
78 C |
79 C |-- SHELFICE_INIT_FIXED
80 C |
81 C |-- CPL_INIT_FIXED
82 C |
83 C |-- ATM2D_INIT_FIXED
84 C |
85 C |-- REGRID_INIT_FIXED
86 C |
87 C |-- SALT_PLUME_INIT_FIXED
88 C |
89 C |-- MYPACKAGE_INIT_FIXED
90 C |
91 C |-- DIAGNOSTICS_INIT_FIXED
92
93 C !USES:
94 IMPLICIT NONE
95 C === Global variables ===
96 #include "SIZE.h"
97 #include "EEPARAMS.h"
98 #include "PARAMS.h"
99
100 C !INPUT/OUTPUT PARAMETERS:
101 C === Routine arguments ===
102 C myThid - Number of this instances
103 INTEGER myThid
104 CEOP
105
106 #ifdef ALLOW_RUNCLOCK
107 IF ( useRunClock ) THEN
108 CALL RUNCLOCK_INIT( myThid )
109 ENDIF
110 #endif
111
112 #ifdef ALLOW_DIAGNOSTICS
113 IF ( useDiagnostics ) THEN
114 C- needs to call DIAGNOSTICS_INIT_EARLY before all package-diag-init calls
115 CALL DIAGNOSTICS_INIT_EARLY( myThid )
116 CALL DIAGNOSTICS_MAIN_INIT( myThid )
117 ENDIF
118 #endif
119
120 #ifdef ALLOW_GENERIC_ADVDIFF
121 C-- Initialize fixed params for GAD
122 CALL GAD_INIT_FIXED( myThid )
123 #endif
124
125 #ifdef ALLOW_MOM_COMMON
126 C-- Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
127 IF ( momStepping ) THEN
128 CALL MOM_INIT_FIXED( myThid )
129 ENDIF
130 #endif
131
132 #ifdef ALLOW_CD_CODE
133 IF (useCDscheme) THEN
134 CALL CD_CODE_INIT_FIXED(myThid)
135 ENDIF
136 #endif
137
138 #ifdef ALLOW_EXF
139 C-- Initialize fixed arrays for EXF
140 IF ( useEXF ) THEN
141 CALL EXF_INIT_FIXED( myThid )
142 ENDIF
143 #endif
144
145 #ifdef ALLOW_GMREDI
146 C-- Initialize fixed arrays for GM-Redi
147 IF ( useGMRedi ) THEN
148 CALL GMREDI_INIT_FIXED( myThid )
149 ENDIF
150 #endif
151
152 #ifdef ALLOW_DOWN_SLOPE
153 C-- Initialize fixed arrays for Down-Slope pkg
154 IF ( useDOWN_SLOPE ) THEN
155 CALL DWNSLP_INIT_FIXED( myThid )
156 ENDIF
157 #endif
158
159 #ifdef ALLOW_KPP
160 C-- Initialize fixed arrays for KPP
161 IF ( useKPP ) THEN
162 CALL KPP_INIT_FIXED( myThid )
163 ENDIF
164 #endif
165
166 #ifdef ALLOW_MY82
167 C-- Initialize fixed arrays for MY82
168 IF ( useMY82 ) THEN
169 CALL MY82_INIT_FIXED( myThid )
170 ENDIF
171 #endif
172
173 #ifdef ALLOW_GGL90
174 C-- Initialize fixed arrays for GGL90
175 IF ( useGGL90 ) THEN
176 CALL GGL90_INIT_FIXED( myThid )
177 ENDIF
178 #endif
179
180 #ifdef ALLOW_OPPS
181 IF (useOPPS) CALL OPPS_INIT( myThid )
182 #endif /* ALLOW_OPPS */
183
184 C-- Initialize fixed arrays for OBCS
185 #ifdef ALLOW_OBCS
186 IF (useOBCS) THEN
187 CALL OBCS_INIT_FIXED( myThid )
188 ENDIF
189 #endif
190
191 #ifdef ALLOW_TIMEAVE
192 C IF (useTIMEAVE) THEN
193 IF ( taveFreq.GT.0. ) THEN
194 CALL TIMEAVE_INIT_FIXED( myThid )
195 ENDIF
196 #endif
197
198 #ifdef ALLOW_SHAP_FILT
199 C-- Shapiro filter initialisation
200 IF (useSHAP_FILT) THEN
201 CALL SHAP_FILT_INIT_FIXED( myThid )
202 ENDIF
203 #endif
204
205 #ifdef ALLOW_ZONAL_FILT
206 C-- Latitude circle filter initialisation
207 IF (useZONAL_FILT) THEN
208 CALL ZONAL_FILT_INIT(myThid)
209 ENDIF
210 #endif
211
212 #ifdef ALLOW_AIM
213 C-- Initialise & Read AIM physical parameters
214 IF (useAIM) CALL AIM_INITIALISE( myThid )
215 #endif
216
217 C AMM
218 #ifdef ALLOW_GRIDALT
219 C-- Initialise GRIDALT parameters - the alternative grid
220 IF (useGRIDALT) then
221 CALL TIMER_START('GRIDALT_INITIALISE [PACKAGES_INIT_F]',myThid)
222 CALL GRIDALT_INITIALISE( myThid )
223 CALL TIMER_STOP ('GRIDALT_INITIALISE [PACKAGES_INIT_F]',myThid)
224 ENDIF
225
226 #endif
227
228 #ifdef ALLOW_FIZHI
229 C-- Initialise & Read FIZHI physical parameters
230 IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
231 #endif
232 C AMM
233
234 #ifdef ALLOW_LAND
235 C-- Initialise & Read Land package parameters
236 IF (useLand) CALL LAND_INITIALISE( myThid )
237 #endif
238
239 #if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))
240 C-- Initialise ecco-specific cost function.
241 C-- This needs to preceed the call ctrl_init
242 C-- in order to provide the weight files
243 IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid )
244 #endif
245
246 #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
247 C-- Initialise ecco-specific cost function.
248 C-- This needs to preceed the call ctrl_init
249 C-- in order to provide the weight files
250 CALL ECCO_COST_INIT_FIXED( myThid )
251 #endif
252
253 #ifdef ALLOW_PROFILES
254 CALL PROFILES_INIT_FIXED( myThid )
255 #endif
256
257 #ifdef ALLOW_AUTODIFF
258 C-- Initialise the control variables
259 CALL CTRL_INIT( myThid )
260 #endif
261
262 #ifdef ALLOW_ADMTLM
263 C-- Initialise ADMTLM
264 CALL CTRL_ADMTLM( myThid )
265 #endif
266
267 #ifdef ALLOW_FLT
268 C-- Initialise fixed array for Float pkg
269 IF ( useFLT ) CALL FLT_INIT_FIXED( myThid )
270 #endif
271
272 #ifdef ALLOW_PTRACERS
273 IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
274 #endif
275
276 #ifdef ALLOW_GCHEM
277 IF (useGCHEM) CALL GCHEM_INIT_FIXED(myThid)
278 #endif
279
280 #ifdef ALLOW_RBCS
281 IF (useRBCS) CALL RBCS_INIT_FIXED(myThid)
282 #endif
283
284 #ifdef ALLOW_THSICE
285 IF (useThSIce) CALL THSICE_INIT_FIXED(myThid)
286 #endif
287
288 #ifdef ALLOW_SEAICE
289 IF (useSEAICE) CALL SEAICE_INIT_FIXED(myThid)
290 #endif
291
292 #ifdef ALLOW_SHELFICE
293 IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
294 #endif /* ALLOW_SHELFICE */
295
296 #ifdef ALLOW_EMBED_FILES
297 IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( myThid )
298 #endif
299
300 #ifdef ALLOW_REGRID
301 IF ( useREGRID ) CALL REGRID_INIT_FIXED( myThid )
302 #endif
303
304 #ifdef COMPONENT_MODULE
305 IF ( useCoupler ) CALL CPL_INIT_FIXED( myThid )
306 #endif
307
308 #ifdef ALLOW_ATM2D
309 IF ( useAtm2d ) CALL ATM2D_INIT_FIXED( myThid )
310 #endif
311
312 #ifdef ALLOW_SALT_PLUME
313 IF (useSALT_PLUME) CALL SALT_PLUME_INIT_FIXED(myThid)
314 #endif
315
316 #ifdef ALLOW_MYPACKAGE
317 IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(myThid)
318 #endif
319
320 #ifdef ALLOW_DIAGNOSTICS
321 C- needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
322 IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
323 #endif
324
325 RETURN
326 END

  ViewVC Help
Powered by ViewVC 1.1.22