685 amrex::Real ustar = 0.0;
686 amrex::Real wstar = 0.0;
687 amrex::Real tflux = 0.0;
688 amrex::Real z0 = 0.0;
689 amrex::Real zeta = 0.0;
690 amrex::Real psi_m = 0.0;
691 amrex::Real psi_h = 0.0;
692 amrex::Real Olen = 0.0;
693 amrex::Real umm = std::max(umm_arr(i,j,k),
WSMIN);
696 ustar = u_star_arr(i,j,k);
698 tflux =
mdata.
surf_temp_flux*(1 + 0.61*qvm_arr(i,j,k)) - 0.61*tm_arr(i,j,k)*ustar*q_star_arr(i,j,k);
701 w_star_arr(i,j,k) =
calc_wstar(tflux, pblh_arr(i,j,k), tvm_arr(i,j,k));
703 umm = std::sqrt(umm_arr(i,j,k)*umm_arr(i,j,k) + wstar*wstar);
704 umm = std::max(umm,
WSMIN);
712 }
while ((std::abs(u_star_arr(i,j,k) - ustar) >
tol) && iter <= max_iters);
713 AMREX_ASSERT_WITH_MESSAGE(iter < max_iters,
"Maximum number of MOST iterations reached.");
716 (u_star_arr(i,j,k) *
mdata.
kappa) + tm_arr(i,j,k);
718 olen_arr(i,j,k) = Olen;
AMREX_GPU_DEVICE AMREX_FORCE_INLINE amrex::Real Donelan_roughness(amrex::Real ustar)
Definition: ERF_MOSTRoughness.H:29
AMREX_GPU_DEVICE AMREX_FORCE_INLINE amrex::Real calc_wstar(const amrex::Real &ust, const amrex::Real &tst, const amrex::Real &qst, const amrex::Real &pblh, const amrex::Real &th, const amrex::Real &thv, const amrex::Real &qv=0.0)
Definition: ERF_Wstar.H:13
amrex::Real kappa
von Karman constant
Definition: ERF_MOSTStress.H:17
amrex::Real gravity
Acceleration due to gravity (m/s^2)
Definition: ERF_MOSTStress.H:18
const amrex::Real Bjr_beta
Definition: ERF_MOSTStress.H:28
AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE amrex::Real calc_psi_m(amrex::Real zeta) const
Definition: ERF_MOSTStress.H:40
AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE amrex::Real calc_psi_h(amrex::Real zeta) const
Definition: ERF_MOSTStress.H:54
const amrex::Real tol
Definition: ERF_MOSTStress.H:725
const amrex::Real WSMIN
Definition: ERF_MOSTStress.H:726
similarity_funs sfuns
Definition: ERF_MOSTStress.H:724