ERF
Energy Research and Forecasting: An Atmospheric Modeling Code
surface_flux_eb Struct Reference

EB surface-layer model with prescribed surface fluxes and constant roughness. More...

#include <ERF_EBMOSTStress.H>

Collaboration diagram for surface_flux_eb:

Public Member Functions

 surface_flux_eb (amrex::Real Tflux, amrex::Real Qvflux, bool cons_qflux)
 Construct a prescribed-flux EB functor. More...
 
AMREX_GPU_DEVICE AMREX_FORCE_INLINE void iterate_flux (const int &i, const int &j, const int &k, const int &max_iters, const amrex::Array4< const amrex::Real > &zref_arr, const amrex::Array4< const amrex::Real > &z0_arr, const amrex::Array4< const amrex::Real > &umm_arr, const amrex::Array4< const amrex::Real > &tm_arr, const amrex::Array4< const amrex::Real > &tvm_arr, const amrex::Array4< const amrex::Real > &qvm_arr, const amrex::Array4< amrex::Real > &u_star_arr, const amrex::Array4< amrex::Real > &w_star_arr, const amrex::Array4< amrex::Real > &t_star_arr, const amrex::Array4< amrex::Real > &q_star_arr, const amrex::Array4< amrex::Real > &t_surf_arr, const amrex::Array4< amrex::Real > &q_surf_arr, const amrex::Array4< amrex::Real > &olen_arr, const amrex::Array4< amrex::Real > &pblh_arr, const amrex::Array4< amrex::Real > &, const amrex::Array4< amrex::Real > &, const amrex::Array4< amrex::Real > &) const
 Iterate MOST stability functions and update implied surface values. More...
 

Private Attributes

most_data mdata
 
bool spec_qflux
 
similarity_funs sfuns
 
const amrex::Real tol = amrex::Real(1.0e-5)
 
const amrex::Real WSMIN = amrex::Real(0.1)
 

Detailed Description

EB surface-layer model with prescribed surface fluxes and constant roughness.

Constructor & Destructor Documentation

◆ surface_flux_eb()

surface_flux_eb::surface_flux_eb ( amrex::Real  Tflux,
amrex::Real  Qvflux,
bool  cons_qflux 
)
inline

Construct a prescribed-flux EB functor.

Parameters
TfluxPrescribed surface temperature flux.
QvfluxPrescribed surface moisture flux.
cons_qfluxWhether the moisture flux is prescribed directly.
217  {
218  mdata.surf_temp_flux = Tflux;
219  mdata.surf_moist_flux = Qvflux;
220  spec_qflux = cons_qflux;
221  }
amrex::Real surf_moist_flux
Moisture flux.
Definition: ERF_MOSTStress.H:19
amrex::Real surf_temp_flux
Heat flux TODO: decide whether this is <θ'w'> or <θv'w'> under moist conditions.
Definition: ERF_MOSTStress.H:18
most_data mdata
Definition: ERF_EBMOSTStress.H:307
bool spec_qflux
Definition: ERF_EBMOSTStress.H:308

Member Function Documentation

◆ iterate_flux()

AMREX_GPU_DEVICE AMREX_FORCE_INLINE void surface_flux_eb::iterate_flux ( const int &  i,
const int &  j,
const int &  k,
const int &  max_iters,
const amrex::Array4< const amrex::Real > &  zref_arr,
const amrex::Array4< const amrex::Real > &  z0_arr,
const amrex::Array4< const amrex::Real > &  umm_arr,
const amrex::Array4< const amrex::Real > &  tm_arr,
const amrex::Array4< const amrex::Real > &  tvm_arr,
const amrex::Array4< const amrex::Real > &  qvm_arr,
const amrex::Array4< amrex::Real > &  u_star_arr,
const amrex::Array4< amrex::Real > &  w_star_arr,
const amrex::Array4< amrex::Real > &  t_star_arr,
const amrex::Array4< amrex::Real > &  q_star_arr,
const amrex::Array4< amrex::Real > &  t_surf_arr,
const amrex::Array4< amrex::Real > &  q_surf_arr,
const amrex::Array4< amrex::Real > &  olen_arr,
const amrex::Array4< amrex::Real > &  pblh_arr,
const amrex::Array4< amrex::Real > &  ,
const amrex::Array4< amrex::Real > &  ,
const amrex::Array4< amrex::Real > &   
) const
inline

Iterate MOST stability functions and update implied surface values.

