mom_cvmix_shear::cvmix_shear_cs integer integer mom_cvmix_shear::cvmix_shear_cs::id_n2 id_n2 = -1 Diagnostic handles. integer integer mom_cvmix_shear::cvmix_shear_cs::id_s2 id_s2 = -1 Diagnostic handles. integer integer mom_cvmix_shear::cvmix_shear_cs::id_ri_grad id_ri_grad = -1 Diagnostic handles. integer integer mom_cvmix_shear::cvmix_shear_cs::id_kv id_kv = -1 Diagnostic handles. integer integer mom_cvmix_shear::cvmix_shear_cs::id_kd id_kd = -1 Diagnostic handles. integer integer mom_cvmix_shear::cvmix_shear_cs::id_ri_grad_smooth id_ri_grad_smooth = -1 Diagnostic handles. logical logical mom_cvmix_shear::cvmix_shear_cs::use_lmd94 use_lmd94 Flags to use the LMD94 scheme. logical logical mom_cvmix_shear::cvmix_shear_cs::use_pp81 use_pp81 Flags to use Pacanowski and Philander (JPO 1981) logical logical mom_cvmix_shear::cvmix_shear_cs::smooth_ri smooth_ri If true, smooth Ri using a 1-2-1 filter. real real mom_cvmix_shear::cvmix_shear_cs::ri_zero ri_zero LMD94 critical Richardson number. real real mom_cvmix_shear::cvmix_shear_cs::nu_zero nu_zero LMD94 maximum interior diffusivity. real real mom_cvmix_shear::cvmix_shear_cs::kpp_exp kpp_exp Exponent of unitless factor of diff. for KPP internal shear mixing scheme. real, dimension(:,:,:), allocatable real, dimension(:,:,:), allocatable mom_cvmix_shear::cvmix_shear_cs::n2 n2 Squared Brunt-Vaisala frequency [T-2 ~> s-2]. real, dimension(:,:,:), allocatable real, dimension(:,:,:), allocatable mom_cvmix_shear::cvmix_shear_cs::s2 s2 Squared shear frequency [T-2 ~> s-2]. real, dimension(:,:,:), allocatable real, dimension(:,:,:), allocatable mom_cvmix_shear::cvmix_shear_cs::ri_grad ri_grad Gradient Richardson number. real, dimension(:,:,:), allocatable real, dimension(:,:,:), allocatable mom_cvmix_shear::cvmix_shear_cs::ri_grad_smooth ri_grad_smooth Gradient Richardson number after smoothing. character(10) character(10) mom_cvmix_shear::cvmix_shear_cs::mix_scheme mix_scheme Mixing scheme name (string) type(diag_ctrl), pointer type(diag_ctrl), pointer mom_cvmix_shear::cvmix_shear_cs::diag diag => NULL() Pointer to the diagnostics control structure. Control structure including parameters for CVMix interior shear schemes. real logical mom_cvmix_shear::cvmix_shear_cs smooth_ri use_pp81 use_lmd94 mix_scheme diag id_ri_grad_smooth id_ri_grad id_s2 id_n2 id_kd id_kv kpp_exp ri_grad_smooth s2 n2 ri_zero ri_grad nu_zero diag_ctrl character(10) integer mom_cvmix_shear::cvmix_shear_csdiag mom_cvmix_shear::cvmix_shear_csid_kd mom_cvmix_shear::cvmix_shear_csid_kv mom_cvmix_shear::cvmix_shear_csid_n2 mom_cvmix_shear::cvmix_shear_csid_ri_grad mom_cvmix_shear::cvmix_shear_csid_ri_grad_smooth mom_cvmix_shear::cvmix_shear_csid_s2 mom_cvmix_shear::cvmix_shear_cskpp_exp mom_cvmix_shear::cvmix_shear_csmix_scheme mom_cvmix_shear::cvmix_shear_csn2 mom_cvmix_shear::cvmix_shear_csnu_zero mom_cvmix_shear::cvmix_shear_csri_grad mom_cvmix_shear::cvmix_shear_csri_grad_smooth mom_cvmix_shear::cvmix_shear_csri_zero mom_cvmix_shear::cvmix_shear_css2 mom_cvmix_shear::cvmix_shear_cssmooth_ri mom_cvmix_shear::cvmix_shear_csuse_lmd94 mom_cvmix_shear::cvmix_shear_csuse_pp81