273 |
IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid) |
IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid) |
274 |
#endif |
#endif |
275 |
|
|
276 |
|
#ifdef ALLOW_SALT_PLUME |
277 |
|
IF (useSALT_PLUME)CALL SALT_PLUME_CHECK( myThid ) |
278 |
|
#else |
279 |
|
IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid) |
280 |
|
#endif |
281 |
|
|
282 |
C--- Exclusive packages (which cannot be used together): |
C--- Exclusive packages (which cannot be used together): |
283 |
IF ( useEXF .AND. useBulkForce ) THEN |
IF ( useEXF .AND. useBulkForce ) THEN |
284 |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |