mom_set_visc::set_visc_cs integer integer mom_set_visc::set_visc_cs::id_bbl_thick_u id_bbl_thick_u = -1 Diagnostics handles. integer integer mom_set_visc::set_visc_cs::id_kv_bbl_u id_kv_bbl_u = -1 Diagnostics handles. integer integer mom_set_visc::set_visc_cs::id_bbl_u id_bbl_u = -1 Diagnostics handles. integer integer mom_set_visc::set_visc_cs::id_bbl_thick_v id_bbl_thick_v = -1 Diagnostics handles. integer integer mom_set_visc::set_visc_cs::id_kv_bbl_v id_kv_bbl_v = -1 Diagnostics handles. integer integer mom_set_visc::set_visc_cs::id_bbl_v id_bbl_v = -1 Diagnostics handles. integer integer mom_set_visc::set_visc_cs::id_ray_u id_ray_u = -1 Diagnostics handles. integer integer mom_set_visc::set_visc_cs::id_ray_v id_ray_v = -1 Diagnostics handles. integer integer mom_set_visc::set_visc_cs::id_nkml_visc_u id_nkml_visc_u = -1 Diagnostics handles. integer integer mom_set_visc::set_visc_cs::id_nkml_visc_v id_nkml_visc_v = -1 Diagnostics handles. real real mom_set_visc::set_visc_cs::hbbl hbbl The static bottom boundary layer thickness [H ~> m or kg m-2]. Runtime parameter HBBL. real real mom_set_visc::set_visc_cs::cdrag cdrag The quadratic drag coefficient. Runtime parameter CDRAG. real real mom_set_visc::set_visc_cs::c_smag c_smag The Laplacian Smagorinsky coefficient for calculating the drag in channels. real real mom_set_visc::set_visc_cs::drag_bg_vel drag_bg_vel An assumed unresolved background velocity for calculating the bottom drag [L T-1 ~> m s-1]. Runtime parameter DRAG_BG_VEL. real real mom_set_visc::set_visc_cs::bbl_thick_min bbl_thick_min The minimum bottom boundary layer thickness [H ~> m or kg m-2]. This might be Kv / (cdrag * drag_bg_vel) to give Kv as the minimum near-bottom viscosity. real real mom_set_visc::set_visc_cs::htbl_shelf htbl_shelf A nominal thickness of the surface boundary layer for use in calculating the near-surface velocity [H ~> m or kg m-2]. real real mom_set_visc::set_visc_cs::htbl_shelf_min htbl_shelf_min The minimum surface boundary layer thickness [H ~> m or kg m-2]. real real mom_set_visc::set_visc_cs::kv_bbl_min kv_bbl_min The minimum viscosity in the bottom boundary layer [Z2 T-1 ~> m2 s-1]. real real mom_set_visc::set_visc_cs::kv_tbl_min kv_tbl_min The minimum viscosity in the top boundary layer [Z2 T-1 ~> m2 s-1]. logical logical mom_set_visc::set_visc_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. Runtime parameter BOTTOMDRAGLAW. logical logical mom_set_visc::set_visc_cs::bbl_use_eos bbl_use_eos If true, use the equation of state in determining the properties of the bottom boundary layer. logical logical mom_set_visc::set_visc_cs::linear_drag linear_drag If true, the drag law is cdrag*DRAG_BG_VEL*u. Runtime parameter LINEAR_DRAG. logical logical mom_set_visc::set_visc_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_set_visc::set_visc_cs::correct_bbl_bounds correct_bbl_bounds If true, uses the correct bounds on the BBL thickness and viscosity so that the bottom layer feels the intended drag. logical logical mom_set_visc::set_visc_cs::rino_mix rino_mix If true, use Richardson number dependent mixing. logical logical mom_set_visc::set_visc_cs::dynamic_viscous_ml dynamic_viscous_ml If true, use a bulk Richardson number criterion to determine the mixed layer thickness for viscosity. real real mom_set_visc::set_visc_cs::bulk_ri_ml bulk_ri_ml The bulk mixed layer used to determine the thickness of the viscous mixed layer. Nondim. real real mom_set_visc::set_visc_cs::omega omega The Earth's rotation rate [T-1 ~> s-1]. real real mom_set_visc::set_visc_cs::ustar_min ustar_min A minimum value of ustar to avoid numerical problems [Z T-1 ~> m s-1]. If the value is small enough, this should not affect the solution. real real mom_set_visc::set_visc_cs::tke_decay tke_decay The ratio of the natural Ekman depth to the TKE decay scale, nondimensional. real real mom_set_visc::set_visc_cs::omega_frac omega_frac When setting the decay scale for turbulence, use this fraction of the absolute rotation rate blended with the local value of f, as sqrt((1-of)*f^2 + of*4*omega^2). logical logical mom_set_visc::set_visc_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. logical logical mom_set_visc::set_visc_cs::debug debug If true, write verbose checksums for debugging purposes. logical logical mom_set_visc::set_visc_cs::bbl_use_tidal_bg bbl_use_tidal_bg If true, use a tidal background amplitude for the bottom velocity when computing the bottom stress. character(len=200) character(len=200) mom_set_visc::set_visc_cs::inputdir inputdir The directory for input files. type(ocean_obc_type), pointer type(ocean_obc_type), pointer mom_set_visc::set_visc_cs::obc obc => NULL() Open boundaries control structure. type(diag_ctrl), pointer type(diag_ctrl), pointer mom_set_visc::set_visc_cs::diag diag => NULL() A structure that is used to regulate the timing of diagnostic output. real, dimension(:,:), allocatable real, dimension(:,:), allocatable mom_set_visc::set_visc_cs::tideamp tideamp RMS tidal amplitude at h points [Z T-1 ~> m s-1]. real, dimension(:,:), allocatable real, dimension(:,:), allocatable mom_set_visc::set_visc_cs::bbl_u bbl_u BBL mean U current [L T-1 ~> m s-1]. real, dimension(:,:), allocatable real, dimension(:,:), allocatable mom_set_visc::set_visc_cs::bbl_v bbl_v BBL mean V current [L T-1 ~> m s-1]. Control structure for MOM_set_visc. real mom_set_visc::set_visc_cs bbl_use_eos answers_2018 dynamic_viscous_ml bottomdraglaw bbl_use_tidal_bg linear_drag channel_drag debug rino_mix correct_bbl_bounds ... obc inputdir diag id_kv_bbl_u id_nkml_visc_u id_kv_bbl_v id_nkml_visc_v id_bbl_u id_ray_u id_bbl_v id_ray_v id_bbl_thick_u id_bbl_thick_v ... kv_bbl_min cdrag drag_bg_vel kv_tbl_min bbl_thick_min hbbl tke_decay bulk_ri_ml htbl_shelf htbl_shelf_min ... logical ocean_obc_type diag_ctrl integer character(len=200) mom_set_visc::set_visc_csanswers_2018 mom_set_visc::set_visc_csbbl_thick_min mom_set_visc::set_visc_csbbl_u mom_set_visc::set_visc_csbbl_use_eos mom_set_visc::set_visc_csbbl_use_tidal_bg mom_set_visc::set_visc_csbbl_v mom_set_visc::set_visc_csbottomdraglaw mom_set_visc::set_visc_csbulk_ri_ml mom_set_visc::set_visc_csc_smag mom_set_visc::set_visc_cscdrag mom_set_visc::set_visc_cschannel_drag mom_set_visc::set_visc_cscorrect_bbl_bounds mom_set_visc::set_visc_csdebug mom_set_visc::set_visc_csdiag mom_set_visc::set_visc_csdrag_bg_vel mom_set_visc::set_visc_csdynamic_viscous_ml mom_set_visc::set_visc_cshbbl mom_set_visc::set_visc_cshtbl_shelf mom_set_visc::set_visc_cshtbl_shelf_min mom_set_visc::set_visc_csid_bbl_thick_u mom_set_visc::set_visc_csid_bbl_thick_v mom_set_visc::set_visc_csid_bbl_u mom_set_visc::set_visc_csid_bbl_v mom_set_visc::set_visc_csid_kv_bbl_u mom_set_visc::set_visc_csid_kv_bbl_v mom_set_visc::set_visc_csid_nkml_visc_u mom_set_visc::set_visc_csid_nkml_visc_v mom_set_visc::set_visc_csid_ray_u mom_set_visc::set_visc_csid_ray_v mom_set_visc::set_visc_csinputdir mom_set_visc::set_visc_cskv_bbl_min mom_set_visc::set_visc_cskv_tbl_min mom_set_visc::set_visc_cslinear_drag mom_set_visc::set_visc_csobc mom_set_visc::set_visc_csomega mom_set_visc::set_visc_csomega_frac mom_set_visc::set_visc_csrino_mix mom_set_visc::set_visc_cstideamp mom_set_visc::set_visc_cstke_decay mom_set_visc::set_visc_csustar_min