ERF
Energy Research and Forecasting: An Atmospheric Modeling Code
ERF_UpdateRhoThetaSources_SDMCongestus3DCold.H File Reference

Go to the source code of this file.

Functions

ParmParse pp_prob ("prob")
 
pp_prob query ("advection_heating_rate", advection_heating_rate)
 
pp_prob query ("source_cutoff", source_cutoff)
 
 for (MFIter mfi(*src, TilingIfNotGPU());mfi.isValid();++mfi)
 

Variables

Real advection_heating_rate = 5.4e-5
 
Real source_cutoff = 500.0
 
auto prob_lo = geom.ProbLoArray()
 
auto prob_hi = geom.ProbHiArray()
 
auto dx = geom.CellSizeArray()
 
Real xc = 0.5 * (prob_lo[0] + prob_hi[0])
 
Real yc = 0.5 * (prob_lo[1] + prob_hi[1])
 

Function Documentation

◆ for()

for ( MFIter mfi(*,  TilingIfNotGPU)
15  {
16  const auto &box = mfi.tilebox();
17  const Array4<Real>& src_arr = src->array(mfi);
18  if (box.length(0) != 1)
19  {
20  // Spatially varying source over x,y
21  ParallelFor(box, [=] AMREX_GPU_DEVICE(int i, int j, int k) noexcept
22  {
23  auto x = prob_lo[0] + (i + 0.5) * dx[0];
24  auto y = prob_lo[1] + (j + 0.5) * dx[1];
25  auto z = prob_lo[2] + (k + 0.5) * dx[2];
26 
27  const auto c = 2890000.0;
28  const auto r = std::sqrt((x-xc)*(x-xc) + (y-yc)*(y-yc));
29  const auto rsqr = r*r;
30  src_arr(i, j, k) = (advection_heating_rate*exp(-rsqr / c))*exp(-z/source_cutoff);
31  });
32  } else {
33  // src is a function over Z only
34  ParallelFor(box, [=] AMREX_GPU_DEVICE (int i, int j, int k) {
35  src_arr(i, j, k) = advection_heating_rate;
36  });
37  }
38  }
ParallelFor(fab_box, [=] AMREX_GPU_DEVICE(int i, int j, int k) { qrcuten_arr(i, j, k)=Real(0);qscuten_arr(i, j, k)=Real(0);qicuten_arr(i, j, k)=Real(0);})
auto prob_lo
Definition: ERF_UpdateRhoThetaSources_SDMCongestus3DCold.H:6
Real yc
Definition: ERF_UpdateRhoThetaSources_SDMCongestus3DCold.H:12
Real advection_heating_rate
Definition: ERF_UpdateRhoThetaSources_SDMCongestus3DCold.H:3
Real xc
Definition: ERF_UpdateRhoThetaSources_SDMCongestus3DCold.H:11
Real source_cutoff
Definition: ERF_UpdateRhoThetaSources_SDMCongestus3DCold.H:4
auto dx
Definition: ERF_UpdateRhoThetaSources_SDMCongestus3DCold.H:8
Here is the call graph for this function:

◆ pp_prob()

ParmParse pp_prob ( "prob"  )

◆ query() [1/2]

pp_prob query ( "advection_heating_rate"  ,
advection_heating_rate   
)

◆ query() [2/2]

pp_prob query ( "source_cutoff"  ,
source_cutoff   
)

Variable Documentation

◆ advection_heating_rate

Real advection_heating_rate = 5.4e-5

Referenced by for().

◆ dx

auto dx = geom.CellSizeArray()

Referenced by for().

◆ prob_hi

auto prob_hi = geom.ProbHiArray()

◆ prob_lo

auto prob_lo = geom.ProbLoArray()

Referenced by for().

◆ source_cutoff

Real source_cutoff = 500.0

Referenced by for().

◆ xc

Real xc = 0.5 * (prob_lo[0] + prob_hi[0])

Referenced by for().

◆ yc

Real yc = 0.5 * (prob_lo[1] + prob_hi[1])

Referenced by for().