ERF
Energy Research and Forecasting: An Atmospheric Modeling Code
All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Pages
surface_flux_wave_coupled Struct Reference

#include <ERF_MOSTStress.H>

Collaboration diagram for surface_flux_wave_coupled:

Public Member Functions

 surface_flux_wave_coupled (amrex::Real zref, amrex::Real Tflux, amrex::Real Qvflux, bool cons_qflux)
 
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< 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 > &Hwave_arr, const amrex::Array4< amrex::Real > &Lwave_arr, const amrex::Array4< amrex::Real > &eta_arr) const
 

Private Attributes

most_data mdata
 
bool spec_qflux
 
similarity_funs sfuns
 
const amrex::Real tol = 1.0e-5
 
const amrex::Real eps = 1e-15
 
const amrex::Real z0_eps = 1.0e-6
 
const amrex::Real z0_max = 0.1
 
const amrex::Real WSMIN = 0.1
 

Detailed Description

Surface flux with wave-coupled roughness

Constructor & Destructor Documentation

◆ surface_flux_wave_coupled()

surface_flux_wave_coupled::surface_flux_wave_coupled ( amrex::Real  zref,
amrex::Real  Tflux,
amrex::Real  Qvflux,
bool  cons_qflux 
)
inline
863  {
864  mdata.zref = zref;
865  mdata.surf_temp_flux = Tflux;
866  mdata.surf_moist_flux = Qvflux;
867  spec_qflux = cons_qflux;
868  }
amrex::Real surf_moist_flux
Moisture flux.
Definition: ERF_MOSTStress.H:20
amrex::Real zref
Reference height (m)
Definition: ERF_MOSTStress.H:15
amrex::Real surf_temp_flux
Heat flux.
Definition: ERF_MOSTStress.H:19
most_data mdata
Definition: ERF_MOSTStress.H:958
bool spec_qflux
Definition: ERF_MOSTStress.H:959

Member Function Documentation

◆ iterate_flux()

