ERF
Energy Research and Forecasting: An Atmospheric Modeling Code
•All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Pages
Public Member Functions | Private Attributes | List of all members
surface_temp Struct Reference

#include <ERF_MOSTStress.H>

Collaboration diagram for surface_temp:
Collaboration graph
[legend]

Public Member Functions

 surface_temp (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< 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
 

Private Attributes

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

Detailed Description

Surface temperature with constant roughness

Constructor & Destructor Documentation

◆ surface_temp()

surface_temp::surface_temp ( amrex::Real  zref,
amrex::Real  Tflux,
amrex::Real  Qvflux,
bool  cons_qflux 
)
inline
978  {
979  mdata.zref = zref;
980  mdata.surf_temp_flux = Tflux;
981  mdata.surf_moist_flux = Qvflux;
982  spec_qflux = cons_qflux;
983  }
most_data::surf_moist_flux
amrex::Real surf_moist_flux
Moisture flux.
Definition: ERF_MOSTStress.H:20
most_data::zref
amrex::Real zref
Reference height (m)
Definition: ERF_MOSTStress.H:15
most_data::surf_temp_flux
amrex::Real surf_temp_flux
Heat flux.
Definition: ERF_MOSTStress.H:19
surface_temp::spec_qflux
bool spec_qflux
Definition: ERF_MOSTStress.H:1076
surface_temp::mdata
most_data mdata
Definition: ERF_MOSTStress.H:1075

Member Function Documentation

◆ iterate_flux()

AMREX_GPU_DEVICE AMREX_FORCE_INLINE void surface_temp::iterate_flux ( const int &  i,
const int &  j,
const int &  k,
const int &  max_iters,
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
1008  {
1009  int iter = 0;
1010  amrex::Real ustar = 0.0;
1011  amrex::Real wstar = 0.0;
1012  amrex::Real tflux = 0.0;
1013  amrex::Real qflux = 0.0;
1014  amrex::Real zeta = 0.0;
1015  amrex::Real psi_m = 0.0;
1016  amrex::Real psi_h = 0.0;
1017  amrex::Real Olen = 0.0;
1018  amrex::Real Oleno = 0.0;
1019  amrex::Real umm = std::max(umm_arr(i,j,k), WSMIN);
1020  if (u_star_arr(i,j,k) == 1.E34) {
1021  u_star_arr(i,j,k) = mdata.kappa * umm / std::log(mdata.zref / z0_arr(i,j,k));
1022  } else {
1023  Olen = olen_arr(i,j,k);
1024  Oleno = Olen;
1025  zeta = mdata.zref / Olen;
1026  psi_m = sfuns.calc_psi_m(zeta);
1027  psi_h = sfuns.calc_psi_h(zeta);
1028  }
1029  do {
1030  ustar = u_star_arr(i,j,k);
1031  tflux = -(tm_arr(i,j,k) - t_surf_arr(i,j,k)) * ustar * mdata.kappa /
1032  (std::log(mdata.zref / z0_arr(i,j,k)) - psi_h); // <w'T'>
1033  tflux *= (1 + 0.61*qvm_arr(i,j,k));
1034  qflux = (spec_qflux) ? mdata.surf_moist_flux :
1035  -(qvm_arr(i,j,k) - q_surf_arr(i,j,k)) * ustar * mdata.kappa /
1036  (std::log(mdata.zref / z0_arr(i,j,k)) - psi_h); // <w'Qv'>
1037  tflux += 0.61*tm_arr(i,j,k) * qflux; // ~= <w'Tv'>
1038  if (w_star_arr) {
1039  // update w* and Umagmean
1040  w_star_arr(i,j,k) = calc_wstar(tflux, pblh_arr(i,j,k), tvm_arr(i,j,k));
1041  wstar = mdata.Bjr_beta * w_star_arr(i,j,k);
1042  umm = std::sqrt(umm_arr(i,j,k)*umm_arr(i,j,k) + wstar*wstar);
1043  umm = std::max(umm, WSMIN);
1044  }
1045  Olen = -ustar * ustar * ustar * tvm_arr(i,j,k) / (mdata.kappa * mdata.gravity * tflux);
1046  if ( (((Olen >= 0.0) && (Oleno <= 0.0)) ||
1047  ((Olen <= 0.0) && (Oleno >= 0.0))) &&
1048  std::fabs(Olen) + std::fabs(Oleno) < 1.) {
1049  Olen = 0.5 * (Olen + Oleno);
1050  }
1051  Oleno = Olen;
1052 
1053  zeta = mdata.zref / Olen;
1054  psi_m = sfuns.calc_psi_m(zeta);
1055  psi_h = sfuns.calc_psi_h(zeta);
1056  u_star_arr(i,j,k) = mdata.kappa * umm / (std::log(mdata.zref / z0_arr(i,j,k)) - psi_m);
1057  ++iter;
1058  } while ((std::abs(u_star_arr(i,j,k) - ustar) > tol) && iter <= max_iters);
1059  AMREX_ASSERT_WITH_MESSAGE(iter < max_iters, "Maximum number of MOST iterations reached.");
1060 
1061  t_star_arr(i,j,k) = mdata.kappa * (tm_arr(i,j,k) - t_surf_arr(i,j,k)) /
1062  (std::log(mdata.zref / z0_arr(i,j,k)) - psi_h);
1063  olen_arr(i,j,k) = Olen;
1064  if (spec_qflux) {
1065  q_surf_arr(i,j,k) = mdata.surf_moist_flux * (std::log(mdata.zref / z0_arr(i,j,k)) - psi_h) /
1066  (u_star_arr(i,j,k) * mdata.kappa) + qvm_arr(i,j,k);
1067  q_star_arr(i,j,k) = -mdata.surf_moist_flux / u_star_arr(i,j,k);
1068  } else {
1069  q_star_arr(i,j,k) = mdata.kappa * (qvm_arr(i,j,k) - q_surf_arr(i,j,k)) /
1070  (std::log(mdata.zref / z0_arr(i,j,k)) - psi_h);
1071  }
1072  }
calc_wstar
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
most_data::kappa
amrex::Real kappa
von Karman constant
Definition: ERF_MOSTStress.H:17
most_data::gravity
amrex::Real gravity
Acceleration due to gravity (m/s^2)
Definition: ERF_MOSTStress.H:18
most_data::Bjr_beta
const amrex::Real Bjr_beta
Definition: ERF_MOSTStress.H:29
similarity_funs::calc_psi_m
AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE amrex::Real calc_psi_m(amrex::Real zeta) const
Definition: ERF_MOSTStress.H:41
similarity_funs::calc_psi_h
AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE amrex::Real calc_psi_h(amrex::Real zeta) const
Definition: ERF_MOSTStress.H:55
surface_temp::sfuns
similarity_funs sfuns
Definition: ERF_MOSTStress.H:1077
surface_temp::tol
const amrex::Real tol
Definition: ERF_MOSTStress.H:1078
surface_temp::WSMIN
const amrex::Real WSMIN
Definition: ERF_MOSTStress.H:1079
Here is the call graph for this function:

Member Data Documentation

◆ mdata

most_data surface_temp::mdata
private

Referenced by iterate_flux(), and surface_temp().

◆ sfuns

similarity_funs surface_temp::sfuns
private

Referenced by iterate_flux().

◆ spec_qflux

bool surface_temp::spec_qflux
private

Referenced by iterate_flux(), and surface_temp().

◆ tol

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

Referenced by iterate_flux().

◆ WSMIN

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

Referenced by iterate_flux().

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