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 */ |