1 |
|
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
5 |
|
|
6 |
#ifdef ALLOW_STREAMICE |
#ifdef ALLOW_STREAMICE |
7 |
|
|
8 |
C params to construct boundary conditions for ice flow |
C params to construct boundary conditions for ice flow |
9 |
C on each boundary of rect domain, ranges for different boundary |
C on each boundary of rect domain, ranges for different boundary |
10 |
C conditions are specified; it is up to the user to ensure that |
C conditions are specified; it is up to the user to ensure that |
11 |
C the ranges do not overlap |
C the ranges do not overlap |
12 |
C along with a flux boundary range, a flux value is given |
C along with a flux boundary range, a flux value is given |
13 |
C if a dirichlet boundary is specified, velocities must be given |
C if a dirichlet boundary is specified, velocities must be given |
15 |
C also must be aware of units (m for cartesian, deg for curvilinear, m/deg for CYLINDRICAL POLAR) |
C also must be aware of units (m for cartesian, deg for curvilinear, m/deg for CYLINDRICAL POLAR) |
16 |
|
|
17 |
C real params |
C real params |
18 |
COMMON /STREAMICE_BDRY_PARMS/ |
COMMON /STREAMICE_BDRY_PARMS/ |
19 |
& min_x_noflow_NORTH, max_x_noflow_NORTH, |
& min_x_noflow_NORTH, max_x_noflow_NORTH, |
20 |
& min_x_noflow_SOUTH, max_x_noflow_SOUTH, |
& min_x_noflow_SOUTH, max_x_noflow_SOUTH, |
21 |
& min_y_noflow_WEST, max_y_noflow_WEST, |
& min_y_noflow_WEST, max_y_noflow_WEST, |