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 |
298 |
IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid) |
IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid) |
299 |
#endif |
#endif |
300 |
|
|
301 |
|
#ifdef ALLOW_ECCO |
302 |
|
CALL ECCO_CHECK( myThid ) |
303 |
|
#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 |
307 |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |