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. answers_2018 boundary_extrapolation check_reconstruction check_remapping force_bounds_in_subcell degree remapping_scheme compressible eos_quadrature drho_ds drho_dt dtfr_dp dtfr_ds kg_m3_to_r l_t_to_m_s m_to_z r_to_kg_m3 rho_t0_s0 rl2_t2_to_pa ... form_of_eos form_of_tfreeze coordinateresolution min_thickness nk axesb1 axesbi axesbl axescu1 axescui axescul axescv1 axescvi axescvl axest1 ... mask2dbu mask2dcu mask2dcv mask2dt mask3dbi mask3dbl mask3dcui mask3dcul mask3dcvi mask3dcvl ... iec ied ieg iegb isc isd isg isgb jec jed ... coordinateresolution min_thickness nk bathymetry_at_vel nonblocking_updates symmetric us domain domain_aux block hi hid2 x_axis_units y_axis_units areabu areacu areacv areat areat_global bathyt coriolisbu cos_rot dblock_u dblock_v ... first_direction idg_offset iec iecb ied iedb ieg iegb isc iscb ... mask2d mask3d h sigma_cs integrate_downward_for_e remap_answers_2018 set_maximum_depths target_density_set slight_cs interp_cs adapt_cs rho_cs hycom_cs zlike_cs nk regridding_scheme compressibility_fraction coord_scale coordinateresolution depth_of_time_filter_deep depth_of_time_filter_shallow max_depth_index_scale max_interface_depths max_layer_thickness min_thickness old_grid_weight ... answers_2018 mld_bisection mld_iteration_guess mstar_flatcap orig_pe_calc tke_diagnostics use_lt use_mld_iteration diag sum_its time id_hml_depth id_la id_la_mod id_mixing_length id_ml_depth id_mstar_lt id_mstar_mix id_tke_conv id_tke_conv_decay id_tke_forcing ... c_ek diag_tke_conv diag_tke_conv_decay diag_tke_forcing diag_tke_mech_decay diag_tke_mixing diag_tke_mke diag_tke_wind ekman_scale_coef fixed_mstar ... answers_2018 boundary_extrapolation interpolation_scheme applynonlocaltrans computeekman computemoninobukhov correctsurflayeravg debug deepen_only enhance_diffusion fixedobldepth kppisadditive kppzerodiffusivity ... diag kpp_params interptype interptype2 matchtechnique id_bulkdrho id_bulkri id_bulkuz2 id_buoyflux id_enhk id_enhvt2 id_enhw id_kd_in id_ks_kpp id_kt_kpp ... bulkri cs cs2 deepobloffset drho enhk enhvt2 fixedobldepth_value kobl kpp_k_enh_fac ... maskmap nonblocking_updates symmetric thin_halo_updates mpp_domain mpp_domain_d2 io_layout layout niglobal nihalo njglobal njhalo x_flags y_flags diag_grids h_state num_diag_coords interp_cs coordinateresolution max_interface_depths max_layer_thickness target_density nk continuous_reconstruction debug hard_fail_heff interior_only remap_answers_2018 stable_cell diag energetic_pbl_csp kpp_csp eos delta_rho_form drds drds_i drdt drdt_i drho_tol p_i pint ppoly_coeffs_s ppoly_coeffs_t r_to_kg_m3 ... deg id_uheff_2d id_vheff_2d max_iter neutral_pos_method nkp1 ns nsurf ukol ukor ... remap_cs fix_haloclines interp_cs compressibility_fraction dz_ml_min halocline_filter_length halocline_strat_tol max_interface_depths max_layer_thickness min_thickness nlay_ml_offset ref_pressure rho_ml_avg_depth ... nk nz_fixed_surface v integrate_downward_for_e interp_cs min_thickness ref_pressure target_density nk boussinesq zaxislongname zaxisunits angstrom_h angstrom_m angstrom_z g_earth g_prime h_subroundoff h_to_kg_m2 h_to_m h_to_mks h_to_pa ... direction ke nk_rho_varies nkml in_use v_extensive next debug_str axes conversion_factor downsample_diag_id fms_diag_id fms_xyave_diag_id xyz_method adaptdomin adaptalpha adaptbuoycoeff adaptdrho0 adapttimeratio adaptzoom adaptzoomcoeff coordinateresolution nk is_h_point is_interface is_layer is_native is_q_point is_u_point is_v_point needs_interpolating needs_remapping diag_cs v_cell_method x_cell_method y_cell_method xyave_axes mask2d mask3d downsample_level handles id_area id_volume nz rank vertical_coordinate_number id dsamp symmetric idg_offset iec iecb ied iedb ieg iegb isc iscb isd ... j_kg_to_q j_kg_to_q_restart kg_m2s_to_rz_t kg_m3_to_r kg_m3_to_r_restart l_t2_to_m_s2 l_t_to_m_s l_to_m l_to_z m2_s_to_z2_t ... regrid_cs diag_coord_name answers_2018 configured initialized used vertical_coord_name diag_module_suffix h h_extensive interface_axes_id layer_axes_id nz vertical_coord remap_cs ave_enabled diag_as_chksum diag_grid_overridden grid_space_axes time_end diag_grid_temp diags gv g dsamp us diag_remap_cs eqn_of_state axesb1 axesbi axesbl axescu1 axescui axescul axescv1 axescvi axescvl axesnull ... h h_begin mask2dbu mask2dcu mask2dcv mask2dt mask3dbi mask3dbl mask3dcui mask3dcul ... available_diag_doc_unit chksum_iounit ie ied is isd je jed js jsd ... 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