110 |
C two-dimensional con. grad solver. |
C two-dimensional con. grad solver. |
111 |
C cg2dChkResFreq :: Frequency with which to check residual |
C cg2dChkResFreq :: Frequency with which to check residual |
112 |
C in con. grad solver. |
C in con. grad solver. |
113 |
|
C cg2dPreCondFreq :: Frequency for updating cg2d preconditioner |
114 |
|
C (non-linear free-surf.) |
115 |
C cg3dMaxIters :: Maximum number of iterations in the |
C cg3dMaxIters :: Maximum number of iterations in the |
116 |
C three-dimensional con. grad solver. |
C three-dimensional con. grad solver. |
117 |
C cg3dChkResFreq :: Frequency with which to check residual |
C cg3dChkResFreq :: Frequency with which to check residual |
136 |
|
|
137 |
COMMON /PARM_I/ |
COMMON /PARM_I/ |
138 |
& cg2dMaxIters, |
& cg2dMaxIters, |
139 |
& cg2dChkResFreq, |
& cg2dChkResFreq, cg2dPreCondFreq, |
140 |
& cg3dMaxIters, |
& cg3dMaxIters, |
141 |
& cg3dChkResFreq, |
& cg3dChkResFreq, |
142 |
& nIter0, nTimeSteps, nEndIter, |
& nIter0, nTimeSteps, nEndIter, |
150 |
& debugLevel |
& debugLevel |
151 |
INTEGER cg2dMaxIters |
INTEGER cg2dMaxIters |
152 |
INTEGER cg2dChkResFreq |
INTEGER cg2dChkResFreq |
153 |
|
INTEGER cg2dPreCondFreq |
154 |
INTEGER cg3dMaxIters |
INTEGER cg3dMaxIters |
155 |
INTEGER cg3dChkResFreq |
INTEGER cg3dChkResFreq |
156 |
INTEGER nIter0 |
INTEGER nIter0 |
359 |
LOGICAL writePickupWithTracer |
LOGICAL writePickupWithTracer |
360 |
|
|
361 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
362 |
C gg2dTargetResidual |
C cg2dTargetResidual |
363 |
C :: Target residual for cg2d solver; no unit (RHS normalisation) |
C :: Target residual for cg2d solver; no unit (RHS normalisation) |
364 |
C cg2dTargetResWunit |
C cg2dTargetResWunit |
365 |
C :: Target residual for cg2d solver; W unit (No RHS normalisation) |
C :: Target residual for cg2d solver; W unit (No RHS normalisation) |