mom_wave_speed::wave_speed_cs logical logical mom_wave_speed::wave_speed_cs::use_ebt_mode use_ebt_mode = .false. If true, calculate the equivalent barotropic wave speed instead of the first baroclinic wave speed. This parameter controls the default behavior of wave_speed() which can be overridden by optional arguments. logical logical mom_wave_speed::wave_speed_cs::better_cg1_est better_cg1_est = .false. If true, use an improved estimate of the first mode internal wave speed. real real mom_wave_speed::wave_speed_cs::mono_n2_column_fraction mono_n2_column_fraction = 0. The lower fraction of water column over which N2 is limited as monotonic for the purposes of calculating the equivalent barotropic wave speed. This parameter controls the default behavior of wave_speed() which can be overridden by optional arguments. real real mom_wave_speed::wave_speed_cs::mono_n2_depth mono_n2_depth = -1. The depth below which N2 is limited as monotonic for the purposes of calculating the equivalent barotropic wave speed [Z ~> m]. This parameter controls the default behavior of wave_speed() which can be overridden by optional arguments. real real mom_wave_speed::wave_speed_cs::min_speed2 min_speed2 = 0. The minimum mode 1 internal wave speed squared [L2 T-2 ~> m2 s-2]. real real mom_wave_speed::wave_speed_cs::wave_speed_tol wave_speed_tol = 0.001 The fractional tolerance with which to solve for the wave speeds [nondim]. type(remapping_cs) type(remapping_cs) mom_wave_speed::wave_speed_cs::remapping_cs remapping_cs Used for vertical remapping when calculating equivalent barotropic mode structure. logical logical mom_wave_speed::wave_speed_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. type(diag_ctrl), pointer type(diag_ctrl), pointer mom_wave_speed::wave_speed_cs::diag diag Diagnostics control structure. Control structure for MOM_wave_speed. real logical remapping_cs mom_wave_speed::wave_speed_cs remap_answers_2018 better_cg1_est use_ebt_mode remapping_cs diag mono_n2_depth wave_speed_tol mono_n2_column_fraction min_speed2 diag_ctrl mom_wave_speed::wave_speed_csbetter_cg1_est mom_wave_speed::wave_speed_csdiag mom_wave_speed::wave_speed_csmin_speed2 mom_wave_speed::wave_speed_csmono_n2_column_fraction mom_wave_speed::wave_speed_csmono_n2_depth mom_wave_speed::wave_speed_csremap_answers_2018 mom_wave_speed::wave_speed_csremapping_cs mom_wave_speed::wave_speed_csuse_ebt_mode mom_wave_speed::wave_speed_cswave_speed_tol