model/src/packages_init_fixed.F

6d54cf9ca1 Ed H*0001 #include "PACKAGES_CONFIG.h"
fb481a83c2 Alis*0002 #include "CPP_OPTIONS.h"
                0003
9366854e02 Chri*0004 CBOP
                0005 C     !ROUTINE: PACKAGES_INIT_FIXED
                0006 C     !INTERFACE:
fb481a83c2 Alis*0007       SUBROUTINE PACKAGES_INIT_FIXED( myThid )
                0008
9366854e02 Chri*0009 C     !DESCRIPTION: \bv
                0010 C     *==========================================================*
01a8e37345 Jean*0011 C     | SUBROUTINE PACKAGES_INIT_FIXED
                0012 C     | o Does initialisation of package-related fixed fields
9366854e02 Chri*0013 C     *==========================================================*
                0014 C     \ev
                0015
                0016 C     !CALLING SEQUENCE:
                0017 C     PACKAGES_INIT_FIXED
                0018 C       |
1eeb28fe07 Alis*0019 C       |-- RUNCLOCK_INIT
                0020 C       |
bb11f48a9f Jean*0021 C       |-- CAL_INIT_FIXED
                0022 C       |
509f66121a Jean*0023 C       |-- DIAGNOSTICS_INIT_EARLY
                0024 C       |-- DIAGNOSTICS_MAIN_INIT
                0025 C       |
6591b3fcc3 Jean*0026 C       |-- NEST2W_INIT_FIXED
                0027 C       |
bb98134c53 Jean*0028 C       |-- GAD_INIT_FIXED
e1c6dcc4ea Jean*0029 C       |
785cc16916 Jean*0030 C       |-- MOM_INIT_FIXED
                0031 C       |
e05ab547fa Jean*0032 C       |-- CD_CODE_INIT_FIXED
                0033 C       |
5593e3ac8c Jean*0034 C       |-- OBCS_INIT_FIXED
23753a76a9 Dimi*0035 C       |
5593e3ac8c Jean*0036 C       |-- SHAP_FILT_INIT_FIZED
b4c132448c Jean*0037 C       |
5593e3ac8c Jean*0038 C       |-- ZONAL_FILT_INIT
e05ab547fa Jean*0039 C       |
5593e3ac8c Jean*0040 C       |-- EXF_INIT_FIXED
1db41719d4 Jean*0041 C       |
5593e3ac8c Jean*0042 C       |-- CHEAPAML_INIT_FIXED
15338fa568 Dimi*0043 C       |
5593e3ac8c Jean*0044 C       |-- OPPS_INIT
7e819019d5 Dimi*0045 C       |
d829d0be62 Mart*0046 C       |-- PP81_INIT_FIXED
                0047 C       |
d8d1486ca1 Jean*0048 C       |-- KL10_INIT_FIXED
                0049 C       |
60c545bbe1 Mart*0050 C       |-- MY82_INIT_FIXED
                0051 C       |
e56754156b Davi*0052 C       |-- GGL90_INIT_FIXED
                0053 C       |
5593e3ac8c Jean*0054 C       |-- KPP_INIT_FIXED
d410a4724b Jean*0055 C       |
5593e3ac8c Jean*0056 C       |-- GMREDI_INIT_FIXED
ffd0966f4f Jean*0057 C       |
5593e3ac8c Jean*0058 C       |-- BBL_INIT_FIXED
ffd0966f4f Jean*0059 C       |
5593e3ac8c Jean*0060 C       |-- DWNSLP_INIT_FIXED
ffd0966f4f Jean*0061 C       |
785cc16916 Jean*0062 C       |-- SEAICE_COST_INIT_FIXED
                0063 C       |
5593e3ac8c Jean*0064 C       |-- SMOOTH_INIT_FIXED
                0065 C       |
0cd0083da8 Ou W*0066 C       |-- ECCO_INIT_FIXED
                0067 C       |   |- ECCO_COST_INIT_FIXED
ffd0966f4f Jean*0068 C       |
93f4e26372 Jean*0069 C       |-- PROFILES_INIT_FIXED
                0070 C       |
ad59256d7d aver*0071 C       |-- OBSFIT_INIT_FIXED
                0072 C       |
93f4e26372 Jean*0073 C       |-- FLT_INIT_FIXED
                0074 C       |
4e66ab0b67 Oliv*0075 C       |-- LONGSTEP_INIT_FIXED
                0076 C       |
e7eb5bf80f Jean*0077 C       |-- PTRACERS_INIT_FIXED
509f66121a Jean*0078 C       |
ffd0966f4f Jean*0079 C       |-- GCHEM_INIT_FIXED
                0080 C       |
