78 |
C | |
C | |
79 |
C |-- ATM2D_INIT_FIXED |
C |-- ATM2D_INIT_FIXED |
80 |
C | |
C | |
|
C |-- DIAGNOSTICS_INIT_FIXED |
|
|
C | |
|
81 |
C |-- REGRID_INIT_FIXED |
C |-- REGRID_INIT_FIXED |
82 |
|
C | |
83 |
|
C |-- SALT_PLUME_INIT_FIXED |
84 |
|
C | |
85 |
|
C |-- DIAGNOSTICS_INIT_FIXED |
86 |
|
|
87 |
C !USES: |
C !USES: |
88 |
IMPLICIT NONE |
IMPLICIT NONE |
113 |
|
|
114 |
#ifdef ALLOW_GENERIC_ADVDIFF |
#ifdef ALLOW_GENERIC_ADVDIFF |
115 |
C-- Initialize fixed params for GAD |
C-- Initialize fixed params for GAD |
116 |
CALL GAD_INIT( myThid ) |
CALL GAD_INIT_FIXED( myThid ) |
117 |
#endif |
#endif |
118 |
|
|
119 |
#ifdef ALLOW_MOM_COMMON |
#ifdef ALLOW_MOM_COMMON |
131 |
|
|
132 |
#ifdef ALLOW_EXF |
#ifdef ALLOW_EXF |
133 |
C-- Initialize fixed arrays for EXF |
C-- Initialize fixed arrays for EXF |
134 |
c IF ( useEXF ) THEN |
IF ( useEXF ) THEN |
135 |
CALL EXF_INIT_FIXED( myThid ) |
CALL EXF_INIT_FIXED( myThid ) |
136 |
c ENDIF |
ENDIF |
137 |
#endif |
#endif |
138 |
|
|
139 |
#ifdef ALLOW_GMREDI |
#ifdef ALLOW_GMREDI |
222 |
C-- Initialise ecco-specific cost function. |
C-- Initialise ecco-specific cost function. |
223 |
C-- This needs to preceed the call ctrl_init |
C-- This needs to preceed the call ctrl_init |
224 |
C-- in order to provide the weight files |
C-- in order to provide the weight files |
225 |
CALL SEAICE_COST_INIT_FIXED( myThid ) |
IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid ) |
226 |
#endif |
#endif |
227 |
|
|
228 |
#if (defined (ALLOW_ECCO) && defined (ALLOW_COST)) |
#if (defined (ALLOW_ECCO) && defined (ALLOW_COST)) |
242 |
_BARRIER |
_BARRIER |
243 |
#endif |
#endif |
244 |
|
|
245 |
|
#ifdef ALLOW_ADMTLM |
246 |
|
C-- Initialise ADMTLM |
247 |
|
CALL CTRL_ADMTLM( myThid ) |
248 |
|
_BARRIER |
249 |
|
#endif |
250 |
|
|
251 |
#ifdef ALLOW_PTRACERS |
#ifdef ALLOW_PTRACERS |
252 |
IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid) |
IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid) |
253 |
#endif |
#endif |
269 |
IF (useThSIce) CALL THSICE_INIT_FIXED(mythid) |
IF (useThSIce) CALL THSICE_INIT_FIXED(mythid) |
270 |
#endif |
#endif |
271 |
|
|
272 |
|
#ifdef ALLOW_SEAICE |
273 |
|
IF (useSEAICE) CALL SEAICE_INIT_FIXED(mythid) |
274 |
|
#endif |
275 |
|
|
276 |
#ifdef ALLOW_SHELFICE |
#ifdef ALLOW_SHELFICE |
277 |
IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid ) |
IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid ) |
278 |
#endif /* ALLOW_SHELFICE */ |
#endif /* ALLOW_SHELFICE */ |
297 |
IF ( useAtm2d ) CALL ATM2D_INIT_FIXED( myThid ) |
IF ( useAtm2d ) CALL ATM2D_INIT_FIXED( myThid ) |
298 |
#endif |
#endif |
299 |
|
|
300 |
|
#ifdef ALLOW_SALT_PLUME |
301 |
|
IF (useSaltPlume) CALL SALT_PLUME_INIT_FIXED(mythid) |
302 |
|
#endif |
303 |
|
|
304 |
#ifdef ALLOW_DIAGNOSTICS |
#ifdef ALLOW_DIAGNOSTICS |
305 |
C- needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls |
C- needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls |
306 |
IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid ) |
IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid ) |