35 |
|
|
36 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
37 |
C === Local variables === |
C === Local variables === |
38 |
C msgBuf :: Informational/error meesage buffer |
C msgBuf :: Informational/error message buffer |
39 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
40 |
CEOP |
CEOP |
41 |
|
|
286 |
IF ( useLayers ) CALL PACKAGES_ERROR_MSG('LAYERS',' ',myThid) |
IF ( useLayers ) CALL PACKAGES_ERROR_MSG('LAYERS',' ',myThid) |
287 |
#endif /* ALLOW_LAYERS */ |
#endif /* ALLOW_LAYERS */ |
288 |
|
|
289 |
|
#ifdef ALLOW_NEST_CHILD |
290 |
|
IF (useNEST_CHILD) CALL NEST_CHILD_CHECK( myThid ) |
291 |
|
#else |
292 |
|
IF (useNEST_CHILD) CALL PACKAGES_ERROR_MSG( |
293 |
|
& 'NEST_CHILD',' ',myThid) |
294 |
|
#endif |
295 |
|
|
296 |
|
#ifdef ALLOW_NEST_PARENT |
297 |
|
IF (useNEST_PARENT) CALL NEST_PARENT_CHECK( myThid ) |
298 |
|
#else |
299 |
|
IF (useNEST_PARENT) CALL PACKAGES_ERROR_MSG( |
300 |
|
& 'NEST_PARENT',' ',myThid) |
301 |
|
#endif |
302 |
|
|
303 |
#ifdef ALLOW_MYPACKAGE |
#ifdef ALLOW_MYPACKAGE |
304 |
IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid ) |
IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid ) |
305 |
#else |
#else |