24 |
C | |
C | |
25 |
C |-- GAD_INIT |
C |-- GAD_INIT |
26 |
C | |
C | |
27 |
|
C |-- CD_CODE_INIT_FIXED |
28 |
|
C | |
29 |
|
C |-- GMREDI_INIT_FIXED |
30 |
|
C | |
31 |
|
C |-- OPPS_INIT |
32 |
|
C | |
33 |
C |-- OBCS_INIT_FIXED |
C |-- OBCS_INIT_FIXED |
34 |
C | |
C | |
35 |
C |-- FLT_INIT |
C |-- FLT_INIT |
56 |
C | |
C | |
57 |
C |-- GCHEM_INIT_FIXED |
C |-- GCHEM_INIT_FIXED |
58 |
C | |
C | |
59 |
C |-- CD_CODE_INIT_FIXED |
C |-- THSICE_INIT_FIXED |
|
C | |
|
|
C |-- OPPS_INIT |
|
60 |
C | |
C | |
61 |
C |-- CPL_INIT_FIXED |
C |-- CPL_INIT_FIXED |
62 |
C | |
C | |
87 |
CALL GAD_INIT( myThid ) |
CALL GAD_INIT( myThid ) |
88 |
#endif |
#endif |
89 |
|
|
90 |
|
#ifdef ALLOW_CD_CODE |
91 |
|
IF (useCDscheme) THEN |
92 |
|
CALL CD_CODE_INIT_FIXED(mythid) |
93 |
|
ENDIF |
94 |
|
#endif |
95 |
|
|
96 |
|
#ifdef ALLOW_GMREDI |
97 |
|
C-- Initialize fixed arrays for GM-Redi |
98 |
|
IF ( useGMRedi ) THEN |
99 |
|
CALL GMREDI_INIT_FIXED( myThid ) |
100 |
|
ENDIF |
101 |
|
#endif |
102 |
|
|
103 |
|
#ifdef ALLOW_OPPS |
104 |
|
IF (useOPPS) CALL OPPS_INIT( myThid ) |
105 |
|
#endif /* ALLOW_OPPS */ |
106 |
|
|
107 |
C-- Initialize fixed arrays for OBCS |
C-- Initialize fixed arrays for OBCS |
108 |
#ifdef ALLOW_OBCS |
#ifdef ALLOW_OBCS |
109 |
IF (useOBCS) THEN |
IF (useOBCS) THEN |
184 |
IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid) |
IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid) |
185 |
#endif |
#endif |
186 |
|
|
|
#ifdef ALLOW_PTRACERS |
|
187 |
#ifdef ALLOW_GCHEM |
#ifdef ALLOW_GCHEM |
188 |
IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid) |
IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid) |
189 |
#endif |
#endif |
|
#endif |
|
190 |
|
|
191 |
#ifdef ALLOW_CD_CODE |
#ifdef ALLOW_THSICE |
192 |
IF (useCDscheme) THEN |
IF (useThSIce) CALL THSICE_INIT_FIXED(mythid) |
|
CALL CD_CODE_INIT_FIXED(mythid) |
|
|
ENDIF |
|
193 |
#endif |
#endif |
194 |
|
|
|
#ifdef ALLOW_OPPS |
|
|
IF (useOPPS) CALL OPPS_INIT( myThid ) |
|
|
#endif /* ALLOW_OPPS */ |
|
|
|
|
195 |
#ifdef COMPONENT_MODULE |
#ifdef COMPONENT_MODULE |
196 |
IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid ) |
IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid ) |
197 |
#endif |
#endif |