248  {
249  int iter = 0;
250  amrex::Real ustar = zero;
251  amrex::Real wstar = zero;
252  amrex::Real tflux = zero;
253  amrex::Real qflux = zero;
254  amrex::Real zeta = zero;
255  amrex::Real psi_m = zero;
256  amrex::Real psi_h = zero;
258  amrex::Real zref = zref_arr(i,j,0);
259  amrex::Real umm = std::max(umm_arr(i,j,0), WSMIN);
260  if (u_star_arr(i,j,k) == bogus_large_value) {
261  u_star_arr(i,j,k) = mdata.kappa * umm / std::log(zref / z0_arr(i,j,k));
262  } else {
263  Olen = olen_arr(i,j,k);
264  zeta = zref / Olen;
265  psi_m = sfuns.calc_psi_m(zeta);
266  psi_h = sfuns.calc_psi_h(zeta);
267  }
268  do {
269  ustar = u_star_arr(i,j,k);
270  qflux = (spec_qflux) ? mdata.surf_moist_flux :
271  -(qvm_arr(i,j,0) - q_surf_arr(i,j,k)) * ustar * mdata.kappa /
272  (std::log(zref / z0_arr(i,j,k)) - psi_h); // <w'Qv'>
273  tflux = mdata.surf_temp_flux*(one + epsv*qvm_arr(i,j,0)) + qflux*epsv*tm_arr(i,j,0);
274  if (w_star_arr) {
275  // update w* and Umagmean
276  w_star_arr(i,j,k) = calc_wstar(tflux, pblh_arr(i,j,k), tvm_arr(i,j,0));
277  wstar = mdata.Bjr_beta * w_star_arr(i,j,k);
278  umm = std::sqrt(umm_arr(i,j,0)*umm_arr(i,j,0) + wstar*wstar);
279  umm = std::max(umm, WSMIN);
280  }
281  Olen = -ustar * ustar * ustar * tvm_arr(i,j,0) / (mdata.kappa * mdata.gravity * tflux);
282  zeta = zref / Olen;
283  psi_m = sfuns.calc_psi_m(zeta);
284  psi_h = sfuns.calc_psi_h(zeta);
285  u_star_arr(i,j,k) = mdata.kappa * umm / (std::log(zref / z0_arr(i,j,k)) - psi_m);
286  ++iter;
287  } while ((std::abs(u_star_arr(i,j,k) - ustar) > tol) && iter <= max_iters);
288  AMREX_ALWAYS_ASSERT_WITH_MESSAGE(iter < max_iters,
289  "Maximum number of MOST iterations reached.");
290 
291  // Populate the stored MOST arrays
292  olen_arr(i,j,k) = Olen;
293  t_surf_arr(i,j,k) = mdata.surf_temp_flux * (std::log(zref / z0_arr(i,j,k)) - psi_h) /
294  (u_star_arr(i,j,k) * mdata.kappa) + tm_arr(i,j,0);
295  t_star_arr(i,j,k) = -mdata.surf_temp_flux / u_star_arr(i,j,k);
296  if (spec_qflux) {
297  q_surf_arr(i,j,k) = mdata.surf_moist_flux * (std::log(zref / z0_arr(i,j,k)) - psi_h) /
298  (u_star_arr(i,j,k) * mdata.kappa) + qvm_arr(i,j,0);
299  q_star_arr(i,j,k) = -mdata.surf_moist_flux / u_star_arr(i,j,k);
300  } else {
301  q_star_arr(i,j,k) = mdata.kappa * (qvm_arr(i,j,0) - q_surf_arr(i,j,k)) /
302  (std::log(zref / z0_arr(i,j,k)) - psi_h);
303  }
304  }
constexpr amrex::Real epsv
Definition: ERF_Constants.H:53
constexpr amrex::Real bogus_large_value
Definition: ERF_Constants.H:26
constexpr amrex::Real one
Definition: ERF_Constants.H:9
constexpr amrex::Real zero
Definition: ERF_Constants.H:8
AMREX_ALWAYS_ASSERT_WITH_MESSAGE(m_cloud_chamber_config.active, "Cloud Chamber: initializer reached without a parsed configuration")
amrex::Real Real
Definition: ERF_ShocInterface.H:19
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=amrex::Real(0))
Definition: ERF_Wstar.H:13
amrex::Real kappa
von Karman constant
Definition: ERF_MOSTStress.H:16
amrex::Real gravity
Acceleration due to gravity (m/s^2)
Definition: ERF_MOSTStress.H:17
const amrex::Real Bjr_beta
Definition: ERF_MOSTStress.H:32
AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE amrex::Real calc_psi_m(amrex::Real zeta) const
Definition: ERF_MOSTStress.H:105
AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE amrex::Real calc_psi_h(amrex::Real zeta) const
Definition: ERF_MOSTStress.H:124
const amrex::Real WSMIN
Definition: ERF_EBMOSTStress.H:311
similarity_funs sfuns
Definition: ERF_EBMOSTStress.H:309
const amrex::Real tol
Definition: ERF_EBMOSTStress.H:310
Here is the call graph for this function:

Member Data Documentation

◆ mdata

most_data surface_flux_eb::mdata
private

Referenced by iterate_flux(), and surface_flux_eb().

◆ sfuns

similarity_funs surface_flux_eb::sfuns
private

Referenced by iterate_flux().

◆ spec_qflux

bool surface_flux_eb::spec_qflux
private

Referenced by iterate_flux(), and surface_flux_eb().

◆ tol

const amrex::Real surface_flux_eb::tol = amrex::Real(1.0e-5)
private

Referenced by iterate_flux().

◆ WSMIN

const amrex::Real surface_flux_eb::WSMIN = amrex::Real(0.1)
private

Referenced by iterate_flux().


The documentation for this struct was generated from the following file: