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

Annotation 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 - (hide 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 rpa 1.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