152 |
C three-dimensional con. grad solver. |
C three-dimensional con. grad solver. |
153 |
C cg3dChkResFreq :: Frequency with which to check residual |
C cg3dChkResFreq :: Frequency with which to check residual |
154 |
C in con. grad solver. |
C in con. grad solver. |
155 |
|
C printResidualFreq :: Frequency for printing residual in CG iterations |
156 |
C nIter0 :: Start time-step number of for this run |
C nIter0 :: Start time-step number of for this run |
157 |
C nTimeSteps :: Number of timesteps to execute |
C nTimeSteps :: Number of timesteps to execute |
158 |
C writeStatePrec :: Precision used for writing model state. |
C writeStatePrec :: Precision used for writing model state. |
189 |
C and statistics ; higher -> more writing |
C and statistics ; higher -> more writing |
190 |
|
|
191 |
COMMON /PARM_I/ |
COMMON /PARM_I/ |
192 |
& cg2dMaxIters, |
& cg2dMaxIters, cg2dChkResFreq, cg2dPreCondFreq, |
193 |
& cg2dChkResFreq, cg2dPreCondFreq, |
& cg3dMaxIters, cg3dChkResFreq, |
194 |
& cg3dMaxIters, |
& printResidualFreq, |
|
& cg3dChkResFreq, |
|
195 |
& nIter0, nTimeSteps, nEndIter, |
& nIter0, nTimeSteps, nEndIter, |
196 |
& writeStatePrec, |
& writeStatePrec, |
197 |
& writeBinaryPrec, readBinaryPrec, |
& writeBinaryPrec, readBinaryPrec, |
210 |
INTEGER cg2dPreCondFreq |
INTEGER cg2dPreCondFreq |
211 |
INTEGER cg3dMaxIters |
INTEGER cg3dMaxIters |
212 |
INTEGER cg3dChkResFreq |
INTEGER cg3dChkResFreq |
213 |
|
INTEGER printResidualFreq |
214 |
INTEGER nIter0 |
INTEGER nIter0 |
215 |
INTEGER nTimeSteps |
INTEGER nTimeSteps |
216 |
INTEGER nEndIter |
INTEGER nEndIter |