model/src/packages_readparms.F

6d54cf9ca1 Ed H*0001 #include "PACKAGES_CONFIG.h"
c859c0e3e6 Patr*0002 #include "CPP_OPTIONS.h"
                0003
                0004 CStartOfInterface
9366854e02 Chri*0005 CBOP
                0006 C     !ROUTINE: PACKAGES_READPARMS
                0007 C     !INTERFACE:
c859c0e3e6 Patr*0008       SUBROUTINE PACKAGES_READPARMS(myThid)
                0009
9366854e02 Chri*0010 C     !DESCRIPTION: \bv
                0011 C     *==========================================================*
1db41719d4 Jean*0012 C     | SUBROUTINE PACKAGES_READPARMS
                0013 C     | o Read runtime package configuration parameters
9366854e02 Chri*0014 C     *==========================================================*
1db41719d4 Jean*0015 C     |   Packages can have internal runtime configuration
                0016 C     |   parameters. A package provides a routine
                0017 C     |   ${PKGNAME}_READ_PARMS to read these parameters. In
                0018 C     |   general this routine should read parameters from a file
                0019 C     |   called data.${pkgname}.
                0020 C     |   This routine (S/R PACKAGES_READPARMS) calls per-package
                0021 C     |   parameter reading routines.
9366854e02 Chri*0022 C     *==========================================================*
                0023 C     \ev
                0024
                0025 C     !CALLING SEQUENCE:
                0026 C     PACKAGES_READPARMS
                0027 C       |
c74c95df5c Jean*0028 C       |-- MNC_READPARMS
48121039da Jean*0029 C       |
462fd48b6a Mart*0030 C       |-- CAL_READPARMS
                0031 C       |
173921fccd Mart*0032 C       |-- EXF_READPARMS
                0033 C       |
5593e3ac8c Jean*0034 C       |-- OBCS_READPARMS
9366854e02 Chri*0035 C       |
5593e3ac8c Jean*0036 C       |-- SHAP_FILT_READPARMS
1db41719d4 Jean*0037 C       |
5593e3ac8c Jean*0038 C       |-- ZONAL_FILT_READPARMS
15338fa568 Dimi*0039 C       |
5593e3ac8c Jean*0040 C       |-- OPPS_READPARMS
9366854e02 Chri*0041 C       |
e864122ae8 Mart*0042 C       |-- PP81_READPARMS
                0043 C       |
d8d1486ca1 Jean*0044 C       |-- KL10_READPARMS
                0045 C       |
e864122ae8 Mart*0046 C       |-- MY82_READPARMS
                0047 C       |
69a7b27187 Mart*0048 C       |-- GGL90_READPARMS
                0049 C       |
5593e3ac8c Jean*0050 C       |-- KPP_READPARMS
a6cbc7a360 Mart*0051 C       |
5593e3ac8c Jean*0052 C       |-- GMREDI_READPARMS
5da8ce63fa Dimi*0053 C       |
5593e3ac8c Jean*0054 C       |-- BBL_READPARMS
9366854e02 Chri*0055 C       |
5593e3ac8c Jean*0056 C       |-- DWNSLP_READPARMS
d71c33e3de Jean*0057 C       |
5593e3ac8c Jean*0058 C       |-- BULKF_READPARMS
9366854e02 Chri*0059 C       |
5593e3ac8c Jean*0060 C       |-- EBM_READPARMS
f66c946416 Step*0061 C       |
5593e3ac8c Jean*0062 C       |-- CHEAPAML_READPARMS
48121039da Jean*0063 C       |
5593e3ac8c Jean*0064 C       |-- FLT_READPARMS
9366854e02 Chri*0065 C       |
87dd4f7d5f Oliv*0066 C       |-- OASIM_READPARMS
                0067 C       |
b55e95f1ff Oliv*0068 C       |-- RADTRANS_READPARMS
                0069 C       |
b9d14ac827 Jean*0070 C       |-- LONGSTEP_READPARMS
b5aa60a554 Dimi*0071 C       |-- PTRACERS_READPARMS
                0072 C       |
48121039da Jean*0073 C       |-- GCHEM_READPARMS
9366854e02 Chri*0074 C       |
b5aa60a554 Dimi*0075 C       |-- RBCS_READPARMS
                0076 C       |
5593e3ac8c Jean*0077 C       |-- OFFLINE_READPARMS
                0078 C       |
                0079 C       |-- MATRIX_READPARMS
                0080 C       |
148dd84005 jm-c 0081 C       |-- STREAMICE_READPARMS
b5aa60a554 Dimi*0082 C       |
5593e3ac8c Jean*0083 C       |-- SHELFICE_READPARMS
                0084 C       |
00f81e6785 Ou W*0085 C       |-- STIC_READPARMS
                0086 C       |
5593e3ac8c Jean*0087 C       |-- ICEFRONT_READPARMS
                0088 C       |
148dd84005 jm-c 0089 C       |-- SEAICE_READPARMS
                0090 C       |
                0091 C       |-- SALT_PLUME_READPARMS
                0092 C       |
5593e3ac8c Jean*0093 C       |-- THSICE_READPARMS
86f14fa6df Jean*0094 C       |
b8e989b7a2 Jean*0095 C       |-- LAND_READPARMS
                0096 C       |
3c287b198c Jean*0097 C       |-- AUTODIFF_READPARMS
                0098 C       |
9366854e02 Chri*0099 C       |-- OPTIM_READPARMS
                0100 C       |
48121039da Jean*0101 C       |-- CTRL_READPARMS
                0102 C       |
                0103 C       |-- COST_READPARMS
                0104 C       |
9366854e02 Chri*0105 C       |-- GRDCHK_READPARMS
                0106 C       |
897e729c49 Jean*0107 C       |-- SMOOTH_READPARMS
                0108 C       |
9366854e02 Chri*0109 C       |-- ECCO_READPARMS
c1b6df074d Jean*0110 C       |
93f4e26372 Jean*0111 C       |-- PROFILES_READPARMS
                0112 C       |
ad59256d7d aver*0113 C       |-- OBSFIT_READPARMS
                0114 C       |
5593e3ac8c Jean*0115 C       |-- SBO_READPARMS
ba9a45d563 Jean*0116 C       |
5593e3ac8c Jean*0117 C       |-- ATM_PHYS_READPARMS
48121039da Jean*0118 C       |
                0119 C       |-- FIZHI_READPARMS
                0120 C       |
                0121 C       |-- DIAGNOSTICS_READPARMS
39cebd8084 Ed H*0122 C       |
                0123 C       |-- REGRID_READPARMS
dfc9bc933c Ryan*0124 C       |
                0125 C       |-- LAYERS_READPARMS
                0126 C       |
5593e3ac8c Jean*0127 C       |-- NEST_CHILD_READPARMS
                0128 C       |-- NEST_PARENT_READPARMS
                0129 C       |
6591b3fcc3 Jean*0130 C       |-- NEST2W_C_READPARMS
                0131 C       |-- NEST2W_P_READPARMS
                0132 C       |
5593e3ac8c Jean*0133 C       |-- CPL_READPARMS
                0134 C       |
696c4221e9 Mart*0135 C       |-- OASIS_READPARMS
                0136 C       |
5593e3ac8c Jean*0137 C       |-- RUNCLOCK_READPARMS
                0138 C       |
dfc9bc933c Ryan*0139 C       |-- MYPACKAGE_READPARMS
9366854e02 Chri*0140
                0141 C     !USES:
                0142       IMPLICIT NONE
c859c0e3e6 Patr*0143 C     == Global variables ==
                0144 #include "SIZE.h"
                0145 #include "EEPARAMS.h"
                0146 #include "PARAMS.h"
                0147
                0148 C     == Routine arguments ==
                0149       INTEGER myThid
9366854e02 Chri*0150 CEOP
c859c0e3e6 Patr*0151
cdf6d093b9 Ed H*0152 #ifdef ALLOW_MNC
1219e7c863 Jean*0153 C--   if useMNC=T, read run-time flags for MNC; otherwise just return
                0154       CALL MNC_READPARMS( myThid )
cdf6d093b9 Ed H*0155 #endif
                0156
462fd48b6a Mart*0157 #ifdef ALLOW_CAL
1219e7c863 Jean*0158 C--   if useCAL=T, set the calendar package parameters.
                0159 C      otherwise, just set cal_setStatus=-1 and return
                0160       CALL CAL_READPARMS( myThid )
462fd48b6a Mart*0161 #endif
                0162
173921fccd Mart*0163 #ifdef ALLOW_EXF
1219e7c863 Jean*0164 C--   if useEXF=T, set EXF parameters; otherwise just return
                0165       CALL EXF_READPARMS  ( myThid )
173921fccd Mart*0166 #endif
                0167
5593e3ac8c Jean*0168 #ifdef ALLOW_OBCS
1219e7c863 Jean*0169 C--   if useOBCS=T, set OBCS parameters; otherwise just return
                0170       CALL OBCS_READPARMS( myThid )
c859c0e3e6 Patr*0171 #endif
                0172
5593e3ac8c Jean*0173 #ifdef ALLOW_SHAP_FILT
1219e7c863 Jean*0174 C--   if useSHAP_FILT=T, set Shapiro-Filter parameters; otherwise just return
                0175       CALL SHAP_FILT_READPARMS( myThid )
1db41719d4 Jean*0176 #endif
                0177
5593e3ac8c Jean*0178 #ifdef ALLOW_ZONAL_FILT
1219e7c863 Jean*0179 C--   if useZONAL_FILT=T, set Zonal-Filter parameters; otherwise just return
                0180       CALL ZONAL_FILT_READPARMS( myThid )
15338fa568 Dimi*0181 #endif
                0182
5593e3ac8c Jean*0183 #ifdef ALLOW_OPPS
1219e7c863 Jean*0184 C--   if useOPPS=T, set OPPS parameters; otherwise just return
                0185       CALL OPPS_READPARMS( myThid )
c859c0e3e6 Patr*0186 #endif
                0187
e864122ae8 Mart*0188 #ifdef ALLOW_PP81
1219e7c863 Jean*0189 C--   if usePP81=T, set PP81 parameters; otherwise just return
                0190       CALL PP81_READPARMS( myThid )
e864122ae8 Mart*0191 #endif
                0192
d8d1486ca1 Jean*0193 #ifdef ALLOW_KL10
                0194 C--   if useKL10=T, set KL10 parameters; otherwise just return
                0195       CALL KL10_READPARMS( myThid )
                0196 #endif
                0197
e864122ae8 Mart*0198 #ifdef ALLOW_MY82
1219e7c863 Jean*0199 C--   if useMY82=T, set MY82 parameters; otherwise just return
                0200       CALL MY82_READPARMS( myThid )
e864122ae8 Mart*0201 #endif
                0202
69a7b27187 Mart*0203 #ifdef ALLOW_GGL90
1219e7c863 Jean*0204 C--   if useGGL90=T, set GGL90 parameters; otherwise just return
                0205       CALL GGL90_READPARMS( myThid )
69a7b27187 Mart*0206 #endif
                0207
5593e3ac8c Jean*0208 #ifdef ALLOW_KPP
1219e7c863 Jean*0209 C--   if useKPP=T, set KPP parameters; otherwise just return
                0210       CALL KPP_READPARMS( myThid )
aea29c8517 Alis*0211 #endif
                0212
5593e3ac8c Jean*0213 #ifdef ALLOW_GMREDI
1219e7c863 Jean*0214 C--   if useGMRedi=T, set GM/Redi parameters; otherwise just return
                0215       CALL GMREDI_READPARMS( myThid )
d71c33e3de Jean*0216 #endif
                0217
5593e3ac8c Jean*0218 #ifdef ALLOW_BBL
1219e7c863 Jean*0219 C--   if useBBL=T, set BBL parameters; otherwise just return
                0220       CALL BBL_READPARMS( myThid )
fb481a83c2 Alis*0221 #endif
                0222
5593e3ac8c Jean*0223 #ifdef ALLOW_DOWN_SLOPE
1219e7c863 Jean*0224 C--   if useDOWN_SLOPE=T, set Down-Slope flow parameters; otherwise just return
                0225       CALL DWNSLP_READPARMS( myThid )
4e66ab0b67 Oliv*0226 #endif
                0227
7753507405 Curt*0228 #ifdef ALLOW_BULK_FORCE
1219e7c863 Jean*0229 C--   if useBulkForce=T, set BULKF parameters; otherwise just return
                0230       CALL BULKF_READPARMS( myThid )
6424ee9bc0 Curt*0231 #endif
                0232