5593e3ac8c Jean*0081 C       |-- RBCS_INIT_FIXED
e0b3e1bdd8 Dimi*0082 C       |
148dd84005 jm-c 0083 C       |-- STREAMICE_INIT_FIXED
69a7b27187 Mart*0084 C       |
148dd84005 jm-c 0085 C       |-- SHELFICE_INIT_FIXED
e0b3e1bdd8 Dimi*0086 C       |
00f81e6785 Ou W*0087 C       |-- STIC_INIT_FIXED
                0088 C       |
148dd84005 jm-c 0089 C       |-- ICEFRONT_INIT_FIXED
5593e3ac8c Jean*0090 C       |
148dd84005 jm-c 0091 C       |-- FRAZIL_INIT_FIXED
a6cbc7a360 Mart*0092 C       |
148dd84005 jm-c 0093 C       |-- SEAICE_INIT_FIXED
5593e3ac8c Jean*0094 C       |
148dd84005 jm-c 0095 C       |-- SALT_PLUME_INIT_FIXED
5da8ce63fa Dimi*0096 C       |
5593e3ac8c Jean*0097 C       |-- THSICE_INIT_FIXED
                0098 C       |
b8e989b7a2 Jean*0099 C       |-- LAND_INIT_FIXED
509f66121a Jean*0100 C       |
cdbd1ef2a3 Jeff*0101 C       |-- ATM2D_INIT_FIXED
                0102 C       |
5593e3ac8c Jean*0103 C       |-- AIM_INITIALISE
                0104 C       |
                0105 C       |-- ATM_PHYS_INIT_FIXED
                0106 C       |
                0107 C       |-- FIZHI_INIT_FIXED
                0108 C       |
                0109 C       |-- GRIDALT_INITIALISE
                0110 C       |
39cebd8084 Ed H*0111 C       |-- REGRID_INIT_FIXED
e4775240e5 Dimi*0112 C       |
dfc9bc933c Ryan*0113 C       |-- LAYERS_INIT_FIXED
                0114 C       |
5593e3ac8c Jean*0115 C       |-- CPL_INIT_FIXED
                0116 C       |
                0117 C       |-- OASIS_INIT_FIXED
                0118 C       |
                0119 C       |-- EMBED_FILES_INIT
e4775240e5 Dimi*0120 C       |
1db41719d4 Jean*0121 C       |-- MYPACKAGE_INIT_FIXED
                0122 C       |
5cf4364659 Mart*0123 C       |-- CTRL_INIT_FIXED
159cd53a14 Jean*0124 C       |-- CTRL_ADMTLM
                0125 C       |
e4775240e5 Dimi*0126 C       |-- DIAGNOSTICS_INIT_FIXED
9366854e02 Chri*0127
                0128 C     !USES:
                0129       IMPLICIT NONE
fb481a83c2 Alis*0130 C     === Global variables ===
                0131 #include "SIZE.h"
                0132 #include "EEPARAMS.h"
                0133 #include "PARAMS.h"
                0134
9366854e02 Chri*0135 C     !INPUT/OUTPUT PARAMETERS:
fb481a83c2 Alis*0136 C     === Routine arguments ===
b4c132448c Jean*0137 C     myThid :: my Thread Id Number
fb481a83c2 Alis*0138       INTEGER myThid
9366854e02 Chri*0139 CEOP
fb481a83c2 Alis*0140
bb98134c53 Jean*0141 #ifdef ALLOW_DEBUG
                0142       IF (debugMode) CALL DEBUG_ENTER('PACKAGES_INIT_FIXED',myThid)
                0143 #endif
                0144
1eeb28fe07 Alis*0145 #ifdef ALLOW_RUNCLOCK
                0146       IF ( useRunClock ) THEN
bb98134c53 Jean*0147 # ifdef ALLOW_DEBUG
                0148         IF (debugMode) CALL DEBUG_CALL('RUNCLOCK_INIT',myThid)
                0149 # endif
1eeb28fe07 Alis*0150         CALL RUNCLOCK_INIT( myThid )
                0151       ENDIF
                0152 #endif
                0153
bb11f48a9f Jean*0154 #ifdef ALLOW_CAL
                0155 C--   Initialise the calendar package.
                0156       IF ( useCAL ) THEN
                0157 # ifdef ALLOW_DEBUG
                0158         IF (debugMode) CALL DEBUG_CALL('CAL_INIT_FIXED',myThid)
                0159 # endif
                0160         CALL CAL_INIT_FIXED( myThid )
                0161       ENDIF
                0162 #endif /* ALLOW_CAL */
                0163
48121039da Jean*0164 #ifdef ALLOW_DIAGNOSTICS
                0165       IF ( useDiagnostics ) THEN
01a8e37345 Jean*0166 C-    needs to call DIAGNOSTICS_INIT_EARLY before all package-diag-init calls
bb98134c53 Jean*0167 # ifdef ALLOW_DEBUG
                0168         IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_INIT_EARLY',myThid)
                0169 # endif
48121039da Jean*0170         CALL DIAGNOSTICS_INIT_EARLY( myThid )
bb98134c53 Jean*0171 # ifdef ALLOW_DEBUG
                0172         IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_MAIN_INIT',myThid)
                0173 # endif
48121039da Jean*0174         CALL DIAGNOSTICS_MAIN_INIT( myThid )
                0175       ENDIF
                0176 #endif
                0177
6591b3fcc3 Jean*0178 #ifdef ALLOW_NEST2W_COMMON
                0179 C--   Initialise the 2-Way Nesting packages
                0180       IF ( useNest2W_parent .OR. useNest2W_child ) THEN
                0181 # ifdef ALLOW_DEBUG
                0182         IF (debugMode) CALL DEBUG_CALL('NEST2W_INIT_FIXED',myThid)
                0183 # endif
                0184         CALL NEST2W_INIT_FIXED( myThid )
                0185       ENDIF
                0186 #endif /* ALLOW_NEST2W_COMMON */
                0187
3ff07dd7e9 Jean*0188 #ifdef ALLOW_GENERIC_ADVDIFF
3f2ea2a4ed Ed H*0189 C--   Initialize fixed params for GAD
bb98134c53 Jean*0190 # ifdef ALLOW_DEBUG
                0191         IF (debugMode) CALL DEBUG_CALL('GAD_INIT_FIXED',myThid)
                0192 # endif
e663d180db Jean*0193       CALL GAD_INIT_FIXED( myThid )
3ff07dd7e9 Jean*0194 #endif
3f2ea2a4ed Ed H*0195
785cc16916 Jean*0196 #ifdef ALLOW_MOM_COMMON
                0197 C--   Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
                0198       IF ( momStepping ) THEN
bb98134c53 Jean*0199 # ifdef ALLOW_DEBUG
                0200         IF (debugMode) CALL DEBUG_CALL('MOM_INIT_FIXED',myThid)
                0201 # endif
                0202         CALL MOM_INIT_FIXED( myThid )
785cc16916 Jean*0203       ENDIF
                0204 #endif
                0205
e05ab547fa Jean*0206 #ifdef ALLOW_CD_CODE
                0207       IF (useCDscheme) THEN
bb98134c53 Jean*0208 # ifdef ALLOW_DEBUG
                0209         IF (debugMode) CALL DEBUG_CALL('CD_CODE_INIT_FIXED',myThid)
                0210 # endif
                0211         CALL CD_CODE_INIT_FIXED(myThid)
e05ab547fa Jean*0212       ENDIF
                0213 #endif
                0214
5593e3ac8c Jean*0215 C--   Initialize fixed arrays for OBCS
                0216 #ifdef ALLOW_OBCS
                0217       IF (useOBCS) THEN
bb98134c53 Jean*0218 # ifdef ALLOW_DEBUG
5593e3ac8c Jean*0219         IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_FIXED',myThid)
bb98134c53 Jean*0220 # endif
5593e3ac8c Jean*0221         CALL OBCS_INIT_FIXED( myThid )
342da43f96 Patr*0222       ENDIF
23753a76a9 Dimi*0223 #endif
                0224
5593e3ac8c Jean*0225 #ifdef ALLOW_SHAP_FILT
                0226 C--   Shapiro filter initialisation
                0227       IF (useSHAP_FILT) THEN
bb98134c53 Jean*0228 # ifdef ALLOW_DEBUG
5593e3ac8c Jean*0229         IF (debugMode) CALL DEBUG_CALL('SHAP_FILT_INIT_FIXED',myThid)
bb98134c53 Jean*0230 # endif
5593e3ac8c Jean*0231         CALL SHAP_FILT_INIT_FIXED( myThid )
bb98134c53 Jean*0232       ENDIF
b4c132448c Jean*0233 #endif
                0234
5593e3ac8c Jean*0235 #ifdef ALLOW_ZONAL_FILT
                0236 C--   Latitude circle filter initialisation
                0237       IF (useZONAL_FILT) THEN
bb98134c53 Jean*0238 # ifdef ALLOW_DEBUG
5593e3ac8c Jean*0239         IF (debugMode) CALL DEBUG_CALL('ZONAL_FILT_INIT',myThid)
bb98134c53 Jean*0240 # endif
5593e3ac8c Jean*0241         CALL ZONAL_FILT_INIT(myThid)
e05ab547fa Jean*0242       ENDIF
                0243 #endif
                0244
5593e3ac8c Jean*0245 #ifdef ALLOW_EXF
                0246 C--   Initialize fixed arrays for EXF
                0247       IF ( useEXF ) THEN
