rpa_layers/modsrc/packages_readparms.F

C $Header: /u/gcmpack/MITgcm_contrib/rpa_layers/modsrc/packages_readparms.F,v 1.1 2009/09/15 19:46:38 rpa Exp $
C $Name:  $

#include "PACKAGES_CONFIG.h"
#include "CPP_OPTIONS.h"

CStartOfInterface
CBOP
C     !ROUTINE: PACKAGES_READPARMS
C     !INTERFACE:
      SUBROUTINE PACKAGES_READPARMS(myThid)

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | SUBROUTINE PACKAGES_READPARMS
C     | o Read runtime package configuration parameters
C     *==========================================================*
C     |   Packages can have internal runtime configuration
C     |   parameters. A package provides a routine
C     |   ${PKGNAME}_READ_PARMS to read these parameters. In
C     |   general this routine should read parameters from a file
C     |   called data.${pkgname}.
C     |   This routine (S/R PACKAGES_READPARMS) calls per-package
C     |   parameter reading routines.
C     *==========================================================*
C     \ev

C     !CALLING SEQUENCE:
C     PACKAGES_READPARMS
C       |
C       |-- MNC_READPARMS
C       |
C       |-- RUNCLOCK_READPARMS
C       |
C       |-- CAL_READPARMS
C       |
C       |-- GMREDI_READPARMS
C       |
C       |-- DWNSLP_READPARMS
C       |
C       |-- KPP_READPARMS
C       |
C       |-- PP81_READPARMS
C       |
C       |-- MY82_READPARMS
C       |
C       |-- GGL90_READPARMS
C       |
C       |-- OPPS_READPARMS
C       |
C       |-- SBO_READPARMS
C       |
C       |-- SEAICE_READPARMS
C       |
C       |-- SHELFICE_READPARMS
C       |
C       |-- SHAP_FILT_READPARMS
C       |
C       |-- ZONAL_FILT_READPARMS
C       |
C       |-- OBCS_READPARMS
C       |
C       |-- OFFLINE_READPARMS
C       |
C       |-- BULKF_READPARMS
C       |
C       |-- THSICE_READPARMS
C       |
C       |-- PTRACERS_READPARMS
C       |
C       |-- GCHEM_READPARMS
C       |
C       |-- RBCS_READPARMS
C       |
C       |-- SALT_PLUME_READPARMS
C       |
C       |-- CHEAPAML_READPARMS
C       |
C       |-- OPTIM_READPARMS
C       |
C       |-- CTRL_READPARMS
C       |
C       |-- COST_READPARMS
C       |
C       |-- GRDCHK_READPARMS
C       |
C       |-- EXF_READPARMS
C       |
C       |-- EBM_READPARMS
C       |
C       |-- SMOOTH_READPARMS
C       |
C       |-- ECCO_READPARMS
C       |
C       |-- PROFILES_READPARMS
C       |
C       |-- FLT_READPARMS
C       |
C       |-- CPL_READPARMS
C       |
C       |-- FIZHI_READPARMS
C       |
C       |-- DIAGNOSTICS_READPARMS
C       |
C       |-- MATRIX_READPARMS
C       |
C       |-- REGRID_READPARMS
C       |
C       |-- LAYERS_READPARMS
C       |
C       |-- MYPACKAGE_READPARMS

C     !USES:
      IMPLICIT NONE
C     == Global variables ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     == Routine arguments ==
      INTEGER myThid
CEOP

#ifdef ALLOW_MNC
C     Read run-time flags for MNC
      IF (useMNC) THEN
        CALL MNC_READPARMS( myThid )
      ENDIF
#endif

#ifdef ALLOW_RUNCLOCK
C--   Initialize RUNCLOCK parameters
      IF (useRunClock) CALL RUNCLOCK_READPARMS( myThid )
#endif

#ifdef ALLOW_CAL
C--   Initialise the calendar package.
      IF ( useCAL ) CALL CAL_READPARMS( myThid )
#endif

#ifdef ALLOW_GMREDI
C--   Initialize GM/Redi parameters
      IF (useGMRedi) CALL GMREDI_READPARMS( myThid )
#endif

#ifdef ALLOW_DOWN_SLOPE
C--   Initialize Down-Slope flow parameters
      IF (useDOWN_SLOPE) CALL DWNSLP_READPARMS( myThid )
#endif

#ifdef ALLOW_KPP
C--   Initialize KPP parameters
      IF (useKPP) CALL KPP_READPARMS( myThid )
#endif

#ifdef ALLOW_PP81
C--   Initialize PP81 parameters
      IF (usePP81) CALL PP81_READPARMS( myThid )
#endif

#ifdef ALLOW_MY82
C--   Initialize MY82 parameters
      IF (useMY82) CALL MY82_READPARMS( myThid )
#endif

#ifdef ALLOW_GGL90
C--   Initialize GGL90 parameters
      IF (useGGL90) CALL GGL90_READPARMS( myThid )
#endif

#ifdef ALLOW_OPPS
C--   Initialize OPPS parameters
      IF (useOPPS) CALL OPPS_READPARMS( myThid )
#endif

#ifdef ALLOW_SBO
C--   Initialize SBO parameters
      IF (useSBO) CALL SBO_READPARMS( myThid )
#endif

#ifdef ALLOW_SEAICE
C--   Initialize SEAICE parameters
      IF (useSEAICE) CALL SEAICE_READPARMS( myThid )
#endif

#ifdef ALLOW_SHELFICE
C--   Initialize SHELFICE parameters
      IF (useShelfIce) CALL SHELFICE_READPARMS( myThid )
#endif

#ifdef ALLOW_SHAP_FILT
      IF (useSHAP_FILT) CALL SHAP_FILT_READPARMS( myThid )
#endif

#ifdef ALLOW_ZONAL_FILT
      IF (useZONAL_FILT) CALL ZONAL_FILT_READPARMS( myThid )
#endif

#ifdef ALLOW_OBCS
      IF (useOBCS) CALL OBCS_READPARMS( myThid )
#endif

#ifdef ALLOW_OFFLINE
      CALL OFFLINE_READPARMS( myThid )
#endif

#ifdef ALLOW_LONGSTEP
      IF (usePTRACERS) call LONGSTEP_READPARMS( myThid )
#endif

#ifdef ALLOW_BULK_FORCE
C -- initialize Bulkf parameters
      IF (useBulkForce) CALL BULKF_READPARMS( myThid )
#endif

#ifdef ALLOW_THSICE
C -- initialize Therm.Sea-Ice parameters
      IF (useThSIce) CALL THSICE_READPARMS( myThid )
#endif

#ifdef ALLOW_PTRACERS
      IF (usePTRACERS) CALL PTRACERS_READPARMS( myThid )
#endif

#ifdef ALLOW_GCHEM
      IF (useGCHEM) CALL GCHEM_READPARMS( myThid )
#endif

#ifdef ALLOW_RBCS
      IF (useRBCS) CALL RBCS_READPARMS( myThid )
#endif

#ifdef ALLOW_SALT_PLUME
      IF (useSALT_PLUME) CALL SALT_PLUME_READPARMS( myThid )
#endif

#ifdef ALLOW_CHEAPAML
C -- initialize cheapaml parameters
      IF (useCheapAML) CALL CHEAPAML_READPARMS( myThid )
#endif

#ifdef ALLOW_CTRL
C--   Initialise the optim. parameters.
      CALL OPTIM_READPARMS( myThid )
C--   Initialise the control parameters
      CALL CTRL_READPARMS( myThid )
#endif

#ifdef ALLOW_COST
C--   Initialise the cost parameters
      CALL COST_READPARMS( myThid )
#endif

#ifdef ALLOW_GRDCHK
C--   Initialise gradient check parameters
      if (useGrdchk) CALL GRDCHK_READPARMS( myThid )
#endif

C--   Custom routine to set forcing fields.
#ifdef ALLOW_EXF
      IF (useEXF) CALL EXF_READPARMS  ( myThid )
#endif

#ifdef ALLOW_EBM
      IF (useEBM) CALL EBM_READPARMS( myThid )
#endif

#ifdef ALLOW_SMOOTH
c--   Initialize SMOOTH package parameters
      CALL SMOOTH_READPARMS ( myThid )
#endif

#ifdef ALLOW_ECCO
c--   Initialize ECCO package parameters
      CALL ECCO_READPARMS ( myThid )
#endif

#ifdef ALLOW_PROFILES
c--   Initialize PROFILES package parameters
      CALL PROFILES_READPARMS ( myThid )
#endif

#ifdef ALLOW_FLT
      IF ( useFLT ) CALL FLT_READPARMS( myThid )
#endif /* ALLOW_FLT */

#ifdef COMPONENT_MODULE
C--   set Coupling parameters
      IF ( useCoupler ) CALL CPL_READPARMS( myThid )
#endif /* COMPONENT_MODULE */

#ifdef ALLOW_FIZHI
C--   set model date and time and other fizhi parameters
      IF ( useFizhi ) CALL FIZHI_READPARMS( myThid )
#endif /* ALLOW_FIZHI */

#ifdef ALLOW_DIAGNOSTICS
C--   set diagnostics choices
      IF ( useDiagnostics ) CALL DIAGNOSTICS_READPARMS( myThid )
#endif /* ALLOW_DIAGNOSTICS */

#ifdef ALLOW_MATRIX
C--    Initialize matrix package parameters
       IF (useMATRIX) CALL MATRIX_READPARMS ( myThid )
#endif

#ifdef ALLOW_REGRID
      IF ( useREGRID ) CALL REGRID_READPARMS( myThid )
#endif /* ALLOW_REGRID */

#ifdef ALLOW_LAYERS
      IF ( useLayers ) CALL LAYERS_READPARMS( myThid )
#endif /* ALLOW_LAYERS */

#ifdef ALLOW_MYPACKAGE
      IF (useMYPACKAGE) CALL MYPACKAGE_READPARMS( myThid )
