AMReX_InterpFaceReg_2D_C.H

Go to the documentation of this file.

#ifndef AMREX_INTERP_FACE_REG_2D_C_H_
#define AMREX_INTERP_FACE_REG_2D_C_H_
 
namespace amrex {
 
AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE
void interp_face_reg (int i, int j, IntVect const& rr, Array4<Real> const& fine, int scomp,
                      Array4<Real const> const& crse, Array4<Real> const& slope, int ncomp,
                      Box const& domface, int idim)
{
    int ic = amrex::coarsen(i,rr[0]);
    int jc = amrex::coarsen(j,rr[1]);
    if (idim == 0) {
        if (jc == domface.smallEnd(1) || jc == domface.bigEnd(1)) {
            for (int n = 0; n < ncomp; ++n) {
                fine(i,j,0,n+scomp) = crse(ic,jc,0,n);
            }
        } else {
            Real sfy = Real(1.0);
            for (int n = 0; n < ncomp; ++n) {
                Real dc = Real(0.5) * (crse(ic,jc+1,0,n) - crse(ic,jc-1,0,n));
                Real df = Real(2.0) * (crse(ic,jc+1,0,n) - crse(ic,jc  ,0,n));
                Real db = Real(2.0) * (crse(ic,jc  ,0,n) - crse(ic,jc-1,0,n));
                Real sy = (df*db >= Real(0.0)) ?
                    amrex::min(std::abs(df),std::abs(db)) : Real(0.);
                sy = std::copysign(Real(1.),dc)*amrex::min(sy,std::abs(dc));
                if (dc != Real(0.0)) {
                    sfy = amrex::min(sfy, sy / dc);
                }
                slope(i,j,0,n) = dc;
            }
            Real yoff = (static_cast<Real>(j - jc*rr[1]) + Real(0.5)) / Real(rr[1]) - Real(0.5);
            for (int n = 0; n < ncomp; ++n) {
                fine(i,j,0,n+scomp) = crse(ic,jc,0,n) + yoff * slope(i,j,0,n) * sfy;
            }
        }
    } else {
        if (ic == domface.smallEnd(0) || ic == domface.bigEnd(0)) {
            for (int n = 0; n < ncomp; ++n) {
                fine(i,j,0,n+scomp) = crse(ic,jc,0,n);
            }
        } else {
            Real sfx = Real(1.0);
            for (int n = 0; n < ncomp; ++n) {
                Real dc = Real(0.5) * (crse(ic+1,jc,0,n) - crse(ic-1,jc,0,n));
                Real df = Real(2.0) * (crse(ic+1,jc,0,n) - crse(ic  ,jc,0,n));
                Real db = Real(2.0) * (crse(ic  ,jc,0,n) - crse(ic-1,jc,0,n));
                Real sx = (df*db >= Real(0.0)) ?
                    amrex::min(std::abs(df),std::abs(db)) : Real(0.);
                sx = std::copysign(Real(1.),dc)*amrex::min(sx,std::abs(dc));
                if (dc != Real(0.0)) {
                    sfx = amrex::min(sfx, sx / dc);
                }
                slope(i,j,0,n) = dc;
            }
            Real xoff = (static_cast<Real>(i - ic*rr[0]) + Real(0.5)) / Real(rr[0]) - Real(0.5);
            for (int n = 0; n < ncomp; ++n) {
                fine(i,j,0,n+scomp) = crse(ic,jc,0,n) + xoff * slope(i,j,0,n) * sfx;
            }
        }
    }
}
 
}
 
#endif