1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_DOWN_SLOPE |
5 |
|
6 |
C store the location of potential site where Down-Sloping Flow is applied |
7 |
C DWNSLP_NbSite :: Number of bathymetry steps within each tile |
8 |
C DWNSLP_ijDeep :: horiz. index of deep water-column next to DWNSLP site |
9 |
C DWNSLP_shVsD :: horiz. index of shallow water-column relative to ijDeep |
10 |
C DWNSLP_deepK :: level index (in deep water column) where dense water |
11 |
C (from the bottom of shallow column) is flowing into. |
12 |
INTEGER DWNSLP_NbSite( nSx, nSy ) |
13 |
INTEGER DWNSLP_ijDeep( DWNSLP_size, nSx, nSy ) |
14 |
INTEGER DWNSLP_shVsD ( DWNSLP_size, nSx, nSy ) |
15 |
INTEGER DWNSLP_deepK ( DWNSLP_size, nSx, nSy ) |
16 |
COMMON /DWNSLP_SITE/ |
17 |
& DWNSLP_NbSite, DWNSLP_ijDeep, DWNSLP_shVsD, DWNSLP_deepK |
18 |
|
19 |
C store variables used to compute the Down-Sloping transport of each tracer. |
20 |
C DWNSLP_Gamma :: geometric factor = slope * cross section area [m^2] |
21 |
C DWNSLP_Transp :: down-sloping flow: volume transport [m^3/s] |
22 |
C if using P-Coord., Gamma & Transp units become [m.Pa] & [m^2.Pa/s] |
23 |
_RL DWNSLP_Gamma ( DWNSLP_size, nSx, nSy ) |
24 |
_RL DWNSLP_Transp( DWNSLP_size, nSx, nSy ) |
25 |
COMMON /DWNSLP_FLOW/ DWNSLP_Gamma, DWNSLP_Transp |
26 |
|
27 |
#endif /* ALLOW_DOWN_SLOPE */ |