REMORA_NCTimeSeriesBoundary.cpp

Go to the documentation of this file.

#include "REMORA_NCTimeSeriesBoundary.H"
#include "REMORA_NCFile.H"
 
#include "AMReX_ParallelDescriptor.H"
 
#include <string>
 
#ifdef REMORA_USE_NETCDF
/**
 * @param[in   ] a_lev                level at which we will store the data
 * @param[in   ] a_geom               Vector of Geometry objects at all levels
 * @param[in   ] a_file_name          vector of file name(s) to read from
 * @param[in   ] a_field_name         name of field to read in
 * @param[in   ] a_time_name          name of time variable in NetCDF file
 * @param[in   ] a_index_type         nodality of data field
 * @param[in   ] a_var_need_data      array over boundaries of flags that indicate whether we need data for the variable
 * @param[in   ] a_is2d               Whether the variable we're working with is 2D
 * @param[in   ] a_rx                 refinement ratio in x relative to level 0
 * @param[in   ] a_ry                 refinement ratio in y relative to level 0
 */
NCTimeSeriesBoundary::NCTimeSeriesBoundary (int a_lev, const amrex::Vector<amrex::Geometry> a_geom,
                                            const amrex::Vector<std::string>& a_file_names, const std::string a_field_name,
                                            const std::string a_time_name,
                                            const amrex::IntVect a_index_type,
                                            const amrex::GpuArray<bool, AMREX_SPACEDIM*2>& a_var_need_data,
                                            bool a_is2d, int a_rx, int a_ry)
{
    m_lev = a_lev;
    m_geom = a_geom;
    file_names.assign(a_file_names.begin(), a_file_names.end());
    time_name = a_time_name;
    field_name = a_field_name;
    domain = a_geom[a_lev].Domain();
    index_type = a_index_type;
    // Copied, not aliased: the caller's array (REMORA::phys_bc_need_data) is an
    // amrex::Vector element, whose address is not stable across a resize.
    var_need_data = a_var_need_data;
    is2d = a_is2d;
    m_rx = a_rx;
    m_ry = a_ry;
}
 
