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