Advection.h

Go to the documentation of this file.

///////////////////////////////////////////////////////////////////////////////
//
// File: Advection.h
//
// For more information, please see: http://www.nektar.info
//
// The MIT License
//
// Copyright (c) 2006 Division of Applied Mathematics, Brown University (USA),
// Department of Aeronautics, Imperial College London (UK), and Scientific
// Computing and Imaging Institute, University of Utah (USA).
//
// Permission is hereby granted, free of charge, to any person obtaining a
// copy of this software and associated documentation files (the "Software"),
// to deal in the Software without restriction, including without limitation
// the rights to use, copy, modify, merge, publish, distribute, sublicense,
// and/or sell copies of the Software, and to permit persons to whom the
// Software is furnished to do so, subject to the following conditions:
//
// The above copyright notice and this permission notice shall be included
// in all copies or substantial portions of the Software.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
// OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
// THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
// FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
// DEALINGS IN THE SOFTWARE.
//
// Description: Abstract base class for advection.
//
///////////////////////////////////////////////////////////////////////////////
 
#ifndef NEKTAR_SOLVERUTILS_ADVECTION
#define NEKTAR_SOLVERUTILS_ADVECTION
 
#include <string>
#include <functional>
 
#include <LibUtilities/BasicUtils/NekFactory.hpp>
#include <LibUtilities/BasicUtils/SharedArray.hpp>
#include <MultiRegions/ExpList.h>
#include <SolverUtils/SolverUtilsDeclspec.h>
#include <SolverUtils/RiemannSolvers/RiemannSolver.h>
#include <iomanip>
 
using namespace std;
 
namespace Nektar
{
namespace SolverUtils
{
 
/**
 * Defines a callback function type which evaluates the flux vector \f$ F(u) \f$
 * in a conservative advection of the form \f$ \nabla\cdot F(u) \f$.
 */
typedef std::function<void (
    const Array<OneD, Array<OneD, NekDouble> >&,
    Array<OneD, Array<OneD, Array<OneD, NekDouble> > >&)>
    AdvectionFluxVecCB;
 
/**
 * @brief An abstract base class encapsulating the concept of advection
 * of a vector field.
 *
 * Subclasses override the Advection::v_InitObject function to
 * initialise the object and the Advection::v_Advect function to
 * evaluate the advection of the vector field.
 */
class Advection
{
public:
 
    SOLVER_UTILS_EXPORT virtual ~Advection()
    {};
 
    /// Interface function to initialise the advection object.
    SOLVER_UTILS_EXPORT void InitObject(
        LibUtilities::SessionReaderSharedPtr               pSession,
        Array<OneD, MultiRegions::ExpListSharedPtr>        pFields);
 
    /// Interface function to advect the vector field.
    SOLVER_UTILS_EXPORT void Advect(
        const int nConvectiveFields,
        const Array<OneD, MultiRegions::ExpListSharedPtr> &fields,
        const Array<OneD, Array<OneD, NekDouble> >        &advVel,
        const Array<OneD, Array<OneD, NekDouble> >        &inarray,
        Array<OneD, Array<OneD, NekDouble> >              &outarray,
        const NekDouble                                   &time,
        const Array<OneD, Array<OneD, NekDouble> > &pFwd = NullNekDoubleArrayOfArray,
        const Array<OneD, Array<OneD, NekDouble> > &pBwd = NullNekDoubleArrayOfArray);
 
    /// Interface function to advect the Volume field.
    SOLVER_UTILS_EXPORT void AdvectVolumeFlux(
        const int                                         nConvectiveFields,
        const Array<OneD, MultiRegions::ExpListSharedPtr> &pFields,
        const Array<OneD, Array<OneD, NekDouble>>         &pAdvVel,
        const Array<OneD, Array<OneD, NekDouble>>         &pInarray,
        TensorOfArray3D<NekDouble>                        &pVolumeFlux,
        const NekDouble                                   &pTime)
    {
        v_AdvectVolumeFlux(nConvectiveFields, pFields, pAdvVel, pInarray,
                            pVolumeFlux, pTime);
    }
 
    /// Interface function to advect the Trace field.
    SOLVER_UTILS_EXPORT void AdvectTraceFlux(
        const int                                         nConvectiveFields,
        const Array<OneD, MultiRegions::ExpListSharedPtr> &pFields,
        const Array<OneD, Array<OneD, NekDouble>>         &pAdvVel,
        const Array<OneD, Array<OneD, NekDouble>>         &pInarray,
        Array<OneD, Array<OneD, NekDouble>>               &pTraceFlux,
        const NekDouble                                   &pTime,
        const Array<OneD, Array<OneD, NekDouble>>
            &pFwd = NullNekDoubleArrayOfArray,
        const Array<OneD, Array<OneD, NekDouble>>
            &pBwd = NullNekDoubleArrayOfArray)
    {
        v_AdvectTraceFlux(nConvectiveFields, pFields, pAdvVel, pInarray,
                  pTraceFlux, pTime, pFwd, pBwd);
    }
 
    /**
     * @brief Similar with Advection::Advect(): calculate the advection flux
     * The difference is in the outarray:
     *  it is the coefficients of basis for AdvectCoeffs()
     *  it is the physics on quadrature points for Advect()
     */
    SOLVER_UTILS_EXPORT void AdvectCoeffs(
        const int nConvectiveFields,
        const Array<OneD, MultiRegions::ExpListSharedPtr> &fields,
        const Array<OneD, Array<OneD, NekDouble> >        &advVel,
        const Array<OneD, Array<OneD, NekDouble> >        &inarray,
        Array<OneD, Array<OneD, NekDouble> >              &outarray,
        const NekDouble                                   &time,
        const Array<OneD, Array<OneD, NekDouble> >
            &pFwd = NullNekDoubleArrayOfArray,
        const Array<OneD, Array<OneD, NekDouble> >
            &pBwd = NullNekDoubleArrayOfArray);
 
    /**
     * @brief Set the flux vector callback function.
     *
     * This routine is a utility function to avoid the explicit use of
     * std::bind. A function and object can be passed to this function
     * instead.
     */
    template<typename FuncPointerT, typename ObjectPointerT>
    void SetFluxVector(FuncPointerT func, ObjectPointerT obj)
    {
        m_fluxVector = std::bind(
            func, obj, std::placeholders::_1, std::placeholders::_2);
    }
 
    /**
     * @brief Set a Riemann solver object for this advection object.
     *
     * @param riemann  The RiemannSolver object.
     */
    inline void SetRiemannSolver(RiemannSolverSharedPtr riemann)
    {
        m_riemann = riemann;
    }
 
    /**
     * @brief Set the flux vector callback function.
     *
     * @param fluxVector  The callback function to override.
     */
    inline void SetFluxVector(AdvectionFluxVecCB fluxVector)
    {
        m_fluxVector = fluxVector;
    }
 
    /**
     * @brief Set the base flow used for linearised advection objects.
     *
     * @param inarray   Vector to use as baseflow
     */
    inline void SetBaseFlow(
            const Array<OneD, Array<OneD, NekDouble> >& inarray,
            const Array<OneD, MultiRegions::ExpListSharedPtr> &fields)
    {
        v_SetBaseFlow(inarray, fields);
    }
 
    template<typename DataType, typename TypeNekBlkMatSharedPtr>
    SOLVER_UTILS_EXPORT void AddTraceJacToMat(
        const int                                           nConvectiveFields,
        const int                                           nSpaceDim,
        const Array<OneD, MultiRegions::ExpListSharedPtr>   &pFields,
        const Array<OneD, TypeNekBlkMatSharedPtr>           &TracePntJacCons,
        Array<OneD, Array<OneD, TypeNekBlkMatSharedPtr> >   &gmtxarray,
        const Array<OneD, TypeNekBlkMatSharedPtr>           &TracePntJacGrad        ,
        const Array<OneD, Array<OneD, DataType> >           &TracePntJacGradSign    );
        
    template<typename DataType, typename TypeNekBlkMatSharedPtr>
    void CalcJacobTraceInteg(
        const Array<OneD, MultiRegions::ExpListSharedPtr>   &pFields,
        const int                                             m,
        const int                                             n,
        const Array<OneD, const TypeNekBlkMatSharedPtr>       & PntJac,
        const Array<OneD, const Array<OneD, DataType> >       & PntJacSign,
        Array<OneD, DNekMatSharedPtr>                         & TraceJacFwd,
        Array<OneD, DNekMatSharedPtr>                         & TraceJacBwd);
 
    SOLVER_UTILS_EXPORT void AddVolumJacToMat( 
        const Array<OneD, MultiRegions::ExpListSharedPtr> &pFields,
        const int &nConvectiveFields,
        const TensorOfArray5D<NekDouble> &ElmtJacArray,
        Array<OneD, Array<OneD, SNekBlkMatSharedPtr>> &gmtxarray)
    {
        v_AddVolumJacToMat(pFields,nConvectiveFields,ElmtJacArray,gmtxarray);
    }
 
protected:
    /// Callback function to the flux vector (set when advection is in
    /// conservative form).
    AdvectionFluxVecCB     m_fluxVector;
    /// Riemann solver for DG-type schemes.
    RiemannSolverSharedPtr m_riemann;
    /// Storage for space dimension. Used for homogeneous extension.
    int                    m_spaceDim;
 
