141 |
IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid) |
IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid) |
142 |
#endif |
#endif |
143 |
|
|
144 |
|
#ifdef ALLOW_SHELFICE |
145 |
|
IF (useShelfIce) CALL SHELFICE_CHECK( myThid ) |
146 |
|
#else |
147 |
|
IF (useShelfIce) CALL PACKAGES_CHECK_ERROR('SHELFICE', myThid) |
148 |
|
#endif |
149 |
|
|
150 |
#ifndef ALLOW_CD_CODE |
#ifndef ALLOW_CD_CODE |
151 |
IF (useCDscheme) CALL PACKAGES_CHECK_ERROR('CD_CODE', myThid) |
IF (useCDscheme) CALL PACKAGES_CHECK_ERROR('CD_CODE', myThid) |
152 |
#endif |
#endif |