126 |
& writeStatePrec, nCheckLev, |
& writeStatePrec, nCheckLev, |
127 |
& writeBinaryPrec, readBinaryPrec, |
& writeBinaryPrec, readBinaryPrec, |
128 |
& nonlinFreeSurf, |
& nonlinFreeSurf, |
129 |
& tempAdvScheme, saltAdvScheme, tracerAdvScheme |
& tempAdvScheme, saltAdvScheme, tracerAdvScheme, |
130 |
|
& debugLevel |
131 |
INTEGER cg2dMaxIters |
INTEGER cg2dMaxIters |
132 |
INTEGER cg2dChkResFreq |
INTEGER cg2dChkResFreq |
133 |
INTEGER cg3dMaxIters |
INTEGER cg3dMaxIters |
144 |
INTEGER tempAdvScheme |
INTEGER tempAdvScheme |
145 |
INTEGER saltAdvScheme |
INTEGER saltAdvScheme |
146 |
INTEGER tracerAdvScheme |
INTEGER tracerAdvScheme |
147 |
|
INTEGER debugLevel |
148 |
|
|
149 |
|
C |
150 |
|
INTEGER debLevZero |
151 |
|
PARAMETER(debLevZero=0) |
152 |
|
INTEGER debLevA |
153 |
|
PARAMETER(debLevA=1) |
154 |
|
INTEGER debLevB |
155 |
|
PARAMETER(debLevB=2) |
156 |
|
|
157 |
C-- COMMON /PARM_L/ Logical valued parameters used by the model. |
C-- COMMON /PARM_L/ Logical valued parameters used by the model. |
158 |
C usingCartesianGrid :: If TRUE grid generation will be in a cartesian |
C usingCartesianGrid :: If TRUE grid generation will be in a cartesian |