mom_tidal_mixing::tidal_mixing_cs integer integer mom_tidal_mixing::tidal_mixing_cs::id_tke_itidal id_tke_itidal = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_tke_leewave id_tke_leewave = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_kd_itidal id_kd_itidal = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_kd_niku id_kd_niku = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_kd_lowmode id_kd_lowmode = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_kd_itidal_work id_kd_itidal_work = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_kd_niku_work id_kd_niku_work = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_kd_lowmode_work id_kd_lowmode_work = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_nb id_nb = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_n2_bot id_n2_bot = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_n2_meanz id_n2_meanz = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_fl_itidal id_fl_itidal = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_fl_lowmode id_fl_lowmode = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_polzin_decay_scale id_polzin_decay_scale = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_polzin_decay_scale_scaled id_polzin_decay_scale_scaled = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_n2_int id_n2_int = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_simmons_coeff id_simmons_coeff = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_schmittner_coeff id_schmittner_coeff = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_tidal_qe_md id_tidal_qe_md = -1 Diagnostic identifiers. integer integer mom_tidal_mixing::tidal_mixing_cs::id_vert_dep id_vert_dep = -1 Diagnostic identifiers. logical logical mom_tidal_mixing::tidal_mixing_cs::debug debug = .true. If true, do more extensive debugging checks. This is hard-coded. logical logical mom_tidal_mixing::tidal_mixing_cs::int_tide_dissipation int_tide_dissipation = .false. Internal tide conversion (from barotropic) with the schemes of St Laurent et al (2002) & Simmons et al (2004) integer integer mom_tidal_mixing::tidal_mixing_cs::int_tide_profile int_tide_profile A coded integer indicating the vertical profile for dissipation of the internal waves. Schemes that are currently encoded are St Laurent et al (2002) and Polzin (2009). logical logical mom_tidal_mixing::tidal_mixing_cs::lee_wave_dissipation lee_wave_dissipation = .false. Enable lee-wave driven mixing, following Nikurashin (2010), with a vertical energy deposition profile specified by Lee_wave_profile to be St Laurent et al (2002) or Simmons et al (2004) scheme. integer integer mom_tidal_mixing::tidal_mixing_cs::lee_wave_profile lee_wave_profile A coded integer indicating the vertical profile for dissipation of the lee waves. Schemes that are currently encoded are St Laurent et al (2002) and Polzin (2009). real real mom_tidal_mixing::tidal_mixing_cs::int_tide_decay_scale int_tide_decay_scale decay scale for internal wave TKE [Z ~> m]. real real mom_tidal_mixing::tidal_mixing_cs::mu_itides mu_itides efficiency for conversion of dissipation to potential energy [nondim] real real mom_tidal_mixing::tidal_mixing_cs::gamma_itides gamma_itides fraction of local dissipation [nondim] real real mom_tidal_mixing::tidal_mixing_cs::gamma_lee gamma_lee fraction of local dissipation for lee waves (Nikurashin's energy input) [nondim] real real mom_tidal_mixing::tidal_mixing_cs::decay_scale_factor_lee decay_scale_factor_lee Scaling factor for the decay scale of lee wave energy dissipation [nondim]. real real mom_tidal_mixing::tidal_mixing_cs::min_zbot_itides min_zbot_itides minimum depth for internal tide conversion [Z ~> m]. logical logical mom_tidal_mixing::tidal_mixing_cs::lowmode_itidal_dissipation lowmode_itidal_dissipation = .false. If true, consider mixing due to breaking low modes that have been remotely generated using an internal tidal dissipation scheme to specify the vertical profile of the energy input to drive diapycnal mixing, along the lines of St. Laurent et al. (2002) and Simmons et al. (2004). real real mom_tidal_mixing::tidal_mixing_cs::nu_polzin nu_polzin The non-dimensional constant used in Polzin form of the vertical scale of decay of tidal dissipation [nondim]. real real mom_tidal_mixing::tidal_mixing_cs::nbotref_polzin nbotref_polzin Reference value for the buoyancy frequency at the ocean bottom used in Polzin formulation of the vertical scale of decay of tidal dissipation [T-1 ~> s-1]. real real mom_tidal_mixing::tidal_mixing_cs::polzin_decay_scale_factor polzin_decay_scale_factor Scaling factor for the decay length scale of the tidal dissipation profile in Polzin [nondim]. real real mom_tidal_mixing::tidal_mixing_cs::polzin_decay_scale_max_factor polzin_decay_scale_max_factor The decay length scale of tidal dissipation profile in Polzin formulation should not exceed Polzin_decay_scale_max_factor * depth of the ocean [nondim]. real real mom_tidal_mixing::tidal_mixing_cs::polzin_min_decay_scale polzin_min_decay_scale minimum decay scale of the tidal dissipation profile in Polzin formulation [Z ~> m]. real real mom_tidal_mixing::tidal_mixing_cs::tke_itide_max tke_itide_max maximum internal tide conversion [R Z3 T-3 ~> W m-2] available to mix above the BBL real real mom_tidal_mixing::tidal_mixing_cs::utide utide constant tidal amplitude [Z T-1 ~> m s-1] if READ_TIDEAMP is false. real real mom_tidal_mixing::tidal_mixing_cs::kappa_itides kappa_itides topographic wavenumber and non-dimensional scaling [Z-1 ~> m-1]. real real mom_tidal_mixing::tidal_mixing_cs::kappa_h2_factor kappa_h2_factor factor for the product of wavenumber * rms sgs height character(len=200) character(len=200) mom_tidal_mixing::tidal_mixing_cs::inputdir inputdir The directory in which to find input files. logical logical mom_tidal_mixing::tidal_mixing_cs::use_cvmix_tidal use_cvmix_tidal = .false. true if CVMix is to be used for determining diffusivity due to tidal mixing real real mom_tidal_mixing::tidal_mixing_cs::min_thickness min_thickness Minimum thickness allowed [m]. integer integer mom_tidal_mixing::tidal_mixing_cs::cvmix_tidal_scheme cvmix_tidal_scheme = -1 1 for Simmons, 2 for Schmittner type(cvmix_tidal_params_type) type(cvmix_tidal_params_type) mom_tidal_mixing::tidal_mixing_cs::cvmix_tidal_params cvmix_tidal_params A CVMix-specific type with parameters for tidal mixing. type(cvmix_global_params_type) type(cvmix_global_params_type) mom_tidal_mixing::tidal_mixing_cs::cvmix_glb_params cvmix_glb_params CVMix-specific for Prandtl number only. real real mom_tidal_mixing::tidal_mixing_cs::tidal_max_coef tidal_max_coef CVMix-specific maximum allowable tidal diffusivity. [m^2/s]. real real mom_tidal_mixing::tidal_mixing_cs::tidal_diss_lim_tc tidal_diss_lim_tc CVMix-specific dissipation limit depth for tidal-energy-constituent data [Z ~> m]. type(remapping_cs) type(remapping_cs) mom_tidal_mixing::tidal_mixing_cs::remap_cs remap_cs The control structure for remapping. logical logical mom_tidal_mixing::tidal_mixing_cs::remap_answers_2018 remap_answers_2018 = .true. If true, use the order of arithmetic and expressions that recover the remapping answers from 2018. If false, use more robust forms of the same remapping expressions. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_tidal_mixing::tidal_mixing_cs::tke_niku tke_niku => NULL() Lee wave driven Turbulent Kinetic Energy input [R Z3 T-3 ~> W m-2]. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_tidal_mixing::tidal_mixing_cs::tke_itidal tke_itidal => NULL() The internal Turbulent Kinetic Energy input divided by the bottom stratfication [R Z3 T-2 ~> J m-2]. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_tidal_mixing::tidal_mixing_cs::nb nb => NULL() The near bottom buoyancy frequency [T-1 ~> s-1]. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_tidal_mixing::tidal_mixing_cs::mask_itidal mask_itidal => NULL() A mask of where internal tide energy is input. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_tidal_mixing::tidal_mixing_cs::h2 h2 => NULL() Squared bottom depth variance [Z2 ~> m2]. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_tidal_mixing::tidal_mixing_cs::tideamp tideamp => NULL() RMS tidal amplitude [Z T-1 ~> m s-1]. real, dimension(:), allocatable real, dimension(:), allocatable mom_tidal_mixing::tidal_mixing_cs::h_src h_src tidal constituent input layer thickness [m] real, dimension(:,:), allocatable real, dimension(:,:), allocatable mom_tidal_mixing::tidal_mixing_cs::tidal_qe_2d tidal_qe_2d Tidal energy input times the local dissipation fraction, q*E(x,y), with the CVMix implementation of Jayne et al tidal mixing [W m-2]. TODO: make this E(x,y) only. real, dimension(:,:,:), allocatable real, dimension(:,:,:), allocatable mom_tidal_mixing::tidal_mixing_cs::tidal_qe_3d_in tidal_qe_3d_in q*E(x,y,z) with the Schmittner parameterization [W m-3?] logical logical mom_tidal_mixing::tidal_mixing_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. type(diag_ctrl), pointer type(diag_ctrl), pointer mom_tidal_mixing::tidal_mixing_cs::diag diag => NULL() structure to regulate diagnostic output timing type(tidal_mixing_diags), pointer type(tidal_mixing_diags), pointer mom_tidal_mixing::tidal_mixing_cs::dd dd => NULL() A pointer to a structure of diagnostic arrays. Control structure with parameters for the tidal mixing module. real type(cvmix_tidal_params_type) logical remapping_cs mom_tidal_mixing::tidal_mixing_cs remap_answers_2018 int_tide_dissipation answers_2018 lee_wave_dissipation use_cvmix_tidal lowmode_itidal_dissipation debug remap_cs inputdir cvmix_glb_params dd cvmix_tidal_params diag kappa_itides gamma_itides polzin_decay_scale_factor mu_itides tidal_qe_3d_in tidal_qe_2d gamma_lee nb utide h_src ... id_n2_int id_polzin_decay_scale_scaled id_kd_lowmode id_vert_dep id_polzin_decay_scale id_schmittner_coeff id_nb id_kd_niku_work id_simmons_coeff id_tke_itidal ... diag_ctrl integer type(cvmix_global_params_type) character(len=200) mom_tidal_mixing::tidal_mixing_diags tidal_qe_md polzin_decay_scale n2_meanz kd_itidal kd_lowmode_work fl_itidal schmittner_coeff_3d n2_int kd_itidal_work kd_niku ... mom_tidal_mixing::tidal_mixing_csanswers_2018 mom_tidal_mixing::tidal_mixing_cscvmix_glb_params mom_tidal_mixing::tidal_mixing_cscvmix_tidal_params mom_tidal_mixing::tidal_mixing_cscvmix_tidal_scheme mom_tidal_mixing::tidal_mixing_csdd mom_tidal_mixing::tidal_mixing_csdebug mom_tidal_mixing::tidal_mixing_csdecay_scale_factor_lee mom_tidal_mixing::tidal_mixing_csdiag mom_tidal_mixing::tidal_mixing_csgamma_itides mom_tidal_mixing::tidal_mixing_csgamma_lee mom_tidal_mixing::tidal_mixing_csh2 mom_tidal_mixing::tidal_mixing_csh_src mom_tidal_mixing::tidal_mixing_csid_fl_itidal mom_tidal_mixing::tidal_mixing_csid_fl_lowmode mom_tidal_mixing::tidal_mixing_csid_kd_itidal mom_tidal_mixing::tidal_mixing_csid_kd_itidal_work mom_tidal_mixing::tidal_mixing_csid_kd_lowmode mom_tidal_mixing::tidal_mixing_csid_kd_lowmode_work mom_tidal_mixing::tidal_mixing_csid_kd_niku mom_tidal_mixing::tidal_mixing_csid_kd_niku_work mom_tidal_mixing::tidal_mixing_csid_n2_bot mom_tidal_mixing::tidal_mixing_csid_n2_int mom_tidal_mixing::tidal_mixing_csid_n2_meanz mom_tidal_mixing::tidal_mixing_csid_nb mom_tidal_mixing::tidal_mixing_csid_polzin_decay_scale mom_tidal_mixing::tidal_mixing_csid_polzin_decay_scale_scaled mom_tidal_mixing::tidal_mixing_csid_schmittner_coeff mom_tidal_mixing::tidal_mixing_csid_simmons_coeff mom_tidal_mixing::tidal_mixing_csid_tidal_qe_md mom_tidal_mixing::tidal_mixing_csid_tke_itidal mom_tidal_mixing::tidal_mixing_csid_tke_leewave mom_tidal_mixing::tidal_mixing_csid_vert_dep mom_tidal_mixing::tidal_mixing_csinputdir mom_tidal_mixing::tidal_mixing_csint_tide_decay_scale mom_tidal_mixing::tidal_mixing_csint_tide_dissipation mom_tidal_mixing::tidal_mixing_csint_tide_profile mom_tidal_mixing::tidal_mixing_cskappa_h2_factor mom_tidal_mixing::tidal_mixing_cskappa_itides mom_tidal_mixing::tidal_mixing_cslee_wave_dissipation mom_tidal_mixing::tidal_mixing_cslee_wave_profile mom_tidal_mixing::tidal_mixing_cslowmode_itidal_dissipation mom_tidal_mixing::tidal_mixing_csmask_itidal mom_tidal_mixing::tidal_mixing_csmin_thickness mom_tidal_mixing::tidal_mixing_csmin_zbot_itides mom_tidal_mixing::tidal_mixing_csmu_itides mom_tidal_mixing::tidal_mixing_csnb mom_tidal_mixing::tidal_mixing_csnbotref_polzin mom_tidal_mixing::tidal_mixing_csnu_polzin mom_tidal_mixing::tidal_mixing_cspolzin_decay_scale_factor mom_tidal_mixing::tidal_mixing_cspolzin_decay_scale_max_factor mom_tidal_mixing::tidal_mixing_cspolzin_min_decay_scale mom_tidal_mixing::tidal_mixing_csremap_answers_2018 mom_tidal_mixing::tidal_mixing_csremap_cs mom_tidal_mixing::tidal_mixing_cstidal_diss_lim_tc mom_tidal_mixing::tidal_mixing_cstidal_max_coef mom_tidal_mixing::tidal_mixing_cstidal_qe_2d mom_tidal_mixing::tidal_mixing_cstidal_qe_3d_in mom_tidal_mixing::tidal_mixing_cstideamp mom_tidal_mixing::tidal_mixing_cstke_itidal mom_tidal_mixing::tidal_mixing_cstke_itide_max mom_tidal_mixing::tidal_mixing_cstke_niku mom_tidal_mixing::tidal_mixing_csuse_cvmix_tidal mom_tidal_mixing::tidal_mixing_csutide