| 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, |