bb98134c53 Jean*0248 # ifdef ALLOW_DEBUG
5593e3ac8c Jean*0249         IF (debugMode) CALL DEBUG_CALL('EXF_INIT_FIXED',myThid)
bb98134c53 Jean*0250 # endif
5593e3ac8c Jean*0251         CALL EXF_INIT_FIXED( myThid )
1db41719d4 Jean*0252       ENDIF
                0253 #endif
                0254
5593e3ac8c Jean*0255 #ifdef ALLOW_CHEAPAML
                0256       IF ( useCheapAML ) THEN
bb98134c53 Jean*0257 # ifdef ALLOW_DEBUG
5593e3ac8c Jean*0258         IF (debugMode) CALL DEBUG_CALL('CHEAPAML_INIT_FIXED',myThid)
bb98134c53 Jean*0259 # endif
5593e3ac8c Jean*0260         CALL CHEAPAML_INIT_FIXED( myThid )
15338fa568 Dimi*0261       ENDIF
                0262 #endif
                0263
5593e3ac8c Jean*0264 #ifdef ALLOW_OPPS
                0265       IF (useOPPS) THEN
bb98134c53 Jean*0266 # ifdef ALLOW_DEBUG
5593e3ac8c Jean*0267         IF (debugMode) CALL DEBUG_CALL('OPPS_INIT',myThid)
bb98134c53 Jean*0268 # endif
5593e3ac8c Jean*0269         CALL OPPS_INIT( myThid )
7e819019d5 Dimi*0270       ENDIF
5593e3ac8c Jean*0271 #endif /* ALLOW_OPPS */
7e819019d5 Dimi*0272
d829d0be62 Mart*0273 #ifdef ALLOW_PP81
                0274 C--   Initialize fixed arrays for PP81
                0275       IF ( usePP81 ) THEN
                0276 # ifdef ALLOW_DEBUG
                0277         IF (debugMode) CALL DEBUG_CALL('PP81_INIT_FIXED',myThid)
                0278 # endif
                0279         CALL PP81_INIT_FIXED( myThid )
                0280       ENDIF
                0281 #endif
                0282
d8d1486ca1 Jean*0283 #ifdef ALLOW_KL10
                0284 C--   Initialize fixed arrays for KL10
                0285       IF ( useKL10 ) THEN
                0286 # ifdef ALLOW_DEBUG
                0287         IF (debugMode) CALL DEBUG_CALL('KL10_INIT_FIXED',myThid)
                0288 # endif
                0289         CALL KL10_INIT_FIXED( myThid )
                0290       ENDIF
                0291 #endif /* ALLOW_KL10 */
                0292
60c545bbe1 Mart*0293 #ifdef ALLOW_MY82
                0294 C--   Initialize fixed arrays for MY82
                0295       IF ( useMY82 ) THEN
bb98134c53 Jean*0296 # ifdef ALLOW_DEBUG
                0297         IF (debugMode) CALL DEBUG_CALL('MY82_INIT_FIXED',myThid)
                0298 # endif
                0299         CALL MY82_INIT_FIXED( myThid )
60c545bbe1 Mart*0300       ENDIF
                0301 #endif
                0302
e56754156b Davi*0303 #ifdef ALLOW_GGL90
                0304 C--   Initialize fixed arrays for GGL90
                0305       IF ( useGGL90 ) THEN
bb98134c53 Jean*0306 # ifdef ALLOW_DEBUG
                0307         IF (debugMode) CALL DEBUG_CALL('GGL90_INIT_FIXED',myThid)
                0308 # endif
                0309         CALL GGL90_INIT_FIXED( myThid )
e56754156b Davi*0310       ENDIF
                0311 #endif
                0312
5593e3ac8c Jean*0313 #ifdef ALLOW_KPP
                0314 C--   Initialize fixed arrays for KPP
                0315       IF ( useKPP ) THEN
bb98134c53 Jean*0316 # ifdef ALLOW_DEBUG
5593e3ac8c Jean*0317         IF (debugMode) CALL DEBUG_CALL('KPP_INIT_FIXED',myThid)
bb98134c53 Jean*0318 # endif
5593e3ac8c Jean*0319         CALL KPP_INIT_FIXED( myThid )
bb98134c53 Jean*0320       ENDIF
d410a4724b Jean*0321 #endif
                0322
5593e3ac8c Jean*0323 #ifdef ALLOW_GMREDI
                0324 C--   Initialize fixed arrays for GM-Redi
                0325       IF ( useGMRedi ) THEN
bb98134c53 Jean*0326 # ifdef ALLOW_DEBUG
5593e3ac8c Jean*0327         IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_FIXED',myThid)
bb98134c53 Jean*0328 # endif
5593e3ac8c Jean*0329         CALL GMREDI_INIT_FIXED( myThid )
d0d808a690 Andr*0330       ENDIF
468f196fcd Andr*0331 #endif
                0332