5593e3ac8c Jean*0233 #ifdef ALLOW_EBM
1219e7c863 Jean*0234 C--   if useEBM=T, set EBM parameters; otherwise just return
                0235       CALL EBM_READPARMS( myThid )
6424ee9bc0 Curt*0236 #endif
                0237
5593e3ac8c Jean*0238 #ifdef ALLOW_CHEAPAML
1219e7c863 Jean*0239 C--   if useCheapAML=T, set CheapAML parameters; otherwise just return
                0240       CALL CHEAPAML_READPARMS( myThid )
5593e3ac8c Jean*0241 #endif
                0242
                0243 #ifdef ALLOW_FLT
1219e7c863 Jean*0244 C--   if useFLT=T, set Floats (FLT) parameters; otherwise just return
                0245       CALL FLT_READPARMS( myThid )
5593e3ac8c Jean*0246 #endif /* ALLOW_FLT */
                0247
87dd4f7d5f Oliv*0248 #ifdef ALLOW_OASIM
                0249       IF (useOASIM) CALL OASIM_READPARMS( myThid )
                0250 #endif
                0251
b55e95f1ff Oliv*0252 #ifdef ALLOW_RADTRANS
                0253 C--   if useRADTRANS=T, set RADTRANS parameters; otherwise just return
                0254       CALL RADTRANS_READPARMS( myThid )
                0255 #endif
                0256
b9d14ac827 Jean*0257 #ifdef ALLOW_LONGSTEP
1219e7c863 Jean*0258 C--   if usePTRACERS=T, set Long-Step parameters; otherwise just return
                0259 C- note : need to call LONGSTEP_READPARMS before PTRACERS_READPARMS
                0260       CALL LONGSTEP_READPARMS( myThid )
b9d14ac827 Jean*0261 #endif
5c43c390b6 Alis*0262 #ifdef ALLOW_PTRACERS
1219e7c863 Jean*0263 C--   if usePTRACERS=T, set Passive-Traces parameters; otherwise just return
                0264       CALL PTRACERS_READPARMS( myThid )
cf2549e769 Patr*0265 #endif
                0266
                0267 #ifdef ALLOW_GCHEM
1219e7c863 Jean*0268 C--   if useGCHEM=T, set GCHEM parameters; otherwise just return
                0269       CALL GCHEM_READPARMS( myThid )
5c43c390b6 Alis*0270 #endif
176ce185cd Step*0271
                0272 #ifdef ALLOW_RBCS
1219e7c863 Jean*0273 C--   if useRBCS=T, set RBCS parameters; otherwise just return
                0274       CALL RBCS_READPARMS( myThid )
176ce185cd Step*0275 #endif
5c43c390b6 Alis*0276
5593e3ac8c Jean*0277 #ifdef ALLOW_OFFLINE
1219e7c863 Jean*0278 C--   if useOffLine=T, set OFFLINE parameters; otherwise just return
                0279       CALL OFFLINE_READPARMS( myThid )
5593e3ac8c Jean*0280 #endif
                0281
                0282 #ifdef ALLOW_MATRIX
1219e7c863 Jean*0283 C--   if useMATRIX=T, set MATRIX parameters; otherwise just return
ad59256d7d aver*0284       CALL MATRIX_READPARMS( myThid )
5593e3ac8c Jean*0285 #endif
                0286
148dd84005 jm-c 0287 #ifdef ALLOW_STREAMICE
                0288 C--   if useStreamIce=T, set STREAMICE parameters; otherwise just return
                0289       CALL STREAMICE_READPARMS( myThid )
b5aa60a554 Dimi*0290 #endif
                0291
5593e3ac8c Jean*0292 #ifdef ALLOW_SHELFICE
1219e7c863 Jean*0293 C--   if useShelfIce=T, set SHELFICE parameters; otherwise just return
                0294       CALL SHELFICE_READPARMS( myThid )
5593e3ac8c Jean*0295 #endif
                0296
00f81e6785 Ou W*0297 #ifdef ALLOW_STEEP_ICECAVITY
                0298 C--   if useSTIC=T, set STEEP_ICECAVITY parameters; otherwise just return
                0299       CALL STIC_READPARMS( myThid )
                0300 #endif
                0301
