159 |
C printResidualFreq :: Frequency for printing residual in CG iterations |
C printResidualFreq :: Frequency for printing residual in CG iterations |
160 |
C nIter0 :: Start time-step number of for this run |
C nIter0 :: Start time-step number of for this run |
161 |
C nTimeSteps :: Number of timesteps to execute |
C nTimeSteps :: Number of timesteps to execute |
162 |
|
C nTimeSteps_l2 :: Number of inner timesteps to execute per timestep |
163 |
C writeStatePrec :: Precision used for writing model state. |
C writeStatePrec :: Precision used for writing model state. |
164 |
C writeBinaryPrec :: Precision used for writing binary files |
C writeBinaryPrec :: Precision used for writing binary files |
165 |
C readBinaryPrec :: Precision used for reading binary files |
C readBinaryPrec :: Precision used for reading binary files |
188 |
C saltVertAdvScheme :: Salt. Vert. Advection scheme selector |
C saltVertAdvScheme :: Salt. Vert. Advection scheme selector |
189 |
C selectKEscheme :: Kinetic Energy scheme selector (Vector Inv.) |
C selectKEscheme :: Kinetic Energy scheme selector (Vector Inv.) |
190 |
C selectVortScheme :: Scheme selector for Vorticity term (Vector Inv.) |
C selectVortScheme :: Scheme selector for Vorticity term (Vector Inv.) |
191 |
|
C selectBotDragQuadr :: quadratic bottom drag discretisation option: |
192 |
|
C =0: average KE from grid center to U & V location |
193 |
|
C =1: use local velocity norm @ U & V location |
194 |
|
C =2: same with wet-point averaging of other component |
195 |
C monitorSelect :: select group of variables to monitor |
C monitorSelect :: select group of variables to monitor |
196 |
C =1 : dynvars ; =2 : + vort ; =3 : + surface |
C =1 : dynvars ; =2 : + vort ; =3 : + surface |
197 |
C- debugLevel :: controls printing of algorithm intermediate results |
C- debugLevel :: controls printing of algorithm intermediate results |
202 |
& cg2dPreCondFreq, cg2dUseMinResSol, |
& cg2dPreCondFreq, cg2dUseMinResSol, |
203 |
& cg3dMaxIters, cg3dChkResFreq, |
& cg3dMaxIters, cg3dChkResFreq, |
204 |
& printResidualFreq, |
& printResidualFreq, |
205 |
& nIter0, nTimeSteps, nEndIter, |
& nIter0, nTimeSteps, nTimeSteps_l2, nEndIter, |
206 |
& writeStatePrec, |
& writeStatePrec, |
207 |
& writeBinaryPrec, readBinaryPrec, |
& writeBinaryPrec, readBinaryPrec, |
208 |
& selectCoriMap, |
& selectCoriMap, |
214 |
& tempAdvScheme, tempVertAdvScheme, |
& tempAdvScheme, tempVertAdvScheme, |
215 |
& saltAdvScheme, saltVertAdvScheme, |
& saltAdvScheme, saltVertAdvScheme, |
216 |
& selectKEscheme, selectVortScheme, |
& selectKEscheme, selectVortScheme, |
217 |
|
& selectBotDragQuadr, |
218 |
& monitorSelect, debugLevel |
& monitorSelect, debugLevel |
219 |
INTEGER cg2dMaxIters |
INTEGER cg2dMaxIters |
220 |
INTEGER cg2dChkResFreq |
INTEGER cg2dChkResFreq |
225 |
INTEGER printResidualFreq |
INTEGER printResidualFreq |
226 |
INTEGER nIter0 |
INTEGER nIter0 |
227 |
INTEGER nTimeSteps |
INTEGER nTimeSteps |
228 |
|
INTEGER nTimeSteps_l2 |
229 |
INTEGER nEndIter |
INTEGER nEndIter |
230 |
INTEGER writeStatePrec |
INTEGER writeStatePrec |
231 |
INTEGER writeBinaryPrec |
INTEGER writeBinaryPrec |
241 |
INTEGER saltAdvScheme, saltVertAdvScheme |
INTEGER saltAdvScheme, saltVertAdvScheme |
242 |
INTEGER selectKEscheme |
INTEGER selectKEscheme |
243 |
INTEGER selectVortScheme |
INTEGER selectVortScheme |
244 |
|
INTEGER selectBotDragQuadr |
245 |
INTEGER monitorSelect |
INTEGER monitorSelect |
246 |
INTEGER debugLevel |
INTEGER debugLevel |
247 |
|
|
272 |
C- Momentum params: |
C- Momentum params: |
273 |
C no_slip_sides :: Impose "no-slip" at lateral boundaries. |
C no_slip_sides :: Impose "no-slip" at lateral boundaries. |
274 |
C no_slip_bottom :: Impose "no-slip" at bottom boundary. |
C no_slip_bottom :: Impose "no-slip" at bottom boundary. |
275 |
|
C bottomVisc_pCell :: account for partial-cell in bottom visc. (no-slip BC) |
276 |
C useSmag3D :: Use isotropic 3-D Smagorinsky |
C useSmag3D :: Use isotropic 3-D Smagorinsky |
277 |
C useFullLeith :: Set to true to use full Leith viscosity(may be unstable |
C useFullLeith :: Set to true to use full Leith viscosity(may be unstable |
278 |
C on irregular grids) |
C on irregular grids) |
340 |
C doResetHFactors :: Do reset thickness factors @ beginning of each time-step |
C doResetHFactors :: Do reset thickness factors @ beginning of each time-step |
341 |
C implicitDiffusion :: Turns implicit vertical diffusion on |
C implicitDiffusion :: Turns implicit vertical diffusion on |
342 |
C implicitViscosity :: Turns implicit vertical viscosity on |
C implicitViscosity :: Turns implicit vertical viscosity on |
343 |
C tempImplVertAdv :: Turns on implicit vertical advection for Temperature |
C implBottomFriction :: Turns on implicit bottom friction (drag & no-slip BC) |
344 |
C saltImplVertAdv :: Turns on implicit vertical advection for Salinity |
C tempImplVertAdv :: Turns on implicit vertical advection for Temperature |
345 |
C momImplVertAdv :: Turns on implicit vertical advection for Momentum |
C saltImplVertAdv :: Turns on implicit vertical advection for Salinity |
346 |
|
C momImplVertAdv :: Turns on implicit vertical advection for Momentum |
347 |
C multiDimAdvection :: Flag that enable multi-dimension advection |
C multiDimAdvection :: Flag that enable multi-dimension advection |
348 |
C useMultiDimAdvec :: True if multi-dim advection is used at least once |
C useMultiDimAdvec :: True if multi-dim advection is used at least once |
349 |
C momDissip_In_AB :: if False, put Dissipation tendency contribution |
C momDissip_In_AB :: if False, put Dissipation tendency contribution |
388 |
& usingCartesianGrid, usingSphericalPolarGrid, rotateGrid, |
& usingCartesianGrid, usingSphericalPolarGrid, rotateGrid, |
389 |
& usingCylindricalGrid, usingCurvilinearGrid, hasWetCSCorners, |
& usingCylindricalGrid, usingCurvilinearGrid, hasWetCSCorners, |
390 |
& deepAtmosphere, setInterFDr, setCenterDr, |
& deepAtmosphere, setInterFDr, setCenterDr, |
391 |
& no_slip_sides, no_slip_bottom, useSmag3D, |
& no_slip_sides, no_slip_bottom, bottomVisc_pCell, useSmag3D, |
392 |
& useFullLeith, useStrainTensionVisc, useAreaViscLength, |
& useFullLeith, useStrainTensionVisc, useAreaViscLength, |
393 |
& momViscosity, momAdvection, momForcing, |
& momViscosity, momAdvection, momForcing, |
394 |
& momPressureForcing, metricTerms, useNHMTerms, |
& momPressureForcing, metricTerms, useNHMTerms, |
408 |
& exactConserv, linFSConserveTr, useRealFreshWaterFlux, |
& exactConserv, linFSConserveTr, useRealFreshWaterFlux, |
409 |
& quasiHydrostatic, nonHydrostatic, use3Dsolver, |
& quasiHydrostatic, nonHydrostatic, use3Dsolver, |
410 |
& implicitIntGravWave, staggerTimeStep, doResetHFactors, |
& implicitIntGravWave, staggerTimeStep, doResetHFactors, |
411 |
& implicitDiffusion, implicitViscosity, |
& implicitDiffusion, implicitViscosity, implBottomFriction, |
412 |
& tempImplVertAdv, saltImplVertAdv, momImplVertAdv, |
& tempImplVertAdv, saltImplVertAdv, momImplVertAdv, |
413 |
& multiDimAdvection, useMultiDimAdvec, |
& multiDimAdvection, useMultiDimAdvec, |
414 |
& momDissip_In_AB, doAB_onGtGs, |
& momDissip_In_AB, doAB_onGtGs, |
440 |
|
|
441 |
LOGICAL no_slip_sides |
LOGICAL no_slip_sides |
442 |
LOGICAL no_slip_bottom |
LOGICAL no_slip_bottom |
443 |
|
LOGICAL bottomVisc_pCell |
444 |
LOGICAL useSmag3D |
LOGICAL useSmag3D |
445 |
LOGICAL useFullLeith |
LOGICAL useFullLeith |
446 |
LOGICAL useStrainTensionVisc |
LOGICAL useStrainTensionVisc |
496 |
LOGICAL doResetHFactors |
LOGICAL doResetHFactors |
497 |
LOGICAL implicitDiffusion |
LOGICAL implicitDiffusion |
498 |
LOGICAL implicitViscosity |
LOGICAL implicitViscosity |
499 |
|
LOGICAL implBottomFriction |
500 |
LOGICAL tempImplVertAdv |
LOGICAL tempImplVertAdv |
501 |
LOGICAL saltImplVertAdv |
LOGICAL saltImplVertAdv |
502 |
LOGICAL momImplVertAdv |
LOGICAL momImplVertAdv |
977 |
LOGICAL useBulkForce |
LOGICAL useBulkForce |
978 |
LOGICAL useEBM |
LOGICAL useEBM |
979 |
LOGICAL useCheapAML |
LOGICAL useCheapAML |
980 |
|
LOGICAL useAUTODIFF |
981 |
LOGICAL useGrdchk |
LOGICAL useGrdchk |
982 |
LOGICAL useSMOOTH |
LOGICAL useSMOOTH |
983 |
LOGICAL usePROFILES |
LOGICAL usePROFILES |
984 |
LOGICAL useECCO |
LOGICAL useECCO |
985 |
|
LOGICAL useCTRL |
986 |
LOGICAL useSBO |
LOGICAL useSBO |
987 |
LOGICAL useFLT |
LOGICAL useFLT |
988 |
LOGICAL usePTRACERS |
LOGICAL usePTRACERS |
1015 |
& useOPPS, usePP81, useKL10, useMY82, useGGL90, useKPP, |
& useOPPS, usePP81, useKL10, useMY82, useGGL90, useKPP, |
1016 |
& useGMRedi, useBBL, useDOWN_SLOPE, |
& useGMRedi, useBBL, useDOWN_SLOPE, |
1017 |
& useCAL, useEXF, useBulkForce, useEBM, useCheapAML, |
& useCAL, useEXF, useBulkForce, useEBM, useCheapAML, |
1018 |
& useGrdchk,useSMOOTH,usePROFILES,useECCO,useSBO, useFLT, |
& useGrdchk, useSMOOTH, usePROFILES, useECCO, useCTRL, |
1019 |
|
& useSBO, useFLT, useAUTODIFF, |
1020 |
& usePTRACERS, useGCHEM, useRBCS, useOffLine, useMATRIX, |
& usePTRACERS, useGCHEM, useRBCS, useOffLine, useMATRIX, |
1021 |
& useFRAZIL, useSEAICE, useSALT_PLUME, useShelfIce, |
& useFRAZIL, useSEAICE, useSALT_PLUME, useShelfIce, |
1022 |
& useStreamIce, useICEFRONT, useThSIce, useLand, |
& useStreamIce, useICEFRONT, useThSIce, useLand, |