5593e3ac8c Jean*0333 #ifdef ALLOW_BBL
                0334 C--   Initialize fixed arrays for BBL pkg
                0335       IF ( useBBL ) THEN
bb98134c53 Jean*0336 # ifdef ALLOW_DEBUG
5593e3ac8c Jean*0337         IF (debugMode) CALL DEBUG_CALL('BBL_INIT_FIXED',myThid)
bb98134c53 Jean*0338 # endif
5593e3ac8c Jean*0339         CALL BBL_INIT_FIXED( myThid )
bb98134c53 Jean*0340       ENDIF
468f196fcd Andr*0341 #endif
                0342
5593e3ac8c Jean*0343 #ifdef ALLOW_DOWN_SLOPE
                0344 C--   Initialize fixed arrays for Down-Slope pkg
                0345       IF ( useDOWN_SLOPE ) THEN
bb98134c53 Jean*0346 # ifdef ALLOW_DEBUG
5593e3ac8c Jean*0347         IF (debugMode) CALL DEBUG_CALL('DWNSLP_INIT_FIXED',myThid)
bb98134c53 Jean*0348 # endif
5593e3ac8c Jean*0349         CALL DWNSLP_INIT_FIXED( myThid )
bb98134c53 Jean*0350       ENDIF
d410a4724b Jean*0351 #endif
                0352
0513668de6 Gael*0353 #ifdef ALLOW_SEAICE
869864d4b6 Patr*0354 C--   Initialise ecco-specific cost function.
5cf4364659 Mart*0355 C--   This needs to preceed the call CTRL_INIT_FIXED
869864d4b6 Patr*0356 C--   in order to provide the weight files
bb98134c53 Jean*0357       IF (useSEAICE) THEN
                0358 # ifdef ALLOW_DEBUG
                0359         IF (debugMode) CALL DEBUG_CALL('SEAICE_COST_INIT_FIXED',myThid)
                0360 # endif
                0361         CALL SEAICE_COST_INIT_FIXED( myThid )
                0362       ENDIF
869864d4b6 Patr*0363 #endif
                0364
0513668de6 Gael*0365 #ifdef ALLOW_ECCO
a424c359ed Gael*0366       IF (useECCO) THEN
5cf4364659 Mart*0367 C--   Calls ECCO_COST_INIT_FIXED which initialises ecco-specific cost
                0368 C--   function. This needs to preceed CTRL_INIT_FIXED call in order to
                0369 C--   provide the weight files.
bb98134c53 Jean*0370 # ifdef ALLOW_DEBUG
0cd0083da8 Ou W*0371         IF (debugMode) CALL DEBUG_CALL('ECCO_INIT_FIXED',myThid)
bb98134c53 Jean*0372 # endif
0cd0083da8 Ou W*0373         CALL ECCO_INIT_FIXED( myThid )
a424c359ed Gael*0374       ENDIF
438648d0e1 Patr*0375 #endif
                0376
24462d2fa8 Patr*0377 #ifdef ALLOW_PROFILES
e994210c2e Gael*0378       IF (usePROFILES) THEN
bb98134c53 Jean*0379 # ifdef ALLOW_DEBUG
                0380         IF (debugMode) CALL DEBUG_CALL('PROFILES_INIT_FIXED',myThid)
                0381 # endif
e994210c2e Gael*0382         CALL PROFILES_INIT_FIXED( myThid )
                0383       ENDIF
24462d2fa8 Patr*0384 #endif
                0385
ad59256d7d aver*0386 #ifdef ALLOW_OBSFIT
                0387       IF (useOBSFIT) THEN
                0388 # ifdef ALLOW_DEBUG
                0389         IF (debugMode) CALL DEBUG_CALL('OBSFIT_INIT_FIXED',myThid)
                0390 # endif
                0391         CALL OBSFIT_INIT_FIXED( myThid )
                0392       ENDIF
                0393 #endif
                0394
5cf4364659 Mart*0395 C--   Old place where CTRL_INIT_FIXED & CTRL_ADMTLM used to be called
93f4e26372 Jean*0396
                0397 #ifdef ALLOW_FLT
                0398 C--   Initialise fixed array for Float pkg
bb98134c53 Jean*0399       IF ( useFLT ) THEN
                0400 # ifdef ALLOW_DEBUG
                0401         IF (debugMode) CALL DEBUG_CALL('FLT_INIT_FIXED',myThid)
                0402 # endif
                0403         CALL FLT_INIT_FIXED( myThid )
                0404       ENDIF
51aff01cce Patr*0405 #endif
                0406