void NCTimeSeriesBoundary::Initialize()
{
    // Initialize Fabs
    amrex::Arena* Arena_Used = amrex::The_Arena();
#ifdef AMREX_USE_GPU
    Arena_Used = amrex::The_Pinned_Arena();
#endif
 
    // open file
    // Only announce the variables that will really be read. A series is constructed for
    // every boundary variable, but most of them typically sit on a local boundary
    // condition and never touch the file.
    bool any_side_needs_data = false;
    for (int ori = 0; ori < AMREX_SPACEDIM*2; ++ori) {
        any_side_needs_data = any_side_needs_data || var_need_data[ori];
    }
    if (any_side_needs_data) {
        amrex::Print() << "Setting up boundary data for " << field_name << " coming from NetCDF file " << std::endl;
    }
 
    // The time field can have any number of names, depending on the field.
    // If not specified in input file (time_name.empty()) then set it by default
    if (time_name.empty())
    {
        time_name = "ocean_time";
    }
 
    int ioproc = amrex::ParallelDescriptor::IOProcessorNumber();
    for (int ifile = 0; ifile < file_names.size(); ifile++) {
        std::string file_name = file_names[ifile];
        // Check units of time stamps; should be days, if unit attribute exists.
        // If it does not, print a warning and assume days
        int has_units = QueryNetCDFVarAttrStr(file_name, time_name, "units");
        amrex::ParallelDescriptor::Bcast(&has_units,1,ioproc);
        if (has_units) {
            std::string unit_str = ReadNetCDFVarAttrStr(file_name, time_name, "units"); // works on proc 0
            if (amrex::ParallelDescriptor::IOProcessor())
            {
                if (unit_str.find("days") == std::string::npos) {
                    amrex::Print() << "Units of ocean_time given as: " << unit_str << std::endl;
                    amrex::Abort("Units must be in days.");
                }
            }
        } else {
            amrex::Warning("Units attribute not found on time variable " + time_name + ". Assuming days");
        }
        // get times and put in array
        using RARRAY = NDArray<amrex::Real>;
        amrex::Vector<RARRAY> array_ts(1);
        ReadNetCDFFile(file_name, {time_name}, array_ts); // filled only on proc 0
        if (amrex::ParallelDescriptor::IOProcessor())
        {
            int ntimes_io = array_ts[0].get_vshape()[0];
            for (int nt(0); nt < ntimes_io; nt++)
            {
                // Convert ocean time from days to seconds
                bry_times.push_back((*(array_ts[0].get_data() + nt)) * amrex::Real(60.0) * amrex::Real(60.0) * amrex::Real(24.0));
                file_for_time.push_back(ifile);
                file_itime_offset.push_back(nt);
            }
        }
    }
 
    int ntimes = bry_times.size();
    // Only do checks on IO processor since bry_times isn't populated on other ranks yet
    if (amrex::ParallelDescriptor::IOProcessor()) {
        AMREX_ASSERT(std::is_sorted(bry_times.begin(), bry_times.end()));
        if (ntimes <= 1) {
            amrex::Error("Time series of boundary data must be given at at least two times");
        }
    }
    amrex::ParallelDescriptor::Bcast(&ntimes,1,ioproc);
    if (!(amrex::ParallelDescriptor::IOProcessor())) {
        bry_times.resize(ntimes);
        file_for_time.resize(ntimes);
        file_itime_offset.resize(ntimes);
    }
    amrex::ParallelDescriptor::Bcast(bry_times.data(), bry_times.size(), ioproc);
    amrex::ParallelDescriptor::Bcast(file_for_time.data(), file_for_time.size(), ioproc);
    amrex::ParallelDescriptor::Bcast(file_itime_offset.data(), file_itime_offset.size(), ioproc);
 
    const auto& lo = domain.loVect();
    const auto& hi = domain.hiVect();
 
    amrex::Box xlo_bx(amrex::IntVect(lo[0]+index_type[0]-1, lo[1]+index_type[1]-1, lo[2]),
                      amrex::IntVect(lo[0]+index_type[0]-1, hi[1]+1              , hi[2]), index_type);
    amrex::Box xhi_bx(amrex::IntVect(hi[0]+1              , lo[1]+index_type[1]-1, lo[2]),
                      amrex::IntVect(hi[0]+1              , hi[1]+1              , hi[2]), index_type);
    amrex::Box ylo_bx(amrex::IntVect(lo[0]+index_type[0]-1, lo[1]+index_type[1]-1, lo[2]),
                      amrex::IntVect(hi[0]+1              , lo[1]+index_type[1]-1, hi[2]), index_type);
    amrex::Box yhi_bx(amrex::IntVect(lo[0]+index_type[0]-1, hi[1]+1              , lo[2]),
                      amrex::IntVect(hi[0]+1              , hi[1]+1              , hi[2]), index_type);
    if (is2d) {
        xlo_bx.makeSlab(2,0);
        xhi_bx.makeSlab(2,0);
        ylo_bx.makeSlab(2,0);
        yhi_bx.makeSlab(2,0);
    }
 
    // amrex::Print() << xlo_bx << " " << xhi_bx << " " << ylo_bx << " " << yhi_bx << std::endl;
 
    xlo_dat_before = amrex::FArrayBox(xlo_bx, 1, Arena_Used);
    xhi_dat_before = amrex::FArrayBox(xhi_bx, 1, Arena_Used);
    ylo_dat_before = amrex::FArrayBox(ylo_bx, 1, Arena_Used);
    yhi_dat_before = amrex::FArrayBox(yhi_bx, 1, Arena_Used);
 
    xlo_dat_after = amrex::FArrayBox(xlo_bx, 1, Arena_Used);
    xhi_dat_after = amrex::FArrayBox(xhi_bx, 1, Arena_Used);
    ylo_dat_after = amrex::FArrayBox(ylo_bx, 1, Arena_Used);
    yhi_dat_after = amrex::FArrayBox(yhi_bx, 1, Arena_Used);
 
    xlo_dat_interp = amrex::FArrayBox(xlo_bx, 1, Arena_Used);
    xhi_dat_interp = amrex::FArrayBox(xhi_bx, 1, Arena_Used);
    ylo_dat_interp = amrex::FArrayBox(ylo_bx, 1, Arena_Used);
    yhi_dat_interp = amrex::FArrayBox(yhi_bx, 1, Arena_Used);
 
    // dummy initialization
    i_time_before = -100;
 
    if (var_need_data[amrex::Orientation(amrex::Direction::x,amrex::Orientation::low)] == true) {
        nc_var_names.push_back(field_name + "_west");
    }
    if (var_need_data[amrex::Orientation(amrex::Direction::x,amrex::Orientation::high)] == true) {
        nc_var_names.push_back(field_name + "_east");
    }
    if (var_need_data[amrex::Orientation(amrex::Direction::y,amrex::Orientation::low)] == true) {
        nc_var_names.push_back(field_name + "_south");
    }
    if (var_need_data[amrex::Orientation(amrex::Direction::y,amrex::Orientation::high)] == true) {
        nc_var_names.push_back(field_name + "_north");
    }
 
    // Nothing to check for a variable that reads no boundary data at all, and skipping
    // keeps a run with many tracers from opening the file once per inert tracer
    if (nc_var_names.empty()) {
        return;
    }
 
    // Fail early and by name. read_in_at_time dereferences each variable unconditionally,
    // so a file that is missing e.g. NO3_west would otherwise fail deep inside the reader
    // with nothing to say which variable, which file, or which input asked for it.
    for (const auto& file_name : file_names) {
        if (!QueryNetCDFHasVars(file_name, nc_var_names)) {
            std::string msg = "Boundary file " + file_name + " does not contain all of:";
            for (const auto& var_name : nc_var_names) {
                msg += " " + var_name;
            }
            msg += ". The boundary condition requested for " + field_name +
                   " reads from file (clamped, chapman, flather, or orlanski_rad_nudg)."
                   " Either add the missing variable(s) to the file, or give " + field_name +
                   " a boundary condition that needs no file data, such as outflow.";
            amrex::Abort(msg);
        }
    }
}
 
