Back to home page

MITgcm
 
 

    

File indexing completed on 2024-05-25 05:10:19 UTC

view on githubraw file Latest commit 00f81e67 on 2024-05-24 21:00:12 UTC
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       |
00f81e6785 Ou W*0085 C       |-- STIC_INIT_FIXED
                0086 C       |
148dd84005 jm-c 0087 C       |-- ICEFRONT_INIT_FIXED
5593e3ac8c Jean*0088 C       |
148dd84005 jm-c 0089 C       |-- FRAZIL_INIT_FIXED
a6cbc7a360 Mart*0090 C       |
148dd84005 jm-c 0091 C       |-- SEAICE_INIT_FIXED
5593e3ac8c Jean*0092 C       |
148dd84005 jm-c 0093 C       |-- SALT_PLUME_INIT_FIXED
5da8ce63fa Dimi*0094 C       |
5593e3ac8c Jean*0095 C       |-- THSICE_INIT_FIXED
                0096 C       |
b8e989b7a2 Jean*0097 C       |-- LAND_INIT_FIXED
509f66121a Jean*0098 C       |
cdbd1ef2a3 Jeff*0099 C       |-- ATM2D_INIT_FIXED
                0100 C       |
5593e3ac8c Jean*0101 C       |-- AIM_INITIALISE
                0102 C       |
                0103 C       |-- ATM_PHYS_INIT_FIXED
                0104 C       |
                0105 C       |-- FIZHI_INIT_FIXED
                0106 C       |
                0107 C       |-- GRIDALT_INITIALISE
                0108 C       |
                0109 C       |-- TIMEAVE_INIT_FIXED
                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 
5cf4364659 Mart*0386 C--   Old place where CTRL_INIT_FIXED & CTRL_ADMTLM used to be called
93f4e26372 Jean*0387 
                0388 #ifdef ALLOW_FLT
                0389 C--   Initialise fixed array for Float pkg
bb98134c53 Jean*0390       IF ( useFLT ) THEN
                0391 # ifdef ALLOW_DEBUG
                0392         IF (debugMode) CALL DEBUG_CALL('FLT_INIT_FIXED',myThid)
                0393 # endif
                0394         CALL FLT_INIT_FIXED( myThid )
                0395       ENDIF
51aff01cce Patr*0396 #endif
                0397 
4e66ab0b67 Oliv*0398 #ifdef ALLOW_LONGSTEP
bb98134c53 Jean*0399       IF (usePTRACERS) THEN
                0400 # ifdef ALLOW_DEBUG
                0401         IF (debugMode) CALL DEBUG_CALL('LONGSTEP_INIT_FIXED',myThid)
                0402 # endif
                0403         CALL LONGSTEP_INIT_FIXED(myThid)
                0404       ENDIF
4e66ab0b67 Oliv*0405 #endif
                0406 
61d8734a9f Step*0407 #ifdef ALLOW_PTRACERS
bb98134c53 Jean*0408       IF (usePTRACERS) THEN
                0409 # ifdef ALLOW_DEBUG
                0410         IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_FIXED',myThid)
                0411 # endif
                0412         CALL PTRACERS_INIT_FIXED(myThid)
                0413       ENDIF
ffd0966f4f Jean*0414 #endif
                0415 
61d8734a9f Step*0416 #ifdef ALLOW_GCHEM
bb98134c53 Jean*0417       IF (useGCHEM) THEN
                0418 # ifdef ALLOW_DEBUG
                0419         IF (debugMode) CALL DEBUG_CALL('GCHEM_INIT_FIXED',myThid)
                0420 # endif
                0421         CALL GCHEM_INIT_FIXED(myThid)
                0422       ENDIF
3a1a157ebd Ed H*0423 #endif
                0424 
176ce185cd Step*0425 #ifdef ALLOW_RBCS
bb98134c53 Jean*0426       IF (useRBCS) THEN
                0427 # ifdef ALLOW_DEBUG
                0428         IF (debugMode) CALL DEBUG_CALL('RBCS_INIT_FIXED',myThid)
                0429 # endif
                0430         CALL RBCS_INIT_FIXED(myThid)
                0431       ENDIF
176ce185cd Step*0432 #endif
                0433 
148dd84005 jm-c 0434 #ifdef ALLOW_STREAMICE
                0435       IF (useStreamIce) THEN
                0436 # ifdef ALLOW_DEBUG
                0437         IF (debugMode) CALL DEBUG_CALL('STREAMICE_INIT_FIXED',myThid)
                0438 # endif
                0439 #ifndef ALLOW_OPENAD
                0440        CALL STREAMICE_INIT_FIXED( myThid )
                0441 #else
                0442        CALL OPENAD_STREAMICE_INIT_FIXED( myThid )
                0443 #endif
                0444       ENDIF
                0445 #endif /* ALLOW_STREAMICE */
                0446 
                0447 #ifdef ALLOW_SHELFICE
                0448       IF (useShelfIce) THEN
                0449 # ifdef ALLOW_DEBUG
                0450         IF (debugMode) CALL DEBUG_CALL('SHELFICE_INIT_FIXED',myThid)
                0451 # endif
                0452         CALL SHELFICE_INIT_FIXED( myThid )
                0453       ENDIF
                0454 #endif /* ALLOW_SHELFICE */
                0455 
00f81e6785 Ou W*0456 #ifdef ALLOW_STEEP_ICECAVITY
                0457       IF (useSTIC) THEN
                0458 # ifdef ALLOW_DEBUG
                0459         IF (debugMode) CALL DEBUG_CALL('STIC_INIT_FIXED',myThid)
                0460 # endif
                0461         CALL STIC_INIT_FIXED( myThid )
                0462       ENDIF
                0463 #endif /* ALLOW_STEEP_ICECAVITY */
                0464 
7b8b86ab99 Timo*0465 #ifdef ALLOW_SMOOTH
                0466       IF (useSMOOTH) THEN
                0467 # ifdef ALLOW_DEBUG
                0468         IF (debugMode) CALL DEBUG_CALL('SMOOTH_INIT_FIXED',myThid)
                0469 # endif
                0470         CALL SMOOTH_INIT_FIXED(myThid)
                0471       ENDIF
                0472 #endif /* ALLOW_SMOOTH */
                0473 
148dd84005 jm-c 0474 #ifdef ALLOW_ICEFRONT
                0475       IF (useICEFRONT) THEN
                0476 # ifdef ALLOW_DEBUG
                0477         IF (debugMode) CALL DEBUG_CALL('ICEFRONT_INIT_FIXED',myThid)
                0478 # endif
                0479         CALL ICEFRONT_INIT_FIXED( myThid )
                0480       ENDIF
                0481 #endif /* ALLOW_ICEFRONT */
                0482 
e0b3e1bdd8 Dimi*0483 #ifdef ALLOW_FRAZIL
                0484       IF (useFRAZIL) THEN
                0485 # ifdef ALLOW_DEBUG
                0486         IF (debugMode) CALL DEBUG_CALL('FRAZIL_INIT_FIXED',myThid)
                0487 # endif
                0488         CALL FRAZIL_INIT_FIXED(myThid)
                0489       ENDIF
                0490 #endif
                0491 
5593e3ac8c Jean*0492 #ifdef ALLOW_SEAICE
                0493       IF (useSEAICE) THEN
bb98134c53 Jean*0494 # ifdef ALLOW_DEBUG
5593e3ac8c Jean*0495         IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_FIXED',myThid)
bb98134c53 Jean*0496 # endif
5593e3ac8c Jean*0497         CALL SEAICE_INIT_FIXED(myThid)
bb98134c53 Jean*0498       ENDIF
592cbf818a Patr*0499 #endif
                0500 
5593e3ac8c Jean*0501 #ifdef ALLOW_SALT_PLUME
                0502       IF (useSALT_PLUME) THEN
bb98134c53 Jean*0503 # ifdef ALLOW_DEBUG
5593e3ac8c Jean*0504         IF (debugMode) CALL DEBUG_CALL('SALT_PLUME_INIT_FIXED',myThid)
bb98134c53 Jean*0505 # endif
5593e3ac8c Jean*0506         CALL SALT_PLUME_INIT_FIXED(myThid)
bb98134c53 Jean*0507       ENDIF
cb10eb6395 Patr*0508 #endif
                0509 
5593e3ac8c Jean*0510 #ifdef ALLOW_THSICE
                0511       IF (useThSIce) THEN
77a55fbebd Patr*0512 # ifdef ALLOW_DEBUG
5593e3ac8c Jean*0513         IF (debugMode) CALL DEBUG_CALL('THSICE_INIT_FIXED',myThid)
77a55fbebd Patr*0514 # endif
5593e3ac8c Jean*0515         CALL THSICE_INIT_FIXED(myThid)
77a55fbebd Patr*0516       ENDIF
5593e3ac8c Jean*0517 #endif
77a55fbebd Patr*0518 
5593e3ac8c Jean*0519 #ifdef ALLOW_LAND
b8e989b7a2 Jean*0520 C--   Initialise Land package
                0521       IF ( useLand ) THEN
bb98134c53 Jean*0522 # ifdef ALLOW_DEBUG
b8e989b7a2 Jean*0523         IF (debugMode) CALL DEBUG_CALL('LAND_INIT_FIXED',myThid)
bb98134c53 Jean*0524 # endif
b8e989b7a2 Jean*0525         CALL LAND_INIT_FIXED( myThid )
5593e3ac8c Jean*0526       ENDIF
                0527 #endif
                0528 
                0529 #ifdef ALLOW_ATM2D
                0530       IF ( useAtm2d ) THEN
                0531 # ifdef ALLOW_DEBUG
                0532         IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_FIXED',myThid)
                0533 # endif
                0534         CALL ATM2D_INIT_FIXED( myThid )
                0535       ENDIF
                0536 #endif
                0537 
                0538 #ifdef ALLOW_AIM
                0539 C--   Initialise & Read AIM physical parameters
                0540       IF (useAIM) THEN
                0541 # ifdef ALLOW_DEBUG
                0542         IF (debugMode) CALL DEBUG_CALL('AIM_INITIALISE',myThid)
                0543 # endif
                0544         CALL AIM_INITIALISE( myThid )
                0545       ENDIF
                0546 #endif
                0547 
                0548 #ifdef ALLOW_ATM_PHYS
                0549 C--   Initialise Atm_Phys pkg
                0550       IF ( useAtm_Phys ) THEN
                0551 # ifdef ALLOW_DEBUG
                0552         IF (debugMode) CALL DEBUG_CALL('ATM_PHYS_INIT_FIXED',myThid)
                0553 # endif
                0554         CALL ATM_PHYS_INIT_FIXED( myThid )
                0555       ENDIF
                0556 #endif /* ALLOW_ATM_PHYS */
                0557 
                0558 #ifdef ALLOW_FIZHI
                0559 C--   Initialise & Read FIZHI physical parameters
                0560       IF (useFIZHI) THEN
                0561 # ifdef ALLOW_DEBUG
                0562         IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_FIXED',myThid)
                0563 # endif
                0564         CALL FIZHI_INIT_FIXED( myThid )
                0565       ENDIF
                0566 #endif
                0567 
                0568 #ifdef ALLOW_GRIDALT
                0569 C--   Initialise GRIDALT parameters - the alternative grid
                0570       IF (useGRIDALT) then
                0571 # ifdef ALLOW_DEBUG
                0572         IF (debugMode) CALL DEBUG_CALL('GRIDALT_INITIALISE',myThid)
                0573 # endif
                0574         CALL GRIDALT_INITIALISE( myThid )
                0575       ENDIF
                0576 #endif
                0577 
                0578 #ifdef ALLOW_TIMEAVE
                0579 C     IF (useTIMEAVE) THEN
                0580       IF ( taveFreq.GT.0. ) THEN
                0581 # ifdef ALLOW_DEBUG
                0582         IF (debugMode) CALL DEBUG_CALL('TIMEAVE_INIT_FIXED',myThid)
                0583 # endif
                0584         CALL TIMEAVE_INIT_FIXED( myThid )
bb98134c53 Jean*0585       ENDIF
edb5985e20 Jean*0586 #endif
                0587 
                0588 #ifdef ALLOW_REGRID
bb98134c53 Jean*0589       IF ( useREGRID ) THEN
                0590 # ifdef ALLOW_DEBUG
                0591         IF (debugMode) CALL DEBUG_CALL('REGRID_INIT_FIXED',myThid)
                0592 # endif
                0593         CALL REGRID_INIT_FIXED( myThid )
                0594       ENDIF
edb5985e20 Jean*0595 #endif
                0596 
