187 |
C saltVertAdvScheme :: Salt. Vert. Advection scheme selector |
C saltVertAdvScheme :: Salt. Vert. Advection scheme selector |
188 |
C selectKEscheme :: Kinetic Energy scheme selector (Vector Inv.) |
C selectKEscheme :: Kinetic Energy scheme selector (Vector Inv.) |
189 |
C selectVortScheme :: Scheme selector for Vorticity term (Vector Inv.) |
C selectVortScheme :: Scheme selector for Vorticity term (Vector Inv.) |
190 |
|
C selectBotDragQuadr :: quadratic bottom drag discretisation option: |
191 |
|
C =0: average KE from grid center to U & V location |
192 |
|
C =1: use local velocity norm @ U & V location |
193 |
|
C =2: same with wet-point averaging of other component |
194 |
C monitorSelect :: select group of variables to monitor |
C monitorSelect :: select group of variables to monitor |
195 |
C =1 : dynvars ; =2 : + vort ; =3 : + surface |
C =1 : dynvars ; =2 : + vort ; =3 : + surface |
196 |
C- debugLevel :: controls printing of algorithm intermediate results |
C- debugLevel :: controls printing of algorithm intermediate results |
213 |
& tempAdvScheme, tempVertAdvScheme, |
& tempAdvScheme, tempVertAdvScheme, |
214 |
& saltAdvScheme, saltVertAdvScheme, |
& saltAdvScheme, saltVertAdvScheme, |
215 |
& selectKEscheme, selectVortScheme, |
& selectKEscheme, selectVortScheme, |
216 |
|
& selectBotDragQuadr, |
217 |
& monitorSelect, debugLevel |
& monitorSelect, debugLevel |
218 |
INTEGER cg2dMaxIters |
INTEGER cg2dMaxIters |
219 |
INTEGER cg2dChkResFreq |
INTEGER cg2dChkResFreq |
239 |
INTEGER saltAdvScheme, saltVertAdvScheme |
INTEGER saltAdvScheme, saltVertAdvScheme |
240 |
INTEGER selectKEscheme |
INTEGER selectKEscheme |
241 |
INTEGER selectVortScheme |
INTEGER selectVortScheme |
242 |
|
INTEGER selectBotDragQuadr |
243 |
INTEGER monitorSelect |
INTEGER monitorSelect |
244 |
INTEGER debugLevel |
INTEGER debugLevel |
245 |
|
|
270 |
C- Momentum params: |
C- Momentum params: |
271 |
C no_slip_sides :: Impose "no-slip" at lateral boundaries. |
C no_slip_sides :: Impose "no-slip" at lateral boundaries. |
272 |
C no_slip_bottom :: Impose "no-slip" at bottom boundary. |
C no_slip_bottom :: Impose "no-slip" at bottom boundary. |
273 |
|
C bottomVisc_pCell :: account for partial-cell in bottom visc. (no-slip BC) |
274 |
C useSmag3D :: Use isotropic 3-D Smagorinsky |
C useSmag3D :: Use isotropic 3-D Smagorinsky |
275 |
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 |
276 |
C on irregular grids) |
C on irregular grids) |
338 |
C doResetHFactors :: Do reset thickness factors @ beginning of each time-step |
C doResetHFactors :: Do reset thickness factors @ beginning of each time-step |
339 |
C implicitDiffusion :: Turns implicit vertical diffusion on |
C implicitDiffusion :: Turns implicit vertical diffusion on |
340 |
C implicitViscosity :: Turns implicit vertical viscosity on |
C implicitViscosity :: Turns implicit vertical viscosity on |
341 |
C tempImplVertAdv :: Turns on implicit vertical advection for Temperature |
C implBottomFriction :: Turns on implicit bottom friction (drag & no-slip BC) |
342 |
C saltImplVertAdv :: Turns on implicit vertical advection for Salinity |
C tempImplVertAdv :: Turns on implicit vertical advection for Temperature |
343 |
C momImplVertAdv :: Turns on implicit vertical advection for Momentum |
C saltImplVertAdv :: Turns on implicit vertical advection for Salinity |
344 |
|
C momImplVertAdv :: Turns on implicit vertical advection for Momentum |
345 |
C multiDimAdvection :: Flag that enable multi-dimension advection |
C multiDimAdvection :: Flag that enable multi-dimension advection |
346 |
C useMultiDimAdvec :: True if multi-dim advection is used at least once |
C useMultiDimAdvec :: True if multi-dim advection is used at least once |
347 |
C momDissip_In_AB :: if False, put Dissipation tendency contribution |
C momDissip_In_AB :: if False, put Dissipation tendency contribution |
386 |
& usingCartesianGrid, usingSphericalPolarGrid, rotateGrid, |
& usingCartesianGrid, usingSphericalPolarGrid, rotateGrid, |
387 |
& usingCylindricalGrid, usingCurvilinearGrid, hasWetCSCorners, |
& usingCylindricalGrid, usingCurvilinearGrid, hasWetCSCorners, |
388 |
& deepAtmosphere, setInterFDr, setCenterDr, |
& deepAtmosphere, setInterFDr, setCenterDr, |
389 |
& no_slip_sides, no_slip_bottom, useSmag3D, |
& no_slip_sides, no_slip_bottom, bottomVisc_pCell, useSmag3D, |
390 |
& useFullLeith, useStrainTensionVisc, useAreaViscLength, |
& useFullLeith, useStrainTensionVisc, useAreaViscLength, |
391 |
& momViscosity, momAdvection, momForcing, |
& momViscosity, momAdvection, momForcing, |
392 |
& momPressureForcing, metricTerms, useNHMTerms, |
& momPressureForcing, metricTerms, useNHMTerms, |
406 |
& exactConserv, linFSConserveTr, useRealFreshWaterFlux, |
& exactConserv, linFSConserveTr, useRealFreshWaterFlux, |
407 |
& quasiHydrostatic, nonHydrostatic, use3Dsolver, |
& quasiHydrostatic, nonHydrostatic, use3Dsolver, |
408 |
& implicitIntGravWave, staggerTimeStep, doResetHFactors, |
& implicitIntGravWave, staggerTimeStep, doResetHFactors, |
409 |
& implicitDiffusion, implicitViscosity, |
& implicitDiffusion, implicitViscosity, implBottomFriction, |
410 |
& tempImplVertAdv, saltImplVertAdv, momImplVertAdv, |
& tempImplVertAdv, saltImplVertAdv, momImplVertAdv, |
411 |
& multiDimAdvection, useMultiDimAdvec, |
& multiDimAdvection, useMultiDimAdvec, |
412 |
& momDissip_In_AB, doAB_onGtGs, |
& momDissip_In_AB, doAB_onGtGs, |
438 |
|
|
439 |
LOGICAL no_slip_sides |
LOGICAL no_slip_sides |
440 |
LOGICAL no_slip_bottom |
LOGICAL no_slip_bottom |
441 |
|
LOGICAL bottomVisc_pCell |
442 |
LOGICAL useSmag3D |
LOGICAL useSmag3D |
443 |
LOGICAL useFullLeith |
LOGICAL useFullLeith |
444 |
LOGICAL useStrainTensionVisc |
LOGICAL useStrainTensionVisc |
494 |
LOGICAL doResetHFactors |
LOGICAL doResetHFactors |
495 |
LOGICAL implicitDiffusion |
LOGICAL implicitDiffusion |
496 |
LOGICAL implicitViscosity |
LOGICAL implicitViscosity |
497 |
|
LOGICAL implBottomFriction |
498 |
LOGICAL tempImplVertAdv |
LOGICAL tempImplVertAdv |
499 |
LOGICAL saltImplVertAdv |
LOGICAL saltImplVertAdv |
500 |
LOGICAL momImplVertAdv |
LOGICAL momImplVertAdv |
1010 |
COMMON /PARM_PACKAGES/ |
COMMON /PARM_PACKAGES/ |
1011 |
& useGAD, useOBCS, useSHAP_FILT, useZONAL_FILT, |
& useGAD, useOBCS, useSHAP_FILT, useZONAL_FILT, |
1012 |
& useOPPS, usePP81, useKL10, useMY82, useGGL90, useKPP, |
& useOPPS, usePP81, useKL10, useMY82, useGGL90, useKPP, |
1013 |
& useGMRedi, useBBL, useDOWN_SLOPE, useCTRL, |
& useGMRedi, useBBL, useDOWN_SLOPE, |
1014 |
& useCAL, useEXF, useBulkForce, useEBM, useCheapAML, |
& useCAL, useEXF, useBulkForce, useEBM, useCheapAML, |
1015 |
& useGrdchk,useSMOOTH,usePROFILES,useECCO,useSBO, useFLT, |
& useGrdchk, useSMOOTH, usePROFILES, useECCO, useCTRL, |
1016 |
|
& useSBO, useFLT, |
1017 |
& usePTRACERS, useGCHEM, useRBCS, useOffLine, useMATRIX, |
& usePTRACERS, useGCHEM, useRBCS, useOffLine, useMATRIX, |
1018 |
& useFRAZIL, useSEAICE, useSALT_PLUME, useShelfIce, |
& useFRAZIL, useSEAICE, useSALT_PLUME, useShelfIce, |
1019 |
& useStreamIce, useICEFRONT, useThSIce, useLand, |
& useStreamIce, useICEFRONT, useThSIce, useLand, |