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