1 |
C $Header$ |
$Header$ |
2 |
|
|
3 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
4 |
|
|
23 |
C msgBuf - Informational/error meesage buffer |
C msgBuf - Informational/error meesage buffer |
24 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
25 |
|
|
26 |
|
#ifdef ALLOW_KPP |
27 |
#ifndef ALLOW_KPP |
IF (useKPP) CALL KPP_CHECK( myThid ) |
|
IF (useKPP) THEN |
|
|
WRITE(msgBuf,'(A)') '#define ALLOW_KPP to use useKPP' |
|
|
CALL PRINT_ERROR( msgBuf , 1) |
|
|
STOP 'ABNORMAL END: S/R PACKAGE_CHECK' |
|
|
ENDIF |
|
28 |
#else |
#else |
29 |
WRITE(msgBuf,'(A)') 'PACKAGE_CHECK: #define ALLOW_KPP' |
IF (useKPP) CALL PACKAGES_CHECK_ERROR('KPP') |
|
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
|
& SQUEEZE_RIGHT , 1) |
|
|
C KPP needs convection turned off (will be packaged later) |
|
|
IF (useKPP) THEN |
|
|
IF (cAdjFreq.NE.0. .OR. |
|
|
& ivdc_kappa.NE.0.) THEN |
|
|
WRITE(msgBuf,'(A)') 'Some form of convection has been enabled' |
|
|
CALL PRINT_ERROR( msgBuf , 1) |
|
|
STOP 'ABNORMAL END: S/R PACKAGE_CHECK' |
|
|
ENDIF |
|
|
IF (.NOT.implicitDiffusion ) THEN |
|
|
WRITE(msgBuf,'(A)') 'KPP needs implicitDiffusion to be enabled' |
|
|
CALL PRINT_ERROR( msgBuf , 1) |
|
|
STOP 'ABNORMAL END: S/R PACKAGE_CHECK' |
|
|
ENDIF |
|
|
IF (.NOT.implicitViscosity) THEN |
|
|
WRITE(msgBuf,'(A)') 'KPP needs implicitViscosity to be enabled' |
|
|
CALL PRINT_ERROR( msgBuf , 1) |
|
|
STOP 'ABNORMAL END: S/R PACKAGE_CHECK' |
|
|
ENDIF |
|
|
ENDIF |
|
30 |
#endif |
#endif |
31 |
|
|
32 |
#ifndef ALLOW_GMREDI |
#ifdef ALLOW_GMREDI |
|
IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI') |
|
|
#else |
|
33 |
IF (useGMRedi) CALL GMREDI_CHECK( myThid ) |
IF (useGMRedi) CALL GMREDI_CHECK( myThid ) |
34 |
|
#else |
35 |
|
IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI') |
36 |
#endif |
#endif |
37 |
|
|
38 |
return |
return |