ERF_PlaneAverage.H

Go to the documentation of this file.

#ifndef ERF_PlaneAverage_H
#define ERF_PlaneAverage_H
 
#include "AMReX_Gpu.H"
#include "AMReX_iMultiFab.H"
#include "AMReX_MultiFab.H"
#include "AMReX_GpuContainers.H"
#include "ERF_DirectionSelector.H"
 
/**
 * Basic averaging and interpolation operations
 */
 
class PlaneAverage {
public:
    AMREX_FORCE_INLINE
    explicit PlaneAverage (const amrex::MultiFab* field_in,
                           amrex::Geometry geom_in,
                           int axis_in,
                           bool inc_ghost=false);
    PlaneAverage () = delete;
    ~PlaneAverage () = default;
 
    AMREX_FORCE_INLINE
    void operator()();
 
    /** evaluate line average at specific location for any average component */
    [[nodiscard]] AMREX_FORCE_INLINE
    amrex::Real line_average_interpolated (amrex::Real x, int comp) const;
 
    /** change precision of text file output */
    void set_precision (int p) { m_precision = p; }
 
    [[nodiscard]] amrex::Real dx () const { return m_dx; }
    [[nodiscard]] amrex::Real xlo () const { return m_xlo; }
 
    [[nodiscard]] int axis () const { return m_axis; }
    [[nodiscard]] int level () const { return m_level; }
    [[nodiscard]] int ncomp () const { return m_ncomp; }
    [[nodiscard]] int ncell_plane () const { return m_ncell_plane; }
    [[nodiscard]] int ncell_line () const { return m_ncell_line; }
 
    [[nodiscard]] const amrex::Vector<amrex::Real>& line_average () const
    {
        return m_line_average;
    }
 
    AMREX_FORCE_INLINE
    void line_average (int comp, amrex::Gpu::HostVector<amrex::Real>& l_vec);
 
    [[nodiscard]] const amrex::Vector<amrex::Real>& line_centroids () const
    {
        return m_line_xcentroid;
    }
 
    [[nodiscard]] const amrex::MultiFab& field () const { return *m_field; }
 
protected:
    int m_ncomp; /** number of average components */
 
    /** line storage for the average velocity and tracer variables */
    amrex::Vector<amrex::Real> m_line_average;
 
    amrex::Vector<amrex::Real> m_line_xcentroid; /** line storage for centroids of each cell along a line*/
 
    amrex::Real m_dx;  /** mesh spacing in axis direction*/
    amrex::Real m_xlo; /** bottom of domain in axis direction */
 
    int m_ncell_plane; /** number of cells in plane */
    int m_ncell_line;  /** number of cells along line */
 
    int m_precision = 4; /** precision for line plot text file */
    const int m_level = 0; /** level for plane averaging for now fixed at level=0 */
 
    const amrex::MultiFab* m_field;
    amrex::Geometry m_geom;
    const int m_axis;
    bool m_inc_ghost = false;
    amrex::IntVect m_ixtype;
    amrex::IntVect m_ng = amrex::IntVect(0);
 
public:
    /** fill line storage with averages */
    template <typename IndexSelector>
    AMREX_FORCE_INLINE
    void compute_averages (const IndexSelector& idxOp, const amrex::MultiFab& mfab);
};
 
 
PlaneAverage::PlaneAverage (const amrex::MultiFab* field_in,
                            amrex::Geometry geom_in,
                            int axis_in,
                            bool inc_ghost)
    : m_field(field_in), m_geom(geom_in), m_axis(axis_in), m_inc_ghost(inc_ghost)
{
    AMREX_ALWAYS_ASSERT(m_axis >= 0 && m_axis < AMREX_SPACEDIM);
 
    m_xlo    = m_geom.ProbLo(m_axis);
    m_dx     = m_geom.CellSize(m_axis);
    m_ncomp  = m_field->nComp();
    m_ixtype = m_field->boxArray().ixType().toIntVect();
 
    amrex::Box domain = m_geom.Domain();
    if (inc_ghost) {
        m_ng = field_in->nGrowVect();
        domain.grow(axis_in, m_ng[axis_in]);
    }
    amrex::IntVect dom_lo(domain.loVect());
    amrex::IntVect dom_hi(domain.hiVect());
 
    m_ncell_line = dom_hi[m_axis] - dom_lo[m_axis] + 1 + m_ixtype[m_axis];
 
    m_ncell_plane = 1;
    auto period = m_geom.periodicity();
    for (int i = 0; i < AMREX_SPACEDIM; ++i) {
      int p_fac = (!period.isPeriodic(i)) ? 1 : 0;
       if (i != m_axis) m_ncell_plane *= (dom_hi[i] - dom_lo[i] + 1 + p_fac*m_ixtype[i]);
    }
 
    m_line_average.resize(static_cast<size_t>(m_ncell_line) * m_ncomp, 0.0);
    m_line_xcentroid.resize(m_ncell_line);
 
    for (int i = 0; i < m_ncell_line; ++i) {
       m_line_xcentroid[i] = m_xlo + (i + 0.5) * m_dx;
    }
}
 
amrex::Real
PlaneAverage::line_average_interpolated (amrex::Real x, int comp) const
{
    AMREX_ALWAYS_ASSERT(comp >= 0 && comp < m_ncomp);
 
    amrex::Real c = 0.0;
    int ind = 0;
 
    if (x > m_xlo + 0.5 * m_dx) {
        ind = static_cast<int>(floor((x - m_xlo) / m_dx - 0.5));
        const amrex::Real x1 = m_xlo + (ind + 0.5) * m_dx;
        c = (x - x1) / m_dx;
    }
 
    if (ind + 1 >= m_ncell_line) {
        ind = m_ncell_line - 2;
        c = 1.0;
    }
 
    AMREX_ALWAYS_ASSERT(ind >= 0 && ind + 1 < m_ncell_line);
 
    return m_line_average[m_ncomp * ind + comp] * (1.0 - c) +
           m_line_average[m_ncomp * (ind + 1) + comp] * c;
}
 
void
PlaneAverage::line_average (int comp, amrex::Gpu::HostVector<amrex::Real>& l_vec)
{
    AMREX_ALWAYS_ASSERT(comp >= 0 && comp < m_ncomp);
 
    for (int i = 0; i < m_ncell_line; i++)
        l_vec[i] = m_line_average[m_ncomp * i + comp];
}
 
void
PlaneAverage::operator()()
{
    std::fill(m_line_average.begin(), m_line_average.end(), 0.0);
    switch (m_axis) {
    case 0:
        compute_averages(XDir(), *m_field);
        break;
    case 1:
        compute_averages(YDir(), *m_field);
        break;
    case 2:
        compute_averages(ZDir(), *m_field);
        break;
    default:
        amrex::Abort("axis must be equal to 0, 1, or 2");
        break;
    }
}
 
template <typename IndexSelector>
void
PlaneAverage::compute_averages (const IndexSelector& idxOp, const amrex::MultiFab& mfab)
{
    const amrex::Real denom = 1.0 / (amrex::Real)m_ncell_plane;
    amrex::AsyncArray<amrex::Real> lavg(m_line_average.data(), m_line_average.size());
    amrex::Real* line_avg = lavg.data();
    const int ncomp = m_ncomp;
 
    amrex::Box domain = amrex::convert(m_geom.Domain(),m_ixtype);
 
    amrex::IntVect ng = amrex::IntVect(0);
    int offset = m_ng[m_axis];
    if (m_inc_ghost) ng[m_axis] = offset;
 
    std::unique_ptr<amrex::iMultiFab> mask = OwnerMask(*m_field, m_geom.periodicity(), ng);
 
#ifdef _OPENMP
#pragma omp parallel if (amrex::Gpu::notInLaunchRegion())
#endif
    for (amrex::MFIter mfi(mfab, amrex::TilingIfNotGPU()); mfi.isValid(); ++mfi) {
        amrex::Box tbx  = mfi.tilebox();
        if (tbx.smallEnd(m_axis) == domain.smallEnd(m_axis)) tbx.growLo(m_axis,offset);
        if (tbx.bigEnd  (m_axis) == domain.bigEnd  (m_axis)) tbx.growHi(m_axis,offset);
        amrex::Box pbx = PerpendicularBox<IndexSelector>(tbx, amrex::IntVect(0));
 
        const amrex::Array4<const amrex::Real>& fab_arr  = mfab.const_array(mfi);
        const amrex::Array4<const int        >& mask_arr = mask->const_array(mfi);
 
        amrex::ParallelFor(amrex::Gpu::KernelInfo().setReduction(true), pbx, [=]
                    AMREX_GPU_DEVICE( int p_i, int p_j, int p_k,
                                      amrex::Gpu::Handler const& handler) noexcept
        {
            // Loop over the direction perpendicular to the plane.
            // This reduces the atomic pressure on the destination arrays.
            amrex::Box lbx = ParallelBox<IndexSelector>(tbx, amrex::IntVect{p_i, p_j, p_k});
 
            for (int k = lbx.smallEnd(2); k <= lbx.bigEnd(2); ++k) {
                for (int j = lbx.smallEnd(1); j <= lbx.bigEnd(1); ++j) {
                    for (int i = lbx.smallEnd(0); i <= lbx.bigEnd(0); ++i) {
                        int ind = idxOp.getIndx(i, j, k) + offset;
                        for (int n = 0; n < ncomp; ++n) {
                            // NOTE: This factor is to avoid an if statement that will break
                            //       the devicereducesum since all threads won't participate.
                            //       This more performant than Gpu::Atomic::Add.
                            amrex::Real fac = (mask_arr(i,j,k)) ? 1.0 : 0.0;
                            amrex::Gpu::deviceReduceSum(&line_avg[ncomp * ind + n],
                                                            fab_arr(i, j, k, n) * denom * fac, handler);
                        }
                    }
                }
            }
        });
    }
 
    lavg.copyToHost(m_line_average.data(), m_line_average.size());
    amrex::ParallelDescriptor::ReduceRealSum(m_line_average.data(), m_line_average.size());
}
#endif /* ERF_PlaneAverage.H */