5593e3ac8c Jean*0302 #ifdef ALLOW_ICEFRONT
1219e7c863 Jean*0303 C--   if useICEFRONT=T, set ICEFRONT parameters; otherwise just return
                0304       CALL ICEFRONT_READPARMS( myThid )
5593e3ac8c Jean*0305 #endif
                0306
148dd84005 jm-c 0307 #ifdef ALLOW_SEAICE
                0308 C--   if useSEAICE=T, set SEAICE parameters; otherwise just return
                0309       CALL SEAICE_READPARMS( myThid )
                0310 #endif
                0311
                0312 #ifdef ALLOW_SALT_PLUME
                0313 C--   if useSALT_PLUME=T, set SALT_PLUME parameters; otherwise just return
                0314       CALL SALT_PLUME_READPARMS( myThid )
                0315 #endif
                0316
5593e3ac8c Jean*0317 #ifdef ALLOW_THSICE
1219e7c863 Jean*0318 C--   if useThSIce=T, set Therm.Sea-Ice parameters; otherwise just return
                0319       CALL THSICE_READPARMS( myThid )
86f14fa6df Jean*0320 #endif
                0321
b8e989b7a2 Jean*0322 #ifdef ALLOW_LAND
                0323 C--   if useLand=T, set LAND pkg parameters; otherwise just return
                0324       CALL LAND_READPARMS( myThid )
                0325 #endif
                0326
3c287b198c Jean*0327 #ifdef ALLOW_AUTODIFF
                0328 C--   Initialise autodiff parameters
                0329       CALL AUTODIFF_READPARMS( myThid )
                0330 #endif
                0331
170b439592 Patr*0332 #ifdef ALLOW_CTRL
cccd4faf56 Patr*0333 C--   Initialise the optim. parameters.
1db41719d4 Jean*0334       CALL OPTIM_READPARMS( myThid )
5d7fa54ba5 Patr*0335 C--   Initialise the control parameters
1db41719d4 Jean*0336       CALL CTRL_READPARMS( myThid )
170b439592 Patr*0337 #endif
                0338
                0339 #ifdef ALLOW_COST
5d7fa54ba5 Patr*0340 C--   Initialise the cost parameters
1db41719d4 Jean*0341       CALL COST_READPARMS( myThid )
cccd4faf56 Patr*0342 #endif
ad9b3080a0 Patr*0343
edd57506ae Patr*0344 #ifdef ALLOW_GRDCHK
1219e7c863 Jean*0345 C--   if useGrdChk=T, set gradient-check parameters; otherwise just return
                0346       CALL GRDCHK_READPARMS( myThid )
2dcaa8b9a5 Patr*0347 #endif
                0348
1a5b8b2149 Gael*0349 #ifdef ALLOW_SMOOTH
1219e7c863 Jean*0350 C--   if useSMOOTH=T, set SMOOTH parameters; otherwise just return
ad59256d7d aver*0351       CALL SMOOTH_READPARMS( myThid )
1a5b8b2149 Gael*0352 #endif
                0353
438648d0e1 Patr*0354 #ifdef ALLOW_ECCO
c859c0e3e6 Patr*0355 c--   Initialize ECCO package parameters
ad59256d7d aver*0356       CALL ECCO_READPARMS( myThid )
c859c0e3e6 Patr*0357 #endif
                0358
6e4c90fea3 Patr*0359 #ifdef ALLOW_PROFILES
1219e7c863 Jean*0360 C--   if usePROFILES=T, set PROFILES parameters; otherwise just return
ad59256d7d aver*0361       CALL PROFILES_READPARMS( myThid )
                0362 #endif
                0363
                0364 #ifdef ALLOW_OBSFIT
                0365 C--   if useOBSFIT=T, set OBSFIT parameters; otherwise just return
                0366       CALL OBSFIT_READPARMS( myThid )
6e4c90fea3 Patr*0367 #endif
                0368
5593e3ac8c Jean*0369 #ifdef ALLOW_SBO
1219e7c863 Jean*0370 C--   if useSBO=T, set SBO parameters; otherwise just return
                0371       CALL SBO_READPARMS( myThid )
5593e3ac8c Jean*0372 #endif
ba9a45d563 Jean*0373
5593e3ac8c Jean*0374 #ifdef ALLOW_ATM_PHYS
1219e7c863 Jean*0375 C--   if useAtm_Phys=T, set Atm_Phys parameters; otherwise just return
                0376       CALL ATM_PHYS_READPARMS( myThid )
