1 |
jmc |
1.1 |
C $Header: $ |
2 |
|
|
C $Name: $ |
3 |
|
|
|
4 |
|
|
c#ifdef ALLOW_DOWN_SLOPE |
5 |
|
|
|
6 |
|
|
C- dimension parameters : |
7 |
|
|
C xSize :: X-dimension for 1 tile array (overlap included) |
8 |
|
|
C xySize :: product of X-dim x Y-dim for 1 tile array |
9 |
|
|
INTEGER xSize, xySize |
10 |
|
|
PARAMETER ( xSize = Olx+sNx+Olx ) |
11 |
|
|
PARAMETER ( xySize = xSize*(Oly+sNy+Oly) ) |
12 |
|
|
|
13 |
|
|
C DWNSLP_size :: size of downsloping-flow arrays ; for each tile, |
14 |
|
|
C must be > number of bathymetric steps |
15 |
|
|
C The default value (=tile domain size) can increased (if needed) |
16 |
|
|
C or reduced (to save memory space). |
17 |
|
|
INTEGER DWNSLP_size |
18 |
|
|
PARAMETER ( DWNSLP_size = xSize * (Oly+sNy+Oly) ) |
19 |
|
|
|
20 |
|
|
c#endif /* ALLOW_DOWN_SLOPE */ |