mom_set_diffusivity::set_diffusivity_cs integer integer mom_set_diffusivity::set_diffusivity_cs::id_maxtke id_maxtke = -1 Diagnostic IDs. integer integer mom_set_diffusivity::set_diffusivity_cs::id_tke_to_kd id_tke_to_kd = -1 Diagnostic IDs. integer integer mom_set_diffusivity::set_diffusivity_cs::id_kd_user id_kd_user = -1 Diagnostic IDs. integer integer mom_set_diffusivity::set_diffusivity_cs::id_kd_layer id_kd_layer = -1 Diagnostic IDs. integer integer mom_set_diffusivity::set_diffusivity_cs::id_kd_bbl id_kd_bbl = -1 Diagnostic IDs. integer integer mom_set_diffusivity::set_diffusivity_cs::id_n2 id_n2 = -1 Diagnostic IDs. integer integer mom_set_diffusivity::set_diffusivity_cs::id_kd_work id_kd_work = -1 Diagnostic IDs. integer integer mom_set_diffusivity::set_diffusivity_cs::id_kt_extra id_kt_extra = -1 Diagnostic IDs. integer integer mom_set_diffusivity::set_diffusivity_cs::id_ks_extra id_ks_extra = -1 Diagnostic IDs. integer integer mom_set_diffusivity::set_diffusivity_cs::id_r_rho id_r_rho = -1 Diagnostic IDs. integer integer mom_set_diffusivity::set_diffusivity_cs::id_kd_bkgnd id_kd_bkgnd = -1 Diagnostic IDs. integer integer mom_set_diffusivity::set_diffusivity_cs::id_kv_bkgnd id_kv_bkgnd = -1 Diagnostic IDs. logical logical mom_set_diffusivity::set_diffusivity_cs::debug debug If true, write verbose checksums for debugging. logical logical mom_set_diffusivity::set_diffusivity_cs::bulkmixedlayer bulkmixedlayer If true, a refined bulk mixed layer is used with GVnk_rho_varies variable density mixed & buffer layers. real real mom_set_diffusivity::set_diffusivity_cs::fluxri_max fluxri_max The flux Richardson number where the stratification is large enough that N2 > omega2 [nondim]. The full expression for the Flux Richardson number is usually FLUX_RI_MAX*N2/(N2+OMEGA2). The default is 0.2. logical logical mom_set_diffusivity::set_diffusivity_cs::bottomdraglaw bottomdraglaw If true, the bottom stress is calculated with a drag law c_drag*|u|*u. logical logical mom_set_diffusivity::set_diffusivity_cs::bbl_mixing_as_max bbl_mixing_as_max If true, take the maximum of the diffusivity from the BBL mixing and the other diffusivities. Otherwise, diffusivities from the BBL_mixing is added. logical logical mom_set_diffusivity::set_diffusivity_cs::use_lotw_bbl_diffusivity use_lotw_bbl_diffusivity If true, use simpler/less precise, BBL diffusivity. logical logical mom_set_diffusivity::set_diffusivity_cs::lotw_bbl_use_omega lotw_bbl_use_omega If true, use simpler/less precise, BBL diffusivity. real real mom_set_diffusivity::set_diffusivity_cs::bbl_effic bbl_effic efficiency with which the energy extracted by bottom drag drives BBL diffusion [nondim] real real mom_set_diffusivity::set_diffusivity_cs::cdrag cdrag quadratic drag coefficient [nondim] real real mom_set_diffusivity::set_diffusivity_cs::imax_decay imax_decay inverse of a maximum decay scale for bottom-drag driven turbulence [Z-1 ~> m-1]. real real mom_set_diffusivity::set_diffusivity_cs::kv kv The interior vertical viscosity [Z2 T-1 ~> m2 s-1]. real real mom_set_diffusivity::set_diffusivity_cs::kd kd interior diapycnal diffusivity [Z2 T-1 ~> m2 s-1]. real real mom_set_diffusivity::set_diffusivity_cs::kd_min kd_min minimum diapycnal diffusivity [Z2 T-1 ~> m2 s-1]. real real mom_set_diffusivity::set_diffusivity_cs::kd_max kd_max maximum increment for diapycnal diffusivity [Z2 T-1 ~> m2 s-1]. Set to a negative value to have no limit. real real mom_set_diffusivity::set_diffusivity_cs::kd_add kd_add uniform diffusivity added everywhere without filtering or scaling [Z2 T-1 ~> m2 s-1]. real real mom_set_diffusivity::set_diffusivity_cs::kd_smooth kd_smooth Vertical diffusivity used to interpolate more sensible values of T & S into thin layers [Z2 T-1 ~> m2 s-1]. type(diag_ctrl), pointer type(diag_ctrl), pointer mom_set_diffusivity::set_diffusivity_cs::diag diag => NULL() structure to regulate diagnostic output timing logical logical mom_set_diffusivity::set_diffusivity_cs::limit_dissipation limit_dissipation If enabled, dissipation is limited to be larger than the following: real real mom_set_diffusivity::set_diffusivity_cs::dissip_min dissip_min Minimum dissipation [R Z2 T-3 ~> W m-3]. real real mom_set_diffusivity::set_diffusivity_cs::dissip_n0 dissip_n0 Coefficient a in minimum dissipation = a+b*N [R Z2 T-3 ~> W m-3]. real real mom_set_diffusivity::set_diffusivity_cs::dissip_n1 dissip_n1 Coefficient b in minimum dissipation = a+b*N [R Z2 T-2 ~> J m-3]. real real mom_set_diffusivity::set_diffusivity_cs::dissip_n2 dissip_n2 Coefficient c in minimum dissipation = c*N2 [R Z2 T-1 ~> J s m-3]. real real mom_set_diffusivity::set_diffusivity_cs::dissip_kd_min dissip_kd_min Minimum Kd [Z2 T-1 ~> m2 s-1], with dissipation Rho0*Kd_min*N^2. real real mom_set_diffusivity::set_diffusivity_cs::omega omega Earth's rotation frequency [T-1 ~> s-1]. logical logical mom_set_diffusivity::set_diffusivity_cs::ml_radiation ml_radiation allow a fraction of TKE available from wind work to penetrate below mixed layer base with a vertical decay scale determined by the minimum of (1) The depth of the mixed layer, or (2) An Ekman length scale. Energy available to drive mixing below the mixed layer is given by E = ML_RAD_COEFF*MSTAR*USTAR**3. Optionally, if ML_rad_TKE_decay is true, this is further reduced by a factor of exp(-h_ML*Idecay_len_TkE), where Idecay_len_TKE is calculated the same way as in the mixed layer code. The diapycnal diffusivity is KD(k) = E/(N2(k)+OMEGA2), where N2 is the squared buoyancy frequency [T-2 ~> s-2] and OMEGA2 is the rotation rate of the earth squared. real real mom_set_diffusivity::set_diffusivity_cs::ml_rad_kd_max ml_rad_kd_max Maximum diapycnal diffusivity due to turbulence radiated from the base of the mixed layer [Z2 T-1 ~> m2 s-1]. real real mom_set_diffusivity::set_diffusivity_cs::ml_rad_efold_coeff ml_rad_efold_coeff non-dim coefficient to scale penetration depth real real mom_set_diffusivity::set_diffusivity_cs::ml_rad_coeff ml_rad_coeff coefficient, which scales MSTAR*USTAR^3 to obtain energy available for mixing below mixed layer base [nondim] logical logical mom_set_diffusivity::set_diffusivity_cs::ml_rad_bug ml_rad_bug If true use code with a bug that reduces the energy available in the transition layer by a factor of the inverse of the energy deposition lenthscale (in m). logical logical mom_set_diffusivity::set_diffusivity_cs::ml_rad_tke_decay ml_rad_tke_decay If true, apply same exponential decay to ML_rad as applied to the other surface sources of TKE in the mixed layer code. real real mom_set_diffusivity::set_diffusivity_cs::ustar_min ustar_min A minimum value of ustar to avoid numerical problems [Z T-1 ~> m s-1]. If the value is small enough, this parameter should not affect the solution. real real mom_set_diffusivity::set_diffusivity_cs::tke_decay tke_decay ratio of natural Ekman depth to TKE decay scale [nondim] real real mom_set_diffusivity::set_diffusivity_cs::mstar mstar ratio of friction velocity cubed to TKE input to the mixed layer [nondim] logical logical mom_set_diffusivity::set_diffusivity_cs::ml_use_omega ml_use_omega If true, use absolute rotation rate instead of the vertical component of rotation when setting the decay scale for mixed layer turbulence. real real mom_set_diffusivity::set_diffusivity_cs::ml_omega_frac ml_omega_frac When setting the decay scale for turbulence, use this fraction of the absolute rotation rate blended with the local value of f, as f^2 ~= (1-of)*f^2 + of*4*omega^2. logical logical mom_set_diffusivity::set_diffusivity_cs::user_change_diff user_change_diff If true, call user-defined code to change diffusivity. logical logical mom_set_diffusivity::set_diffusivity_cs::usekappashear usekappashear If true, use the kappa_shear module to find the shear-driven diapycnal diffusivity. logical logical mom_set_diffusivity::set_diffusivity_cs::vertex_shear vertex_shear If true, do the calculations of the shear-driven mixing at the cell vertices (i.e., the vorticity points). logical logical mom_set_diffusivity::set_diffusivity_cs::use_cvmix_shear use_cvmix_shear If true, use one of the CVMix modules to find shear-driven diapycnal diffusivity. logical logical mom_set_diffusivity::set_diffusivity_cs::double_diffusion double_diffusion If true, enable double-diffusive mixing using an old method. logical logical mom_set_diffusivity::set_diffusivity_cs::use_cvmix_ddiff use_cvmix_ddiff If true, enable double-diffusive mixing via CVMix. logical logical mom_set_diffusivity::set_diffusivity_cs::use_tidal_mixing use_tidal_mixing If true, activate tidal mixing diffusivity. logical logical mom_set_diffusivity::set_diffusivity_cs::simple_tke_to_kd simple_tke_to_kd If true, uses a simple estimate of Kd/TKE that does not rely on a layer-formulation. real real mom_set_diffusivity::set_diffusivity_cs::max_rrho_salt_fingers max_rrho_salt_fingers max density ratio for salt fingering real real mom_set_diffusivity::set_diffusivity_cs::max_salt_diff_salt_fingers max_salt_diff_salt_fingers max salt diffusivity for salt fingers [Z2 T-1 ~> m2 s-1] real real mom_set_diffusivity::set_diffusivity_cs::kv_molecular kv_molecular molecular visc for double diff convect [Z2 T-1 ~> m2 s-1] logical logical mom_set_diffusivity::set_diffusivity_cs::answers_2018 answers_2018 If true, use the order of arithmetic and expressions that recover the answers from the end of 2018. Otherwise, use updated and more robust forms of the same expressions. character(len=200) character(len=200) mom_set_diffusivity::set_diffusivity_cs::inputdir inputdir The directory in which input files are found. type(user_change_diff_cs), pointer type(user_change_diff_cs), pointer mom_set_diffusivity::set_diffusivity_cs::user_change_diff_csp user_change_diff_csp => NULL() Control structure for a child module. type(kappa_shear_cs), pointer type(kappa_shear_cs), pointer mom_set_diffusivity::set_diffusivity_cs::kappashear_csp kappashear_csp => NULL() Control structure for a child module. type(cvmix_shear_cs), pointer type(cvmix_shear_cs), pointer mom_set_diffusivity::set_diffusivity_cs::cvmix_shear_csp cvmix_shear_csp => NULL() Control structure for a child module. type(cvmix_ddiff_cs), pointer type(cvmix_ddiff_cs), pointer mom_set_diffusivity::set_diffusivity_cs::cvmix_ddiff_csp cvmix_ddiff_csp => NULL() Control structure for a child module. type(bkgnd_mixing_cs), pointer type(bkgnd_mixing_cs), pointer mom_set_diffusivity::set_diffusivity_cs::bkgnd_mixing_csp bkgnd_mixing_csp => NULL() Control structure for a child module. type(int_tide_cs), pointer type(int_tide_cs), pointer mom_set_diffusivity::set_diffusivity_cs::int_tide_csp int_tide_csp => NULL() Control structure for a child module. type(tidal_mixing_cs), pointer type(tidal_mixing_cs), pointer mom_set_diffusivity::set_diffusivity_cs::tidal_mixing_csp tidal_mixing_csp => NULL() Control structure for a child module. This control structure contains parameters for MOM_set_diffusivity. real type(tidal_mixing_cs), pointer bkgnd_mixing_cs logical type(int_tide_cs), pointer type(kappa_shear_cs), pointer type(cvmix_shear_cs), pointer diag_ctrl integer character(len=200) type(cvmix_ddiff_cs), pointer mom_set_diffusivity::set_diffusivity_cs use_lotw_bbl_diffusivity double_diffusion ml_use_omega bulkmixedlayer answers_2018 ml_rad_bug ml_radiation simple_tke_to_kd use_tidal_mixing lotw_bbl_use_omega ... cvmix_ddiff_csp inputdir tidal_mixing_csp user_change_diff_csp bkgnd_mixing_csp kappashear_csp cvmix_shear_csp diag id_r_rho id_kd_user id_maxtke id_tke_to_kd id_n2 id_ks_extra id_kt_extra id_kd_bbl id_kd_work id_kd_bkgnd ... cdrag max_rrho_salt_fingers ml_rad_coeff max_salt_diff_salt_fingers tke_decay ml_rad_kd_max mstar dissip_kd_min ml_rad_efold_coeff dissip_n0 ... int_tide_csp type(user_change_diff_cs), pointer mom_set_diffusivity::set_diffusivity_csanswers_2018 mom_set_diffusivity::set_diffusivity_csbbl_effic mom_set_diffusivity::set_diffusivity_csbbl_mixing_as_max mom_set_diffusivity::set_diffusivity_csbkgnd_mixing_csp mom_set_diffusivity::set_diffusivity_csbottomdraglaw mom_set_diffusivity::set_diffusivity_csbulkmixedlayer mom_set_diffusivity::set_diffusivity_cscdrag mom_set_diffusivity::set_diffusivity_cscvmix_ddiff_csp mom_set_diffusivity::set_diffusivity_cscvmix_shear_csp mom_set_diffusivity::set_diffusivity_csdebug mom_set_diffusivity::set_diffusivity_csdiag mom_set_diffusivity::set_diffusivity_csdissip_kd_min mom_set_diffusivity::set_diffusivity_csdissip_min mom_set_diffusivity::set_diffusivity_csdissip_n0 mom_set_diffusivity::set_diffusivity_csdissip_n1 mom_set_diffusivity::set_diffusivity_csdissip_n2 mom_set_diffusivity::set_diffusivity_csdouble_diffusion mom_set_diffusivity::set_diffusivity_csfluxri_max mom_set_diffusivity::set_diffusivity_csid_kd_bbl mom_set_diffusivity::set_diffusivity_csid_kd_bkgnd mom_set_diffusivity::set_diffusivity_csid_kd_layer mom_set_diffusivity::set_diffusivity_csid_kd_user mom_set_diffusivity::set_diffusivity_csid_kd_work mom_set_diffusivity::set_diffusivity_csid_ks_extra mom_set_diffusivity::set_diffusivity_csid_kt_extra mom_set_diffusivity::set_diffusivity_csid_kv_bkgnd mom_set_diffusivity::set_diffusivity_csid_maxtke mom_set_diffusivity::set_diffusivity_csid_n2 mom_set_diffusivity::set_diffusivity_csid_r_rho mom_set_diffusivity::set_diffusivity_csid_tke_to_kd mom_set_diffusivity::set_diffusivity_csimax_decay mom_set_diffusivity::set_diffusivity_csinputdir mom_set_diffusivity::set_diffusivity_csint_tide_csp mom_set_diffusivity::set_diffusivity_cskappashear_csp mom_set_diffusivity::set_diffusivity_cskd mom_set_diffusivity::set_diffusivity_cskd_add mom_set_diffusivity::set_diffusivity_cskd_max mom_set_diffusivity::set_diffusivity_cskd_min mom_set_diffusivity::set_diffusivity_cskd_smooth mom_set_diffusivity::set_diffusivity_cskv mom_set_diffusivity::set_diffusivity_cskv_molecular mom_set_diffusivity::set_diffusivity_cslimit_dissipation mom_set_diffusivity::set_diffusivity_cslotw_bbl_use_omega mom_set_diffusivity::set_diffusivity_csmax_rrho_salt_fingers mom_set_diffusivity::set_diffusivity_csmax_salt_diff_salt_fingers mom_set_diffusivity::set_diffusivity_csml_omega_frac mom_set_diffusivity::set_diffusivity_csml_rad_bug mom_set_diffusivity::set_diffusivity_csml_rad_coeff mom_set_diffusivity::set_diffusivity_csml_rad_efold_coeff mom_set_diffusivity::set_diffusivity_csml_rad_kd_max mom_set_diffusivity::set_diffusivity_csml_rad_tke_decay mom_set_diffusivity::set_diffusivity_csml_radiation mom_set_diffusivity::set_diffusivity_csml_use_omega mom_set_diffusivity::set_diffusivity_csmstar mom_set_diffusivity::set_diffusivity_csomega mom_set_diffusivity::set_diffusivity_cssimple_tke_to_kd mom_set_diffusivity::set_diffusivity_cstidal_mixing_csp mom_set_diffusivity::set_diffusivity_cstke_decay mom_set_diffusivity::set_diffusivity_csuse_cvmix_ddiff mom_set_diffusivity::set_diffusivity_csuse_cvmix_shear mom_set_diffusivity::set_diffusivity_csuse_lotw_bbl_diffusivity mom_set_diffusivity::set_diffusivity_csuse_tidal_mixing mom_set_diffusivity::set_diffusivity_csusekappashear mom_set_diffusivity::set_diffusivity_csuser_change_diff mom_set_diffusivity::set_diffusivity_csuser_change_diff_csp mom_set_diffusivity::set_diffusivity_csustar_min mom_set_diffusivity::set_diffusivity_csvertex_shear