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