AMReX_MLMG_1D_K.H

Go to the documentation of this file.

#ifndef AMREX_MLMG_1D_K_H_
#define AMREX_MLMG_1D_K_H_
#include <AMReX_Config.H>
 
namespace amrex {
 
template <typename T>
AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE
void mlmg_lin_cc_interp_r2 (Box const& bx, Array4<T> const& ff,
                            Array4<T const> const& cc, int nc) noexcept
{
    const auto lo = amrex::lbound(bx);
    const auto hi = amrex::ubound(bx);
 
    for (int n = 0; n < nc; ++n) {
        AMREX_PRAGMA_SIMD
        for (int i = lo.x; i <= hi.x; ++i) {
            const int ic = i/2;
            const int ioff = 2*(i-ic*2)-1;
            ff(i,0,0,n) = T(0.75)*cc(ic,0,0,n) + T(0.25)*cc(ic+ioff,0,0,n);
        }
    }
}
 
template <typename T>
AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE
void mlmg_lin_cc_interp_r4 (Box const& bx, Array4<T> const& ff,
                            Array4<T const> const& cc, int nc) noexcept
{
    const auto lo = amrex::lbound(bx);
    const auto hi = amrex::ubound(bx);
 
    for (int n = 0; n < nc; ++n) {
        AMREX_PRAGMA_SIMD
        for (int i = lo.x; i <= hi.x; ++i) {
            const int ic = i/4;
            ff(i,0,0,n) = cc(ic,0,0,n);
        }
    }
}
 
template <typename T>
AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE
void mlmg_lin_nd_interp_r2 (int i, int, int, int n, Array4<T> const& fine,
                            Array4<T const> const& crse) noexcept
{
    int ic = amrex::coarsen(i,2);
    bool i_is_odd = (ic*2 != i);
    if (i_is_odd) {
        // Fine node along a horizontal cell edge
        fine(i,0,0,n) = T(0.5)*(crse(ic,0,0,n) + crse(ic+1,0,0,n));
    } else {
        // Fine node coincident with coarse node
        fine(i,0,0,n) = crse(ic,0,0,n);
    }
}
 
template <typename T>
AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE
void mlmg_lin_nd_interp_r4 (int i, int, int, int n, Array4<T> const& fine,
                            Array4<T const> const& crse) noexcept
{
    int ic = amrex::coarsen(i,4);
    bool i_injection = (ic*4 == i);
    if (i_injection) {
        fine(i,0,0,n) = crse(ic,0,0,n);
    } else {
        fine(i,0,0,n) = T(0.25)*(crse(ic  ,0,0,n)*T(4*(ic+1)-i)
                               + crse(ic+1,0,0,n)*T(i-4*ic));
    }
}
 
}
 
#endif