dfc9bc933c Ryan*0597 #ifdef ALLOW_LAYERS
bb98134c53 Jean*0598       IF ( useLayers ) THEN
                0599 # ifdef ALLOW_DEBUG
                0600         IF (debugMode) CALL DEBUG_CALL('LAYERS_INIT_FIXED',myThid)
                0601 # endif
                0602         CALL LAYERS_INIT_FIXED( myThid )
                0603       ENDIF
dfc9bc933c Ryan*0604 #endif /* ALLOW_LAYERS */
                0605 
6c5a9380b0 Ed H*0606 #ifdef COMPONENT_MODULE
bb98134c53 Jean*0607       IF ( useCoupler ) THEN
                0608 # ifdef ALLOW_DEBUG
                0609         IF (debugMode) CALL DEBUG_CALL('CPL_INIT_FIXED',myThid)
                0610 # endif
                0611         CALL CPL_INIT_FIXED( myThid )
                0612       ENDIF
6c5a9380b0 Ed H*0613 #endif
                0614 
696c4221e9 Mart*0615 #ifdef ALLOW_OASIS
                0616 C--   needs to be called after the OASIS_INIT
bb98134c53 Jean*0617       IF (useOASIS) THEN
                0618 # ifdef ALLOW_DEBUG
                0619         IF (debugMode) CALL DEBUG_CALL('OASIS_INIT_FIXED',myThid)
                0620 # endif
                0621         CALL OASIS_INIT_FIXED(myThid)
                0622       ENDIF
696c4221e9 Mart*0623 #endif
                0624 
5593e3ac8c Jean*0625 #ifdef ALLOW_EMBED_FILES
                0626       IF ( useEMBED_FILES ) THEN
                0627 # ifdef ALLOW_DEBUG
                0628         IF (debugMode) CALL DEBUG_CALL('EMBED_FILES_INIT',myThid)
                0629 # endif
                0630         CALL EMBED_FILES_INIT( myThid )
                0631       ENDIF
                0632 #endif
                0633 
1db41719d4 Jean*0634 #ifdef ALLOW_MYPACKAGE
bb98134c53 Jean*0635       IF (useMYPACKAGE) THEN
                0636 # ifdef ALLOW_DEBUG
                0637         IF (debugMode) CALL DEBUG_CALL('MYPACKAGE_INIT_FIXED',myThid)
                0638 # endif
                0639         CALL MYPACKAGE_INIT_FIXED(myThid)
                0640       ENDIF
1db41719d4 Jean*0641 #endif
                0642 
159cd53a14 Jean*0643 #ifdef ALLOW_CTRL
                0644       IF (useCTRL) THEN
6591b3fcc3 Jean*0645 C--   Initialise the control variables. Moved to the end of this S/R
159cd53a14 Jean*0646 C     to allow other pkgs to set mask and weight fields.
                0647 # ifdef ALLOW_DEBUG
5cf4364659 Mart*0648         IF (debugMode) CALL DEBUG_CALL('CTRL_INIT_FIXED',myThid)
159cd53a14 Jean*0649 # endif
5cf4364659 Mart*0650         CALL CTRL_INIT_FIXED( myThid )
159cd53a14 Jean*0651       ENDIF
                0652 
                0653 # ifdef ALLOW_ADMTLM
                0654       IF (useCTRL) THEN
                0655 C--   Initialise ADMTLM
                0656 #  ifdef ALLOW_DEBUG
                0657         IF (debugMode) CALL DEBUG_CALL('CTRL_ADMTLM',myThid)
                0658 #  endif
                0659         CALL CTRL_ADMTLM( myThid )
                0660       ENDIF
                0661 # endif /* ALLOW_ADMTLM */
                0662 #endif /* ALLOW_CTRL */
                0663 
48121039da Jean*0664 #ifdef ALLOW_DIAGNOSTICS
01a8e37345 Jean*0665 C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
bb98134c53 Jean*0666       IF ( useDiagnostics ) THEN
                0667 # ifdef ALLOW_DEBUG
                0668         IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_INIT_FIXED',myThid)
                0669 # endif
                0670         CALL DIAGNOSTICS_INIT_FIXED( myThid )
                0671       ENDIF
                0672 #endif
                0673 
                0674 #ifdef ALLOW_DEBUG
                0675       IF (debugMode) CALL DEBUG_LEAVE('PACKAGES_INIT_FIXED',myThid)
48121039da Jean*0676 #endif
                0677 
fb481a83c2 Alis*0678       RETURN
                0679       END
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!