#endif

      RETURN
      END
1	jmc	1.2	C $Header: /u/gcmpack/MITgcm_contrib/rpa_layers/modsrc/packages_readparms.F,v 1.1 2009/09/15 19:46:38 rpa Exp $
2	rpa	1.1	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 \|-- SALT_PLUME_READPARMS
76			C \|
77			C \|-- CHEAPAML_READPARMS
78			C \|
79			C \|-- OPTIM_READPARMS
80			C \|
81			C \|-- CTRL_READPARMS
82			C \|
83			C \|-- COST_READPARMS
84			C \|
85			C \|-- GRDCHK_READPARMS
86			C \|
87			C \|-- EXF_READPARMS
88			C \|
89			C \|-- EBM_READPARMS
90			C \|
91			C \|-- SMOOTH_READPARMS
92			C \|
93			C \|-- ECCO_READPARMS
94			C \|
95			C \|-- PROFILES_READPARMS
96			C \|
97			C \|-- FLT_READPARMS
98			C \|
99			C \|-- CPL_READPARMS
100			C \|
101			C \|-- FIZHI_READPARMS
102			C \|
103			C \|-- DIAGNOSTICS_READPARMS
104			C \|
105			C \|-- MATRIX_READPARMS
106			C \|
107			C \|-- REGRID_READPARMS
108			C \|
109			C \|-- LAYERS_READPARMS
110	jmc	1.2	C \|
111			C \|-- MYPACKAGE_READPARMS
112	rpa	1.1
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_SALT_PLUME
234			IF (useSALT_PLUME) CALL SALT_PLUME_READPARMS( myThid )
235			#endif
236
237			#ifdef ALLOW_CHEAPAML
238			C -- initialize cheapaml parameters
239			IF (useCheapAML) CALL CHEAPAML_READPARMS( myThid )
240			#endif
241
242			#ifdef ALLOW_CTRL
243			C-- Initialise the optim. parameters.
244			CALL OPTIM_READPARMS( myThid )
245			C-- Initialise the control parameters
246			CALL CTRL_READPARMS( myThid )
247			#endif
248
249			#ifdef ALLOW_COST
250			C-- Initialise the cost parameters
251			CALL COST_READPARMS( myThid )
252			#endif
253
254			#ifdef ALLOW_GRDCHK
255			C-- Initialise gradient check parameters
256			if (useGrdchk) CALL GRDCHK_READPARMS( myThid )
257			#endif
258
259			C-- Custom routine to set forcing fields.
260			#ifdef ALLOW_EXF
261			IF (useEXF) CALL EXF_READPARMS ( myThid )
262			#endif
263
264			#ifdef ALLOW_EBM
265			IF (useEBM) CALL EBM_READPARMS( myThid )
266			#endif
267
268			#ifdef ALLOW_SMOOTH
269			c-- Initialize SMOOTH package parameters
270			CALL SMOOTH_READPARMS ( myThid )
271			#endif
272
273			#ifdef ALLOW_ECCO
274			c-- Initialize ECCO package parameters
275			CALL ECCO_READPARMS ( myThid )
276			#endif
277
278			#ifdef ALLOW_PROFILES
279			c-- Initialize PROFILES package parameters
280			CALL PROFILES_READPARMS ( myThid )
281			#endif
282
283			#ifdef ALLOW_FLT
284			IF ( useFLT ) CALL FLT_READPARMS( myThid )
285			#endif /* ALLOW_FLT */
286
287			#ifdef COMPONENT_MODULE
288			C-- set Coupling parameters
289			IF ( useCoupler ) CALL CPL_READPARMS( myThid )
290			#endif /* COMPONENT_MODULE */
291
292			#ifdef ALLOW_FIZHI
293			C-- set model date and time and other fizhi parameters
294			IF ( useFizhi ) CALL FIZHI_READPARMS( myThid )
295			#endif /* ALLOW_FIZHI */
296
297			#ifdef ALLOW_DIAGNOSTICS
298			C-- set diagnostics choices
299			IF ( useDiagnostics ) CALL DIAGNOSTICS_READPARMS( myThid )
300			#endif /* ALLOW_DIAGNOSTICS */
301
302			#ifdef ALLOW_MATRIX
303			C-- Initialize matrix package parameters
304			IF (useMATRIX) CALL MATRIX_READPARMS ( myThid )
305			#endif
306
307			#ifdef ALLOW_REGRID
308			IF ( useREGRID ) CALL REGRID_READPARMS( myThid )
309			#endif /* ALLOW_REGRID */
310
311			#ifdef ALLOW_LAYERS
312			IF ( useLayers ) CALL LAYERS_READPARMS( myThid )
313			#endif /* ALLOW_LAYERS */
314	jmc	1.2
315			#ifdef ALLOW_MYPACKAGE
316			IF (useMYPACKAGE) CALL MYPACKAGE_READPARMS( myThid )
317			#endif
318	rpa	1.1
319			RETURN
320			END