280 |
IF (useREGRID) CALL PACKAGES_ERROR_MSG('REGRID',' ',myThid) |
IF (useREGRID) CALL PACKAGES_ERROR_MSG('REGRID',' ',myThid) |
281 |
#endif |
#endif |
282 |
|
|
283 |
|
#ifdef ALLOW_LAYERS |
284 |
|
IF ( useLayers ) CALL LAYERS_CHECK( myThid ) |
285 |
|
#else |
286 |
|
IF ( useLayers ) CALL PACKAGES_ERROR_MSG('LAYERS',' ',myThid) |
287 |
|
#endif /* ALLOW_LAYERS */ |
288 |
|
|
289 |
#ifdef ALLOW_MYPACKAGE |
#ifdef ALLOW_MYPACKAGE |
290 |
IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid ) |
IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid ) |
291 |
#else |
#else |
300 |
|
|
301 |
#ifdef ALLOW_ECCO |
#ifdef ALLOW_ECCO |
302 |
CALL ECCO_CHECK( myThid ) |
CALL ECCO_CHECK( myThid ) |
303 |
#endif |
#endif |
304 |
|
|
305 |
C--- Exclusive packages (which cannot be used together): |
C--- Exclusive packages (which cannot be used together): |
306 |
IF ( useEXF .AND. useBulkForce ) THEN |
IF ( useEXF .AND. useBulkForce ) THEN |