sfx_sheba_noit_param.f90

module sfx_sheba_noit_param
    !< @brief SHEBA surface flux model parameters
    !< @details  all in SI units

    ! modules used
    ! --------------------------------------------------------------------------------
    use sfx_phys_const
    ! --------------------------------------------------------------------------------

    ! directives list
    ! --------------------------------------------------------------------------------
    implicit none
    ! --------------------------------------------------------------------------------


    !< von Karman constant [n/d]
    real, parameter :: kappa = 0.40
    !< inverse Prandtl (turbulent) number in neutral conditions [n/d]
    real, parameter :: Pr_t_0_inv = 1.15
    !< inverse Prandtl (turbulent) number in free convection [n/d]
    real, parameter :: Pr_t_inf_inv = 3.5

    real, parameter :: Rib_max = 0.5

    !< stability function coeff. (unstable)
    real, parameter :: alpha_m = 16.0
    real, parameter :: alpha_h = 16.0
    real, parameter :: alpha_h_fix = 16.0

    !< stability function coeff. (stable)
    real, parameter :: a_m = 5.0
    real, parameter :: b_m = a_m / 6.5
    real, parameter :: a_h = 5.0
    real, parameter :: b_h = 5.0
    real, parameter :: c_h = 3.0
    
    real, parameter  ::  gamma = 2.91, zeta_a = 3.6 ! for stable psi

        	!< snow parameters
    real, parameter :: rho_s =900
    real, parameter :: d_s=0.0000886
    real, parameter :: h_salt_const=0.05
    real, parameter :: u_thsnow=0.35   
    real, parameter :: S_salt_const=0.000004   
    real, parameter :: rho_air=1.2
    real, parameter :: Csn=3.25


end module sfx_sheba_noit_param