/[MITgcm]/MITgcm_contrib/rpa_layers/modsrc/packages_readparms.F
ViewVC logotype

Contents of /MITgcm_contrib/rpa_layers/modsrc/packages_readparms.F

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


Revision 1.1 - (show annotations) (download)
Tue Sep 15 19:46:38 2009 UTC (15 years, 10 months ago) by rpa
Branch: MAIN
mods to model/src for running layers package

1 C $Header: /u/gcmpack/MITgcm/model/src/packages_readparms.F,v 1.61 2009/07/08 22:10:01 jmc Exp $
2 C $Name: $
3
4 #include "PACKAGES_CONFIG.h"
5 #include "CPP_OPTIONS.h"
6
7 CStartOfInterface
8 CBOP
9 C !ROUTINE: PACKAGES_READPARMS
10 C !INTERFACE:
11 SUBROUTINE PACKAGES_READPARMS(myThid)
12
13 C !DESCRIPTION: \bv
14 C *==========================================================*
15 C | SUBROUTINE PACKAGES_READPARMS
16 C | o Read runtime package configuration parameters
17 C *==========================================================*
18 C | Packages can have internal runtime configuration
19 C | parameters. A package provides a routine
20 C | ${PKGNAME}_READ_PARMS to read these parameters. In
21 C | general this routine should read parameters from a file
22 C | called data.${pkgname}.
23 C | This routine (S/R PACKAGES_READPARMS) calls per-package
24 C | parameter reading routines.
25 C *==========================================================*
26 C \ev
27
28 C !CALLING SEQUENCE:
29 C PACKAGES_READPARMS
30 C |
31 C |-- MNC_READPARMS
32 C |
33 C |-- RUNCLOCK_READPARMS
34 C |
35 C |-- CAL_READPARMS
36 C |
37 C |-- GMREDI_READPARMS
38 C |
39 C |-- DWNSLP_READPARMS
40 C |
41 C |-- KPP_READPARMS
42 C |
43 C |-- PP81_READPARMS
44 C |
45 C |-- MY82_READPARMS
46 C |
47 C |-- GGL90_READPARMS
48 C |
49 C |-- OPPS_READPARMS
50 C |
51 C |-- SBO_READPARMS
52 C |
53 C |-- SEAICE_READPARMS
54 C |
55 C |-- SHELFICE_READPARMS
56 C |
57 C |-- SHAP_FILT_READPARMS
58 C |
59 C |-- ZONAL_FILT_READPARMS
60 C |
61 C |-- OBCS_READPARMS
62 C |
63 C |-- OFFLINE_READPARMS
64 C |
65 C |-- BULKF_READPARMS
66 C |
67 C |-- THSICE_READPARMS
68 C |
69 C |-- PTRACERS_READPARMS
70 C |
71 C |-- GCHEM_READPARMS
72 C |
73 C |-- RBCS_READPARMS
74 C |
75 C |-- MYPACKAGE_READPARMS
76 C |
77 C |-- SALT_PLUME_READPARMS
78 C |
79 C |-- CHEAPAML_READPARMS
80 C |
81 C |-- OPTIM_READPARMS
82 C |
83 C |-- CTRL_READPARMS
84 C |
85 C |-- COST_READPARMS
86 C |
87 C |-- GRDCHK_READPARMS
88 C |
89 C |-- EXF_READPARMS
90 C |
91 C |-- EBM_READPARMS
92 C |
93 C |-- SMOOTH_READPARMS
94 C |
95 C |-- ECCO_READPARMS
96 C |
97 C |-- PROFILES_READPARMS
98 C |
99 C |-- FLT_READPARMS
100 C |
101 C |-- CPL_READPARMS
102 C |
103 C |-- FIZHI_READPARMS
104 C |
105 C |-- DIAGNOSTICS_READPARMS
106 C |
107 C |-- MATRIX_READPARMS
108 C |
109 C |-- REGRID_READPARMS
110 C |
111 C |-- LAYERS_READPARMS
112
113 C !USES:
114 IMPLICIT NONE
115 C == Global variables ==
116 #include "SIZE.h"
117 #include "EEPARAMS.h"
118 #include "PARAMS.h"
119
120 C == Routine arguments ==
121 INTEGER myThid
122 CEOP
123
124 #ifdef ALLOW_MNC
125 C Read run-time flags for MNC
126 IF (useMNC) THEN
127 CALL MNC_READPARMS( myThid )
128 ENDIF
129 #endif
130
131 #ifdef ALLOW_RUNCLOCK
132 C-- Initialize RUNCLOCK parameters
133 IF (useRunClock) CALL RUNCLOCK_READPARMS( myThid )
134 #endif
135
136 #ifdef ALLOW_CAL
137 C-- Initialise the calendar package.
138 IF ( useCAL ) CALL CAL_READPARMS( myThid )
139 #endif
140
141 #ifdef ALLOW_GMREDI
142 C-- Initialize GM/Redi parameters
143 IF (useGMRedi) CALL GMREDI_READPARMS( myThid )
144 #endif
145
146 #ifdef ALLOW_DOWN_SLOPE
147 C-- Initialize Down-Slope flow parameters
148 IF (useDOWN_SLOPE) CALL DWNSLP_READPARMS( myThid )
149 #endif
150
151 #ifdef ALLOW_KPP
152 C-- Initialize KPP parameters
153 IF (useKPP) CALL KPP_READPARMS( myThid )
154 #endif
155
156 #ifdef ALLOW_PP81
157 C-- Initialize PP81 parameters
158 IF (usePP81) CALL PP81_READPARMS( myThid )
159 #endif
160
161 #ifdef ALLOW_MY82
162 C-- Initialize MY82 parameters
163 IF (useMY82) CALL MY82_READPARMS( myThid )
164 #endif
165
166 #ifdef ALLOW_GGL90
167 C-- Initialize GGL90 parameters
168 IF (useGGL90) CALL GGL90_READPARMS( myThid )
169 #endif
170
171 #ifdef ALLOW_OPPS
172 C-- Initialize OPPS parameters
173 IF (useOPPS) CALL OPPS_READPARMS( myThid )
174 #endif
175
176 #ifdef ALLOW_SBO
177 C-- Initialize SBO parameters
178 IF (useSBO) CALL SBO_READPARMS( myThid )
179 #endif
180
181 #ifdef ALLOW_SEAICE
182 C-- Initialize SEAICE parameters
183 IF (useSEAICE) CALL SEAICE_READPARMS( myThid )
184 #endif
185
186 #ifdef ALLOW_SHELFICE
187 C-- Initialize SHELFICE parameters
188 IF (useShelfIce) CALL SHELFICE_READPARMS( myThid )
189 #endif
190
191 #ifdef ALLOW_SHAP_FILT
192 IF (useSHAP_FILT) CALL SHAP_FILT_READPARMS( myThid )
193 #endif
194
195 #ifdef ALLOW_ZONAL_FILT
196 IF (useZONAL_FILT) CALL ZONAL_FILT_READPARMS( myThid )
197 #endif
198
199 #ifdef ALLOW_OBCS
200 IF (useOBCS) CALL OBCS_READPARMS( myThid )
201 #endif
202
203 #ifdef ALLOW_OFFLINE
204 CALL OFFLINE_READPARMS( myThid )
205 #endif
206
207 #ifdef ALLOW_LONGSTEP
208 IF (usePTRACERS) call LONGSTEP_READPARMS( myThid )
209 #endif
210
211 #ifdef ALLOW_BULK_FORCE
212 C -- initialize Bulkf parameters
213 IF (useBulkForce) CALL BULKF_READPARMS( myThid )
214 #endif
215
216 #ifdef ALLOW_THSICE
217 C -- initialize Therm.Sea-Ice parameters
218 IF (useThSIce) CALL THSICE_READPARMS( myThid )
219 #endif
220
221 #ifdef ALLOW_PTRACERS
222 IF (usePTRACERS) CALL PTRACERS_READPARMS( myThid )
223 #endif
224
225 #ifdef ALLOW_GCHEM
226 IF (useGCHEM) CALL GCHEM_READPARMS( myThid )
227 #endif
228
229 #ifdef ALLOW_RBCS
230 IF (useRBCS) CALL RBCS_READPARMS( myThid )
231 #endif
232
233 #ifdef ALLOW_MYPACKAGE
234 IF (useMYPACKAGE) CALL MYPACKAGE_READPARMS( myThid )
235 #endif
236
237 #ifdef ALLOW_SALT_PLUME
238 IF (useSALT_PLUME) CALL SALT_PLUME_READPARMS( myThid )
239 #endif
240
241 #ifdef ALLOW_CHEAPAML
242 C -- initialize cheapaml parameters
243 IF (useCheapAML) CALL CHEAPAML_READPARMS( myThid )
244 #endif
245
246 #ifdef ALLOW_CTRL
247 C-- Initialise the optim. parameters.
248 CALL OPTIM_READPARMS( myThid )
249 C-- Initialise the control parameters
250 CALL CTRL_READPARMS( myThid )
251 #endif
252
253 #ifdef ALLOW_COST
254 C-- Initialise the cost parameters
255 CALL COST_READPARMS( myThid )
256 #endif
257
258 #ifdef ALLOW_GRDCHK
259 C-- Initialise gradient check parameters
260 if (useGrdchk) CALL GRDCHK_READPARMS( myThid )
261 #endif
262
263 C-- Custom routine to set forcing fields.
264 #ifdef ALLOW_EXF
265 IF (useEXF) CALL EXF_READPARMS ( myThid )
266 #endif
267
268 #ifdef ALLOW_EBM
269 IF (useEBM) CALL EBM_READPARMS( myThid )
270 #endif
271
272 #ifdef ALLOW_SMOOTH
273 c-- Initialize SMOOTH package parameters
274 CALL SMOOTH_READPARMS ( myThid )
275 #endif
276
277 #ifdef ALLOW_ECCO
278 c-- Initialize ECCO package parameters
279 CALL ECCO_READPARMS ( myThid )
280 #endif
281
282 #ifdef ALLOW_PROFILES
283 c-- Initialize PROFILES package parameters
284 CALL PROFILES_READPARMS ( myThid )
285 #endif
286
287 #ifdef ALLOW_FLT
288 IF ( useFLT ) CALL FLT_READPARMS( myThid )
289 #endif /* ALLOW_FLT */
290
291 #ifdef COMPONENT_MODULE
292 C-- set Coupling parameters
293 IF ( useCoupler ) CALL CPL_READPARMS( myThid )
294 #endif /* COMPONENT_MODULE */
295
296 #ifdef ALLOW_FIZHI
297 C-- set model date and time and other fizhi parameters
298 IF ( useFizhi ) CALL FIZHI_READPARMS( myThid )
299 #endif /* ALLOW_FIZHI */
300
301 #ifdef ALLOW_DIAGNOSTICS
302 C-- set diagnostics choices
303 IF ( useDiagnostics ) CALL DIAGNOSTICS_READPARMS( myThid )
304 #endif /* ALLOW_DIAGNOSTICS */
305
306 #ifdef ALLOW_MATRIX
307 C-- Initialize matrix package parameters
308 IF (useMATRIX) CALL MATRIX_READPARMS ( myThid )
309 #endif
310
311 #ifdef ALLOW_REGRID
312 IF ( useREGRID ) CALL REGRID_READPARMS( myThid )
313 #endif /* ALLOW_REGRID */
314
315 C-- added by RPA
316 #ifdef ALLOW_LAYERS
317 IF ( useLayers ) CALL LAYERS_READPARMS( myThid )
318 #endif /* ALLOW_LAYERS */
319
320
321 RETURN
322 END

  ViewVC Help
Powered by ViewVC 1.1.22