    /// Initialises the advection object.
    SOLVER_UTILS_EXPORT virtual void v_InitObject(
        LibUtilities::SessionReaderSharedPtr              pSession,
        Array<OneD, MultiRegions::ExpListSharedPtr>       pFields);
 
    /// Advects a vector field.
    SOLVER_UTILS_EXPORT virtual void v_Advect(
        const int nConvectiveFields,
        const Array<OneD, MultiRegions::ExpListSharedPtr> &fields,
        const Array<OneD, Array<OneD, NekDouble> >        &advVel,
        const Array<OneD, Array<OneD, NekDouble> >        &inarray,
              Array<OneD, Array<OneD, NekDouble> >        &outarray,
        const NekDouble                                   &time,
        const Array<OneD, Array<OneD, NekDouble> > &pFwd = NullNekDoubleArrayOfArray,
        const Array<OneD, Array<OneD, NekDouble> > &pBwd = NullNekDoubleArrayOfArray)=0;
 
    /// Advects Volume Flux.
    SOLVER_UTILS_EXPORT virtual void v_AdvectVolumeFlux(
        const                                             int nConvectiveFields,
        const Array<OneD, MultiRegions::ExpListSharedPtr> &fields,
        const Array<OneD, Array<OneD, NekDouble> >        &advVel,
        const Array<OneD, Array<OneD, NekDouble> >        &inarray,
        TensorOfArray3D<NekDouble>                        &pVolumeFlux,
        const NekDouble                                   &time);
 
    /// Advects Trace Flux.
    SOLVER_UTILS_EXPORT virtual void v_AdvectTraceFlux(
        const int nConvectiveFields,
        const Array<OneD, MultiRegions::ExpListSharedPtr> &fields,
        const Array<OneD, Array<OneD, NekDouble> >        &advVel,
        const Array<OneD, Array<OneD, NekDouble> >        &inarray,
        Array<OneD, Array<OneD, NekDouble>>               &pTraceFlux,
        const NekDouble                                   &time,
        const Array<OneD, Array<OneD, NekDouble> >
            &pFwd = NullNekDoubleArrayOfArray,
        const Array<OneD, Array<OneD, NekDouble> >
            &pBwd = NullNekDoubleArrayOfArray);
 
    SOLVER_UTILS_EXPORT virtual void v_AdvectCoeffs(
        const int nConvectiveFields,
        const Array<OneD, MultiRegions::ExpListSharedPtr> &fields,
        const Array<OneD, Array<OneD, NekDouble> >        &advVel,
        const Array<OneD, Array<OneD, NekDouble> >        &inarray,
              Array<OneD, Array<OneD, NekDouble> >        &outarray,
        const NekDouble                                   &time,
        const Array<OneD, Array<OneD, NekDouble> >
            &pFwd = NullNekDoubleArrayOfArray,
        const Array<OneD, Array<OneD, NekDouble> >
            &pBwd = NullNekDoubleArrayOfArray);
 
    /// Overrides the base flow used during linearised advection
    SOLVER_UTILS_EXPORT virtual void v_SetBaseFlow(
        const Array<OneD, Array<OneD, NekDouble> >        &inarray,
        const Array<OneD, MultiRegions::ExpListSharedPtr> &fields);
 
    SOLVER_UTILS_EXPORT virtual void v_AddVolumJacToMat( 
        const Array<OneD, MultiRegions::ExpListSharedPtr> &pFields,
        const int &nConvectiveFields,
        const TensorOfArray5D<NekDouble> &ElmtJacArray,
        Array<OneD, Array<OneD, SNekBlkMatSharedPtr>> &gmtxarray);
 
};
 
/// A shared pointer to an Advection object.
typedef std::shared_ptr<Advection> AdvectionSharedPtr;
 
/// Datatype of the NekFactory used to instantiate classes derived
/// from the Advection class.
typedef LibUtilities::NekFactory<std::string, Advection,
std::string> AdvectionFactory;
 
/// Gets the factory for initialising advection objects.
SOLVER_UTILS_EXPORT AdvectionFactory& GetAdvectionFactory();
 
}
}
 
#endif