4e66ab0b67 Oliv*0407 #ifdef ALLOW_LONGSTEP
bb98134c53 Jean*0408       IF (usePTRACERS) THEN
                0409 # ifdef ALLOW_DEBUG
                0410         IF (debugMode) CALL DEBUG_CALL('LONGSTEP_INIT_FIXED',myThid)
                0411 # endif
                0412         CALL LONGSTEP_INIT_FIXED(myThid)
                0413       ENDIF
4e66ab0b67 Oliv*0414 #endif
                0415
61d8734a9f Step*0416 #ifdef ALLOW_PTRACERS
bb98134c53 Jean*0417       IF (usePTRACERS) THEN
                0418 # ifdef ALLOW_DEBUG
                0419         IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_FIXED',myThid)
                0420 # endif
                0421         CALL PTRACERS_INIT_FIXED(myThid)
                0422       ENDIF
ffd0966f4f Jean*0423 #endif
                0424
61d8734a9f Step*0425 #ifdef ALLOW_GCHEM
bb98134c53 Jean*0426       IF (useGCHEM) THEN
                0427 # ifdef ALLOW_DEBUG
                0428         IF (debugMode) CALL DEBUG_CALL('GCHEM_INIT_FIXED',myThid)
                0429 # endif
                0430         CALL GCHEM_INIT_FIXED(myThid)
                0431       ENDIF
3a1a157ebd Ed H*0432 #endif
                0433
176ce185cd Step*0434 #ifdef ALLOW_RBCS
bb98134c53 Jean*0435       IF (useRBCS) THEN
                0436 # ifdef ALLOW_DEBUG
                0437         IF (debugMode) CALL DEBUG_CALL('RBCS_INIT_FIXED',myThid)
                0438 # endif
                0439         CALL RBCS_INIT_FIXED(myThid)
                0440       ENDIF
176ce185cd Step*0441 #endif
                0442
148dd84005 jm-c 0443 #ifdef ALLOW_STREAMICE
                0444       IF (useStreamIce) THEN
                0445 # ifdef ALLOW_DEBUG
                0446         IF (debugMode) CALL DEBUG_CALL('STREAMICE_INIT_FIXED',myThid)
                0447 # endif
                0448 #ifndef ALLOW_OPENAD
                0449        CALL STREAMICE_INIT_FIXED( myThid )
                0450 #else
                0451        CALL OPENAD_STREAMICE_INIT_FIXED( myThid )
                0452 #endif
                0453       ENDIF
                0454 #endif /* ALLOW_STREAMICE */
                0455
                0456 #ifdef ALLOW_SHELFICE
                0457       IF (useShelfIce) THEN
                0458 # ifdef ALLOW_DEBUG
                0459         IF (debugMode) CALL DEBUG_CALL('SHELFICE_INIT_FIXED',myThid)
                0460 # endif
                0461         CALL SHELFICE_INIT_FIXED( myThid )
                0462       ENDIF
                0463 #endif /* ALLOW_SHELFICE */
                0464
00f81e6785 Ou W*0465 #ifdef ALLOW_STEEP_ICECAVITY
                0466       IF (useSTIC) THEN
                0467 # ifdef ALLOW_DEBUG
                0468         IF (debugMode) CALL DEBUG_CALL('STIC_INIT_FIXED',myThid)
                0469 # endif
                0470         CALL STIC_INIT_FIXED( myThid )
                0471       ENDIF
                0472 #endif /* ALLOW_STEEP_ICECAVITY */
                0473
7b8b86ab99 Timo*0474 #ifdef ALLOW_SMOOTH
                0475       IF (useSMOOTH) THEN
                0476 # ifdef ALLOW_DEBUG
                0477         IF (debugMode) CALL DEBUG_CALL('SMOOTH_INIT_FIXED',myThid)
                0478 # endif
                0479         CALL SMOOTH_INIT_FIXED(myThid)
                0480       ENDIF
                0481 #endif /* ALLOW_SMOOTH */
                0482
148dd84005 jm-c 0483 #ifdef ALLOW_ICEFRONT
                0484       IF (useICEFRONT) THEN
                0485 # ifdef ALLOW_DEBUG
                0486         IF (debugMode) CALL DEBUG_CALL('ICEFRONT_INIT_FIXED',myThid)
                0487 # endif
                0488         CALL ICEFRONT_INIT_FIXED( myThid )
                0489       ENDIF
                0490 #endif /* ALLOW_ICEFRONT */
                0491
e0b3e1bdd8 Dimi*0492 #ifdef ALLOW_FRAZIL
                0493       IF (useFRAZIL) THEN
                0494 # ifdef ALLOW_DEBUG
                0495         IF (debugMode) CALL DEBUG_CALL('FRAZIL_INIT_FIXED',myThid)
                0496 # endif
                0497         CALL FRAZIL_INIT_FIXED(myThid)
                0498       ENDIF
                0499 #endif
                0500
