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 |
358 |
C monitor_stdio :: use stdio for monitor output |
C monitor_stdio :: use stdio for monitor output |
359 |
C dumpInitAndLast :: dumps model state to files at Initial (nIter0) |
C dumpInitAndLast :: dumps model state to files at Initial (nIter0) |
360 |
C & Last iteration, in addition multiple of dumpFreq iter. |
C & Last iteration, in addition multiple of dumpFreq iter. |
|
C debugMode :: controls printing of debug msg (sequence of S/R calls). |
|
361 |
C printDomain :: controls printing of domain fields (bathy, hFac ...). |
C printDomain :: controls printing of domain fields (bathy, hFac ...). |
362 |
|
|
363 |
COMMON /PARM_L/ |
COMMON /PARM_L/ |
398 |
& writePickupAtEnd, |
& writePickupAtEnd, |
399 |
& timeave_mdsio, snapshot_mdsio, monitor_stdio, |
& timeave_mdsio, snapshot_mdsio, monitor_stdio, |
400 |
& outputTypesInclusive, dumpInitAndLast, |
& outputTypesInclusive, dumpInitAndLast, |
401 |
& debugMode, printDomain, |
& printDomain, |
402 |
& inAdMode, inAdTrue, inAdFalse, inAdExact |
& inAdMode, inAdTrue, inAdFalse, inAdExact |
403 |
|
|
404 |
LOGICAL fluidIsAir |
LOGICAL fluidIsAir |
487 |
LOGICAL timeave_mdsio, snapshot_mdsio, monitor_stdio |
LOGICAL timeave_mdsio, snapshot_mdsio, monitor_stdio |
488 |
LOGICAL outputTypesInclusive |
LOGICAL outputTypesInclusive |
489 |
LOGICAL dumpInitAndLast |
LOGICAL dumpInitAndLast |
490 |
LOGICAL debugMode, printDomain |
LOGICAL printDomain |
491 |
LOGICAL inAdMode, inAdTrue, inAdFalse, inAdExact |
LOGICAL inAdMode, inAdTrue, inAdFalse, inAdExact |
492 |
|
|
493 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
928 |
LOGICAL useKPP |
LOGICAL useKPP |
929 |
LOGICAL useGMRedi |
LOGICAL useGMRedi |
930 |
LOGICAL useDOWN_SLOPE |
LOGICAL useDOWN_SLOPE |
931 |
|
LOGICAL useBBL |
932 |
LOGICAL useCAL |
LOGICAL useCAL |
933 |
LOGICAL useEXF |
LOGICAL useEXF |
934 |
LOGICAL useBulkForce |
LOGICAL useBulkForce |
964 |
COMMON /PARM_PACKAGES/ |
COMMON /PARM_PACKAGES/ |
965 |
& useGAD, useOBCS, useSHAP_FILT, useZONAL_FILT, |
& useGAD, useOBCS, useSHAP_FILT, useZONAL_FILT, |
966 |
& useOPPS, usePP81, useMY82, useGGL90, useKPP, |
& useOPPS, usePP81, useMY82, useGGL90, useKPP, |
967 |
& useGMRedi, useDOWN_SLOPE, |
& useGMRedi, useBBL, useDOWN_SLOPE, |
968 |
& useCAL, useEXF, useBulkForce, useEBM, useCheapAML, |
& useCAL, useEXF, useBulkForce, useEBM, useCheapAML, |
969 |
& useGrdchk, useSMOOTH, useECCO, useSBO, useFLT, |
& useGrdchk, useSMOOTH, useECCO, useSBO, useFLT, |
970 |
& usePTRACERS, useGCHEM, useRBCS, useOffLine, useMATRIX, |
& usePTRACERS, useGCHEM, useRBCS, useOffLine, useMATRIX, |
983 |
& useKPPinAdMode, useKPPinFwdMode, |
& useKPPinAdMode, useKPPinFwdMode, |
984 |
& useGMrediInAdMode, useGMrediInFwdMode, |
& useGMrediInAdMode, useGMrediInFwdMode, |
985 |
& useSEAICEinAdMode, useSEAICEinFwdMode |
& useSEAICEinAdMode, useSEAICEinFwdMode |
986 |
|
|
987 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
988 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |
989 |
CEH3 ;;; End: *** |
CEH3 ;;; End: *** |