28 |
INTEGER myThid |
INTEGER myThid |
29 |
|
|
30 |
#ifdef ALLOW_DOWN_SLOPE |
#ifdef ALLOW_DOWN_SLOPE |
|
|
|
|
NAMELIST /DWNSLP_PARM01/ |
|
|
& DWNSLP_slope, DWNSLP_rec_mu, DWNSLP_drFlow, |
|
|
& temp_useDWNSLP, salt_useDWNSLP |
|
|
|
|
31 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
32 |
C === Local variables === |
C === Local variables === |
33 |
C msgBuf - Informational/error message buffer |
C msgBuf :: Informational/error message buffer |
34 |
C iUnit - Work variable for IO unit number |
C iUnit :: Work variable for IO unit number |
35 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
36 |
INTEGER iUnit |
INTEGER iUnit |
37 |
CEOP |
CEOP |
38 |
|
|
39 |
|
NAMELIST /DWNSLP_PARM01/ |
40 |
|
& DWNSLP_slope, DWNSLP_rec_mu, DWNSLP_drFlow, |
41 |
|
& temp_useDWNSLP, salt_useDWNSLP |
42 |
|
|
43 |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
44 |
|
|
45 |
|
IF ( .NOT.useDOWN_SLOPE ) THEN |
46 |
|
C- pkg DOWN_SLOPE is not used |
47 |
|
_BEGIN_MASTER(myThid) |
48 |
|
C- Track pkg activation status: |
49 |
|
C print a (weak) warning if data.down_slope is found |
50 |
|
CALL PACKAGES_UNUSED_MSG( |
51 |
|
I 'useDOWN_SLOPE', 'DWNSLP_READPARMS', ' ' ) |
52 |
|
_END_MASTER(myThid) |
53 |
|
RETURN |
54 |
|
ENDIF |
55 |
|
|
56 |
_BEGIN_MASTER(myThid) |
_BEGIN_MASTER(myThid) |
57 |
|
|
58 |
WRITE(msgBuf,'(A)')' DWNSLP_READPARMS: opening data.down_slope' |
WRITE(msgBuf,'(A)')' DWNSLP_READPARMS: opening data.down_slope' |