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

Go to the source code of this file.

Functions

 for (MFIter mfi(*qsrc, TilingIfNotGPU());mfi.isValid();++mfi)
 

Variables

const Realprob_lo = geom.ProbLo()
 
const auto dx = geom.CellSize()
 
bool use_zlevels = (z_phys_cc != nullptr)
 

Function Documentation

◆ for()

for ( MFIter mfi(*,  TilingIfNotGPU)
6  {
7  const auto &box = mfi.tilebox();
8  const Array4<Real>& qsrc_arr = qsrc->array(mfi);
9  if (box.length(0) != 1)
10  {
11  qsrc->setVal(0.0);
12  } else {
13  ParallelFor(box, [=] AMREX_GPU_DEVICE (int i, int j, int k) {
14  const Real z_cc = (use_zlevels) ? d_zlevels_arr[k] : prob_lo[2] + (k+0.5)*dx[2];
15  Real f_a[9] = {-3.19860779e-39, 2.41718658e-34, -7.62715842e-30, 1.30171558e-25,
16  -1.30129938e-21, 7.71169160e-18, -2.59263914e-14, 4.05941658e-11,
17  2.56947279e-09};
18  Real result = f_a[0];
19  for (int ind = 1; ind < 9; ++ind) {
20  result = result * z_cc + f_a[ind];
21  }
22  qsrc_arr(i, j, k) = result;
23  });
24  }
25  }
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);})
amrex::Real Real
Definition: ERF_ShocInterface.H:19
bool use_zlevels
Definition: ERF_UpdateRhoQtSources_GATE.H:3
const Real * prob_lo
Definition: ERF_UpdateRhoQtSources_GATE.H:1
const auto dx
Definition: ERF_UpdateRhoQtSources_GATE.H:2
Here is the call graph for this function:

Variable Documentation

◆ dx

const auto dx = geom.CellSize()

Referenced by for().

◆ prob_lo

const Real* prob_lo = geom.ProbLo()

Referenced by for().

◆ use_zlevels

bool use_zlevels = (z_phys_cc != nullptr)

Referenced by for().