mom_vert_friction::vertvisc_cs integer integer mom_vert_friction::vertvisc_cs::id_du_dt_visc id_du_dt_visc = -1 Diagnostic identifiers. integer integer mom_vert_friction::vertvisc_cs::id_dv_dt_visc id_dv_dt_visc = -1 Diagnostic identifiers. integer integer mom_vert_friction::vertvisc_cs::id_au_vv id_au_vv = -1 Diagnostic identifiers. integer integer mom_vert_friction::vertvisc_cs::id_av_vv id_av_vv = -1 Diagnostic identifiers. integer integer mom_vert_friction::vertvisc_cs::id_h_u id_h_u = -1 Diagnostic identifiers. integer integer mom_vert_friction::vertvisc_cs::id_h_v id_h_v = -1 Diagnostic identifiers. integer integer mom_vert_friction::vertvisc_cs::id_hml_u id_hml_u = -1 Diagnostic identifiers. integer integer mom_vert_friction::vertvisc_cs::id_hml_v id_hml_v = -1 Diagnostic identifiers. integer integer mom_vert_friction::vertvisc_cs::id_taux_bot id_taux_bot = -1 Diagnostic identifiers. integer integer mom_vert_friction::vertvisc_cs::id_tauy_bot id_tauy_bot = -1 Diagnostic identifiers. integer integer mom_vert_friction::vertvisc_cs::id_kv_slow id_kv_slow = -1 Diagnostic identifiers. integer integer mom_vert_friction::vertvisc_cs::id_kv_u id_kv_u = -1 Diagnostic identifiers. integer integer mom_vert_friction::vertvisc_cs::id_kv_v id_kv_v = -1 Diagnostic identifiers. integer integer mom_vert_friction::vertvisc_cs::id_hf_du_dt_visc_2d id_hf_du_dt_visc_2d = -1 Diagnostic identifiers. integer integer mom_vert_friction::vertvisc_cs::id_hf_dv_dt_visc_2d id_hf_dv_dt_visc_2d = -1 Diagnostic identifiers. real real mom_vert_friction::vertvisc_cs::hmix hmix The mixed layer thickness in thickness units [H ~> m or kg m-2]. real real mom_vert_friction::vertvisc_cs::hmix_stress hmix_stress The mixed layer thickness over which the wind stress is applied with direct_stress [H ~> m or kg m-2]. real real mom_vert_friction::vertvisc_cs::kvml kvml The mixed layer vertical viscosity [Z2 T-1 ~> m2 s-1]. real real mom_vert_friction::vertvisc_cs::kv kv The interior vertical viscosity [Z2 T-1 ~> m2 s-1]. real real mom_vert_friction::vertvisc_cs::hbbl hbbl The static bottom boundary layer thickness [H ~> m or kg m-2]. real real mom_vert_friction::vertvisc_cs::kvbbl kvbbl The vertical viscosity in the bottom boundary layer [Z2 T-1 ~> m2 s-1]. real real mom_vert_friction::vertvisc_cs::maxvel maxvel Velocity components greater than maxvel are truncated [L T-1 ~> m s-1]. real real mom_vert_friction::vertvisc_cs::vel_underflow vel_underflow Velocity components smaller than vel_underflow are set to 0 [L T-1 ~> m s-1]. logical logical mom_vert_friction::vertvisc_cs::cfl_based_trunc cfl_based_trunc If true, base truncations on CFL numbers, not absolute velocities. real real mom_vert_friction::vertvisc_cs::cfl_trunc cfl_trunc Velocity components will be truncated when they are large enough that the corresponding CFL number exceeds this value, nondim. real real mom_vert_friction::vertvisc_cs::cfl_report cfl_report The value of the CFL number that will cause the accelerations to be reported, nondim. CFL_report will often equal CFL_trunc. real real mom_vert_friction::vertvisc_cs::truncramptime truncramptime The time-scale over which to ramp up the value of CFL_trunc from CFL_truncS to CFL_truncE. real real mom_vert_friction::vertvisc_cs::cfl_truncs cfl_truncs The start value of CFL_trunc. real real mom_vert_friction::vertvisc_cs::cfl_trunce cfl_trunce The end/target value of CFL_trunc. logical logical mom_vert_friction::vertvisc_cs::cflrampingisactivated cflrampingisactivated = .false. True if the ramping has been initialized. type(time_type) type(time_type) mom_vert_friction::vertvisc_cs::rampstarttime rampstarttime The time at which the ramping of CFL_trunc starts. real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_vert_friction::vertvisc_cs::a_u a_u The u-drag coefficient across an interface [Z T-1 ~> m s-1]. real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_vert_friction::vertvisc_cs::h_u h_u The effective layer thickness at u-points [H ~> m or kg m-2]. real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_vert_friction::vertvisc_cs::a_v a_v The v-drag coefficient across an interface [Z T-1 ~> m s-1]. real, dimension(:, :, :), allocatable real, dimension( : , : , : ), allocatable mom_vert_friction::vertvisc_cs::h_v h_v The effective layer thickness at v-points [H ~> m or kg m-2]. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_vert_friction::vertvisc_cs::a1_shelf_u a1_shelf_u => NULL() The u-momentum coupling coefficient under ice shelves [Z T-1 ~> m s-1]. Retained to determine stress under shelves. real, dimension(:,:), pointer real, dimension(:,:), pointer mom_vert_friction::vertvisc_cs::a1_shelf_v a1_shelf_v => NULL() The v-momentum coupling coefficient under ice shelves [Z T-1 ~> m s-1]. Retained to determine stress under shelves. logical logical mom_vert_friction::vertvisc_cs::split split If true, use the split time stepping scheme. logical logical mom_vert_friction::vertvisc_cs::bottomdraglaw bottomdraglaw If true, the bottom stress is calculated with a drag law c_drag*|u|*u. The velocity magnitude may be an assumed value or it may be based on the actual velocity in the bottommost HBBL, depending on whether linear_drag is true. logical logical mom_vert_friction::vertvisc_cs::channel_drag channel_drag If true, the drag is exerted directly on each layer according to what fraction of the bottom they overlie. logical logical mom_vert_friction::vertvisc_cs::harmonic_visc harmonic_visc If true, the harmonic mean thicknesses are used to calculate the viscous coupling between layers except near the bottom. Otherwise the arithmetic mean thickness is used except near the bottom. real real mom_vert_friction::vertvisc_cs::harm_bl_val harm_bl_val A scale to determine when water is in the boundary layers based solely on harmonic mean thicknesses for the purpose of determining the extent to which the thicknesses used in the viscosities are upwinded. logical logical mom_vert_friction::vertvisc_cs::direct_stress direct_stress If true, the wind stress is distributed over the topmost Hmix_stress of fluid and KVML may be very small. logical logical mom_vert_friction::vertvisc_cs::dynamic_viscous_ml dynamic_viscous_ml If true, use the results from a dynamic calculation, perhaps based on a bulk Richardson number criterion, to determine the mixed layer thickness for viscosity. logical logical mom_vert_friction::vertvisc_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 expressions that do not use an arbitary and hard-coded maximum viscous coupling coefficient between layers. logical logical mom_vert_friction::vertvisc_cs::debug debug If true, write verbose checksums for debugging purposes. integer integer mom_vert_friction::vertvisc_cs::nkml nkml The number of layers in the mixed layer. integer, pointer integer, pointer mom_vert_friction::vertvisc_cs::ntrunc ntrunc The number of times the velocity has been truncated since the last call to write_energy. character(len=200) character(len=200) mom_vert_friction::vertvisc_cs::u_trunc_file u_trunc_file The complete path to a file in which a column of u-accelerations are written if velocity truncations occur. character(len=200) character(len=200) mom_vert_friction::vertvisc_cs::v_trunc_file v_trunc_file The complete path to a file in which a column of v-accelerations are written if velocity truncations occur. logical logical mom_vert_friction::vertvisc_cs::stokesmixing stokesmixing If true, do Stokes drift mixing via the Lagrangian current (Eulerian plus Stokes drift). False by default and set via STOKES_MIXING_COMBINED. type(diag_ctrl), pointer type(diag_ctrl), pointer mom_vert_friction::vertvisc_cs::diag diag A structure that is used to regulate the timing of diagnostic output. type(pointaccel_cs), pointer type(pointaccel_cs), pointer mom_vert_friction::vertvisc_cs::pointaccel_csp pointaccel_csp => NULL() A pointer to the control structure for recording accelerations leading to velocity truncations. The control structure with parameters and memory for the MOM_vert_friction module. real mom_vert_friction::vertvisc_cs cfl_based_trunc answers_2018 direct_stress split harmonic_visc stokesmixing dynamic_viscous_ml bottomdraglaw channel_drag cflrampingisactivated ... rampstarttime v_trunc_file u_trunc_file diag id_dv_dt_visc id_hml_u id_hml_v id_av_vv id_au_vv id_kv_u id_tauy_bot id_h_u id_kv_v id_taux_bot ... a_u a_v hmix a1_shelf_u hbbl harm_bl_val a1_shelf_v vel_underflow cfl_trunc h_u ... pointaccel_csp logical time_type diag_ctrl integer character(len=200) type(pointaccel_cs), pointer mom_vert_friction::vertvisc_csa1_shelf_u mom_vert_friction::vertvisc_csa1_shelf_v mom_vert_friction::vertvisc_csa_u mom_vert_friction::vertvisc_csa_v mom_vert_friction::vertvisc_csanswers_2018 mom_vert_friction::vertvisc_csbottomdraglaw mom_vert_friction::vertvisc_cscfl_based_trunc mom_vert_friction::vertvisc_cscfl_report mom_vert_friction::vertvisc_cscfl_trunc mom_vert_friction::vertvisc_cscfl_trunce mom_vert_friction::vertvisc_cscfl_truncs mom_vert_friction::vertvisc_cscflrampingisactivated mom_vert_friction::vertvisc_cschannel_drag mom_vert_friction::vertvisc_csdebug mom_vert_friction::vertvisc_csdiag mom_vert_friction::vertvisc_csdirect_stress mom_vert_friction::vertvisc_csdynamic_viscous_ml mom_vert_friction::vertvisc_csh_u mom_vert_friction::vertvisc_csh_v mom_vert_friction::vertvisc_csharm_bl_val mom_vert_friction::vertvisc_csharmonic_visc mom_vert_friction::vertvisc_cshbbl mom_vert_friction::vertvisc_cshmix mom_vert_friction::vertvisc_cshmix_stress mom_vert_friction::vertvisc_csid_au_vv mom_vert_friction::vertvisc_csid_av_vv mom_vert_friction::vertvisc_csid_du_dt_visc mom_vert_friction::vertvisc_csid_dv_dt_visc mom_vert_friction::vertvisc_csid_h_u mom_vert_friction::vertvisc_csid_h_v mom_vert_friction::vertvisc_csid_hf_du_dt_visc_2d mom_vert_friction::vertvisc_csid_hf_dv_dt_visc_2d mom_vert_friction::vertvisc_csid_hml_u mom_vert_friction::vertvisc_csid_hml_v mom_vert_friction::vertvisc_csid_kv_slow mom_vert_friction::vertvisc_csid_kv_u mom_vert_friction::vertvisc_csid_kv_v mom_vert_friction::vertvisc_csid_taux_bot mom_vert_friction::vertvisc_csid_tauy_bot mom_vert_friction::vertvisc_cskv mom_vert_friction::vertvisc_cskvbbl mom_vert_friction::vertvisc_cskvml mom_vert_friction::vertvisc_csmaxvel mom_vert_friction::vertvisc_csnkml mom_vert_friction::vertvisc_csntrunc mom_vert_friction::vertvisc_cspointaccel_csp mom_vert_friction::vertvisc_csrampstarttime mom_vert_friction::vertvisc_cssplit mom_vert_friction::vertvisc_csstokesmixing mom_vert_friction::vertvisc_cstruncramptime mom_vert_friction::vertvisc_csu_trunc_file mom_vert_friction::vertvisc_csv_trunc_file mom_vert_friction::vertvisc_csvel_underflow