468 ie = i < lbound(eta_arr).x ? lbound(eta_arr).x : i;
469 je = j < lbound(eta_arr).y ? lbound(eta_arr).y : j;
470 ie = ie > ubound(eta_arr).x ? ubound(eta_arr).x : ie;
471 je = je > ubound(eta_arr).y ? ubound(eta_arr).y : je;
472 u_star_arr(i,j,k) =
mdata.
kappa * umm / std::log(zref / z0_arr(i,j,k));
474 ustar = u_star_arr(i,j,k);
475 z0 = std::min( std::max(1200.0 * Hwave_arr(i,j,k) * std::pow( Hwave_arr(i,j,k)/(Lwave_arr(i,j,k)+
eps), 4.5 )
477 u_star_arr(i,j,k) =
mdata.
kappa * umm / std::log(zref / z0);
479 }
while ((std::abs(u_star_arr(i,j,k) - ustar) >
tol) && iter <= max_iters);
480 AMREX_ALWAYS_ASSERT_WITH_MESSAGE(iter < max_iters,
481 "Maximum number of MOST iterations reached.");
485 olen_arr(i,j,k) = 1.0e16;
486 t_star_arr(i,j,k) = 0.0;
487 q_star_arr(i,j,k) = 0.0;
amrex::Real Real
Definition: ERF_ShocInterface.H:19
@ Mom_v
Definition: ERF_IndexDefines.H:175
const amrex::Real eps
Definition: ERF_MOSTStress.H:494
const amrex::Real z0_eps
Definition: ERF_MOSTStress.H:495
const amrex::Real WSMIN
Definition: ERF_MOSTStress.H:497
const amrex::Real tol
Definition: ERF_MOSTStress.H:493
const amrex::Real z0_max
Definition: ERF_MOSTStress.H:496
amrex::Real kappa
von Karman constant
Definition: ERF_MOSTStress.H:16