AMREX_GPU_DEVICE AMREX_FORCE_INLINE void surface_flux_wave_coupled::iterate_flux ( const int &  i,
const int &  j,
const int &  k,
const int &  max_iters,
const amrex::Array4< 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 > &  Hwave_arr,
const amrex::Array4< amrex::Real > &  Lwave_arr,
const amrex::Array4< amrex::Real > &  eta_arr 
) const
inline
893  {
894  int iter = 0;
895  amrex::Real ustar = 0.0;
896  amrex::Real wstar = 0.0;
897  amrex::Real tflux = 0.0;
898  amrex::Real qflux = 0.0;
899  amrex::Real z0 = 0.0;
900  amrex::Real zeta = 0.0;
901  amrex::Real psi_m = 0.0;
902  amrex::Real psi_h = 0.0;
903  amrex::Real Olen = 0.0;
904  int ie, je;
905  ie = i < lbound(eta_arr).x ? lbound(eta_arr).x : i;
906  je = j < lbound(eta_arr).y ? lbound(eta_arr).y : j;
907  ie = ie > ubound(eta_arr).x ? ubound(eta_arr).x : ie;
908  je = je > ubound(eta_arr).y ? ubound(eta_arr).y : je;
909  amrex::Real umm = std::max(umm_arr(i,j,k), WSMIN);
910  if (u_star_arr(i,j,k) == 1.E34) {
911  u_star_arr(i,j,k) = mdata.kappa * umm / std::log(mdata.zref / z0_arr(i,j,k));
912  } else {
913  Olen = olen_arr(i,j,k);
914  zeta = mdata.zref / Olen;
915  psi_m = sfuns.calc_psi_m(zeta);
916  psi_h = sfuns.calc_psi_h(zeta);
917  }
918  do {
919  ustar = u_star_arr(i,j,k);
920  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 )
921  + 0.11 * eta_arr(ie,je,k,EddyDiff::Mom_v) / ustar, z0_eps), z0_max );
922  qflux = (spec_qflux) ? mdata.surf_moist_flux :
923  -(qvm_arr(i,j,k) - q_surf_arr(i,j,k)) * ustar * mdata.kappa /
924  (std::log(mdata.zref / z0_arr(i,j,k)) - psi_h); // <w'Qv'>
925  tflux = mdata.surf_temp_flux*(1 + 0.61*qvm_arr(i,j,k)) + qflux*0.61*tm_arr(i,j,k);
926  if (w_star_arr) {
927  // update w* and Umagmean
928  w_star_arr(i,j,k) = calc_wstar(tflux, pblh_arr(i,j,k), tvm_arr(i,j,k));
929  wstar = mdata.Bjr_beta * w_star_arr(i,j,k);
930  umm = std::sqrt(umm_arr(i,j,k)*umm_arr(i,j,k) + wstar*wstar);
931  umm = std::max(umm, WSMIN);
932  }
933  Olen = -ustar * ustar * ustar * tvm_arr(i,j,k) / (mdata.kappa * mdata.gravity * tflux);
934  zeta = mdata.zref / Olen;
935  psi_m = sfuns.calc_psi_m(zeta);
936  psi_h = sfuns.calc_psi_h(zeta);
937  u_star_arr(i,j,k) = mdata.kappa * umm / (std::log(mdata.zref / z0) - psi_m);
938  ++iter;
939  } while ((std::abs(u_star_arr(i,j,k) - ustar) > tol) && iter <= max_iters);
940  AMREX_ASSERT_WITH_MESSAGE(iter < max_iters, "Maximum number of MOST iterations reached.");
941 
942  t_surf_arr(i,j,k) = mdata.surf_temp_flux * (std::log(mdata.zref / z0) - psi_h) /
943  (u_star_arr(i,j,k) * mdata.kappa) + tm_arr(i,j,k);
944  t_star_arr(i,j,k) = -mdata.surf_temp_flux / u_star_arr(i,j,k);
945  olen_arr(i,j,k) = Olen;
946  z0_arr(i,j,k) = z0;
947  if (spec_qflux) {
948  q_surf_arr(i,j,k) = mdata.surf_moist_flux * (std::log(mdata.zref / z0_arr(i,j,k)) - psi_h) /
949  (u_star_arr(i,j,k) * mdata.kappa) + qvm_arr(i,j,k);
950  q_star_arr(i,j,k) = -mdata.surf_moist_flux / u_star_arr(i,j,k);
951  } else {
952  q_star_arr(i,j,k) = mdata.kappa * (qvm_arr(i,j,k) - q_surf_arr(i,j,k)) /
953  (std::log(mdata.zref / z0_arr(i,j,k)) - psi_h);
954  }
955  }
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
@ Mom_v
Definition: ERF_IndexDefines.H:175
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:41
AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE amrex::Real calc_psi_h(amrex::Real zeta) const
Definition: ERF_MOSTStress.H:55
const amrex::Real WSMIN
Definition: ERF_MOSTStress.H:965
const amrex::Real z0_max
Definition: ERF_MOSTStress.H:964
const amrex::Real z0_eps
Definition: ERF_MOSTStress.H:963
similarity_funs sfuns
Definition: ERF_MOSTStress.H:960
const amrex::Real tol
Definition: ERF_MOSTStress.H:961
const amrex::Real eps
Definition: ERF_MOSTStress.H:962
Here is the call graph for this function:

Member Data Documentation

◆ eps

const amrex::Real surface_flux_wave_coupled::eps = 1e-15
private

Referenced by iterate_flux().

◆ mdata

most_data surface_flux_wave_coupled::mdata
private

◆ sfuns

similarity_funs surface_flux_wave_coupled::sfuns
private

Referenced by iterate_flux().

◆ spec_qflux

bool surface_flux_wave_coupled::spec_qflux
private

◆ tol

const amrex::Real surface_flux_wave_coupled::tol = 1.0e-5
private

Referenced by iterate_flux().

◆ WSMIN

const amrex::Real surface_flux_wave_coupled::WSMIN = 0.1
private

Referenced by iterate_flux().

◆ z0_eps

const amrex::Real surface_flux_wave_coupled::z0_eps = 1.0e-6
private

Referenced by iterate_flux().

◆ z0_max

const amrex::Real surface_flux_wave_coupled::z0_max = 0.1
private

Referenced by iterate_flux().


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