mom_neutral_diffusion::neutral_diffusion_cs integer integer mom_neutral_diffusion::neutral_diffusion_cs::nkp1 nkp1 Number of interfaces for a column = nk + 1. integer integer mom_neutral_diffusion::neutral_diffusion_cs::nsurf nsurf Number of neutral surfaces. integer integer mom_neutral_diffusion::neutral_diffusion_cs::deg deg = 2 Degree of polynomial used for reconstructions. logical logical mom_neutral_diffusion::neutral_diffusion_cs::continuous_reconstruction continuous_reconstruction = .true. True if using continuous PPM reconstruction at interfaces. logical logical mom_neutral_diffusion::neutral_diffusion_cs::debug debug = .false. If true, write verbose debugging messages. logical logical mom_neutral_diffusion::neutral_diffusion_cs::hard_fail_heff hard_fail_heff Bring down the model if a problem with heff is detected. integer integer mom_neutral_diffusion::neutral_diffusion_cs::max_iter max_iter Maximum number of iterations if refine_position is defined. real real mom_neutral_diffusion::neutral_diffusion_cs::drho_tol drho_tol Convergence criterion representing density difference from true neutrality [R ~> kg m-3]. real real mom_neutral_diffusion::neutral_diffusion_cs::x_tol x_tol Convergence criterion for how small an update of the position can be. real real mom_neutral_diffusion::neutral_diffusion_cs::ref_pres ref_pres Reference pressure, negative if using locally referenced neutral density [R L2 T-2 ~> Pa]. logical logical mom_neutral_diffusion::neutral_diffusion_cs::interior_only interior_only If true, only applies neutral diffusion in the ocean interior. That is, the algorithm will exclude the surface and bottom boundary layers. real, dimension(:,:,:), allocatable real, dimension(:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::upol upol Non-dimensional position with left layer uKoL-1, u-point. real, dimension(:,:,:), allocatable real, dimension(:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::upor upor Non-dimensional position with right layer uKoR-1, u-point. integer, dimension(:,:,:), allocatable integer, dimension(:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::ukol ukol Index of left interface corresponding to neutral surface, at a u-point. integer, dimension(:,:,:), allocatable integer, dimension(:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::ukor ukor Index of right interface corresponding to neutral surface, at a u-point. real, dimension(:,:,:), allocatable real, dimension(:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::uheff uheff Effective thickness at u-point [H ~> m or kg m-2]. real, dimension(:,:,:), allocatable real, dimension(:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::vpol vpol Non-dimensional position with left layer uKoL-1, v-point. real, dimension(:,:,:), allocatable real, dimension(:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::vpor vpor Non-dimensional position with right layer uKoR-1, v-point. integer, dimension(:,:,:), allocatable integer, dimension(:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::vkol vkol Index of left interface corresponding to neutral surface, at a v-point. integer, dimension(:,:,:), allocatable integer, dimension(:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::vkor vkor Index of right interface corresponding to neutral surface, at a v-point. real, dimension(:,:,:), allocatable real, dimension(:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::vheff vheff Effective thickness at v-point [H ~> m or kg m-2]. real, dimension(:,:,:,:), allocatable real, dimension(:,:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::ppoly_coeffs_t ppoly_coeffs_t Polynomial coefficients for temperature. real, dimension(:,:,:,:), allocatable real, dimension(:,:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::ppoly_coeffs_s ppoly_coeffs_s Polynomial coefficients for salinity. real, dimension(:,:,:), allocatable real, dimension(:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::drdt drdt dRho/dT [R degC-1 ~> kg m-3 degC-1] at interfaces real, dimension(:,:,:), allocatable real, dimension(:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::drds drds dRho/dS [R ppt-1 ~> kg m-3 ppt-1] at interfaces real, dimension(:,:,:), allocatable real, dimension(:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::tint tint Interface T [degC]. real, dimension(:,:,:), allocatable real, dimension(:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::sint sint Interface S [ppt]. real, dimension(:,:,:), allocatable real, dimension(:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::pint pint Interface pressure [R L2 T-2 ~> Pa]. real, dimension(:,:,:,:), allocatable real, dimension(:,:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::t_i t_i Top edge reconstruction of temperature [degC]. real, dimension(:,:,:,:), allocatable real, dimension(:,:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::s_i s_i Top edge reconstruction of salinity [ppt]. real, dimension(:,:,:,:), allocatable real, dimension(:,:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::p_i p_i Interface pressures [R L2 T-2 ~> Pa]. real, dimension(:,:,:,:), allocatable real, dimension(:,:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::drdt_i drdt_i dRho/dT [R degC-1 ~> kg m-3 degC-1] at top edge real, dimension(:,:,:,:), allocatable real, dimension(:,:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::drds_i drds_i dRho/dS [R ppt-1 ~> kg m-3 ppt-1] at top edge integer, dimension(:,:), allocatable integer, dimension(:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::ns ns Number of interfacs in a column. logical, dimension(:,:,:), allocatable logical, dimension(:,:,:), allocatable mom_neutral_diffusion::neutral_diffusion_cs::stable_cell stable_cell True if the cell is stably stratified wrt to the next cell. real real mom_neutral_diffusion::neutral_diffusion_cs::r_to_kg_m3 r_to_kg_m3 = 1.0 A rescaling factor translating density to kg m-3 for use in diagnostic messages [kg m-3 R-1 ~> 1]. type(diag_ctrl), pointer type(diag_ctrl), pointer mom_neutral_diffusion::neutral_diffusion_cs::diag diag => NULL() A structure that is used to regulate the timing of diagnostic output. integer integer mom_neutral_diffusion::neutral_diffusion_cs::neutral_pos_method neutral_pos_method Method to find the position of a neutral surface within the layer. character(len=40) character(len=40) mom_neutral_diffusion::neutral_diffusion_cs::delta_rho_form delta_rho_form Determine which (if any) approximation is made to the equation describing the difference in density. integer integer mom_neutral_diffusion::neutral_diffusion_cs::id_uheff_2d id_uheff_2d = -1 Diagnostic IDs. integer integer mom_neutral_diffusion::neutral_diffusion_cs::id_vheff_2d id_vheff_2d = -1 Diagnostic IDs. type(eos_type), pointer type(eos_type), pointer mom_neutral_diffusion::neutral_diffusion_cs::eos eos => NULL() Equation of state parameters. type(remapping_cs) type(remapping_cs) mom_neutral_diffusion::neutral_diffusion_cs::remap_cs remap_cs Remapping control structure used to create sublayers. logical logical mom_neutral_diffusion::neutral_diffusion_cs::remap_answers_2018 remap_answers_2018 If true, use the order of arithmetic and expressions that recover the answers for remapping from the end of 2018. Otherwise, use more robust forms of the same expressions. type(kpp_cs), pointer type(kpp_cs), pointer mom_neutral_diffusion::neutral_diffusion_cs::kpp_csp kpp_csp => NULL() KPP control structure needed to get BLD. type(energetic_pbl_cs), pointer type(energetic_pbl_cs), pointer mom_neutral_diffusion::neutral_diffusion_cs::energetic_pbl_csp energetic_pbl_csp => NULL() ePBL control structure needed to get MLD The control structure for the MOM_neutral_diffusion module. type(energetic_pbl_cs), pointer real logical remapping_cs character(len=40) type(kpp_cs), pointer type(eos_type), pointer mom_neutral_diffusion::neutral_diffusion_cs remap_answers_2018 interior_only hard_fail_heff continuous_reconstruction stable_cell debug energetic_pbl_csp remap_cs eos diag delta_rho_form kpp_csp x_tol p_i drho_tol drds_i drdt_i s_i t_i ppoly_coeffs_s ppoly_coeffs_t vpol ... max_iter deg nkp1 vkol ukol ns id_vheff_2d id_uheff_2d neutral_pos_method vkor ... diag_ctrl integer mom_neutral_diffusion::neutral_diffusion_cscontinuous_reconstruction mom_neutral_diffusion::neutral_diffusion_csdebug mom_neutral_diffusion::neutral_diffusion_csdeg mom_neutral_diffusion::neutral_diffusion_csdelta_rho_form mom_neutral_diffusion::neutral_diffusion_csdiag mom_neutral_diffusion::neutral_diffusion_csdrds mom_neutral_diffusion::neutral_diffusion_csdrds_i mom_neutral_diffusion::neutral_diffusion_csdrdt mom_neutral_diffusion::neutral_diffusion_csdrdt_i mom_neutral_diffusion::neutral_diffusion_csdrho_tol mom_neutral_diffusion::neutral_diffusion_csenergetic_pbl_csp mom_neutral_diffusion::neutral_diffusion_cseos mom_neutral_diffusion::neutral_diffusion_cshard_fail_heff mom_neutral_diffusion::neutral_diffusion_csid_uheff_2d mom_neutral_diffusion::neutral_diffusion_csid_vheff_2d mom_neutral_diffusion::neutral_diffusion_csinterior_only mom_neutral_diffusion::neutral_diffusion_cskpp_csp mom_neutral_diffusion::neutral_diffusion_csmax_iter mom_neutral_diffusion::neutral_diffusion_csneutral_pos_method mom_neutral_diffusion::neutral_diffusion_csnkp1 mom_neutral_diffusion::neutral_diffusion_csns mom_neutral_diffusion::neutral_diffusion_csnsurf mom_neutral_diffusion::neutral_diffusion_csp_i mom_neutral_diffusion::neutral_diffusion_cspint mom_neutral_diffusion::neutral_diffusion_csppoly_coeffs_s mom_neutral_diffusion::neutral_diffusion_csppoly_coeffs_t mom_neutral_diffusion::neutral_diffusion_csr_to_kg_m3 mom_neutral_diffusion::neutral_diffusion_csref_pres mom_neutral_diffusion::neutral_diffusion_csremap_answers_2018 mom_neutral_diffusion::neutral_diffusion_csremap_cs mom_neutral_diffusion::neutral_diffusion_css_i mom_neutral_diffusion::neutral_diffusion_cssint mom_neutral_diffusion::neutral_diffusion_csstable_cell mom_neutral_diffusion::neutral_diffusion_cst_i mom_neutral_diffusion::neutral_diffusion_cstint mom_neutral_diffusion::neutral_diffusion_csuheff mom_neutral_diffusion::neutral_diffusion_csukol mom_neutral_diffusion::neutral_diffusion_csukor mom_neutral_diffusion::neutral_diffusion_csupol mom_neutral_diffusion::neutral_diffusion_csupor mom_neutral_diffusion::neutral_diffusion_csvheff mom_neutral_diffusion::neutral_diffusion_csvkol mom_neutral_diffusion::neutral_diffusion_csvkor mom_neutral_diffusion::neutral_diffusion_csvpol mom_neutral_diffusion::neutral_diffusion_csvpor mom_neutral_diffusion::neutral_diffusion_csx_tol