ocean_tidal_mixing_config_t Derived Type

type, public :: ocean_tidal_mixing_config_t

St-Laurent/Simmons internal-tide interior mixing (&ocean_tidal_mixing_nml). Bottom-intensified diapycnal diffusivity from the local dissipation of internal-tide energy over rough topography (Jayne & St Laurent 2001; St Laurent et al. 2002; Simmons et al. 2004). An INTERIOR closure: its Kd is ADDED to the surface PBL schemes (KPP or EPBL) and to PP81/background/kappa-shear. enable = .false. keeps the existing path bit-identical. Knob table: docs/generated_nml_knobs.md.


Inherited by

type~~ocean_tidal_mixing_config_t~~InheritedByGraph type~ocean_tidal_mixing_config_t ocean_tidal_mixing_config_t type~ocean_config_t ocean_config_t type~ocean_config_t->type~ocean_tidal_mixing_config_t tidal_mixing type~config_t config_t type~config_t->type~ocean_config_t ocean type~ocean_handle_t ocean_handle_t type~ocean_handle_t->type~config_t cfg

Components

Type Visibility Attributes Name Initial
logical, public :: e_compute = .false.

v1.1 state-dependent E = min(TKE_coef*N_bot, e_max).
real(kind=wp), public :: e_max = 1.0e3_wp

TKE_itide_max cap on E, W m-2.
real(kind=wp), public :: e_uniform = 0.0_wp

Uniform bottom energy input E, W m-2 (v1 prescribed field; default 0 => inert even when enabled).
logical, public :: enable = .false.

Master switch. Requires vmix%use_closure + thermodynamics (validated at configure).
real(kind=wp), public :: frac_rough = 0.1_wp

Roughness clamp <= (frac_rough*H)^2.
real(kind=wp), public :: gamma = 0.3333_wp

Local-dissipation fraction q (GAMMA_ITIDES).
real(kind=wp), public :: h2_rough = 0.0_wp

Sub-grid topographic roughness variance , m^2.
real(kind=wp), public :: kappa_h2 = 1.0_wp

KAPPA_H2_FACTOR (v1.1 E recompute).
real(kind=wp), public :: kappa_itides = 6.2832e-4_wp

Topographic wavenumber, m^-1 (v1.1 E recompute).
real(kind=wp), public :: kd_max = 1.0e-2_wp

Per-layer physical Kd cap, m^2/s; < 0 => no cap.
real(kind=wp), public :: min_zbot = 0.0_wp

Mask off where column depth H < min_zbot, m.
real(kind=wp), public :: mu = 0.2_wp

Mixing efficiency Gamma_mix (MU_ITIDES).
real(kind=wp), public :: prandtl_tidal = 1.0_wp

Kv = prandtl_tidal * Kd into the momentum solve.
real(kind=wp), public :: utide = 0.0_wp

RMS barotropic tidal velocity, m/s (v1.1 E recompute).
real(kind=wp), public :: zeta = 500.0_wp

Bottom decay scale, m (INT_TIDE_DECAY_SCALE).

Source Code

   type :: ocean_tidal_mixing_config_t
      !! St-Laurent/Simmons internal-tide interior mixing
      !! (`&ocean_tidal_mixing_nml`).  Bottom-intensified diapycnal
      !! diffusivity from the local dissipation of internal-tide energy
      !! over rough topography (Jayne & St Laurent 2001; St Laurent et
      !! al. 2002; Simmons et al. 2004).  An INTERIOR closure: its Kd is
      !! ADDED to the surface PBL schemes (KPP or EPBL) and to
      !! PP81/background/kappa-shear.  `enable = .false.` keeps the
      !! existing path bit-identical.  Knob table:
      !! `docs/generated_nml_knobs.md`.
      logical :: enable = .false.
         !! Master switch.  Requires `vmix%use_closure` + thermodynamics
         !! (validated at configure).
      real(wp) :: gamma = 0.3333_wp
         !! Local-dissipation fraction q (GAMMA_ITIDES).
      real(wp) :: mu = 0.2_wp
         !! Mixing efficiency Gamma_mix (MU_ITIDES).
      real(wp) :: zeta = 500.0_wp
         !! Bottom decay scale, m (INT_TIDE_DECAY_SCALE).
      real(wp) :: kd_max = 1.0e-2_wp
         !! Per-layer physical Kd cap, m^2/s; < 0 => no cap.
      real(wp) :: prandtl_tidal = 1.0_wp
         !! Kv = prandtl_tidal * Kd into the momentum solve.
      real(wp) :: min_zbot = 0.0_wp
         !! Mask off where column depth H < min_zbot, m.
      real(wp) :: e_uniform = 0.0_wp
         !! Uniform bottom energy input E, W m-2 (v1 prescribed field;
         !! default 0 => inert even when enabled).
      logical :: e_compute = .false.
         !! v1.1 state-dependent E = min(TKE_coef*N_bot, e_max).
      real(wp) :: kappa_itides = 6.2832e-4_wp
         !! Topographic wavenumber, m^-1 (v1.1 E recompute).
      real(wp) :: kappa_h2 = 1.0_wp
         !! KAPPA_H2_FACTOR (v1.1 E recompute).
      real(wp) :: utide = 0.0_wp
         !! RMS barotropic tidal velocity, m/s (v1.1 E recompute).
      real(wp) :: h2_rough = 0.0_wp
         !! Sub-grid topographic roughness variance <h^2>, m^2.
      real(wp) :: frac_rough = 0.1_wp
         !! Roughness clamp <h^2> <= (frac_rough*H)^2.
      real(wp) :: e_max = 1.0e3_wp
         !! TKE_itide_max cap on E, W m-2.
   end type ocean_tidal_mixing_config_t