NodalFieldGather.H

Go to the documentation of this file.

/* Copyright 2019-2022 Modern Electron, Axel Huebl, Remi Lehe
 *
 * This file is part of WarpX.
 *
 * License: BSD-3-Clause-LBNL
 */
#ifndef ABLASTR_NODALFIELDGATHER_H_
#define ABLASTR_NODALFIELDGATHER_H_
 
#include "ablastr/utils/TextMsg.H"
 
#include <AMReX_Array.H>
#include <AMReX_Extension.H>
#include <AMReX_GpuQualifiers.H>
#include <AMReX_Math.H>
#include <AMReX_REAL.H>
 
namespace ablastr::particles
{
AMREX_GPU_HOST_DEVICE AMREX_INLINE
void compute_weights_nodal (const amrex::ParticleReal xp,
                            const amrex::ParticleReal yp,
                            const amrex::ParticleReal zp,
                            amrex::GpuArray<amrex::Real, AMREX_SPACEDIM> const& plo,
                            amrex::GpuArray<amrex::Real, AMREX_SPACEDIM> const& dxi,
                            int& i, int& j, int& k, amrex::Real W[AMREX_SPACEDIM][2]) noexcept
{
    using namespace amrex::literals;
#if (defined WARPX_DIM_3D)
    const amrex::Real x = (xp - plo[0]) * dxi[0];
    const amrex::Real y = (yp - plo[1]) * dxi[1];
    const amrex::Real z = (zp - plo[2]) * dxi[2];
 
    i = static_cast<int>(amrex::Math::floor(x));
    j = static_cast<int>(amrex::Math::floor(y));
    k = static_cast<int>(amrex::Math::floor(z));
 
    W[0][1] = x - i;
    W[1][1] = y - j;
    W[2][1] = z - k;
 
    W[0][0] = 1.0_rt - W[0][1];
    W[1][0] = 1.0_rt - W[1][1];
    W[2][0] = 1.0_rt - W[2][1];
 
#elif defined(WARPX_DIM_XZ) || defined(WARPX_DIM_RZ)
 
#   if (defined WARPX_DIM_XZ)
    const amrex::Real x = (xp - plo[0]) * dxi[0];
    amrex::ignore_unused(yp);
    i = static_cast<int>(amrex::Math::floor(x));
    W[0][1] = x - i;
#   elif (defined WARPX_DIM_RZ)
    const amrex::Real r = (std::sqrt(xp*xp+yp*yp) - plo[0]) * dxi[0];
    i = static_cast<int>(amrex::Math::floor(r));
    W[0][1] = r - i;
#   endif
 
    const amrex::Real z = (zp - plo[1]) * dxi[1];
    j = static_cast<int>(amrex::Math::floor(z));
    W[1][1] = z - j;
 
    W[0][0] = 1.0_rt - W[0][1];
    W[1][0] = 1.0_rt - W[1][1];
 
    k = 0;
#else
    amrex::ignore_unused(xp, yp, zp, plo, dxi, i, j, k, W);
    ABLASTR_ABORT_WITH_MESSAGE("Error: compute_weights not yet implemented in 1D");
#endif
}
 
AMREX_GPU_HOST_DEVICE AMREX_INLINE
amrex::Real interp_field_nodal (int i, int j, int k,
                                const amrex::Real W[AMREX_SPACEDIM][2],
                                amrex::Array4<const amrex::Real> const& scalar_field) noexcept
{
#if (defined WARPX_DIM_3D)
    amrex::Real value = 0;
    value += scalar_field(i,   j  , k  ) * W[0][0] * W[1][0] * W[2][0];
    value += scalar_field(i+1, j  , k  ) * W[0][1] * W[1][0] * W[2][0];
    value += scalar_field(i,   j+1, k  ) * W[0][0] * W[1][1] * W[2][0];
    value += scalar_field(i+1, j+1, k  ) * W[0][1] * W[1][1] * W[2][0];
    value += scalar_field(i,   j  , k+1) * W[0][0] * W[1][0] * W[2][1];
    value += scalar_field(i+1, j  , k+1) * W[0][1] * W[1][0] * W[2][1];
    value += scalar_field(i  , j+1, k+1) * W[0][0] * W[1][1] * W[2][1];
    value += scalar_field(i+1, j+1, k+1) * W[0][1] * W[1][1] * W[2][1];
#elif defined(WARPX_DIM_XZ) || defined(WARPX_DIM_RZ)
    amrex::Real value = 0;
    value += scalar_field(i,   j ,  k) * W[0][0] * W[1][0];
    value += scalar_field(i+1, j ,  k) * W[0][1] * W[1][0];
    value += scalar_field(i,   j+1, k) * W[0][0] * W[1][1];
    value += scalar_field(i+1, j+1, k) * W[0][1] * W[1][1];
#else
    const amrex::Real value = 0;
    amrex::ignore_unused(i, j, k, W, scalar_field);
    ABLASTR_ABORT_WITH_MESSAGE("Error: interp_field not yet implemented in 1D");
#endif
    return value;
}
 
AMREX_GPU_HOST_DEVICE AMREX_INLINE
amrex::Real doGatherScalarFieldNodal (const amrex::ParticleReal xp,
                                      const amrex::ParticleReal yp,
                                      const amrex::ParticleReal zp,
                                      amrex::Array4<const amrex::Real> const& scalar_field,
                                      amrex::GpuArray<amrex::Real,AMREX_SPACEDIM> const& dxi,
                                      amrex::GpuArray<amrex::Real,AMREX_SPACEDIM> const& lo) noexcept
{
    // first find the weight of surrounding nodes to use during interpolation
    int ii, jj, kk;
    amrex::Real W[AMREX_SPACEDIM][2];
    compute_weights_nodal(xp, yp, zp, lo, dxi, ii, jj, kk, W);
 
    return interp_field_nodal(ii, jj, kk, W, scalar_field);
}
 
AMREX_GPU_HOST_DEVICE AMREX_INLINE
amrex::GpuArray<amrex::Real, 3>
doGatherVectorFieldNodal (const amrex::ParticleReal xp,
                          const amrex::ParticleReal yp,
                          const amrex::ParticleReal zp,
                          amrex::Array4<const amrex::Real> const& vector_field_x,
                          amrex::Array4<const amrex::Real> const& vector_field_y,
                          amrex::Array4<const amrex::Real> const& vector_field_z,
                          amrex::GpuArray<amrex::Real, AMREX_SPACEDIM> const& dxi,
                          amrex::GpuArray<amrex::Real, AMREX_SPACEDIM> const& lo) noexcept
{
    // first find the weight of surrounding nodes to use during interpolation
    int ii, jj, kk;
    amrex::Real W[AMREX_SPACEDIM][2];
    compute_weights_nodal(xp, yp, zp, lo, dxi, ii, jj, kk, W);
 
    amrex::GpuArray<amrex::Real, 3> const field_interp = {
        interp_field_nodal(ii, jj, kk, W, vector_field_x),
        interp_field_nodal(ii, jj, kk, W, vector_field_y),
        interp_field_nodal(ii, jj, kk, W, vector_field_z)
    };
 
    return field_interp;
}
 
} // namespace ablastr::particles
 
#endif // ABLASTR_NODALFIELDGATHER_H_