/**
 * @param time   time to interpolate to
 */
void NCTimeSeriesBoundary::update_interpolated_to_time (amrex::Real time)
{
    // Nothing in the file for this variable, so there is nothing to read or
    // interpolate. Returning here also keeps the reader from announcing that it is
    // reading a variable the file does not contain: the caller updates every tracer
    // in one sweep, and most of them are typically on a local boundary condition.
    if (nc_var_names.empty()) {
        return;
    }
 
    // Initialize Fabs
    amrex::Arena* Arena_Used = amrex::The_Arena();
#ifdef AMREX_USE_GPU
    Arena_Used = amrex::The_Pinned_Arena();
#endif
 
    // Figure out time index:
    AMREX_ASSERT(time >= bry_times[0]);
    AMREX_ASSERT(time <= bry_times[bry_times.size()-1]);
    int i_time_before_old = i_time_before;
    for (int nt=0; nt < bry_times.size()-1; nt++) {
        if ((bry_times[nt] <= time) and (bry_times[nt+1] >= time)) {
            i_time_before = nt;
            time_before = bry_times[nt];
            time_after = bry_times[nt+1];
            break;
        }
    }
 
    int i_time_after = i_time_before + 1;
 
    amrex::FArrayBox crse_xlo_dat;
    amrex::FArrayBox crse_xhi_dat;
    amrex::FArrayBox crse_ylo_dat;
    amrex::FArrayBox crse_yhi_dat;
 
    if (m_lev > 0) {
        const auto& crse_lo = m_geom[0].Domain().loVect();
        const auto& crse_hi = m_geom[0].Domain().hiVect();
 
        amrex::Box crse_xlo_bx(amrex::IntVect(crse_lo[0]+index_type[0]-1, crse_lo[1]+index_type[1]-1, crse_lo[2]),
                               amrex::IntVect(crse_lo[0]+index_type[0]-1, crse_hi[1]+1              , crse_hi[2]), index_type);
        amrex::Box crse_xhi_bx(amrex::IntVect(crse_hi[0]+1              , crse_lo[1]+index_type[1]-1, crse_lo[2]),
                               amrex::IntVect(crse_hi[0]+1              , crse_hi[1]+1              , crse_hi[2]), index_type);
        amrex::Box crse_ylo_bx(amrex::IntVect(crse_lo[0]+index_type[0]-1, crse_lo[1]+index_type[1]-1, crse_lo[2]),
                               amrex::IntVect(crse_hi[0]+1              , crse_lo[1]+index_type[1]-1, crse_hi[2]), index_type);
        amrex::Box crse_yhi_bx(amrex::IntVect(crse_lo[0]+index_type[0]-1, crse_hi[1]+1              , crse_lo[2]),
                               amrex::IntVect(crse_hi[0]+1              , crse_hi[1]+1              , crse_hi[2]), index_type);
        if (is2d) {
            crse_xlo_bx.makeSlab(2,0);
            crse_xhi_bx.makeSlab(2,0);
            crse_ylo_bx.makeSlab(2,0);
            crse_yhi_bx.makeSlab(2,0);
        }
 
        crse_xlo_dat = amrex::FArrayBox(crse_xlo_bx, 1, Arena_Used);
        crse_xhi_dat = amrex::FArrayBox(crse_xhi_bx, 1, Arena_Used);
        crse_ylo_dat = amrex::FArrayBox(crse_ylo_bx, 1, Arena_Used);
        crse_yhi_dat = amrex::FArrayBox(crse_yhi_bx, 1, Arena_Used);
    }
 
    if (i_time_before_old + 1 == i_time_before) {
        // swap multifabs so we only have to read in one MultiFab
        std::swap(xlo_dat_before, xlo_dat_after);
        std::swap(xhi_dat_before, xhi_dat_after);
        std::swap(ylo_dat_before, ylo_dat_after);
        std::swap(yhi_dat_before, yhi_dat_after);
 
        amrex::Print() << "Reading in " << field_name << " at (after) time " << i_time_after << std::endl;
 
        if (m_lev == 0) {
            read_in_at_time(xlo_dat_after, xhi_dat_after, ylo_dat_after, yhi_dat_after, i_time_after);
        } else {
 
            read_in_at_time(crse_xlo_dat, crse_xhi_dat, crse_ylo_dat, crse_yhi_dat, i_time_after);
 
            interp_fab(crse_xlo_dat, xlo_dat_after);
            interp_fab(crse_xhi_dat, xhi_dat_after);
            interp_fab(crse_ylo_dat, ylo_dat_after);
            interp_fab(crse_yhi_dat, yhi_dat_after);
 
            // The_Pinned_Arena is not stream-ordered, so wait for interp_fab's
            // kernels before these fabs are freed at return
            amrex::Gpu::streamSynchronize();
 
        }
 
    } else if (i_time_before_old != i_time_before) {
 
 
        if (m_lev == 0) {
            amrex::Print() << "Reading in " << field_name << " at (before) time " << i_time_before << std::endl;
            read_in_at_time(xlo_dat_before,xhi_dat_before, ylo_dat_before,yhi_dat_before, i_time_before);
            amrex::Print() << "Reading in " << field_name << " at (after) time " << i_time_after << std::endl;
            read_in_at_time(xlo_dat_after ,xhi_dat_after , ylo_dat_after , yhi_dat_after, i_time_after);
        } else {
 
            amrex::Print() << "Reading in " << field_name << " at (before) time " << i_time_before << std::endl;
 
            read_in_at_time(crse_xlo_dat, crse_xhi_dat, crse_ylo_dat,crse_yhi_dat, i_time_before);
 
            interp_fab(crse_xlo_dat, xlo_dat_before);
            interp_fab(crse_xhi_dat, xhi_dat_before);
            interp_fab(crse_ylo_dat, ylo_dat_before);
            interp_fab(crse_yhi_dat, yhi_dat_before);
 
            amrex::Print() << "Reading in " << field_name << " at time " << i_time_after << std::endl;
 
            read_in_at_time(crse_xlo_dat, crse_xhi_dat, crse_ylo_dat, crse_yhi_dat, i_time_after);
 
            interp_fab(crse_xlo_dat, xlo_dat_after);
            interp_fab(crse_xhi_dat, xhi_dat_after);
            interp_fab(crse_ylo_dat, ylo_dat_after);
            interp_fab(crse_yhi_dat, yhi_dat_after);
 
            // The_Pinned_Arena is not stream-ordered, so wait for interp_fab's
            // kernels before these fabs are freed at return
            amrex::Gpu::streamSynchronize();
        } // lev
    } // i_time
 
    amrex::Real dt = time_after - time_before;
    amrex::Real time_before_copy = time_before;
 
    amrex::Array4<amrex::Real> xlo_interp_arr = xlo_dat_interp.array();
    amrex::Array4<amrex::Real> xhi_interp_arr = xhi_dat_interp.array();
    amrex::Array4<amrex::Real> ylo_interp_arr = ylo_dat_interp.array();
    amrex::Array4<amrex::Real> yhi_interp_arr = yhi_dat_interp.array();
 
    amrex::Array4<amrex::Real> xlo_before_arr = xlo_dat_before.array();
    amrex::Array4<amrex::Real> xhi_before_arr = xhi_dat_before.array();
    amrex::Array4<amrex::Real> ylo_before_arr = ylo_dat_before.array();
    amrex::Array4<amrex::Real> yhi_before_arr = yhi_dat_before.array();
 
    amrex::Array4<amrex::Real> xlo_after_arr = xlo_dat_after.array();
    amrex::Array4<amrex::Real> xhi_after_arr = xhi_dat_after.array();
    amrex::Array4<amrex::Real> ylo_after_arr = ylo_dat_after.array();
    amrex::Array4<amrex::Real> yhi_after_arr = yhi_dat_after.array();
 
    if (var_need_data[amrex::Orientation(amrex::Direction::x,amrex::Orientation::low)] == true) {
        amrex::ParallelFor(xlo_dat_interp.box(), [=] AMREX_GPU_DEVICE (int i, int j, int k)
        {
            xlo_interp_arr(i,j,k) = xlo_before_arr(i,j,k) + (time - time_before_copy) * (xlo_after_arr(i,j,k) - xlo_before_arr(i,j,k)) / dt;
        });
    }
 
    if (var_need_data[amrex::Orientation(amrex::Direction::x,amrex::Orientation::high)] == true) {
        amrex::ParallelFor(xhi_dat_interp.box(), [=] AMREX_GPU_DEVICE (int i, int j, int k)
        {
            xhi_interp_arr(i,j,k) = xhi_before_arr(i,j,k) + (time - time_before_copy) * (xhi_after_arr(i,j,k) - xhi_before_arr(i,j,k)) / dt;
        });
    }
 
    if (var_need_data[amrex::Orientation(amrex::Direction::y,amrex::Orientation::low)] == true) {
        amrex::ParallelFor(ylo_dat_interp.box(), [=] AMREX_GPU_DEVICE (int i, int j, int k)
        {
            ylo_interp_arr(i,j,k) = ylo_before_arr(i,j,k) + (time - time_before_copy) * (ylo_after_arr(i,j,k) - ylo_before_arr(i,j,k)) / dt;
        });
    }
 
    if (var_need_data[amrex::Orientation(amrex::Direction::y,amrex::Orientation::high)] == true) {
        amrex::ParallelFor(yhi_dat_interp.box(), [=] AMREX_GPU_DEVICE (int i, int j, int k)
        {
            yhi_interp_arr(i,j,k) = yhi_before_arr(i,j,k) + (time - time_before_copy) * (yhi_after_arr(i,j,k) - yhi_before_arr(i,j,k)) / dt;
        });
    }
}
 
/**
 * @param[inout] fab_xlo   fab to store xlo boundary data into
 * @param[inout] fab_xhi   fab to store xhi boundary data into
 * @param[inout] fab_ylo   fab to store ylo boundary data into
 * @param[inout] fab_yhi   fab to store yhi boundary data into
 * @param[in   ] itime     index of time step to read from file
 */
void NCTimeSeriesBoundary::read_in_at_time (amrex::FArrayBox& fab_xlo,
                                            amrex::FArrayBox& fab_xhi,
                                            amrex::FArrayBox& fab_ylo,
                                            amrex::FArrayBox& fab_yhi,
                                            int itime) {
    // The host writes below land in pinned fabs that queued kernels may still be
    // reading in place, so drain the stream first
    amrex::Gpu::streamSynchronize();
 
    using RARRAY = NDArray<amrex::Real>;
    amrex::Vector<RARRAY> arrays(nc_var_names.size());
 
    amrex::Print() << "Actually reading in " << field_name << " at time " << bry_times[itime] << std::endl;
    std::string nc_bdry_file = file_names[file_for_time[itime]];
    int itime_offset = file_itime_offset[itime];
    ReadNetCDFFile(nc_bdry_file, nc_var_names, arrays, true, itime_offset); // does work on proc 0 only
 
    for (int iv=0; iv < nc_var_names.size(); iv++) {
        if (amrex::ParallelDescriptor::IOProcessor())
        {
            std::string  last4 = nc_var_names[iv].substr(nc_var_names[iv].size()-4, 4);
            std::string  last5 = nc_var_names[iv].substr(nc_var_names[iv].size()-5, 5);
            int nx, ny, nz, n_plane;
            int i, j, k, ioff, joff;
            if (last4 == "west") {
                amrex::Box my_box = fab_xlo.box();
                if (is2d) {
                    nz = 1;
                    ny = arrays[iv].get_vshape()[1];
                } else {
                    nz = arrays[iv].get_vshape()[1];
                    ny = arrays[iv].get_vshape()[2];
                }
                n_plane = ny * nz;
                AMREX_ALWAYS_ASSERT(my_box.numPts() == n_plane);
 
                i    = my_box.smallEnd()[0];
                joff = my_box.smallEnd()[1];
 
                amrex::Array4<amrex::Real> fab_arr = fab_xlo.array();
 
                for (int n(0); n < n_plane; n++) {
                    k = n / ny;
                    j = n - (k * ny);
                    fab_arr(i, j+joff, k, 0) = static_cast<amrex::Real>(*(arrays[iv].get_data() + n));
                }
            } else if (last4 == "east") {
                amrex::Box my_box = fab_xhi.box();
                if (is2d) {
                    nz = 1;
                    ny = arrays[iv].get_vshape()[1];
                } else {
                    nz = arrays[iv].get_vshape()[1];
                    ny = arrays[iv].get_vshape()[2];
                }
                n_plane = ny * nz;
                AMREX_ALWAYS_ASSERT(my_box.numPts() == n_plane);
 
                i    = my_box.smallEnd()[0];
                joff = my_box.smallEnd()[1];
 
                amrex::Array4<amrex::Real> fab_arr = fab_xhi.array();
                for (int n(0); n < n_plane; n++) {
                    k = n / ny;
                    j = n - (k * ny);
                    fab_arr(i, j+joff, k, 0) = static_cast<amrex::Real>(*(arrays[iv].get_data() + n));
                }
            } else if (last5 == "south") {
                amrex::Box my_box = fab_ylo.box();
                if (is2d) {
                    nz = 1;
                    nx = arrays[iv].get_vshape()[1];
                } else {
                    nz = arrays[iv].get_vshape()[1];
                    nx = arrays[iv].get_vshape()[2];
                }
                n_plane = nx * nz;
                AMREX_ALWAYS_ASSERT(my_box.numPts() == n_plane);
 
                j    = my_box.smallEnd()[1];
                ioff = my_box.smallEnd()[0];
 
                amrex::Array4<amrex::Real> fab_arr = fab_ylo.array();
                for (int n(0); n < n_plane; n++) {
                    k = n / nx;
                    i = n - (k * nx);
                    fab_arr(i+ioff, j, k, 0) = static_cast<amrex::Real>(*(arrays[iv].get_data() + n));
                }
            } else if (last5 == "north") {
                amrex::Box my_box = fab_yhi.box();
                if (is2d) {
                    nz = 1;
                    nx = arrays[iv].get_vshape()[1];
                } else {
                    nz = arrays[iv].get_vshape()[1];
                    nx = arrays[iv].get_vshape()[2];
                }
                n_plane = nx * nz;
                AMREX_ALWAYS_ASSERT(my_box.numPts() == n_plane);
 
                j    = my_box.smallEnd()[1];
                ioff = my_box.smallEnd()[0];
 
                amrex::Array4<amrex::Real> fab_arr = fab_yhi.array();
                for (int n(0); n < n_plane; n++) {
                    k = n / nx;
                    i = n - (k * nx);
                    fab_arr(i+ioff, j, k, 0) = static_cast<amrex::Real>(*(arrays[iv].get_data() + n));
                }
            }
        }
    }
 
    amrex::ParallelDescriptor::Barrier();
 
    // When an FArrayBox is built, space is allocated on every rank.  However, we only
    //    filled the data in these FABs on the IOProcessor.  So here we broadcast
    //    the data to every rank.
    int ioproc = amrex::ParallelDescriptor::IOProcessorNumber();  // I/O rank
    amrex::ParallelDescriptor::Bcast(fab_xlo.dataPtr(),fab_xlo.box().numPts(),ioproc);
    amrex::ParallelDescriptor::Bcast(fab_xhi.dataPtr(),fab_xhi.box().numPts(),ioproc);
    amrex::ParallelDescriptor::Bcast(fab_ylo.dataPtr(),fab_ylo.box().numPts(),ioproc);
    amrex::ParallelDescriptor::Bcast(fab_yhi.dataPtr(),fab_yhi.box().numPts(),ioproc);
 
    amrex::Print() << "DONE reading in " << field_name << " at time " << bry_times[itime] << std::endl;
}
 
