1569 if (u_star_arr(i,j,k) == 1.E34) {
1572 Olen = olen_arr(i,j,k);
1579 ustar = u_star_arr(i,j,k);
1581 tflux = -(tm_arr(i,j,k) - t_surf_arr(i,j,k)) * ustar *
mdata.
kappa /
1583 tflux *= (1 + 0.61*qvm_arr(i,j,k));
1585 -(qvm_arr(i,j,k) - q_surf_arr(i,j,k)) * ustar *
mdata.
kappa /
1586 (std::log(
mdata.
zref / z0_arr(i,j,k)) - psi_h);
1587 tflux += 0.61*tm_arr(i,j,k) * qflux;
1590 w_star_arr(i,j,k) =
calc_wstar(tflux, pblh_arr(i,j,k), tvm_arr(i,j,k));
1592 umm = std::sqrt(umm_arr(i,j,k)*umm_arr(i,j,k) + wstar*wstar);
1593 umm = std::max(umm,
WSMIN);
1596 if ( (((Olen >= 0.0) && (Oleno <= 0.0)) ||
1597 ((Olen <= 0.0) && (Oleno >= 0.0))) &&
1598 std::fabs(Olen) + std::fabs(Oleno) < 1.) {
1599 Olen = 0.5 * (Olen + Oleno);
1607 }
while ((std::abs(u_star_arr(i,j,k) - ustar) >
tol) && iter <= max_iters);
1608 AMREX_ALWAYS_ASSERT_WITH_MESSAGE(iter < max_iters,
1609 "Maximum number of MOST iterations reached.");
1613 olen_arr(i,j,k) = Olen;
1614 t_star_arr(i,j,k) =
mdata.
kappa * (tm_arr(i,j,k) - t_surf_arr(i,j,k)) /
1618 (u_star_arr(i,j,k) *
mdata.
kappa) + qvm_arr(i,j,k);
1621 q_star_arr(i,j,k) =
mdata.
kappa * (qvm_arr(i,j,k) - q_surf_arr(i,j,k)) /
1622 (std::log(
mdata.
zref / z0_arr(i,j,k)) - psi_h);
AMREX_GPU_DEVICE AMREX_FORCE_INLINE amrex::Real Donelan_roughness(amrex::Real ustar)
Definition: ERF_MOSTRoughness.H:29
amrex::Real Real
Definition: ERF_ShocInterface.H:16
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:29
AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE amrex::Real calc_psi_m(amrex::Real zeta) const
Definition: ERF_MOSTStress.H:87
AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE amrex::Real calc_psi_h(amrex::Real zeta) const
Definition: ERF_MOSTStress.H:101
similarity_funs sfuns
Definition: ERF_MOSTStress.H:1629
const amrex::Real tol
Definition: ERF_MOSTStress.H:1630
const amrex::Real WSMIN
Definition: ERF_MOSTStress.H:1631