1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_DOWN_SLOPE |
5 |
|
6 |
C- Package flag and logical parameters : |
7 |
C temp_useDWNSLP :: true if Down-Sloping flow applies to temperature |
8 |
C salt_useDWNSLP :: true if Down-Sloping flow applies to salinity |
9 |
COMMON /DWNSLP_PARM_L/ |
10 |
& temp_useDWNSLP, salt_useDWNSLP |
11 |
LOGICAL temp_useDWNSLP, salt_useDWNSLP |
12 |
|
13 |
C- Integer parameters : |
14 |
C DWNSLP_ioUnit :: ioUnit for log/debug messages |
15 |
COMMON /DWNSLP_PARM_I/ |
16 |
& DWNSLP_ioUnit |
17 |
INTEGER DWNSLP_ioUnit |
18 |
|
19 |
C- Down-Sloping Parameterization : real parameters : |
20 |
C DWNSLP_slope :: fixed slope (=0 => use the local slope) |
21 |
C DWNSLP_rec_mu :: reciprol friction parameter (unit = time scale [s]) |
22 |
C used to compute the flow: U=dy*dz*(slope * g/mu * dRho / rho0) |
23 |
C dwnslp_drFlow :: max. thickness [m] of the effective downsloping flow layer |
24 |
COMMON /DWNSLP_PARAMS_R/ |
25 |
& DWNSLP_slope, DWNSLP_rec_mu, DWNSLP_drFlow |
26 |
_RL DWNSLP_slope, DWNSLP_rec_mu, DWNSLP_drFlow |
27 |
|
28 |
#endif /* ALLOW_DOWN_SLOPE */ |