5593e3ac8c Jean*0501 #ifdef ALLOW_SEAICE
                0502       IF (useSEAICE) THEN
bb98134c53 Jean*0503 # ifdef ALLOW_DEBUG
5593e3ac8c Jean*0504         IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_FIXED',myThid)
bb98134c53 Jean*0505 # endif
5593e3ac8c Jean*0506         CALL SEAICE_INIT_FIXED(myThid)
bb98134c53 Jean*0507       ENDIF
592cbf818a Patr*0508 #endif
                0509
5593e3ac8c Jean*0510 #ifdef ALLOW_SALT_PLUME
                0511       IF (useSALT_PLUME) THEN
bb98134c53 Jean*0512 # ifdef ALLOW_DEBUG
5593e3ac8c Jean*0513         IF (debugMode) CALL DEBUG_CALL('SALT_PLUME_INIT_FIXED',myThid)
bb98134c53 Jean*0514 # endif
5593e3ac8c Jean*0515         CALL SALT_PLUME_INIT_FIXED(myThid)
bb98134c53 Jean*0516       ENDIF
cb10eb6395 Patr*0517 #endif
                0518
5593e3ac8c Jean*0519 #ifdef ALLOW_THSICE
                0520       IF (useThSIce) THEN
77a55fbebd Patr*0521 # ifdef ALLOW_DEBUG
5593e3ac8c Jean*0522         IF (debugMode) CALL DEBUG_CALL('THSICE_INIT_FIXED',myThid)
77a55fbebd Patr*0523 # endif
5593e3ac8c Jean*0524         CALL THSICE_INIT_FIXED(myThid)
77a55fbebd Patr*0525       ENDIF
5593e3ac8c Jean*0526 #endif
77a55fbebd Patr*0527
5593e3ac8c Jean*0528 #ifdef ALLOW_LAND
b8e989b7a2 Jean*0529 C--   Initialise Land package
                0530       IF ( useLand ) THEN
bb98134c53 Jean*0531 # ifdef ALLOW_DEBUG
b8e989b7a2 Jean*0532         IF (debugMode) CALL DEBUG_CALL('LAND_INIT_FIXED',myThid)
bb98134c53 Jean*0533 # endif
b8e989b7a2 Jean*0534         CALL LAND_INIT_FIXED( myThid )
5593e3ac8c Jean*0535       ENDIF
                0536 #endif
                0537
                0538 #ifdef ALLOW_ATM2D
                0539       IF ( useAtm2d ) THEN
                0540 # ifdef ALLOW_DEBUG
                0541         IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_FIXED',myThid)
                0542 # endif
                0543         CALL ATM2D_INIT_FIXED( myThid )
                0544       ENDIF
                0545 #endif
                0546
                0547 #ifdef ALLOW_AIM
                0548 C--   Initialise & Read AIM physical parameters
                0549       IF (useAIM) THEN
                0550 # ifdef ALLOW_DEBUG
                0551         IF (debugMode) CALL DEBUG_CALL('AIM_INITIALISE',myThid)
                0552 # endif
                0553         CALL AIM_INITIALISE( myThid )
                0554       ENDIF
                0555 #endif
                0556
                0557 #ifdef ALLOW_ATM_PHYS
                0558 C--   Initialise Atm_Phys pkg
                0559       IF ( useAtm_Phys ) THEN
                0560 # ifdef ALLOW_DEBUG
                0561         IF (debugMode) CALL DEBUG_CALL('ATM_PHYS_INIT_FIXED',myThid)
                0562 # endif
                0563         CALL ATM_PHYS_INIT_FIXED( myThid )
                0564       ENDIF
                0565 #endif /* ALLOW_ATM_PHYS */
                0566
                0567 #ifdef ALLOW_FIZHI
                0568 C--   Initialise & Read FIZHI physical parameters
                0569       IF (useFIZHI) THEN
                0570 # ifdef ALLOW_DEBUG
                0571         IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_FIXED',myThid)
                0572 # endif
                0573         CALL FIZHI_INIT_FIXED( myThid )
                0574       ENDIF
                0575 #endif
                0576
                0577 #ifdef ALLOW_GRIDALT
                0578 C--   Initialise GRIDALT parameters - the alternative grid
                0579       IF (useGRIDALT) then
                0580 # ifdef ALLOW_DEBUG
                0581         IF (debugMode) CALL DEBUG_CALL('GRIDALT_INITIALISE',myThid)
                0582 # endif
                0583         CALL GRIDALT_INITIALISE( myThid )
                0584       ENDIF
                0585 #endif
                0586