/**
 * @param[in   ] dat_crse  fab of coarse data to interpolate from
 * @param[  out] dat_fine  fab of fine data to interpoalte to
 */
void NCTimeSeriesBoundary::interp_fab(amrex::FArrayBox& dat_crse, amrex::FArrayBox& dat_fine)
{
    amrex::Array4<amrex::Real> crse_arr = dat_crse.array();
    amrex::Array4<amrex::Real> fine_arr = dat_fine.array();
 
    const auto& bhi = ubound(dat_crse.box());
 
    int rx = m_rx;
    int ry = m_ry;
 
    amrex::Real xfac = one / static_cast<amrex::Real>(rx);
    amrex::Real yfac = one / static_cast<amrex::Real>(ry);
 
    // Doing box on x-face
    if (dat_crse.box().length(0) == 1) {
        // amrex::Print() << "DOING INTERP ON XFACE " << dat_crse.box() << " " << dat_fine.box() << std::endl;
        if (dat_crse.box().ixType()[1] == 0) {
            amrex::ParallelFor(dat_crse.box(), [=] AMREX_GPU_DEVICE (int i, int j, int k)
            {
                int i_f = (i == -1) ? -1 : rx*i;
                if (j == -1) {
                    fine_arr(i_f,j,k) = crse_arr(i,j,k);
                } else {
                    fine_arr(i_f,ry*j  ,k) = crse_arr(i,j,k);
                    if (j < bhi.y) {
                        for (int n = 1; n < ry; n++) {
                            fine_arr(i_f,ry*j+n,k) = crse_arr(i,j,k) + n * yfac * (crse_arr(i,j+1,k) - crse_arr(i,j,k));
                        }
                    }
                }
            });
        } else {
            amrex::ParallelFor(dat_crse.box(), [=] AMREX_GPU_DEVICE (int i, int j, int k)
            {
                int i_f = (i == -1) ? -1 : rx*i;
                if (j == -1) {
                    fine_arr(i_f,j,k) = crse_arr(i,j,k);
                } else {
                    fine_arr(i_f,ry*j,k) = crse_arr(i,j,k);
                    if (j < bhi.y) {
                        for (int n = 1; n < ry; n++) {
                            fine_arr(i_f,ry*j+n,k) = crse_arr(i,j,k) + n * yfac * (crse_arr(i,j+1,k) - crse_arr(i,j,k));
                        }
                    }
                }
            });
        }
    } else if (dat_crse.box().length(1) == 1) {
    // Doing box on y-face
        // amrex::Print() << "DOING INTERP ON YFACE " << dat_crse.box() << " " << dat_fine.box() << std::endl;
        if (dat_crse.box().ixType()[0] == 0) {
            amrex::ParallelFor(dat_crse.box(), [=] AMREX_GPU_DEVICE (int i, int j, int k)
            {
                int j_f = (j == -1) ? -1 : ry*j;
                if (i == -1) {
                    fine_arr(i,j_f,k) = crse_arr(i,j,k);
                } else {
                    fine_arr(rx*i  ,j_f,k) = crse_arr(i,j,k);
                    if (i < bhi.x) {
                        for (int n = 1; n < rx; n++) {
                            fine_arr(rx*i+n,j_f,k) = crse_arr(i,j,k) + n * xfac * (crse_arr(i+1,j,k) - crse_arr(i,j,k));
                        }
                    }
                }
            });
        } else {
            amrex::ParallelFor(dat_crse.box(), [=] AMREX_GPU_DEVICE (int i, int j, int k)
            {
                int j_f = (j == -1) ? -1 : ry*j;
                if (i == -1) {
                    fine_arr(i,j_f,k) = crse_arr(i,j,k);
                } else {
                    fine_arr(rx*i,j_f,k) = crse_arr(i,j,k);
                    if (i < bhi.x) {
                        for (int n = 1; n < rx; n++) {
                            fine_arr(rx*i+n,j_f,k) = crse_arr(i,j,k) + n * xfac * (crse_arr(i+1,j,k) - crse_arr(i,j,k));
                        }
                    }
                }
            });
        }
    } else {
        amrex::Abort(" What am I doing here??");
    }
}
 
#endif // REMORA_USE_NETCDF