72 |
C | |
C | |
73 |
C |-- THSICE_INIT_FIXED |
C |-- THSICE_INIT_FIXED |
74 |
C | |
C | |
75 |
|
C |-- SHELFICE_INIT_FIXED |
76 |
|
C | |
77 |
C |-- CPL_INIT_FIXED |
C |-- CPL_INIT_FIXED |
78 |
C | |
C | |
79 |
C |-- DIAGNOSTICS_INIT_FIXED |
C |-- DIAGNOSTICS_INIT_FIXED |
253 |
IF (useThSIce) CALL THSICE_INIT_FIXED(mythid) |
IF (useThSIce) CALL THSICE_INIT_FIXED(mythid) |
254 |
#endif |
#endif |
255 |
|
|
256 |
|
#ifdef ALLOW_SHELFICE |
257 |
|
IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid ) |
258 |
|
#endif /* ALLOW_SHELFICE */ |
259 |
|
|
260 |
#ifdef COMPONENT_MODULE |
#ifdef COMPONENT_MODULE |
261 |
IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid ) |
IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid ) |
262 |
#endif |
#endif |