5593e3ac8c Jean*0377 #endif
c1b6df074d Jean*0378
6aac8482f6 Andr*0379 #ifdef ALLOW_FIZHI
1219e7c863 Jean*0380 C--   if useFizhi=T, set fizhi parameters; otherwise just return
                0381       CALL FIZHI_READPARMS( myThid )
6aac8482f6 Andr*0382 #endif /* ALLOW_FIZHI */
db45aa3703 Andr*0383
48121039da Jean*0384 #ifdef ALLOW_DIAGNOSTICS
564aee49d1 Jean*0385 C--   if useDiagnostics=T, set diagnostics choices
                0386 C      otherwise, just set pkgStatus=-1 and return
                0387       CALL DIAGNOSTICS_READPARMS( myThid )
48121039da Jean*0388 #endif /* ALLOW_DIAGNOSTICS */
                0389
39cebd8084 Ed H*0390 #ifdef ALLOW_REGRID
1219e7c863 Jean*0391 C--   if useREGRID=T, set REGRID parameters; otherwise just return
                0392       CALL REGRID_READPARMS( myThid )
39cebd8084 Ed H*0393 #endif /* ALLOW_REGRID */
                0394
dfc9bc933c Ryan*0395 #ifdef ALLOW_LAYERS
1219e7c863 Jean*0396 C--   if useLayers=T, set layers parameters; otherwise just return
                0397       CALL LAYERS_READPARMS( myThid )
dfc9bc933c Ryan*0398 #endif /* ALLOW_LAYERS */
                0399
5593e3ac8c Jean*0400 #ifdef ALLOW_NEST_CHILD
                0401 C--    Initialize nest(ing) package parameters x CHILD
ad59256d7d aver*0402        IF (useNEST_CHILD) CALL NEST_CHILD_READPARMS( myThid )
5593e3ac8c Jean*0403 #endif /* ALLOW_NEST_CHILD */
                0404 C
                0405 #ifdef ALLOW_NEST_PARENT
                0406 C--    Initialize nest(ing) package parameters x PARENT
ad59256d7d aver*0407        IF (useNEST_PARENT) CALL NEST_PARENT_READPARMS( myThid )
5593e3ac8c Jean*0408 #endif /* ALLOW_NEST_PARENT */
                0409
6591b3fcc3 Jean*0410 #ifdef ALLOW_NEST2W_CHILD
                0411 C--    Initialize Child 2-way nest(ing) package parameters
                0412        IF (useNest2W_child) CALL NEST2W_C_READPARMS( myThid )
                0413 #endif /* ALLOW_NEST2W_CHILD */
                0414 C
                0415 #ifdef ALLOW_NEST2W_PARENT
                0416 C--    Initialize Parent 2-way nest(ing) package parameters
                0417        IF (useNest2W_parent) CALL NEST2W_P_READPARMS( myThid )
                0418 #endif /* ALLOW_NEST2W_PARENT */
                0419
5593e3ac8c Jean*0420 #ifdef COMPONENT_MODULE
                0421 C--   set Coupling parameters
                0422       IF ( useCoupler ) CALL CPL_READPARMS( myThid )
                0423 #endif /* COMPONENT_MODULE */
                0424
696c4221e9 Mart*0425 #ifdef ALLOW_OASIS
ad59256d7d aver*0426        IF (useOASIS) CALL OASIS_READPARMS( myThid )
696c4221e9 Mart*0427 #endif
                0428
5593e3ac8c Jean*0429 #ifdef ALLOW_RUNCLOCK
1219e7c863 Jean*0430 C--   if useRunClock=T, set RUNCLOCK parameters; otherwise just return
                0431       CALL RUNCLOCK_READPARMS( myThid )
5593e3ac8c Jean*0432 #endif
                0433
dfc9bc933c Ryan*0434 #ifdef ALLOW_MYPACKAGE
1219e7c863 Jean*0435 C--   if useMYPACKAGE=T, set mypackage parameters; otherwise just return
                0436       CALL MYPACKAGE_READPARMS( myThid )
dfc9bc933c Ryan*0437 #endif
                0438
10e4bbdd7f Jean*0439       RETURN
c859c0e3e6 Patr*0440       END