---

GenMGInterpImplem.H

Go to the documentation of this file.

/* _______              __
  / ___/ /  ___  __ _  / /  ___
 / /__/ _ \/ _ \/  ' \/ _ \/ _ \
 \___/_//_/\___/_/_/_/_.__/\___/ 
*/
//
// This software is copyright (C) by the Lawrence Berkeley
// National Laboratory.  Permission is granted to reproduce
// this software for non-commercial purposes provided that
// this notice is left intact.
// 
// It is acknowledged that the U.S. Government has rights to
// this software under Contract DE-AC03-765F00098 between
// the U.S.  Department of Energy and the University of
// California.
//
// This software is provided as a professional and academic
// contribution for joint exchange. Thus it is experimental,
// is provided ``as is'', with no warranties of any kind
// whatsoever, no support, no promise of updates, or printed
// documentation. By using this software, you acknowledge
// that the Lawrence Berkeley National Laboratory and
// Regents of the University of California shall have no
// liability with respect to the infringement of other
// copyrights by any part of this software.
//

#ifndef _GENMGINTERPIMPLEM_H_
#define _GENMGINTERPIMPLEM_H_

#include "DisjointBoxLayout.H"
#include "LevelData.H"
#include "REAL.H"
#include "DataIterator.H"

#include "GenLevelMGF_F.H"

template <class T>
GenMGInterp<T>::GenMGInterp()
:m_isDefined(false)
{
}

template <class T>
GenMGInterp<T>::GenMGInterp(const DisjointBoxLayout& a_fineDomain,
                            int                      a_numcomps,
                            int                      a_refRatio,
                            const Box&               a_problemDomain)
:m_isDefined(false)
{
  ProblemDomain finePhysdomain(a_problemDomain);
  define(a_fineDomain, a_numcomps, a_refRatio, finePhysdomain);
}

template <class T>
GenMGInterp<T>::GenMGInterp(const DisjointBoxLayout& a_fineDomain,
                            int                      a_numcomps,
                            int                      a_refRatio,
                            const ProblemDomain&     a_problemDomain)
:m_isDefined(false)
{
  define(a_fineDomain, a_numcomps, a_refRatio, a_problemDomain);
}

template <class T>
GenMGInterp<T>::~GenMGInterp()
{
}

template <class T>
bool GenMGInterp<T>::isDefined() const
{
  return m_isDefined;
}

template <class T>
void GenMGInterp<T>::define(const DisjointBoxLayout& a_fineDomain,
                            int                      a_numcomps,
                            int                      a_refRatio,
                            const Box&               a_problemDomain)
{
  ProblemDomain physdomain(a_problemDomain);
  define(a_fineDomain, a_numcomps, a_refRatio, physdomain);
}

template <class T>
void GenMGInterp<T>::define(const DisjointBoxLayout& a_fineDomain,
                            int                      a_numcomps,
                            int                      a_refRatio,
                            const ProblemDomain&     a_problemDomain)
{
  m_refRatio = a_refRatio;
  m_problemDomain = a_problemDomain;
  m_grids = a_fineDomain;

// create the work array 
  DisjointBoxLayout coarsenedFineDomain;
  coarsen(coarsenedFineDomain, 
          a_fineDomain, 
          m_refRatio);
  m_coarsenedFineData.define(coarsenedFineDomain, 
                             a_numcomps, 
                             IntVect::TheZeroVector());

  m_isDefined = true;
}

// interpolate from coarse level to fine level
template <class T>
void GenMGInterp<T>::interpToFine(T&       a_fineData,
                                  const T& a_coarseData)
{
  assert(m_isDefined);

  a_coarseData.copyTo(a_coarseData.interval(),
                      m_coarsenedFineData,
                      m_coarsenedFineData.interval());

#if FIXIT
  DataIterator dit = m_grids.dataIterator();
  for (dit.begin(); dit.ok(); ++dit)
  {
    T& fine = a_fineData[dit()];
    const T& coarsenedFine = m_coarsenedFineData[dit()];
    Box crseBox = coarsenedFine.box();
    Box fineBox = m_grids.get(dit());
    fineBox.coarsen(m_refRatio);

    assert(fineBox == crseBox);

    Box nrefbox(IntVect::TheZeroVector(), 
                (m_refRatio-1)*IntVect::TheUnitVector());
    FORT_GENINTERPMG(CHF_FRA(fine),
                     CHF_FRA(coarsenedFine),
                     CHF_BOX(crseBox),
                     CHF_CONST_INT(m_refRatio),
                     CHF_BOX(nrefbox));
  }
#endif
}

#endif

---