edb5985e20 Jean*0587 #ifdef ALLOW_REGRID
bb98134c53 Jean*0588       IF ( useREGRID ) THEN
                0589 # ifdef ALLOW_DEBUG
                0590         IF (debugMode) CALL DEBUG_CALL('REGRID_INIT_FIXED',myThid)
                0591 # endif
                0592         CALL REGRID_INIT_FIXED( myThid )
                0593       ENDIF
edb5985e20 Jean*0594 #endif
                0595
dfc9bc933c Ryan*0596 #ifdef ALLOW_LAYERS
bb98134c53 Jean*0597       IF ( useLayers ) THEN
                0598 # ifdef ALLOW_DEBUG
                0599         IF (debugMode) CALL DEBUG_CALL('LAYERS_INIT_FIXED',myThid)
                0600 # endif
                0601         CALL LAYERS_INIT_FIXED( myThid )
                0602       ENDIF
dfc9bc933c Ryan*0603 #endif /* ALLOW_LAYERS */
                0604
6c5a9380b0 Ed H*0605 #ifdef COMPONENT_MODULE
bb98134c53 Jean*0606       IF ( useCoupler ) THEN
                0607 # ifdef ALLOW_DEBUG
                0608         IF (debugMode) CALL DEBUG_CALL('CPL_INIT_FIXED',myThid)
                0609 # endif
                0610         CALL CPL_INIT_FIXED( myThid )
                0611       ENDIF
6c5a9380b0 Ed H*0612 #endif
                0613
696c4221e9 Mart*0614 #ifdef ALLOW_OASIS
                0615 C--   needs to be called after the OASIS_INIT
bb98134c53 Jean*0616       IF (useOASIS) THEN
                0617 # ifdef ALLOW_DEBUG
                0618         IF (debugMode) CALL DEBUG_CALL('OASIS_INIT_FIXED',myThid)
                0619 # endif
                0620         CALL OASIS_INIT_FIXED(myThid)
                0621       ENDIF
696c4221e9 Mart*0622 #endif
                0623
5593e3ac8c Jean*0624 #ifdef ALLOW_EMBED_FILES
                0625       IF ( useEMBED_FILES ) THEN
                0626 # ifdef ALLOW_DEBUG
                0627         IF (debugMode) CALL DEBUG_CALL('EMBED_FILES_INIT',myThid)
                0628 # endif
                0629         CALL EMBED_FILES_INIT( myThid )
                0630       ENDIF
                0631 #endif
                0632
1db41719d4 Jean*0633 #ifdef ALLOW_MYPACKAGE
bb98134c53 Jean*0634       IF (useMYPACKAGE) THEN
                0635 # ifdef ALLOW_DEBUG
                0636         IF (debugMode) CALL DEBUG_CALL('MYPACKAGE_INIT_FIXED',myThid)
                0637 # endif
                0638         CALL MYPACKAGE_INIT_FIXED(myThid)
                0639       ENDIF
1db41719d4 Jean*0640 #endif
                0641
159cd53a14 Jean*0642 #ifdef ALLOW_CTRL
                0643       IF (useCTRL) THEN
6591b3fcc3 Jean*0644 C--   Initialise the control variables. Moved to the end of this S/R
159cd53a14 Jean*0645 C     to allow other pkgs to set mask and weight fields.
                0646 # ifdef ALLOW_DEBUG
5cf4364659 Mart*0647         IF (debugMode) CALL DEBUG_CALL('CTRL_INIT_FIXED',myThid)
159cd53a14 Jean*0648 # endif
5cf4364659 Mart*0649         CALL CTRL_INIT_FIXED( myThid )
159cd53a14 Jean*0650       ENDIF
                0651
                0652 # ifdef ALLOW_ADMTLM
                0653       IF (useCTRL) THEN
                0654 C--   Initialise ADMTLM
                0655 #  ifdef ALLOW_DEBUG
                0656         IF (debugMode) CALL DEBUG_CALL('CTRL_ADMTLM',myThid)
                0657 #  endif
                0658         CALL CTRL_ADMTLM( myThid )
                0659       ENDIF
                0660 # endif /* ALLOW_ADMTLM */
                0661 #endif /* ALLOW_CTRL */
                0662
48121039da Jean*0663 #ifdef ALLOW_DIAGNOSTICS
01a8e37345 Jean*0664 C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
bb98134c53 Jean*0665       IF ( useDiagnostics ) THEN
                0666 # ifdef ALLOW_DEBUG
                0667         IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_INIT_FIXED',myThid)
                0668 # endif
                0669         CALL DIAGNOSTICS_INIT_FIXED( myThid )
                0670       ENDIF
                0671 #endif
                0672
                0673 #ifdef ALLOW_DEBUG
                0674       IF (debugMode) CALL DEBUG_LEAVE('PACKAGES_INIT_FIXED',myThid)
48121039da Jean*0675 #endif
                0676
fb481a83c2 Alis*0677       RETURN
                0678       END