254 |
C useConstantF :: Coriolis parameter set to f0 |
C useConstantF :: Coriolis parameter set to f0 |
255 |
C useBetaPlaneF :: Coriolis parameter set to f0 + beta.y |
C useBetaPlaneF :: Coriolis parameter set to f0 + beta.y |
256 |
C useSphereF :: Coriolis parameter set to 2.omega.sin(phi) |
C useSphereF :: Coriolis parameter set to 2.omega.sin(phi) |
257 |
|
C use3dCoriolis :: Turns the 3-D coriolis terms (in Omega.cos Phi) on - off |
258 |
C useCDscheme :: use CD-scheme to calculate Coriolis terms. |
C useCDscheme :: use CD-scheme to calculate Coriolis terms. |
259 |
C useJamartWetPoints :: Use wet-point method for Coriolis (Jamart and Ozer, 1986) |
C useJamartWetPoints :: Use wet-point method for Coriolis (Jamart and Ozer, 1986) |
260 |
C useJamartMomAdv :: Use wet-point method for V.I. non-linear term |
C useJamartMomAdv :: Use wet-point method for V.I. non-linear term |
326 |
& use3Dsolver, implicitIntGravWave, staggerTimeStep, |
& use3Dsolver, implicitIntGravWave, staggerTimeStep, |
327 |
& momStepping, tempStepping, saltStepping, |
& momStepping, tempStepping, saltStepping, |
328 |
& metricTerms, useNHMTerms, |
& metricTerms, useNHMTerms, |
329 |
& useConstantF, useBetaPlaneF, useSphereF, |
& useConstantF, useBetaPlaneF, useSphereF, use3dCoriolis, |
330 |
& useCDscheme, |
& useCDscheme, |
331 |
& useEnergyConservingCoriolis, useJamartWetPoints, useJamartMomAdv, |
& useEnergyConservingCoriolis, useJamartWetPoints, useJamartMomAdv, |
332 |
& SadournyCoriolis, upwindVorticity, highOrderVorticity, |
& SadournyCoriolis, upwindVorticity, highOrderVorticity, |
383 |
LOGICAL useConstantF |
LOGICAL useConstantF |
384 |
LOGICAL useBetaPlaneF |
LOGICAL useBetaPlaneF |
385 |
LOGICAL useSphereF |
LOGICAL useSphereF |
386 |
|
LOGICAL use3dCoriolis |
387 |
LOGICAL useCDscheme |
LOGICAL useCDscheme |
388 |
LOGICAL useEnergyConservingCoriolis |
LOGICAL useEnergyConservingCoriolis |
389 |
LOGICAL useJamartWetPoints |
LOGICAL useJamartWetPoints |
486 |
C viscAhW :: Eddy viscosity coeff. for mixing of vertical |
C viscAhW :: Eddy viscosity coeff. for mixing of vertical |
487 |
C momentum laterally, no effect for hydrostatic |
C momentum laterally, no effect for hydrostatic |
488 |
C model, defaults to viscAh if unset ( m^2/s ) |
C model, defaults to viscAh if unset ( m^2/s ) |
489 |
|
C Not used if variable horiz. viscosity is used. |
490 |
C viscAr :: Eddy viscosity coeff. for mixing of |
C viscAr :: Eddy viscosity coeff. for mixing of |
491 |
C momentum vertically ( units of r^2/s ) |
C momentum vertically ( units of r^2/s ) |
492 |
C viscA4 :: Biharmonic viscosity coeff. for mixing of |
C viscA4 :: Biharmonic viscosity coeff. for mixing of |
494 |
C viscA4W :: Biharmonic viscosity coeff. for mixing of vertical |
C viscA4W :: Biharmonic viscosity coeff. for mixing of vertical |
495 |
C momentum laterally, no effect for hydrostatic |
C momentum laterally, no effect for hydrostatic |
496 |
C model, defaults to viscA4 if unset ( m^2/s ) |
C model, defaults to viscA4 if unset ( m^2/s ) |
497 |
|
C Not used if variable horiz. viscosity is used. |
498 |
C viscAhD :: Eddy viscosity coeff. for mixing of momentum laterally |
C viscAhD :: Eddy viscosity coeff. for mixing of momentum laterally |
499 |
C (act on Divergence part) ( m^2/s ) |
C (act on Divergence part) ( m^2/s ) |
500 |
C viscAhZ :: Eddy viscosity coeff. for mixing of momentum laterally |
C viscAhZ :: Eddy viscosity coeff. for mixing of momentum laterally |
612 |
C starting value (k=1) for vertical coordinate (rf(1)=Ro_SeaLevel) |
C starting value (k=1) for vertical coordinate (rf(1)=Ro_SeaLevel) |
613 |
C sideDragFactor :: side-drag scaling factor (used only if no_slip_sides) |
C sideDragFactor :: side-drag scaling factor (used only if no_slip_sides) |
614 |
C (default=2: full drag ; =1: gives half-slip BC) |
C (default=2: full drag ; =1: gives half-slip BC) |
615 |
C bottomDragLinear :: Drag coefficient built in to core dynamics |
C bottomDragLinear :: Linear bottom-drag coefficient (units of [r]/s) |
616 |
C bottomDragQuadratic ( linear: 1/s, quadratic: 1/m ) |
C bottomDragQuadratic :: Quadratic bottom-drag coefficient (units of [r]/m) |
617 |
|
C (if using zcoordinate, units becomes linear: m/s, quadratic: [-]) |
618 |
|
C smoothAbsFuncRange :: 1/2 of interval around zero, for which FORTRAN ABS |
619 |
|
C is to be replace by a smoother function |
620 |
|
C (affects myabs, mymin, mymax) |
621 |
C nh_Am2 :: scales the non-hydrostatic terms and changes internal scales |
C nh_Am2 :: scales the non-hydrostatic terms and changes internal scales |
622 |
C (i.e. allows convection at different Rayleigh numbers) |
C (i.e. allows convection at different Rayleigh numbers) |
623 |
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit, |
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit, |
656 |
& horiVertRatio, recip_horiVertRatio, |
& horiVertRatio, recip_horiVertRatio, |
657 |
& ivdc_kappa, Ro_SeaLevel, |
& ivdc_kappa, Ro_SeaLevel, |
658 |
& sideDragFactor, bottomDragLinear, bottomDragQuadratic, nh_Am2, |
& sideDragFactor, bottomDragLinear, bottomDragQuadratic, nh_Am2, |
659 |
|
& smoothAbsFuncRange, |
660 |
& tCylIn, tCylOut |
& tCylIn, tCylOut |
661 |
|
|
662 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
776 |
_RL sideDragFactor |
_RL sideDragFactor |
777 |
_RL bottomDragLinear |
_RL bottomDragLinear |
778 |
_RL bottomDragQuadratic |
_RL bottomDragQuadratic |
779 |
|
_RL smoothAbsFuncRange |
780 |
_RL nh_Am2 |
_RL nh_Am2 |
781 |
_RL tCylIn |
_RL tCylIn |
782 |
_RL tCylOut |
_RL tCylOut |
840 |
LOGICAL useMNC |
LOGICAL useMNC |
841 |
LOGICAL useRunClock |
LOGICAL useRunClock |
842 |
LOGICAL useEMBED_FILES |
LOGICAL useEMBED_FILES |
843 |
|
LOGICAL useMYPACKAGE |
844 |
COMMON /PARM_PACKAGES/ |
COMMON /PARM_PACKAGES/ |
845 |
& useOPPS, usePP81, useMY82, useGGL90, useKPP, |
& useOPPS, usePP81, useMY82, useGGL90, useKPP, |
846 |
& useGMRedi, useOBCS, useAIM, useLand, |
& useGMRedi, useOBCS, useAIM, useLand, |
849 |
& usePTRACERS, useGCHEM, useRBCS, useOffLine, useMATRIX, |
& usePTRACERS, useGCHEM, useRBCS, useOffLine, useMATRIX, |
850 |
& useSBO, useSEAICE, useShelfIce, useThSIce, useBulkForce, |
& useSBO, useSEAICE, useShelfIce, useThSIce, useBulkForce, |
851 |
& usefizhi, usegridalt, useDiagnostics, useMNC, |
& usefizhi, usegridalt, useDiagnostics, useMNC, |
852 |
& useRunClock, useEMBED_FILES |
& useRunClock, useEMBED_FILES, useMYPACKAGE |
853 |
|
|
854 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
855 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |