Nektar++
Public Member Functions | Static Public Member Functions | Public Attributes | Static Public Attributes | Protected Member Functions | Protected Attributes | Private Member Functions | Private Attributes | Friends | List of all members
Nektar::NonlinearPeregrine Class Reference

#include <NonlinearPeregrine.h>

Inheritance diagram for Nektar::NonlinearPeregrine:
Inheritance graph
[legend]
Collaboration diagram for Nektar::NonlinearPeregrine:
Collaboration graph
[legend]

Public Member Functions

virtual ~NonlinearPeregrine ()
 problem type selector More...
 
- Public Member Functions inherited from Nektar::ShallowWaterSystem
virtual ~ShallowWaterSystem ()
 Destructor. More...
 
- Public Member Functions inherited from Nektar::SolverUtils::UnsteadySystem
virtual SOLVER_UTILS_EXPORT ~UnsteadySystem ()
 Destructor. More...
 
SOLVER_UTILS_EXPORT NekDouble GetTimeStep (const Array< OneD, const Array< OneD, NekDouble > > &inarray)
 Calculate the larger time-step mantaining the problem stable. More...
 
- Public Member Functions inherited from Nektar::SolverUtils::EquationSystem
virtual SOLVER_UTILS_EXPORT ~EquationSystem ()
 Destructor. More...
 
SOLVER_UTILS_EXPORT void SetUpTraceNormals (void)
 
SOLVER_UTILS_EXPORT void InitObject ()
 Initialises the members of this object. More...
 
SOLVER_UTILS_EXPORT void DoInitialise ()
 Perform any initialisation necessary before solving the problem. More...
 
SOLVER_UTILS_EXPORT void DoSolve ()
 Solve the problem. More...
 
SOLVER_UTILS_EXPORT void TransCoeffToPhys ()
 Transform from coefficient to physical space. More...
 
SOLVER_UTILS_EXPORT void TransPhysToCoeff ()
 Transform from physical to coefficient space. More...
 
SOLVER_UTILS_EXPORT void Output ()
 Perform output operations after solve. More...
 
SOLVER_UTILS_EXPORT NekDouble LinfError (unsigned int field, const Array< OneD, NekDouble > &exactsoln=NullNekDouble1DArray)
 Linf error computation. More...
 
SOLVER_UTILS_EXPORT std::string GetSessionName ()
 Get Session name. More...
 
template<class T >
boost::shared_ptr< T > as ()
 
SOLVER_UTILS_EXPORT void ResetSessionName (std::string newname)
 Reset Session name. More...
 
SOLVER_UTILS_EXPORT LibUtilities::SessionReaderSharedPtr GetSession ()
 Get Session name. More...
 
SOLVER_UTILS_EXPORT MultiRegions::ExpListSharedPtr GetPressure ()
 Get pressure field if available. More...
 
SOLVER_UTILS_EXPORT void PrintSummary (std::ostream &out)
 Print a summary of parameters and solver characteristics. More...
 
SOLVER_UTILS_EXPORT void SetLambda (NekDouble lambda)
 Set parameter m_lambda. More...
 
SOLVER_UTILS_EXPORT void EvaluateFunction (Array< OneD, Array< OneD, NekDouble > > &pArray, std::string pFunctionName, const NekDouble pTime=0.0, const int domain=0)
 Evaluates a function as specified in the session file. More...
 
SOLVER_UTILS_EXPORT void EvaluateFunction (std::vector< std::string > pFieldNames, Array< OneD, Array< OneD, NekDouble > > &pFields, const std::string &pName, const int domain=0)
 Populate given fields with the function from session. More...
 
SOLVER_UTILS_EXPORT void EvaluateFunction (std::vector< std::string > pFieldNames, Array< OneD, MultiRegions::ExpListSharedPtr > &pFields, const std::string &pName, const int domain=0)
 Populate given fields with the function from session. More...
 
SOLVER_UTILS_EXPORT void EvaluateFunction (std::string pFieldName, Array< OneD, NekDouble > &pArray, const std::string &pFunctionName, const NekDouble &pTime=0.0, const int domain=0)
 
SOLVER_UTILS_EXPORT std::string DescribeFunction (std::string pFieldName, const std::string &pFunctionName, const int domain)
 Provide a description of a function for a given field name. More...
 
SOLVER_UTILS_EXPORT void InitialiseBaseFlow (Array< OneD, Array< OneD, NekDouble > > &base)
 Perform initialisation of the base flow. More...
 
SOLVER_UTILS_EXPORT void SetInitialConditions (NekDouble initialtime=0.0, bool dumpInitialConditions=true, const int domain=0)
 Initialise the data in the dependent fields. More...
 
SOLVER_UTILS_EXPORT void EvaluateExactSolution (int field, Array< OneD, NekDouble > &outfield, const NekDouble time)
 Evaluates an exact solution. More...
 
SOLVER_UTILS_EXPORT NekDouble L2Error (unsigned int field, const Array< OneD, NekDouble > &exactsoln, bool Normalised=false)
 Compute the L2 error between fields and a given exact solution. More...
 
SOLVER_UTILS_EXPORT NekDouble L2Error (unsigned int field, bool Normalised=false)
 Compute the L2 error of the fields. More...
 
SOLVER_UTILS_EXPORT Array< OneD, NekDouble > ErrorExtraPoints (unsigned int field)
 Compute error (L2 and L_inf) over an larger set of quadrature points return [L2 Linf]. More...
 
SOLVER_UTILS_EXPORT void WeakAdvectionGreensDivergenceForm (const Array< OneD, Array< OneD, NekDouble > > &F, Array< OneD, NekDouble > &outarray)
 Compute the inner product $ (\nabla \phi \cdot F) $. More...
 
SOLVER_UTILS_EXPORT void WeakAdvectionDivergenceForm (const Array< OneD, Array< OneD, NekDouble > > &F, Array< OneD, NekDouble > &outarray)
 Compute the inner product $ (\phi, \nabla \cdot F) $. More...
 
SOLVER_UTILS_EXPORT void WeakAdvectionNonConservativeForm (const Array< OneD, Array< OneD, NekDouble > > &V, const Array< OneD, const NekDouble > &u, Array< OneD, NekDouble > &outarray, bool UseContCoeffs=false)
 Compute the inner product $ (\phi, V\cdot \nabla u) $. More...
 
f SOLVER_UTILS_EXPORT void AdvectionNonConservativeForm (const Array< OneD, Array< OneD, NekDouble > > &V, const Array< OneD, const NekDouble > &u, Array< OneD, NekDouble > &outarray, Array< OneD, NekDouble > &wk=NullNekDouble1DArray)
 Compute the non-conservative advection. More...
 
SOLVER_UTILS_EXPORT void WeakDGAdvection (const Array< OneD, Array< OneD, NekDouble > > &InField, Array< OneD, Array< OneD, NekDouble > > &OutField, bool NumericalFluxIncludesNormal=true, bool InFieldIsInPhysSpace=false, int nvariables=0)
 Calculate the weak discontinuous Galerkin advection. More...
 
SOLVER_UTILS_EXPORT void WeakDGDiffusion (const Array< OneD, Array< OneD, NekDouble > > &InField, Array< OneD, Array< OneD, NekDouble > > &OutField, bool NumericalFluxIncludesNormal=true, bool InFieldIsInPhysSpace=false)
 Calculate weak DG Diffusion in the LDG form. More...
 
SOLVER_UTILS_EXPORT void Checkpoint_Output (const int n)
 Write checkpoint file of m_fields. More...
 
SOLVER_UTILS_EXPORT void Checkpoint_Output (const int n, MultiRegions::ExpListSharedPtr &field, std::vector< Array< OneD, NekDouble > > &fieldcoeffs, std::vector< std::string > &variables)
 Write checkpoint file of custom data fields. More...
 
SOLVER_UTILS_EXPORT void Checkpoint_BaseFlow (const int n)
 Write base flow file of m_fields. More...
 
SOLVER_UTILS_EXPORT void WriteFld (const std::string &outname)
 Write field data to the given filename. More...
 
SOLVER_UTILS_EXPORT void WriteFld (const std::string &outname, MultiRegions::ExpListSharedPtr &field, std::vector< Array< OneD, NekDouble > > &fieldcoeffs, std::vector< std::string > &variables)
 Write input fields to the given filename. More...
 
SOLVER_UTILS_EXPORT void ImportFld (const std::string &infile, Array< OneD, MultiRegions::ExpListSharedPtr > &pFields)
 Input field data from the given file. More...
 
SOLVER_UTILS_EXPORT void ImportFldToMultiDomains (const std::string &infile, Array< OneD, MultiRegions::ExpListSharedPtr > &pFields, const int ndomains)
 Input field data from the given file to multiple domains. More...
 
SOLVER_UTILS_EXPORT void ImportFld (const std::string &infile, std::vector< std::string > &fieldStr, Array< OneD, Array< OneD, NekDouble > > &coeffs)
 Output a field. Input field data into array from the given file. More...
 
SOLVER_UTILS_EXPORT void ImportFld (const std::string &infile, MultiRegions::ExpListSharedPtr &pField, std::string &pFieldName)
 Output a field. Input field data into ExpList from the given file. More...
 
SOLVER_UTILS_EXPORT void ScanForHistoryPoints ()
 Builds map of which element holds each history point. More...
 
SOLVER_UTILS_EXPORT void WriteHistoryData (std::ostream &out)
 Probe each history point and write to file. More...
 
SOLVER_UTILS_EXPORT void SessionSummary (SummaryList &vSummary)
 Write out a session summary. More...
 
SOLVER_UTILS_EXPORT Array< OneD, MultiRegions::ExpListSharedPtr > & UpdateFields ()
 
SOLVER_UTILS_EXPORT LibUtilities::FieldMetaDataMap & UpdateFieldMetaDataMap ()
 Get hold of FieldInfoMap so it can be updated. More...
 
SOLVER_UTILS_EXPORT NekDouble GetFinalTime ()
 Return final time. More...
 
SOLVER_UTILS_EXPORT int GetNcoeffs ()
 
SOLVER_UTILS_EXPORT int GetNcoeffs (const int eid)
 
SOLVER_UTILS_EXPORT int GetNumExpModes ()
 
SOLVER_UTILS_EXPORT const Array< OneD, int > GetNumExpModesPerExp ()
 
SOLVER_UTILS_EXPORT int GetNvariables ()
 
SOLVER_UTILS_EXPORT const std::string GetVariable (unsigned int i)
 
SOLVER_UTILS_EXPORT int GetTraceTotPoints ()
 
SOLVER_UTILS_EXPORT int GetTraceNpoints ()
 
SOLVER_UTILS_EXPORT int GetExpSize ()
 
SOLVER_UTILS_EXPORT int GetPhys_Offset (int n)
 
SOLVER_UTILS_EXPORT int GetCoeff_Offset (int n)
 
SOLVER_UTILS_EXPORT int GetTotPoints ()
 
SOLVER_UTILS_EXPORT int GetTotPoints (int n)
 
SOLVER_UTILS_EXPORT int GetNpoints ()
 
SOLVER_UTILS_EXPORT int GetNumElmVelocity ()
 
SOLVER_UTILS_EXPORT int GetSteps ()
 
SOLVER_UTILS_EXPORT NekDouble GetTimeStep ()
 
SOLVER_UTILS_EXPORT void CopyFromPhysField (const int i, Array< OneD, NekDouble > &output)
 
SOLVER_UTILS_EXPORT void CopyToPhysField (const int i, Array< OneD, NekDouble > &output)
 
SOLVER_UTILS_EXPORT void SetStepsToOne ()
 
SOLVER_UTILS_EXPORT void ZeroPhysFields ()
 
SOLVER_UTILS_EXPORT void FwdTransFields ()
 
SOLVER_UTILS_EXPORT void GetFluxVector (const int i, Array< OneD, Array< OneD, NekDouble > > &physfield, Array< OneD, Array< OneD, NekDouble > > &flux)
 
SOLVER_UTILS_EXPORT void GetFluxVector (const int i, Array< OneD, Array< OneD, NekDouble > > &physfield, Array< OneD, Array< OneD, NekDouble > > &fluxX, Array< OneD, Array< OneD, NekDouble > > &fluxY)
 
SOLVER_UTILS_EXPORT void GetFluxVector (const int i, const int j, Array< OneD, Array< OneD, NekDouble > > &physfield, Array< OneD, Array< OneD, NekDouble > > &flux)
 
SOLVER_UTILS_EXPORT void NumericalFlux (Array< OneD, Array< OneD, NekDouble > > &physfield, Array< OneD, Array< OneD, NekDouble > > &numflux)
 
SOLVER_UTILS_EXPORT void NumericalFlux (Array< OneD, Array< OneD, NekDouble > > &physfield, Array< OneD, Array< OneD, NekDouble > > &numfluxX, Array< OneD, Array< OneD, NekDouble > > &numfluxY)
 
SOLVER_UTILS_EXPORT void NumFluxforScalar (const Array< OneD, Array< OneD, NekDouble > > &ufield, Array< OneD, Array< OneD, Array< OneD, NekDouble > > > &uflux)
 
SOLVER_UTILS_EXPORT void NumFluxforVector (const Array< OneD, Array< OneD, NekDouble > > &ufield, Array< OneD, Array< OneD, Array< OneD, NekDouble > > > &qfield, Array< OneD, Array< OneD, NekDouble > > &qflux)
 
SOLVER_UTILS_EXPORT void SetModifiedBasis (const bool modbasis)
 
SOLVER_UTILS_EXPORT int NoCaseStringCompare (const string &s1, const string &s2)
 Perform a case-insensitive string comparison. More...
 
virtual SOLVER_UTILS_EXPORT bool v_NegatedOp ()
 Virtual function to identify if operator is negated in DoSolve. More...
 

Static Public Member Functions

static SolverUtils::EquationSystemSharedPtr create (const LibUtilities::SessionReaderSharedPtr &pSession)
 Creates an instance of this class. More...
 
- Static Public Member Functions inherited from Nektar::ShallowWaterSystem
static SolverUtils::EquationSystemSharedPtr create (const LibUtilities::SessionReaderSharedPtr &pSession)
 Creates an instance of this class. More...
 

Public Attributes

ProblemType m_problemType
 
- Public Attributes inherited from Nektar::SolverUtils::UnsteadySystem
NekDouble m_cflSafetyFactor
 CFL safety factor (comprise between 0 to 1). More...
 

Static Public Attributes

static std::string className
 Name of class. More...
 
- Static Public Attributes inherited from Nektar::ShallowWaterSystem
static std::string className
 Name of class. More...
 

Protected Member Functions

 NonlinearPeregrine (const LibUtilities::SessionReaderSharedPtr &pSession)
 
virtual void v_InitObject ()
 Init object for UnsteadySystem class. More...
 
void DoOdeRhs (const Array< OneD, const Array< OneD, NekDouble > > &inarray, Array< OneD, Array< OneD, NekDouble > > &outarray, const NekDouble time)
 
void DoOdeProjection (const Array< OneD, const Array< OneD, NekDouble > > &inarray, Array< OneD, Array< OneD, NekDouble > > &outarray, const NekDouble time)
 
void GetFluxVector (const Array< OneD, const Array< OneD, NekDouble > > &physfield, Array< OneD, Array< OneD, Array< OneD, NekDouble > > > &flux)
 
virtual void v_GenerateSummary (SolverUtils::SummaryList &s)
 Print a summary of time stepping parameters. More...
 
virtual void v_PrimitiveToConservative ()
 
virtual void v_ConservativeToPrimitive ()
 
virtual void v_SetInitialConditions (NekDouble initialtime=0.0, bool dumpInitialConditions=true, const int domain=0)
 Set the initial conditions. More...
 
const Array< OneD, NekDouble > & GetDepthFwd ()
 
const Array< OneD, NekDouble > & GetDepthBwd ()
 
- Protected Member Functions inherited from Nektar::ShallowWaterSystem
 ShallowWaterSystem (const LibUtilities::SessionReaderSharedPtr &pSession)
 Initialises UnsteadySystem class members. More...
 
void PrimitiveToConservative ()
 
void ConservativeToPrimitive ()
 
NekDouble GetGravity ()
 
const Array< OneD, const Array< OneD, NekDouble > > & GetVecLocs ()
 
const Array< OneD, const Array< OneD, NekDouble > > & GetNormals ()
 
const Array< OneD, NekDouble > & GetDepth ()
 
bool IsConstantDepth ()
 
void CopyBoundaryTrace (const Array< OneD, NekDouble > &Fwd, Array< OneD, NekDouble > &Bwd)
 
- Protected Member Functions inherited from Nektar::SolverUtils::UnsteadySystem
SOLVER_UTILS_EXPORT UnsteadySystem (const LibUtilities::SessionReaderSharedPtr &pSession)
 Initialises UnsteadySystem class members. More...
 
SOLVER_UTILS_EXPORT NekDouble MaxTimeStepEstimator ()
 Get the maximum timestep estimator for cfl control. More...
 
virtual SOLVER_UTILS_EXPORT void v_DoSolve ()
 Solves an unsteady problem. More...
 
virtual SOLVER_UTILS_EXPORT void v_DoInitialise ()
 Sets up initial conditions. More...
 
virtual SOLVER_UTILS_EXPORT void v_AppendOutput1D (Array< OneD, Array< OneD, NekDouble > > &solution1D)
 Print the solution at each solution point in a txt file. More...
 
virtual SOLVER_UTILS_EXPORT void v_NumericalFlux (Array< OneD, Array< OneD, NekDouble > > &physfield, Array< OneD, Array< OneD, NekDouble > > &numflux)
 
virtual SOLVER_UTILS_EXPORT void v_NumericalFlux (Array< OneD, Array< OneD, NekDouble > > &physfield, Array< OneD, Array< OneD, NekDouble > > &numfluxX, Array< OneD, Array< OneD, NekDouble > > &numfluxY)
 
virtual SOLVER_UTILS_EXPORT void v_NumFluxforScalar (const Array< OneD, Array< OneD, NekDouble > > &ufield, Array< OneD, Array< OneD, Array< OneD, NekDouble > > > &uflux)
 
virtual SOLVER_UTILS_EXPORT void v_NumFluxforVector (const Array< OneD, Array< OneD, NekDouble > > &ufield, Array< OneD, Array< OneD, Array< OneD, NekDouble > > > &qfield, Array< OneD, Array< OneD, NekDouble > > &qflux)
 
virtual SOLVER_UTILS_EXPORT NekDouble v_GetTimeStep (const Array< OneD, const Array< OneD, NekDouble > > &inarray)
 Return the timestep to be used for the next step in the time-marching loop. More...
 
virtual SOLVER_UTILS_EXPORT bool v_PreIntegrate (int step)
 
virtual SOLVER_UTILS_EXPORT bool v_PostIntegrate (int step)
 
virtual SOLVER_UTILS_EXPORT bool v_SteadyStateCheck (int step)
 
SOLVER_UTILS_EXPORT void CheckForRestartTime (NekDouble &time)
 
- Protected Member Functions inherited from Nektar::SolverUtils::EquationSystem
SOLVER_UTILS_EXPORT EquationSystem (const LibUtilities::SessionReaderSharedPtr &pSession)
 Initialises EquationSystem class members. More...
 
int nocase_cmp (const string &s1, const string &s2)
 
SOLVER_UTILS_EXPORT void SetBoundaryConditions (NekDouble time)
 Evaluates the boundary conditions at the given time. More...
 
virtual SOLVER_UTILS_EXPORT NekDouble v_LinfError (unsigned int field, const Array< OneD, NekDouble > &exactsoln=NullNekDouble1DArray)
 Virtual function for the L_inf error computation between fields and a given exact solution. More...
 
virtual SOLVER_UTILS_EXPORT NekDouble v_L2Error (unsigned int field, const Array< OneD, NekDouble > &exactsoln=NullNekDouble1DArray, bool Normalised=false)
 Virtual function for the L_2 error computation between fields and a given exact solution. More...
 
virtual SOLVER_UTILS_EXPORT void v_TransCoeffToPhys ()
 Virtual function for transformation to physical space. More...
 
virtual SOLVER_UTILS_EXPORT void v_TransPhysToCoeff ()
 Virtual function for transformation to coefficient space. More...
 
virtual SOLVER_UTILS_EXPORT void v_EvaluateExactSolution (unsigned int field, Array< OneD, NekDouble > &outfield, const NekDouble time)
 
SOLVER_UTILS_EXPORT void SetUpBaseFields (SpatialDomains::MeshGraphSharedPtr &mesh)
 
SOLVER_UTILS_EXPORT void ImportFldBase (std::string pInfile, SpatialDomains::MeshGraphSharedPtr pGraph)
 
virtual SOLVER_UTILS_EXPORT void v_Output (void)
 
virtual SOLVER_UTILS_EXPORT MultiRegions::ExpListSharedPtr v_GetPressure (void)
 
virtual SOLVER_UTILS_EXPORT void v_ExtraFldOutput (std::vector< Array< OneD, NekDouble > > &fieldcoeffs, std::vector< std::string > &variables)
 

Protected Attributes

StdRegions::ConstFactorMap m_factors
 
Array< OneD, NekDouble > m_dFwd
 Still water depth traces. More...
 
Array< OneD, NekDouble > m_dBwd
 
- Protected Attributes inherited from Nektar::ShallowWaterSystem
SolverUtils::RiemannSolverSharedPtr m_riemannSolver
 
SolverUtils::RiemannSolverSharedPtr m_riemannSolverLDG
 
SolverUtils::AdvectionSharedPtr m_advection
 
SolverUtils::DiffusionSharedPtr m_diffusion
 
bool m_primitive
 Indicates if variables are primitive or conservative. More...
 
bool m_constantDepth
 Indicates if constant depth case. More...
 
NekDouble m_g
 Acceleration of gravity. More...
 
Array< OneD, NekDouble > m_depth
 Still water depth. More...
 
Array< OneD, Array< OneD, NekDouble > > m_bottomSlope
 
Array< OneD, NekDouble > m_coriolis
 Coriolis force. More...
 
Array< OneD, Array< OneD, NekDouble > > m_vecLocs
 
- Protected Attributes inherited from Nektar::SolverUtils::UnsteadySystem
int m_infosteps
 Number of time steps between outputting status information. More...
 
LibUtilities::TimeIntegrationWrapperSharedPtr m_intScheme
 Wrapper to the time integration scheme. More...
 
LibUtilities::TimeIntegrationSchemeOperators m_ode
 The time integration scheme operators to use. More...
 
LibUtilities::TimeIntegrationSolutionSharedPtr m_intSoln
 
NekDouble m_epsilon
 
bool m_explicitDiffusion
 Indicates if explicit or implicit treatment of diffusion is used. More...
 
bool m_explicitAdvection
 Indicates if explicit or implicit treatment of advection is used. More...
 
bool m_explicitReaction
 Indicates if explicit or implicit treatment of reaction is used. More...
 
bool m_homoInitialFwd
 Flag to determine if simulation should start in homogeneous forward transformed state. More...
 
std::vector< int > m_intVariables
 
std::vector< FilterSharedPtr > m_filters
 
- Protected Attributes inherited from Nektar::SolverUtils::EquationSystem
LibUtilities::CommSharedPtr m_comm
 Communicator. More...
 
LibUtilities::SessionReaderSharedPtr m_session
 The session reader. More...
 
LibUtilities::FieldIOSharedPtr m_fld
 Field input/output. More...
 
map< std::string, Array< OneD, Array< OneD, float > > > m_interpWeights
 Map of the interpolation weights for a specific filename. More...
 
map< std::string, Array< OneD, Array< OneD, unsigned int > > > m_interpInds
 Map of the interpolation indices for a specific filename. More...
 
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
 Array holding all dependent variables. More...
 
Array< OneD, MultiRegions::ExpListSharedPtr > m_base
 Base fields. More...
 
Array< OneD, MultiRegions::ExpListSharedPtr > m_derivedfields
 Array holding all dependent variables. More...
 
SpatialDomains::BoundaryConditionsSharedPtr m_boundaryConditions
 Pointer to boundary conditions object. More...
 
SpatialDomains::MeshGraphSharedPtr m_graph
 Pointer to graph defining mesh. More...
 
std::string m_sessionName
 Name of the session. More...
 
NekDouble m_time
 Current time of simulation. More...
 
NekDouble m_fintime
 Finish time of the simulation. More...
 
NekDouble m_timestep
 Time step size. More...
 
NekDouble m_lambda
 Lambda constant in real system if one required. More...
 
NekDouble m_checktime
 Time between checkpoints. More...
 
int m_steps
 Number of steps to take. More...
 
int m_checksteps
 Number of steps between checkpoints. More...
 
int m_spacedim
 Spatial dimension (>= expansion dim). More...
 
int m_expdim
 Expansion dimension. More...
 
bool m_singleMode
 Flag to determine if single homogeneous mode is used. More...
 
bool m_halfMode
 Flag to determine if half homogeneous mode is used. More...
 
bool m_multipleModes
 Flag to determine if use multiple homogenenous modes are used. More...
 
bool m_useFFT
 Flag to determine if FFT is used for homogeneous transform. More...
 
bool m_homogen_dealiasing
 Flag to determine if dealiasing is used for homogeneous simulations. More...
 
bool m_specHP_dealiasing
 Flag to determine if dealisising is usde for the Spectral/hp element discretisation. More...
 
enum MultiRegions::ProjectionType m_projectionType
 Type of projection; e.g continuous or discontinuous. More...
 
Array< OneD, Array< OneD, NekDouble > > m_traceNormals
 Array holding trace normals for DG simulations in the forwards direction. More...
 
Array< OneD, Array< OneD, Array< OneD, NekDouble > > > m_gradtan
 1 x nvariable x nq More...
 
Array< OneD, Array< OneD, Array< OneD, NekDouble > > > m_tanbasis
 2 x m_spacedim x nq More...
 
Array< OneD, bool > m_checkIfSystemSingular
 Flag to indicate if the fields should be checked for singularity. More...
 
LibUtilities::FieldMetaDataMap m_fieldMetaDataMap
 Map to identify relevant solver info to dump in output fields. More...
 
int m_NumQuadPointsError
 Number of Quadrature points used to work out the error. More...
 
enum HomogeneousType m_HomogeneousType
 
NekDouble m_LhomX
 physical length in X direction (if homogeneous) More...
 
NekDouble m_LhomY
 physical length in Y direction (if homogeneous) More...
 
NekDouble m_LhomZ
 physical length in Z direction (if homogeneous) More...
 
int m_npointsX
 number of points in X direction (if homogeneous) More...
 
int m_npointsY
 number of points in Y direction (if homogeneous) More...
 
int m_npointsZ
 number of points in Z direction (if homogeneous) More...
 
int m_HomoDirec
 number of homogenous directions More...
 
int m_NumMode
 Mode to use in case of single mode analysis. More...
 

Private Member Functions

void NumericalFlux1D (Array< OneD, Array< OneD, NekDouble > > &physfield, Array< OneD, Array< OneD, NekDouble > > &numfluxX)
 
void NumericalFlux2D (Array< OneD, Array< OneD, NekDouble > > &physfield, Array< OneD, Array< OneD, NekDouble > > &numfluxX, Array< OneD, Array< OneD, NekDouble > > &numfluxY)
 
void LaitoneSolitaryWave (NekDouble amp, NekDouble d, NekDouble time, NekDouble x_offset)
 
void SetBoundaryConditions (Array< OneD, Array< OneD, NekDouble > > &physarray, NekDouble time)
 
void WallBoundary2D (int bcRegion, int cnt, Array< OneD, Array< OneD, NekDouble > > &physarray)
 
void WallBoundary (int bcRegion, int cnt, Array< OneD, Array< OneD, NekDouble > > &physarray)
 Wall boundary condition. More...
 
void AddCoriolis (const Array< OneD, const Array< OneD, NekDouble > > &physarray, Array< OneD, Array< OneD, NekDouble > > &outarray)
 
void AddVariableDepth (const Array< OneD, const Array< OneD, NekDouble > > &physarray, Array< OneD, Array< OneD, NekDouble > > &outarray)
 
void ConservativeToPrimitive (const Array< OneD, const Array< OneD, NekDouble > > &physin, Array< OneD, Array< OneD, NekDouble > > &physout)
 
void PrimitiveToConservative (const Array< OneD, const Array< OneD, NekDouble > > &physin, Array< OneD, Array< OneD, NekDouble > > &physout)
 
void GetVelocityVector (const Array< OneD, Array< OneD, NekDouble > > &physfield, Array< OneD, Array< OneD, NekDouble > > &velocity)
 Compute the velocity field $ \mathbf{v} $ given the momentum $ h\mathbf{v} $. More...
 
void WCESolve (Array< OneD, NekDouble > &fce, NekDouble lambda)
 
void NumericalFluxForcing (const Array< OneD, const Array< OneD, NekDouble > > &inarray, Array< OneD, NekDouble > &numfluxX, Array< OneD, NekDouble > &numfluxY)
 
void SetBoundaryConditionsForcing (Array< OneD, Array< OneD, NekDouble > > &inarray, NekDouble time)
 
void WallBoundaryForcing (int bcRegion, int cnt, Array< OneD, Array< OneD, NekDouble > > &inarray)
 
void SetBoundaryConditionsContVariables (Array< OneD, NekDouble > &inarray, NekDouble time)
 
void WallBoundaryContVariables (int bcRegion, int cnt, Array< OneD, NekDouble > &inarray)
 
void NumericalFluxConsVariables (Array< OneD, NekDouble > &physfield, Array< OneD, NekDouble > &outX, Array< OneD, NekDouble > &outY)
 

Private Attributes

NekDouble m_const_depth
 

Friends

class MemoryManager< NonlinearPeregrine >
 

Additional Inherited Members

- Protected Types inherited from Nektar::SolverUtils::EquationSystem
enum  HomogeneousType { eHomogeneous1D, eHomogeneous2D, eHomogeneous3D, eNotHomogeneous }
 Parameter for homogeneous expansions. More...
 

Detailed Description

Definition at line 59 of file NonlinearPeregrine.h.

Constructor & Destructor Documentation

Nektar::NonlinearPeregrine::~NonlinearPeregrine ( )
virtual

problem type selector

Definition at line 165 of file NonlinearPeregrine.cpp.

166 {
167 
168 }
Nektar::NonlinearPeregrine::NonlinearPeregrine ( const LibUtilities::SessionReaderSharedPtr &  pSession)
protected

Definition at line 52 of file NonlinearPeregrine.cpp.

References Nektar::StdRegions::eFactorLambda, Nektar::StdRegions::eFactorTau, and m_factors.

54  : ShallowWaterSystem(pSession), m_factors()
55 {
56  m_factors[StdRegions::eFactorLambda] = 0.0;
57  m_factors[StdRegions::eFactorTau] = 1000000.0;
58  // note: eFactorTau = 1.0 becomes unstable...
59  // we need to investigate the behaviuor w.r.t. tau
60 }
Nektar::NonlinearPeregrine::m_factors
StdRegions::ConstFactorMap m_factors
Definition: NonlinearPeregrine.h:82
Nektar::ShallowWaterSystem::ShallowWaterSystem
ShallowWaterSystem(const LibUtilities::SessionReaderSharedPtr &pSession)
Initialises UnsteadySystem class members.
Definition: ShallowWaterSystem.cpp:67

Member Function Documentation

void Nektar::NonlinearPeregrine::AddCoriolis ( const Array< OneD, const Array< OneD, NekDouble > > &  physarray,
Array< OneD, Array< OneD, NekDouble > > &  outarray 
)
private

Definition at line 171 of file NonlinearPeregrine.cpp.

References ASSERTL0, Nektar::MultiRegions::eDiscontinuous, Nektar::MultiRegions::eGalerkin, Nektar::MultiRegions::eMixed_CG_Discontinuous, Nektar::SolverUtils::EquationSystem::GetNcoeffs(), Nektar::SolverUtils::EquationSystem::GetTotPoints(), Nektar::ShallowWaterSystem::m_coriolis, Nektar::SolverUtils::EquationSystem::m_fields, Nektar::SolverUtils::EquationSystem::m_projectionType, Vmath::Neg(), Vmath::Vadd(), and Vmath::Vmul().

Referenced by DoOdeRhs().

174 {
175 
176  int ncoeffs = GetNcoeffs();
177  int nq = GetTotPoints();
178 
179  Array<OneD, NekDouble> tmp(nq);
180  Array<OneD, NekDouble> mod(ncoeffs);
181 
182  switch (m_projectionType)
183  {
184  case MultiRegions::eDiscontinuous:
185  {
186  // add to hu equation
187  Vmath::Vmul(nq, m_coriolis, 1, physarray[2], 1, tmp, 1);
188  m_fields[0]->IProductWRTBase(tmp, mod);
189  m_fields[0]->MultiplyByElmtInvMass(mod, mod);
190  m_fields[0]->BwdTrans(mod, tmp);
191  Vmath::Vadd(nq, tmp, 1, outarray[1], 1, outarray[1], 1);
192 
193  // add to hv equation
194  Vmath::Vmul(nq, m_coriolis, 1, physarray[1], 1, tmp, 1);
195  Vmath::Neg(nq, tmp, 1);
196  m_fields[0]->IProductWRTBase(tmp, mod);
197  m_fields[0]->MultiplyByElmtInvMass(mod, mod);
198  m_fields[0]->BwdTrans(mod, tmp);
199  Vmath::Vadd(nq, tmp, 1, outarray[2], 1, outarray[2], 1);
200  break;
201  }
202  case MultiRegions::eGalerkin:
203  case MultiRegions::eMixed_CG_Discontinuous:
204  {
205  // add to hu equation
206  Vmath::Vmul(nq, m_coriolis, 1, physarray[2], 1, tmp, 1);
207  Vmath::Vadd(nq, tmp, 1, outarray[1], 1, outarray[1], 1);
208 
209  // add to hv equation
210  Vmath::Vmul(nq, m_coriolis, 1, physarray[1], 1, tmp, 1);
211  Vmath::Neg(nq, tmp, 1);
212  Vmath::Vadd(nq, tmp, 1, outarray[2], 1, outarray[2], 1);
213  break;
214  }
215  default:
216  ASSERTL0(false, "Unknown projection scheme for the NonlinearSWE");
217  break;
218  }
219 
220 }
Nektar::ShallowWaterSystem::m_coriolis
Array< OneD, NekDouble > m_coriolis
Coriolis force.
Definition: ShallowWaterSystem.h:83
ASSERTL0
#define ASSERTL0(condition, msg)
Definition: ErrorUtil.hpp:161
Nektar::SolverUtils::EquationSystem::m_projectionType
enum MultiRegions::ProjectionType m_projectionType
Type of projection; e.g continuous or discontinuous.
Definition: EquationSystem.h:471
Nektar::SolverUtils::EquationSystem::GetTotPoints
SOLVER_UTILS_EXPORT int GetTotPoints()
Definition: EquationSystem.h:828
Vmath::Neg
void Neg(int n, T *x, const int incx)
Negate x = -x.
Definition: Vmath.cpp:382
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
Nektar::SolverUtils::EquationSystem::GetNcoeffs
SOLVER_UTILS_EXPORT int GetNcoeffs()
Definition: EquationSystem.h:772
Vmath::Vadd
void Vadd(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Add vector z = x+y.
Definition: Vmath.cpp:285
Vmath::Vmul
void Vmul(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Multiply vector z = x*y.
Definition: Vmath.cpp:169
void Nektar::NonlinearPeregrine::AddVariableDepth ( const Array< OneD, const Array< OneD, NekDouble > > &  physarray,
Array< OneD, Array< OneD, NekDouble > > &  outarray 
)
private

Definition at line 223 of file NonlinearPeregrine.cpp.

References ASSERTL0, Nektar::MultiRegions::eDiscontinuous, Nektar::MultiRegions::eGalerkin, Nektar::MultiRegions::eMixed_CG_Discontinuous, Nektar::SolverUtils::EquationSystem::GetNcoeffs(), Nektar::SolverUtils::EquationSystem::GetTotPoints(), Nektar::ShallowWaterSystem::m_bottomSlope, Nektar::SolverUtils::EquationSystem::m_fields, Nektar::ShallowWaterSystem::m_g, Nektar::SolverUtils::EquationSystem::m_projectionType, Nektar::SolverUtils::EquationSystem::m_spacedim, Vmath::Smul(), Vmath::Vadd(), and Vmath::Vmul().

226 {
227 
228  int ncoeffs = GetNcoeffs();
229  int nq = GetTotPoints();
230 
231  Array<OneD, NekDouble> tmp(nq);
232  Array<OneD, NekDouble> mod(ncoeffs);
233 
234  switch (m_projectionType)
235  {
236  case MultiRegions::eDiscontinuous:
237  {
238  for (int i = 0; i < m_spacedim; ++i)
239  {
240  Vmath::Vmul(nq, m_bottomSlope[i], 1, physarray[0], 1, tmp, 1);
241  Vmath::Smul(nq, m_g, tmp, 1, tmp, 1);
242  m_fields[0]->IProductWRTBase(tmp, mod);
243  m_fields[0]->MultiplyByElmtInvMass(mod, mod);
244  m_fields[0]->BwdTrans(mod, tmp);
245  Vmath::Vadd(nq, tmp, 1, outarray[i + 1], 1, outarray[i + 1], 1);
246  }
247  break;
248  }
249  case MultiRegions::eGalerkin:
250  case MultiRegions::eMixed_CG_Discontinuous:
251  {
252  for (int i = 0; i < m_spacedim; ++i)
253  {
254  Vmath::Vmul(nq, m_bottomSlope[i], 1, physarray[0], 1, tmp, 1);
255  Vmath::Smul(nq, m_g, tmp, 1, tmp, 1);
256  Vmath::Vadd(nq, tmp, 1, outarray[i + 1], 1, outarray[i + 1], 1);
257  }
258  break;
259  }
260  default:
261  ASSERTL0(false, "Unknown projection scheme for the NonlinearSWE");
262  break;
263  }
264 
265 }
ASSERTL0
#define ASSERTL0(condition, msg)
Definition: ErrorUtil.hpp:161
Nektar::SolverUtils::EquationSystem::m_projectionType
enum MultiRegions::ProjectionType m_projectionType
Type of projection; e.g continuous or discontinuous.
Definition: EquationSystem.h:471
Nektar::SolverUtils::EquationSystem::GetTotPoints
SOLVER_UTILS_EXPORT int GetTotPoints()
Definition: EquationSystem.h:828
Nektar::ShallowWaterSystem::m_bottomSlope
Array< OneD, Array< OneD, NekDouble > > m_bottomSlope
Definition: ShallowWaterSystem.h:81
Vmath::Smul
void Smul(int n, const T alpha, const T *x, const int incx, T *y, const int incy)
Scalar multiply y = alpha*y.
Definition: Vmath.cpp:199
Nektar::SolverUtils::EquationSystem::m_spacedim
int m_spacedim
Spatial dimension (>= expansion dim).
Definition: EquationSystem.h:449
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
Nektar::SolverUtils::EquationSystem::GetNcoeffs
SOLVER_UTILS_EXPORT int GetNcoeffs()
Definition: EquationSystem.h:772
Nektar::ShallowWaterSystem::m_g
NekDouble m_g
Acceleration of gravity.
Definition: ShallowWaterSystem.h:77
Vmath::Vadd
void Vadd(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Add vector z = x+y.
Definition: Vmath.cpp:285
Vmath::Vmul
void Vmul(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Multiply vector z = x*y.
Definition: Vmath.cpp:169
void Nektar::NonlinearPeregrine::ConservativeToPrimitive ( const Array< OneD, const Array< OneD, NekDouble > > &  physin,
Array< OneD, Array< OneD, NekDouble > > &  physout 
)
private

Definition at line 754 of file NonlinearPeregrine.cpp.

References Nektar::SolverUtils::EquationSystem::GetTotPoints(), Nektar::ShallowWaterSystem::m_depth, Vmath::Vcopy(), Vmath::Vdiv(), and Vmath::Vsub().

757 {
758  int nq = GetTotPoints();
759 
760  if (physin.get() == physout.get())
761  {
762  // copy indata and work with tmp array
763  Array<OneD, Array<OneD, NekDouble> > tmp(3);
764  for (int i = 0; i < 3; ++i)
765  {
766  // deep copy
767  tmp[i] = Array<OneD, NekDouble>(nq);
768  Vmath::Vcopy(nq, physin[i], 1, tmp[i], 1);
769  }
770 
771  // \eta = h - d
772  Vmath::Vsub(nq, tmp[0], 1, m_depth, 1, physout[0], 1);
773 
774  // u = hu/h
775  Vmath::Vdiv(nq, tmp[1], 1, tmp[0], 1, physout[1], 1);
776 
777  // v = hv/ v
778  Vmath::Vdiv(nq, tmp[2], 1, tmp[0], 1, physout[2], 1);
779  }
780  else
781  {
782  // \eta = h - d
783  Vmath::Vsub(nq, physin[0], 1, m_depth, 1, physout[0], 1);
784 
785  // u = hu/h
786  Vmath::Vdiv(nq, physin[1], 1, physin[0], 1, physout[1], 1);
787 
788  // v = hv/ v
789  Vmath::Vdiv(nq, physin[2], 1, physin[0], 1, physout[2], 1);
790  }
791 }
Nektar::ShallowWaterSystem::m_depth
Array< OneD, NekDouble > m_depth
Still water depth.
Definition: ShallowWaterSystem.h:79
Vmath::Vdiv
void Vdiv(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Multiply vector z = x/y.
Definition: Vmath.cpp:227
Nektar::SolverUtils::EquationSystem::GetTotPoints
SOLVER_UTILS_EXPORT int GetTotPoints()
Definition: EquationSystem.h:828
Vmath::Vsub
void Vsub(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Subtract vector z = x-y.
Definition: Vmath.cpp:329
Vmath::Vcopy
void Vcopy(int n, const T *x, const int incx, T *y, const int incy)
Definition: Vmath.cpp:1038
static SolverUtils::EquationSystemSharedPtr Nektar::NonlinearPeregrine::create ( const LibUtilities::SessionReaderSharedPtr &  pSession)
inlinestatic

Creates an instance of this class.

Definition at line 65 of file NonlinearPeregrine.h.

67  {
68  SolverUtils::EquationSystemSharedPtr p = MemoryManager<
69  NonlinearPeregrine>::AllocateSharedPtr(pSession);
70  p->InitObject();
71  return p;
72  }
Nektar::MemoryManager
General purpose memory allocation routines with the ability to allocate from thread specific memory p...
Definition: NekMemoryManager.hpp:102
Nektar::SolverUtils::EquationSystemSharedPtr
boost::shared_ptr< EquationSystem > EquationSystemSharedPtr
A shared pointer to an EquationSystem object.
Definition: EquationSystem.h:56
void Nektar::NonlinearPeregrine::DoOdeProjection ( const Array< OneD, const Array< OneD, NekDouble > > &  inarray,
Array< OneD, Array< OneD, NekDouble > > &  outarray,
const NekDouble  time 
)
protected

Definition at line 490 of file NonlinearPeregrine.cpp.

References ASSERTL0, Nektar::MultiRegions::eDiscontinuous, Nektar::MultiRegions::eGalerkin, Nektar::MultiRegions::eMixed_CG_Discontinuous, Nektar::SolverUtils::EquationSystem::GetNcoeffs(), Nektar::SolverUtils::EquationSystem::GetNpoints(), Nektar::SolverUtils::EquationSystem::m_fields, Nektar::SolverUtils::EquationSystem::m_projectionType, SetBoundaryConditions(), and Vmath::Vcopy().

Referenced by v_InitObject().

494 {
495  int i;
496  int nvariables = inarray.num_elements();
497 
498  switch (m_projectionType)
499  {
500  case MultiRegions::eDiscontinuous:
501  {
502 
503  // Just copy over array
504  int npoints = GetNpoints();
505 
506  for (i = 0; i < nvariables; ++i)
507  {
508  Vmath::Vcopy(npoints, inarray[i], 1, outarray[i], 1);
509  }
510 
511  SetBoundaryConditions(outarray, time);
512  break;
513  }
514  case MultiRegions::eGalerkin:
515  case MultiRegions::eMixed_CG_Discontinuous:
516  {
517 
518  EquationSystem::SetBoundaryConditions(time);
519  Array<OneD, NekDouble> coeffs(m_fields[0]->GetNcoeffs());
520 
521  for (i = 0; i < nvariables; ++i)
522  {
523  m_fields[i]->FwdTrans(inarray[i], coeffs);
524  m_fields[i]->BwdTrans_IterPerExp(coeffs, outarray[i]);
525  }
526  break;
527  }
528  default:
529  ASSERTL0(false, "Unknown projection scheme");
530  break;
531  }
532 }
ASSERTL0
#define ASSERTL0(condition, msg)
Definition: ErrorUtil.hpp:161
Nektar::SolverUtils::EquationSystem::m_projectionType
enum MultiRegions::ProjectionType m_projectionType
Type of projection; e.g continuous or discontinuous.
Definition: EquationSystem.h:471
Nektar::NonlinearPeregrine::SetBoundaryConditions
void SetBoundaryConditions(Array< OneD, Array< OneD, NekDouble > > &physarray, NekDouble time)
Definition: NonlinearPeregrine.cpp:535
Nektar::SolverUtils::EquationSystem::GetNpoints
SOLVER_UTILS_EXPORT int GetNpoints()
Definition: EquationSystem.h:838
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
Nektar::SolverUtils::EquationSystem::GetNcoeffs
SOLVER_UTILS_EXPORT int GetNcoeffs()
Definition: EquationSystem.h:772
Vmath::Vcopy
void Vcopy(int n, const T *x, const int incx, T *y, const int incy)
Definition: Vmath.cpp:1038
void Nektar::NonlinearPeregrine::DoOdeRhs ( const Array< OneD, const Array< OneD, NekDouble > > &  inarray,
Array< OneD, Array< OneD, NekDouble > > &  outarray,
const NekDouble  time 
)
protected

Definition at line 267 of file NonlinearPeregrine.cpp.

References AddCoriolis(), ASSERTL0, Nektar::MultiRegions::eDiscontinuous, Nektar::MultiRegions::eGalerkin, Nektar::MultiRegions::eMixed_CG_Discontinuous, Nektar::SolverUtils::EquationSystem::GetNcoeffs(), Nektar::SolverUtils::EquationSystem::GetTotPoints(), Nektar::SolverUtils::EquationSystem::GetTraceTotPoints(), Nektar::ShallowWaterSystem::m_advection, m_const_depth, Nektar::ShallowWaterSystem::m_constantDepth, Nektar::ShallowWaterSystem::m_coriolis, Nektar::SolverUtils::EquationSystem::m_fields, Nektar::SolverUtils::EquationSystem::m_projectionType, Vmath::Neg(), NumericalFluxConsVariables(), NumericalFluxForcing(), SetBoundaryConditionsContVariables(), SetBoundaryConditionsForcing(), Vmath::Smul(), Vmath::Vadd(), Vmath::Vcopy(), and WCESolve().

Referenced by v_InitObject().

270 {
271  int i;
272  int nvariables = inarray.num_elements();
273  int ncoeffs = GetNcoeffs();
274  int nq = GetTotPoints();
275 
276  switch (m_projectionType)
277  {
278  case MultiRegions::eDiscontinuous:
279  {
280 
281  //-------------------------------------------------------
282  //inarray in physical space
283 
284  Array<OneD, Array<OneD, NekDouble> > modarray(nvariables);
285  for (i = 0; i < nvariables; ++i)
286  {
287  modarray[i] = Array<OneD, NekDouble>(ncoeffs, 0.0);
288  }
289  //-------------------------------------------------------
290 
291  //-------------------------------------------------------
292  // Compute the DG advection including the numerical flux
293  // by using SolverUtils/Advection
294  // Input and output in physical space
295  Array<OneD, Array<OneD, NekDouble> > advVel;
296 
297  m_advection->Advect(nvariables - 1, m_fields, advVel, inarray,
298  outarray, time);
299  //-------------------------------------------------------
300 
301  //-------------------------------------------------------
302  // negate the outarray since moving terms to the rhs
303  for (i = 0; i < nvariables - 1; ++i)
304  {
305  Vmath::Neg(nq, outarray[i], 1);
306  }
307  //-------------------------------------------------------
308 
309  //-------------------------------------------------
310  // Add "source terms"
311  // Input and output in physical space
312 
313  // Coriolis forcing
314  if (m_coriolis.num_elements() != 0)
315  {
316  AddCoriolis(inarray, outarray);
317  }
318 
319  // Variable Depth
320  if (m_constantDepth != true)
321  {
322  ASSERTL0(false,
323  "Variable depth not supported for the Peregrine "
324  "equations");
325  }
326 
327  //-------------------------------------------------
328 
329  //---------------------------------------
330  // As no more terms is required for the
331  // continuity equation and we have aleady evaluated
332  // the values for h_t we are done for h
333  //---------------------------------------
334 
335  //-------------------------------------------------
336  // go to modal space
337  m_fields[0]->IProductWRTBase(outarray[1], modarray[1]);
338  m_fields[0]->IProductWRTBase(outarray[2], modarray[2]);
339 
340  // store f1 and f2 for later use (modal space)
341  Array<OneD, NekDouble> f1(ncoeffs);
342  Array<OneD, NekDouble> f2(ncoeffs);
343 
344  Vmath::Vcopy(ncoeffs, modarray[1], 1, f1, 1); // f1
345  Vmath::Vcopy(ncoeffs, modarray[2], 1, f2, 1); // f2
346 
347  // Solve the remaining block-diagonal systems
348  m_fields[0]->MultiplyByElmtInvMass(modarray[1], modarray[1]);
349  m_fields[0]->MultiplyByElmtInvMass(modarray[2], modarray[2]);
350  //---------------------------------------------
351 
352  //---------------------------------------------
353 
354  //-------------------------------------------------
355  // create tmp fields to be used during
356  // the dispersive section
357 
358  Array<OneD, Array<OneD, NekDouble> > coeffsfield(2);
359  Array<OneD, Array<OneD, NekDouble> > physfield(2);
360 
361  for (i = 0; i < 2; ++i)
362  {
363  coeffsfield[i] = Array<OneD, NekDouble>(ncoeffs);
364  physfield[i] = Array<OneD, NekDouble>(nq);
365  }
366  //---------------------------------------------
367 
368  //---------------------------------------------
369  // Go from modal to physical space
370  Vmath::Vcopy(nq, outarray[1], 1, physfield[0], 1);
371  Vmath::Vcopy(nq, outarray[2], 1, physfield[1], 1);
372  //---------------------------------------
373 
374  //---------------------------------------
375  // Start for solve of mixed dispersive terms
376  // using the 'WCE method'
377  // (Eskilsson & Sherwin, JCP 2006)
378 
379  // constant depth case
380  // \nabla \cdot (\nabla z) - invgamma z
381  // = - invgamma (\nabla \cdot {\bf f}_(2,3)
382 
383  NekDouble gamma = (m_const_depth * m_const_depth) * (1.0 / 3.0);
384  NekDouble invgamma = 1.0 / gamma;
385 
386  int nTraceNumPoints = GetTraceTotPoints();
387  Array<OneD, Array<OneD, NekDouble> > upwindX(1);
388  Array<OneD, Array<OneD, NekDouble> > upwindY(1);
389  upwindX[0] = Array<OneD, NekDouble>(nTraceNumPoints);
390  upwindY[0] = Array<OneD, NekDouble>(nTraceNumPoints);
391  //--------------------------------------------
392 
393  //--------------------------------------------
394  // Compute the forcing function for the
395  // wave continuity equation
396 
397  // Set boundary condidtions for z
398  SetBoundaryConditionsForcing(physfield, time);
399 
400  // \nabla \phi \cdot f_{2,3}
401  m_fields[0]->IProductWRTDerivBase(0, physfield[0], coeffsfield[0]);
402  m_fields[0]->IProductWRTDerivBase(1, physfield[1], coeffsfield[1]);
403  Vmath::Vadd(ncoeffs, coeffsfield[0], 1, coeffsfield[1], 1,
404  coeffsfield[0], 1);
405  Vmath::Neg(ncoeffs, coeffsfield[0], 1);
406 
407  // Evaluate upwind numerical flux (physical space)
408  NumericalFluxForcing(physfield, upwindX[0], upwindY[0]);
409 
410  m_fields[0]->AddTraceIntegral(upwindX[0], upwindY[0],
411  coeffsfield[0]);
412  m_fields[0]->MultiplyByElmtInvMass(coeffsfield[0], coeffsfield[0]);
413  m_fields[0]->BwdTrans(coeffsfield[0], physfield[0]);
414 
415  Vmath::Smul(nq, -invgamma, physfield[0], 1, physfield[0], 1);
416 
417  // ok: forcing function for HelmSolve... done!
418  //--------------------------------------
419 
420  //--------------------------------------
421  // Solve the Helmhotz-type equation
422  // for the wave continuity equation
423  // (missing slope terms...)
424 
425  // note: this is just valid for the constant depth case:
426 
427  // as of now we need not to specify any
428  // BC routine for the WCE: periodic
429  // and zero Neumann (for walls)
430 
431  WCESolve(physfield[0], invgamma);
432 
433  Vmath::Vcopy(nq, physfield[0], 1, outarray[3], 1); // store z
434 
435  // ok: Wave Continuity Equation... done!
436  //------------------------------------
437 
438  //------------------------------------
439  // Return to the primary variables
440 
441  // (h {\bf u})_t = gamma \nabla z + {\bf f}_{2,3}
442 
443  Vmath::Smul(nq, gamma, physfield[0], 1, physfield[0], 1);
444 
445  // Set boundary conditions
446  SetBoundaryConditionsContVariables(physfield[0], time);
447 
448  m_fields[0]->IProductWRTDerivBase(0, physfield[0], coeffsfield[0]);
449  m_fields[1]->IProductWRTDerivBase(1, physfield[0], coeffsfield[1]);
450 
451  Vmath::Neg(ncoeffs, coeffsfield[0], 1);
452  Vmath::Neg(ncoeffs, coeffsfield[1], 1);
453 
454  // Evaluate upwind numerical flux (physical space)
455  NumericalFluxConsVariables(physfield[0], upwindX[0], upwindY[0]);
456 
457  {
458  Array<OneD, NekDouble> uptemp(nTraceNumPoints, 0.0);
459 
460  m_fields[0]->AddTraceIntegral(upwindX[0], uptemp,
461  coeffsfield[0]);
462  m_fields[0]->AddTraceIntegral(uptemp, upwindY[0],
463  coeffsfield[1]);
464  }
465 
466  Vmath::Vadd(ncoeffs, f1, 1, coeffsfield[0], 1, modarray[1], 1);
467  Vmath::Vadd(ncoeffs, f2, 1, coeffsfield[1], 1, modarray[2], 1);
468 
469  m_fields[1]->MultiplyByElmtInvMass(modarray[1], modarray[1]);
470  m_fields[2]->MultiplyByElmtInvMass(modarray[2], modarray[2]);
471 
472  m_fields[1]->BwdTrans(modarray[1], outarray[1]);
473  m_fields[2]->BwdTrans(modarray[2], outarray[2]);
474 
475  // ok: returned to conservative variables... done!
476  //---------------------
477 
478  break;
479  }
480  case MultiRegions::eGalerkin:
481  case MultiRegions::eMixed_CG_Discontinuous:
482  ASSERTL0(false, "Unknown projection scheme for the Peregrine");
483  break;
484  default:
485  ASSERTL0(false, "Unknown projection scheme for the NonlinearSWE");
486  break;
487  }
488 }
Nektar::ShallowWaterSystem::m_coriolis
Array< OneD, NekDouble > m_coriolis
Coriolis force.
Definition: ShallowWaterSystem.h:83
Nektar::NonlinearPeregrine::SetBoundaryConditionsContVariables
void SetBoundaryConditionsContVariables(Array< OneD, NekDouble > &inarray, NekDouble time)
Definition: NonlinearPeregrine.cpp:1074
ASSERTL0
#define ASSERTL0(condition, msg)
Definition: ErrorUtil.hpp:161
Nektar::NonlinearPeregrine::NumericalFluxForcing
void NumericalFluxForcing(const Array< OneD, const Array< OneD, NekDouble > > &inarray, Array< OneD, NekDouble > &numfluxX, Array< OneD, NekDouble > &numfluxY)
Definition: NonlinearPeregrine.cpp:925
Nektar::SolverUtils::EquationSystem::m_projectionType
enum MultiRegions::ProjectionType m_projectionType
Type of projection; e.g continuous or discontinuous.
Definition: EquationSystem.h:471
Nektar::ShallowWaterSystem::m_advection
SolverUtils::AdvectionSharedPtr m_advection
Definition: ShallowWaterSystem.h:69
Nektar::SolverUtils::EquationSystem::GetTotPoints
SOLVER_UTILS_EXPORT int GetTotPoints()
Definition: EquationSystem.h:828
Nektar::NonlinearPeregrine::NumericalFluxConsVariables
void NumericalFluxConsVariables(Array< OneD, NekDouble > &physfield, Array< OneD, NekDouble > &outX, Array< OneD, NekDouble > &outY)
Definition: NonlinearPeregrine.cpp:1131
Vmath::Smul
void Smul(int n, const T alpha, const T *x, const int incx, T *y, const int incy)
Scalar multiply y = alpha*y.
Definition: Vmath.cpp:199
Nektar::NonlinearPeregrine::WCESolve
void WCESolve(Array< OneD, NekDouble > &fce, NekDouble lambda)
Definition: NonlinearPeregrine.cpp:898
Vmath::Neg
void Neg(int n, T *x, const int incx)
Negate x = -x.
Definition: Vmath.cpp:382
Nektar::NekDouble
double NekDouble
Definition: NektarUnivTypeDefs.hpp:43
Nektar::NonlinearPeregrine::SetBoundaryConditionsForcing
void SetBoundaryConditionsForcing(Array< OneD, Array< OneD, NekDouble > > &inarray, NekDouble time)
Definition: NonlinearPeregrine.cpp:963
Nektar::SolverUtils::EquationSystem::GetTraceTotPoints
SOLVER_UTILS_EXPORT int GetTraceTotPoints()
Definition: EquationSystem.h:803
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
Nektar::SolverUtils::EquationSystem::GetNcoeffs
SOLVER_UTILS_EXPORT int GetNcoeffs()
Definition: EquationSystem.h:772
Nektar::ShallowWaterSystem::m_constantDepth
bool m_constantDepth
Indicates if constant depth case.
Definition: ShallowWaterSystem.h:75
Nektar::NonlinearPeregrine::AddCoriolis
void AddCoriolis(const Array< OneD, const Array< OneD, NekDouble > > &physarray, Array< OneD, Array< OneD, NekDouble > > &outarray)
Definition: NonlinearPeregrine.cpp:171
Vmath::Vcopy
void Vcopy(int n, const T *x, const int incx, T *y, const int incy)
Definition: Vmath.cpp:1038
Vmath::Vadd
void Vadd(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Add vector z = x+y.
Definition: Vmath.cpp:285
const Array<OneD, NekDouble>& Nektar::NonlinearPeregrine::GetDepthBwd ( )
inlineprotected

Definition at line 121 of file NonlinearPeregrine.h.

References m_dBwd.

122  {
123  return m_dBwd;
124  }
Nektar::NonlinearPeregrine::m_dBwd
Array< OneD, NekDouble > m_dBwd
Definition: NonlinearPeregrine.h:90
const Array<OneD, NekDouble>& Nektar::NonlinearPeregrine::GetDepthFwd ( )
inlineprotected

Definition at line 117 of file NonlinearPeregrine.h.

References m_dFwd.

118  {
119  return m_dFwd;
120  }
Nektar::NonlinearPeregrine::m_dFwd
Array< OneD, NekDouble > m_dFwd
Still water depth traces.
Definition: NonlinearPeregrine.h:89
void Nektar::NonlinearPeregrine::GetFluxVector ( const Array< OneD, const Array< OneD, NekDouble > > &  physfield,
Array< OneD, Array< OneD, Array< OneD, NekDouble > > > &  flux 
)
protected

Definition at line 715 of file NonlinearPeregrine.cpp.

References GetVelocityVector(), Nektar::SolverUtils::EquationSystem::m_fields, Nektar::ShallowWaterSystem::m_g, Nektar::SolverUtils::EquationSystem::m_spacedim, Vmath::Smul(), Vmath::Vadd(), Vmath::Vcopy(), and Vmath::Vmul().

Referenced by v_InitObject().

718 {
719  int i, j;
720  int nq = m_fields[0]->GetTotPoints();
721 
722  NekDouble g = m_g;
723  Array<OneD, Array<OneD, NekDouble> > velocity(m_spacedim);
724 
725  // Flux vector for the mass equation
726  for (i = 0; i < m_spacedim; ++i)
727  {
728  velocity[i] = Array<OneD, NekDouble>(nq);
729  Vmath::Vcopy(nq, physfield[i + 1], 1, flux[0][i], 1);
730  }
731 
732  GetVelocityVector(physfield, velocity);
733 
734  // Put (0.5 g h h) in tmp
735  Array<OneD, NekDouble> tmp(nq);
736  Vmath::Vmul(nq, physfield[0], 1, physfield[0], 1, tmp, 1);
737  Vmath::Smul(nq, 0.5 * g, tmp, 1, tmp, 1);
738 
739  // Flux vector for the momentum equations
740  for (i = 0; i < m_spacedim; ++i)
741  {
742  for (j = 0; j < m_spacedim; ++j)
743  {
744  Vmath::Vmul(nq, velocity[j], 1, physfield[i + 1], 1,
745  flux[i + 1][j], 1);
746  }
747 
748  // Add (0.5 g h h) to appropriate field
749  Vmath::Vadd(nq, flux[i + 1][i], 1, tmp, 1, flux[i + 1][i], 1);
750  }
751 
752 }
Vmath::Smul
void Smul(int n, const T alpha, const T *x, const int incx, T *y, const int incy)
Scalar multiply y = alpha*y.
Definition: Vmath.cpp:199
Nektar::SolverUtils::EquationSystem::m_spacedim
int m_spacedim
Spatial dimension (>= expansion dim).
Definition: EquationSystem.h:449
Nektar::NekDouble
double NekDouble
Definition: NektarUnivTypeDefs.hpp:43
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
Nektar::NonlinearPeregrine::GetVelocityVector
void GetVelocityVector(const Array< OneD, Array< OneD, NekDouble > > &physfield, Array< OneD, Array< OneD, NekDouble > > &velocity)
Compute the velocity field given the momentum .
Definition: NonlinearPeregrine.cpp:877
Nektar::ShallowWaterSystem::m_g
NekDouble m_g
Acceleration of gravity.
Definition: ShallowWaterSystem.h:77
Vmath::Vcopy
void Vcopy(int n, const T *x, const int incx, T *y, const int incy)
Definition: Vmath.cpp:1038
Vmath::Vadd
void Vadd(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Add vector z = x+y.
Definition: Vmath.cpp:285
Vmath::Vmul
void Vmul(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Multiply vector z = x*y.
Definition: Vmath.cpp:169
void Nektar::NonlinearPeregrine::GetVelocityVector ( const Array< OneD, Array< OneD, NekDouble > > &  physfield,
Array< OneD, Array< OneD, NekDouble > > &  velocity 
)
private

Compute the velocity field $ \mathbf{v} $ given the momentum $ h\mathbf{v} $.

Parameters
physfieldMomentum field.
velocityVelocity field.

Definition at line 877 of file NonlinearPeregrine.cpp.

References Nektar::SolverUtils::EquationSystem::m_spacedim, npts, and Vmath::Vdiv().

Referenced by GetFluxVector().

880 {
881  const int npts = physfield[0].num_elements();
882 
883  for (int i = 0; i < m_spacedim; ++i)
884  {
885  Vmath::Vdiv(npts, physfield[1 + i], 1, physfield[0], 1, velocity[i], 1);
886  }
887 }
Vmath::Vdiv
void Vdiv(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Multiply vector z = x/y.
Definition: Vmath.cpp:227
npts
static std::string npts
Definition: InputFld.cpp:43
Nektar::SolverUtils::EquationSystem::m_spacedim
int m_spacedim
Spatial dimension (>= expansion dim).
Definition: EquationSystem.h:449
void Nektar::NonlinearPeregrine::LaitoneSolitaryWave ( NekDouble  amp,
NekDouble  d,
NekDouble  time,
NekDouble  x_offset 
)
private

Definition at line 1165 of file NonlinearPeregrine.cpp.

References Nektar::SolverUtils::EquationSystem::GetTotPoints(), Nektar::SolverUtils::EquationSystem::m_fields, Nektar::ShallowWaterSystem::m_g, Vmath::Sadd(), Vmath::Vcopy(), and Vmath::Vmul().

Referenced by v_SetInitialConditions().

1170 {
1171  int nq = GetTotPoints();
1172 
1173  NekDouble A = 1.0;
1174  NekDouble C = sqrt(m_g * d) * (1.0 + 0.5 * (amp / d));
1175 
1176  Array<OneD, NekDouble> x0(nq);
1177  Array<OneD, NekDouble> x1(nq);
1178  Array<OneD, NekDouble> zeros(nq, 0.0);
1179 
1180  // get the coordinates (assuming all fields have the same
1181  // discretisation)
1182  m_fields[0]->GetCoords(x0, x1);
1183 
1184  for (int i = 0; i < nq; i++)
1185  {
1186  (m_fields[0]->UpdatePhys())[i] = amp * pow((1.0 / cosh(
1187  sqrt(0.75 * (amp / (d * d * d))) *
1188  (A * (x0[i] + x_offset) - C * time))), 2.0);
1189  (m_fields[1]->UpdatePhys())[i] = (amp / d) * pow((1.0 / cosh(
1190  sqrt(0.75 * (amp / (d * d * d))) *
1191  (A * (x0[i] + x_offset) - C * time)
1192  )), 2.0) * sqrt(m_g * d);
1193  }
1194 
1195  Vmath::Sadd(nq, d, m_fields[0]->GetPhys(), 1, m_fields[0]->UpdatePhys(), 1);
1196  Vmath::Vmul(nq, m_fields[0]->GetPhys(), 1, m_fields[1]->GetPhys(), 1,
1197  m_fields[1]->UpdatePhys(), 1);
1198  Vmath::Vcopy(nq, zeros, 1, m_fields[2]->UpdatePhys(), 1);
1199  Vmath::Vcopy(nq, zeros, 1, m_fields[3]->UpdatePhys(), 1);
1200 
1201  // Forward transform to fill the coefficient space
1202  for (int i = 0; i < 4; ++i)
1203  {
1204  m_fields[i]->SetPhysState(true);
1205  m_fields[i]->FwdTrans(m_fields[i]->GetPhys(),
1206  m_fields[i]->UpdateCoeffs());
1207  }
1208 
1209 }
Nektar::SolverUtils::EquationSystem::GetTotPoints
SOLVER_UTILS_EXPORT int GetTotPoints()
Definition: EquationSystem.h:828
Nektar::NekDouble
double NekDouble
Definition: NektarUnivTypeDefs.hpp:43
Vmath::Sadd
void Sadd(int n, const T alpha, const T *x, const int incx, T *y, const int incy)
Add vector y = alpha + x.
Definition: Vmath.cpp:301
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
Nektar::ShallowWaterSystem::m_g
NekDouble m_g
Acceleration of gravity.
Definition: ShallowWaterSystem.h:77
Vmath::Vcopy
void Vcopy(int n, const T *x, const int incx, T *y, const int incy)
Definition: Vmath.cpp:1038
Vmath::Vmul
void Vmul(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Multiply vector z = x*y.
Definition: Vmath.cpp:169
void Nektar::NonlinearPeregrine::NumericalFlux1D ( Array< OneD, Array< OneD, NekDouble > > &  physfield,
Array< OneD, Array< OneD, NekDouble > > &  numfluxX 
)
private
void Nektar::NonlinearPeregrine::NumericalFlux2D ( Array< OneD, Array< OneD, NekDouble > > &  physfield,
Array< OneD, Array< OneD, NekDouble > > &  numfluxX,
Array< OneD, Array< OneD, NekDouble > > &  numfluxY 
)
private
void Nektar::NonlinearPeregrine::NumericalFluxConsVariables ( Array< OneD, NekDouble > &  physfield,
Array< OneD, NekDouble > &  outX,
Array< OneD, NekDouble > &  outY 
)
private

Definition at line 1131 of file NonlinearPeregrine.cpp.

References Nektar::SolverUtils::EquationSystem::GetTraceTotPoints(), and Nektar::SolverUtils::EquationSystem::m_fields.

Referenced by DoOdeRhs().

1134 {
1135  int i;
1136  int nTraceNumPoints = GetTraceTotPoints();
1137 
1138  //-----------------------------------------------------
1139  // get temporary arrays
1140  Array<OneD, Array<OneD, NekDouble> > Fwd(1);
1141  Array<OneD, Array<OneD, NekDouble> > Bwd(1);
1142 
1143  Fwd[0] = Array<OneD, NekDouble>(nTraceNumPoints);
1144  Bwd[0] = Array<OneD, NekDouble>(nTraceNumPoints);
1145  //-----------------------------------------------------
1146 
1147  //-----------------------------------------------------
1148  // get the physical values at the trace
1149  // (we have put any time-dependent BC in field[1])
1150 
1151  m_fields[1]->GetFwdBwdTracePhys(physfield, Fwd[0], Bwd[0]);
1152  //-----------------------------------------------------
1153 
1154  //-----------------------------------------------------
1155  // use centred fluxes for the numerical flux
1156  for (i = 0; i < nTraceNumPoints; ++i)
1157  {
1158  outX[i] = 0.5 * (Fwd[0][i] + Bwd[0][i]);
1159  outY[i] = 0.5 * (Fwd[0][i] + Bwd[0][i]);
1160  }
1161  //-----------------------------------------------------
1162 }
Nektar::SolverUtils::EquationSystem::GetTraceTotPoints
SOLVER_UTILS_EXPORT int GetTraceTotPoints()
Definition: EquationSystem.h:803
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
void Nektar::NonlinearPeregrine::NumericalFluxForcing ( const Array< OneD, const Array< OneD, NekDouble > > &  inarray,
Array< OneD, NekDouble > &  numfluxX,
Array< OneD, NekDouble > &  numfluxY 
)
private

Definition at line 925 of file NonlinearPeregrine.cpp.

References Nektar::SolverUtils::EquationSystem::GetTraceTotPoints(), and Nektar::SolverUtils::EquationSystem::m_fields.

Referenced by DoOdeRhs().

929 {
930  int i;
931  int nTraceNumPoints = GetTraceTotPoints();
932 
933  //-----------------------------------------------------
934  // get temporary arrays
935  Array<OneD, Array<OneD, NekDouble> > Fwd(2);
936  Array<OneD, Array<OneD, NekDouble> > Bwd(2);
937 
938  for (i = 0; i < 2; ++i)
939  {
940  Fwd[i] = Array<OneD, NekDouble>(nTraceNumPoints);
941  Bwd[i] = Array<OneD, NekDouble>(nTraceNumPoints);
942  }
943  //-----------------------------------------------------
944 
945  //-----------------------------------------------------
946  // get the physical values at the trace
947  // (any time-dependent BC previuosly put in fields[1] and [2]
948 
949  m_fields[1]->GetFwdBwdTracePhys(inarray[0], Fwd[0], Bwd[0]);
950  m_fields[2]->GetFwdBwdTracePhys(inarray[1], Fwd[1], Bwd[1]);
951  //-----------------------------------------------------
952 
953  //-----------------------------------------------------
954  // use centred fluxes for the numerical flux
955  for (i = 0; i < nTraceNumPoints; ++i)
956  {
957  numfluxX[i] = 0.5 * (Fwd[0][i] + Bwd[0][i]);
958  numfluxY[i] = 0.5 * (Fwd[1][i] + Bwd[1][i]);
959  }
960  //-----------------------------------------------------
961 }
Nektar::SolverUtils::EquationSystem::GetTraceTotPoints
SOLVER_UTILS_EXPORT int GetTraceTotPoints()
Definition: EquationSystem.h:803
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
void Nektar::NonlinearPeregrine::PrimitiveToConservative ( const Array< OneD, const Array< OneD, NekDouble > > &  physin,
Array< OneD, Array< OneD, NekDouble > > &  physout 
)
private

Definition at line 810 of file NonlinearPeregrine.cpp.

References Nektar::SolverUtils::EquationSystem::GetTotPoints(), Nektar::ShallowWaterSystem::m_depth, Vmath::Vadd(), Vmath::Vcopy(), and Vmath::Vmul().

813 {
814 
815  int nq = GetTotPoints();
816 
817  if (physin.get() == physout.get())
818  {
819  // copy indata and work with tmp array
820  Array<OneD, Array<OneD, NekDouble> > tmp(3);
821  for (int i = 0; i < 3; ++i)
822  {
823  // deep copy
824  tmp[i] = Array<OneD, NekDouble>(nq);
825  Vmath::Vcopy(nq, physin[i], 1, tmp[i], 1);
826  }
827 
828  // h = \eta + d
829  Vmath::Vadd(nq, tmp[0], 1, m_depth, 1, physout[0], 1);
830 
831  // hu = h * u
832  Vmath::Vmul(nq, physout[0], 1, tmp[1], 1, physout[1], 1);
833 
834  // hv = h * v
835  Vmath::Vmul(nq, physout[0], 1, tmp[2], 1, physout[2], 1);
836 
837  }
838  else
839  {
840  // h = \eta + d
841  Vmath::Vadd(nq, physin[0], 1, m_depth, 1, physout[0], 1);
842 
843  // hu = h * u
844  Vmath::Vmul(nq, physout[0], 1, physin[1], 1, physout[1], 1);
845 
846  // hv = h * v
847  Vmath::Vmul(nq, physout[0], 1, physin[2], 1, physout[2], 1);
848 
849  }
850 
851 }
Nektar::ShallowWaterSystem::m_depth
Array< OneD, NekDouble > m_depth
Still water depth.
Definition: ShallowWaterSystem.h:79
Nektar::SolverUtils::EquationSystem::GetTotPoints
SOLVER_UTILS_EXPORT int GetTotPoints()
Definition: EquationSystem.h:828
Vmath::Vcopy
void Vcopy(int n, const T *x, const int incx, T *y, const int incy)
Definition: Vmath.cpp:1038
Vmath::Vadd
void Vadd(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Add vector z = x+y.
Definition: Vmath.cpp:285
Vmath::Vmul
void Vmul(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Multiply vector z = x*y.
Definition: Vmath.cpp:169
void Nektar::NonlinearPeregrine::SetBoundaryConditions ( Array< OneD, Array< OneD, NekDouble > > &  physarray,
NekDouble  time 
)
private

Definition at line 535 of file NonlinearPeregrine.cpp.

References Nektar::SolverUtils::EquationSystem::m_fields, and WallBoundary2D().

Referenced by DoOdeProjection().

538 {
539 
540  int nvariables = m_fields.num_elements();
541  int cnt = 0;
542 
543  // loop over Boundary Regions
544  for (int n = 0; n < m_fields[0]->GetBndConditions().num_elements(); ++n)
545  {
546 
547  // Wall Boundary Condition
548  if (boost::iequals(m_fields[0]->GetBndConditions()[n]->GetUserDefined(),"Wall"))
549  {
550  WallBoundary2D(n, cnt, inarray);
551  }
552 
553  // Time Dependent Boundary Condition (specified in meshfile)
554  if (m_fields[0]->GetBndConditions()[n]->IsTimeDependent())
555  {
556  for (int i = 0; i < nvariables; ++i)
557  {
558  m_fields[i]->EvaluateBoundaryConditions(time);
559  }
560  }
561  cnt += m_fields[0]->GetBndCondExpansions()[n]->GetExpSize();
562  }
563 }
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
Nektar::NonlinearPeregrine::WallBoundary2D
void WallBoundary2D(int bcRegion, int cnt, Array< OneD, Array< OneD, NekDouble > > &physarray)
Definition: NonlinearPeregrine.cpp:626
void Nektar::NonlinearPeregrine::SetBoundaryConditionsContVariables ( Array< OneD, NekDouble > &  inarray,
NekDouble  time 
)
private

Definition at line 1074 of file NonlinearPeregrine.cpp.

References Nektar::SolverUtils::EquationSystem::m_fields, and WallBoundaryContVariables().

Referenced by DoOdeRhs().

1077 {
1078  int cnt = 0;
1079 
1080  // loop over Boundary Regions
1081  for (int n = 0; n < m_fields[0]->GetBndConditions().num_elements(); ++n)
1082  {
1083  // Use wall for all
1084  // Wall Boundary Condition
1085  if(boost::iequals(m_fields[0]->GetBndConditions()[n]->GetUserDefined(),"Wall"))
1086  {
1087  WallBoundaryContVariables(n, cnt, inarray);
1088  }
1089 
1090  if (m_fields[0]->GetBndConditions()[n]->IsTimeDependent())
1091  {
1092  WallBoundaryContVariables(n, cnt, inarray);
1093  }
1094 
1095  cnt += m_fields[0]->GetBndCondExpansions()[n]->GetExpSize() - 1;
1096  }
1097 }
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
Nektar::NonlinearPeregrine::WallBoundaryContVariables
void WallBoundaryContVariables(int bcRegion, int cnt, Array< OneD, NekDouble > &inarray)
Definition: NonlinearPeregrine.cpp:1099
void Nektar::NonlinearPeregrine::SetBoundaryConditionsForcing ( Array< OneD, Array< OneD, NekDouble > > &  inarray,
NekDouble  time 
)
private

Definition at line 963 of file NonlinearPeregrine.cpp.

References ASSERTL0, Nektar::SolverUtils::EquationSystem::m_fields, and WallBoundaryForcing().

Referenced by DoOdeRhs().

966 {
967  int cnt = 0;
968 
969  // loop over Boundary Regions
970  for (int n = 0; n < m_fields[0]->GetBndConditions().num_elements(); ++n)
971  {
972  // Use wall for all BC...
973  // Wall Boundary Condition
974  if (boost::iequals(m_fields[0]->GetBndConditions()[n]->GetUserDefined(),"Wall"))
975  {
976  WallBoundaryForcing(n, cnt, inarray);
977  }
978 
979  //Timedependent Boundary Condition
980  if (m_fields[0]->GetBndConditions()[n]->IsTimeDependent())
981  {
982  ASSERTL0(false, "time-dependent BC not implemented for Boussinesq");
983  }
984  cnt += m_fields[0]->GetBndCondExpansions()[n]->GetExpSize();
985  }
986 }
ASSERTL0
#define ASSERTL0(condition, msg)
Definition: ErrorUtil.hpp:161
Nektar::NonlinearPeregrine::WallBoundaryForcing
void WallBoundaryForcing(int bcRegion, int cnt, Array< OneD, Array< OneD, NekDouble > > &inarray)
Definition: NonlinearPeregrine.cpp:989
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
void Nektar::NonlinearPeregrine::v_ConservativeToPrimitive ( )
protectedvirtual

Reimplemented from Nektar::ShallowWaterSystem.

Definition at line 793 of file NonlinearPeregrine.cpp.

References Nektar::SolverUtils::EquationSystem::GetTotPoints(), Nektar::ShallowWaterSystem::m_depth, Nektar::SolverUtils::EquationSystem::m_fields, Vmath::Vdiv(), and Vmath::Vsub().

794 {
795  int nq = GetTotPoints();
796 
797  // u = hu/h
798  Vmath::Vdiv(nq, m_fields[1]->GetPhys(), 1, m_fields[0]->GetPhys(), 1,
799  m_fields[1]->UpdatePhys(), 1);
800 
801  // v = hv/ v
802  Vmath::Vdiv(nq, m_fields[2]->GetPhys(), 1, m_fields[0]->GetPhys(), 1,
803  m_fields[2]->UpdatePhys(), 1);
804 
805  // \eta = h - d
806  Vmath::Vsub(nq, m_fields[0]->GetPhys(), 1, m_depth, 1,
807  m_fields[0]->UpdatePhys(), 1);
808 }
Nektar::ShallowWaterSystem::m_depth
Array< OneD, NekDouble > m_depth
Still water depth.
Definition: ShallowWaterSystem.h:79
Vmath::Vdiv
void Vdiv(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Multiply vector z = x/y.
Definition: Vmath.cpp:227
Nektar::SolverUtils::EquationSystem::GetTotPoints
SOLVER_UTILS_EXPORT int GetTotPoints()
Definition: EquationSystem.h:828
Vmath::Vsub
void Vsub(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Subtract vector z = x-y.
Definition: Vmath.cpp:329
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
void Nektar::NonlinearPeregrine::v_GenerateSummary ( SolverUtils::SummaryList &  s)
protectedvirtual

Print a summary of time stepping parameters.

Reimplemented from Nektar::ShallowWaterSystem.

Definition at line 889 of file NonlinearPeregrine.cpp.

References Nektar::SolverUtils::AddSummaryItem(), and Nektar::ShallowWaterSystem::v_GenerateSummary().

890 {
891  ShallowWaterSystem::v_GenerateSummary(s);
892  SolverUtils::AddSummaryItem(s, "Variables", "h should be in field[0]");
893  SolverUtils::AddSummaryItem(s, "", "hu should be in field[1]");
894  SolverUtils::AddSummaryItem(s, "", "hv should be in field[2]");
895  SolverUtils::AddSummaryItem(s, "", "z should be in field[3]");
896 }
Nektar::SolverUtils::AddSummaryItem
void AddSummaryItem(SummaryList &l, const std::string &name, const std::string &value)
Adds a summary item to the summary info list.
Definition: Misc.cpp:50
Nektar::ShallowWaterSystem::v_GenerateSummary
virtual void v_GenerateSummary(SolverUtils::SummaryList &s)
Print a summary of time stepping parameters.
Definition: ShallowWaterSystem.cpp:140
void Nektar::NonlinearPeregrine::v_InitObject ( )
protectedvirtual

Init object for UnsteadySystem class.

Initialization object for UnsteadySystem class.

Reimplemented from Nektar::ShallowWaterSystem.

Definition at line 62 of file NonlinearPeregrine.cpp.

References ASSERTL0, Nektar::LibUtilities::NekFactory< tKey, tBase, >::CreateInstance(), Nektar::LibUtilities::TimeIntegrationSchemeOperators::DefineOdeRhs(), Nektar::LibUtilities::TimeIntegrationSchemeOperators::DefineProjection(), DoOdeProjection(), DoOdeRhs(), Nektar::MultiRegions::eDiscontinuous, Nektar::MultiRegions::eGalerkin, Nektar::SolverUtils::GetAdvectionFactory(), Nektar::ShallowWaterSystem::GetDepth(), GetFluxVector(), Nektar::ShallowWaterSystem::GetGravity(), Nektar::ShallowWaterSystem::GetNormals(), Nektar::SolverUtils::GetRiemannSolverFactory(), Nektar::ShallowWaterSystem::GetVecLocs(), Nektar::ShallowWaterSystem::m_advection, m_const_depth, Nektar::SolverUtils::UnsteadySystem::m_explicitAdvection, Nektar::SolverUtils::EquationSystem::m_fields, Nektar::SolverUtils::UnsteadySystem::m_ode, m_problemType, Nektar::SolverUtils::EquationSystem::m_projectionType, Nektar::ShallowWaterSystem::m_riemannSolver, Nektar::SolverUtils::EquationSystem::m_session, Nektar::ProblemTypeMap, Nektar::SIZE_ProblemType, and Nektar::ShallowWaterSystem::v_InitObject().

63 {
64  ShallowWaterSystem::v_InitObject();
65 
66  if (m_session->DefinesSolverInfo("PROBLEMTYPE"))
67  {
68  int i;
69  std::string ProblemTypeStr = m_session->GetSolverInfo("PROBLEMTYPE");
70  for (i = 0; i < (int) SIZE_ProblemType; ++i)
71  {
72  if (boost::iequals(ProblemTypeMap[i], ProblemTypeStr))
73  {
74  m_problemType = (ProblemType) i;
75  break;
76  }
77  }
78  }
79  else
80  {
81  m_problemType = (ProblemType) 0;
82  }
83 
84  if (m_explicitAdvection)
85  {
86  m_ode.DefineOdeRhs(&NonlinearPeregrine::DoOdeRhs, this);
87  m_ode.DefineProjection(&NonlinearPeregrine::DoOdeProjection, this);
88  }
89  else
90  {
91  ASSERTL0(false, "Implicit Peregrine not set up.");
92  }
93 
94  // NB! At the moment only the constant depth case is
95  // supported for the Peregrine eq.
96  if (m_session->DefinesParameter("ConstDepth"))
97  {
98  m_const_depth = m_session->GetParameter("ConstDepth");
99  }
100  else
101  {
102  ASSERTL0(false, "Constant Depth not specified");
103  }
104 
105  // Type of advection class to be used
106  switch (m_projectionType)
107  {
108  // Continuous field
109  case MultiRegions::eGalerkin:
110  {
111  ASSERTL0(false,
112  "Continuous projection type not supported for Peregrine.");
113  break;
114  }
115  // Discontinuous field
116  case MultiRegions::eDiscontinuous:
117  {
118  string advName;
119  string diffName;
120  string riemName;
121 
122  //---------------------------------------------------------------
123  // Setting up advection and diffusion operators
124  // NB: diffusion not set up for SWE at the moment
125  // but kept here for future use ...
126  m_session->LoadSolverInfo("AdvectionType", advName, "WeakDG");
127  // m_session->LoadSolverInfo("DiffusionType", diffName, "LDG");
128  m_advection = SolverUtils::GetAdvectionFactory().CreateInstance(
129  advName, advName);
130 
131  m_advection->SetFluxVector(&NonlinearPeregrine::GetFluxVector,
132  this);
133 
134  // Setting up Riemann solver for advection operator
135  m_session->LoadSolverInfo("UpwindType", riemName, "NoSolver");
136 
137  m_riemannSolver =
138  SolverUtils::GetRiemannSolverFactory().CreateInstance(
139  riemName);
140 
141  // Setting up parameters for advection operator Riemann solver
142  m_riemannSolver->SetParam("gravity",
143  &NonlinearPeregrine::GetGravity, this);
144  m_riemannSolver->SetAuxVec("vecLocs",
145  &NonlinearPeregrine::GetVecLocs, this);
146  m_riemannSolver->SetVector("N", &NonlinearPeregrine::GetNormals,
147  this);
148  m_riemannSolver->SetScalar("depth", &NonlinearPeregrine::GetDepth,
149  this);
150 
151  // Concluding initialisation of advection / diffusion operators
152  m_advection->SetRiemannSolver(m_riemannSolver);
153  m_advection->InitObject(m_session, m_fields);
154  break;
155  }
156  default:
157  {
158  ASSERTL0(false, "Unsupported projection type.");
159  break;
160  }
161  }
162 
163 }
ASSERTL0
#define ASSERTL0(condition, msg)
Definition: ErrorUtil.hpp:161
Nektar::LibUtilities::NekFactory::CreateInstance
tBaseSharedPtr CreateInstance(tKey idKey BOOST_PP_COMMA_IF(MAX_PARAM) BOOST_PP_ENUM_BINARY_PARAMS(MAX_PARAM, tParam, x))
Create an instance of the class referred to by idKey.
Definition: NekFactory.hpp:162
Nektar::NonlinearPeregrine::GetFluxVector
void GetFluxVector(const Array< OneD, const Array< OneD, NekDouble > > &physfield, Array< OneD, Array< OneD, Array< OneD, NekDouble > > > &flux)
Definition: NonlinearPeregrine.cpp:715
Nektar::SolverUtils::UnsteadySystem::m_ode
LibUtilities::TimeIntegrationSchemeOperators m_ode
The time integration scheme operators to use.
Definition: UnsteadySystem.h:67
Nektar::SolverUtils::EquationSystem::m_projectionType
enum MultiRegions::ProjectionType m_projectionType
Type of projection; e.g continuous or discontinuous.
Definition: EquationSystem.h:471
Nektar::ShallowWaterSystem::GetVecLocs
const Array< OneD, const Array< OneD, NekDouble > > & GetVecLocs()
Definition: ShallowWaterSystem.h:112
Nektar::ShallowWaterSystem::m_advection
SolverUtils::AdvectionSharedPtr m_advection
Definition: ShallowWaterSystem.h:69
Nektar::NonlinearPeregrine::DoOdeProjection
void DoOdeProjection(const Array< OneD, const Array< OneD, NekDouble > > &inarray, Array< OneD, Array< OneD, NekDouble > > &outarray, const NekDouble time)
Definition: NonlinearPeregrine.cpp:490
Nektar::ShallowWaterSystem::GetNormals
const Array< OneD, const Array< OneD, NekDouble > > & GetNormals()
Definition: ShallowWaterSystem.h:117
Nektar::ShallowWaterSystem::GetDepth
const Array< OneD, NekDouble > & GetDepth()
Definition: ShallowWaterSystem.h:122
Nektar::LibUtilities::TimeIntegrationSchemeOperators::DefineProjection
void DefineProjection(FuncPointerT func, ObjectPointerT obj)
Definition: TimeIntegrationScheme.h:202
Nektar::SolverUtils::UnsteadySystem::m_explicitAdvection
bool m_explicitAdvection
Indicates if explicit or implicit treatment of advection is used.
Definition: UnsteadySystem.h:75
Nektar::LibUtilities::TimeIntegrationSchemeOperators::DefineOdeRhs
void DefineOdeRhs(FuncPointerT func, ObjectPointerT obj)
Definition: TimeIntegrationScheme.h:184
Nektar::ShallowWaterSystem::v_InitObject
virtual void v_InitObject()
Init object for UnsteadySystem class.
Definition: ShallowWaterSystem.cpp:73
Nektar::SolverUtils::GetRiemannSolverFactory
RiemannSolverFactory & GetRiemannSolverFactory()
Definition: RiemannSolver.cpp:63
Nektar::ShallowWaterSystem::m_riemannSolver
SolverUtils::RiemannSolverSharedPtr m_riemannSolver
Definition: ShallowWaterSystem.h:67
Nektar::SolverUtils::GetAdvectionFactory
AdvectionFactory & GetAdvectionFactory()
Gets the factory for initialising advection objects.
Definition: Advection.cpp:46
Nektar::NonlinearPeregrine::DoOdeRhs
void DoOdeRhs(const Array< OneD, const Array< OneD, NekDouble > > &inarray, Array< OneD, Array< OneD, NekDouble > > &outarray, const NekDouble time)
Definition: NonlinearPeregrine.cpp:267
Nektar::SIZE_ProblemType
Length of enum list.
Definition: EulerADCFE.h:47
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
Nektar::SolverUtils::EquationSystem::m_session
LibUtilities::SessionReaderSharedPtr m_session
The session reader.
Definition: EquationSystem.h:415
Nektar::ProblemType
ProblemType
Definition: EulerADCFE.h:44
Nektar::ProblemTypeMap
const char *const ProblemTypeMap[]
Definition: EulerADCFE.h:50
void Nektar::NonlinearPeregrine::v_PrimitiveToConservative ( )
protectedvirtual

Reimplemented from Nektar::ShallowWaterSystem.

Definition at line 853 of file NonlinearPeregrine.cpp.

References Nektar::SolverUtils::EquationSystem::GetTotPoints(), Nektar::ShallowWaterSystem::m_depth, Nektar::SolverUtils::EquationSystem::m_fields, Vmath::Vadd(), and Vmath::Vmul().

854 {
855  int nq = GetTotPoints();
856 
857  // h = \eta + d
858  Vmath::Vadd(nq, m_fields[0]->GetPhys(), 1, m_depth, 1,
859  m_fields[0]->UpdatePhys(), 1);
860 
861  // hu = h * u
862  Vmath::Vmul(nq, m_fields[0]->GetPhys(), 1, m_fields[1]->GetPhys(), 1,
863  m_fields[1]->UpdatePhys(), 1);
864 
865  // hv = h * v
866  Vmath::Vmul(nq, m_fields[0]->GetPhys(), 1, m_fields[2]->GetPhys(), 1,
867  m_fields[2]->UpdatePhys(), 1);
868 }
Nektar::ShallowWaterSystem::m_depth
Array< OneD, NekDouble > m_depth
Still water depth.
Definition: ShallowWaterSystem.h:79
Nektar::SolverUtils::EquationSystem::GetTotPoints
SOLVER_UTILS_EXPORT int GetTotPoints()
Definition: EquationSystem.h:828
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
Vmath::Vadd
void Vadd(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Add vector z = x+y.
Definition: Vmath.cpp:285
Vmath::Vmul
void Vmul(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Multiply vector z = x*y.
Definition: Vmath.cpp:169
void Nektar::NonlinearPeregrine::v_SetInitialConditions ( NekDouble  initialtime = 0.0,
bool  dumpInitialConditions = true,
const int  domain = 0 
)
protectedvirtual

Set the initial conditions.

Reimplemented from Nektar::SolverUtils::EquationSystem.

Definition at line 1214 of file NonlinearPeregrine.cpp.

References Nektar::SolverUtils::EquationSystem::Checkpoint_Output(), Nektar::eSolitaryWave, LaitoneSolitaryWave(), m_const_depth, and m_problemType.

1218 {
1219 
1220  switch (m_problemType)
1221  {
1222  case eSolitaryWave:
1223  {
1224  LaitoneSolitaryWave(0.1, m_const_depth, 0.0, 0.0);
1225  break;
1226  }
1227  default:
1228  {
1229  EquationSystem::v_SetInitialConditions(initialtime, false);
1230  break;
1231  }
1232  }
1233 
1234  if (dumpInitialConditions)
1235  {
1236  // Dump initial conditions to file
1237  Checkpoint_Output(0);
1238  }
1239 }
Nektar::SolverUtils::EquationSystem::Checkpoint_Output
SOLVER_UTILS_EXPORT void Checkpoint_Output(const int n)
Write checkpoint file of m_fields.
Definition: EquationSystem.cpp:1964
Nektar::eSolitaryWave
First order Laitone solitary wave.
Definition: NonlinearPeregrine.h:48
Nektar::NonlinearPeregrine::LaitoneSolitaryWave
void LaitoneSolitaryWave(NekDouble amp, NekDouble d, NekDouble time, NekDouble x_offset)
Definition: NonlinearPeregrine.cpp:1165
void Nektar::NonlinearPeregrine::WallBoundary ( int  bcRegion,
int  cnt,
Array< OneD, Array< OneD, NekDouble > > &  physarray 
)
private

Wall boundary condition.

Definition at line 569 of file NonlinearPeregrine.cpp.

References Nektar::SolverUtils::EquationSystem::GetTraceTotPoints(), Nektar::SolverUtils::EquationSystem::m_fields, Nektar::SolverUtils::EquationSystem::m_spacedim, Nektar::SolverUtils::EquationSystem::m_traceNormals, npts, Vmath::Smul(), Vmath::Vcopy(), and Vmath::Vvtvp().

571 {
572  int i;
573  int nTracePts = GetTraceTotPoints();
574  int nvariables = physarray.num_elements();
575 
576  // get physical values of the forward trace
577  Array<OneD, Array<OneD, NekDouble> > Fwd(nvariables);
578  for (i = 0; i < nvariables; ++i)
579  {
580  Fwd[i] = Array<OneD, NekDouble>(nTracePts);
581  m_fields[i]->ExtractTracePhys(physarray[i], Fwd[i]);
582  }
583 
584  // Adjust the physical values of the trace to take
585  // user defined boundaries into account
586  int e, id1, id2, npts;
587  MultiRegions::ExpListSharedPtr bcexp =
588  m_fields[0]->GetBndCondExpansions()[bcRegion];
589  for (e = 0; e < bcexp->GetExpSize(); ++e)
590  {
591  npts = bcexp->GetExp(e)->GetTotPoints();
592  id1 = bcexp->GetPhys_Offset(e);
593  id2 = m_fields[0]->GetTrace()->GetPhys_Offset(
594  m_fields[0]->GetTraceMap()->GetBndCondCoeffsToGlobalCoeffsMap(
595  cnt + e));
596 
597  // For 2D/3D, define: v* = v - 2(v.n)n
598  Array<OneD, NekDouble> tmp(npts, 0.0);
599 
600  // Calculate (v.n)
601  for (i = 0; i < m_spacedim; ++i)
602  {
603  Vmath::Vvtvp(npts, &Fwd[1 + i][id2], 1, &m_traceNormals[i][id2], 1,
604  &tmp[0], 1, &tmp[0], 1);
605  }
606 
607  // Calculate 2.0(v.n)
608  Vmath::Smul(npts, -2.0, &tmp[0], 1, &tmp[0], 1);
609 
610  // Calculate v* = v - 2.0(v.n)n
611  for (i = 0; i < m_spacedim; ++i)
612  {
613  Vmath::Vvtvp(npts, &tmp[0], 1, &m_traceNormals[i][id2], 1,
614  &Fwd[1 + i][id2], 1, &Fwd[1 + i][id2], 1);
615  }
616 
617  // copy boundary adjusted values into the boundary expansion
618  for (i = 0; i < nvariables; ++i)
619  {
620  bcexp = m_fields[i]->GetBndCondExpansions()[bcRegion];
621  Vmath::Vcopy(npts, &Fwd[i][id2], 1, &(bcexp->UpdatePhys())[id1], 1);
622  }
623  }
624 }
Vmath::Vvtvp
void Vvtvp(int n, const T *w, const int incw, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
vvtvp (vector times vector plus vector): z = w*x + y
Definition: Vmath.cpp:428
Nektar::SolverUtils::EquationSystem::m_traceNormals
Array< OneD, Array< OneD, NekDouble > > m_traceNormals
Array holding trace normals for DG simulations in the forwards direction.
Definition: EquationSystem.h:473
Vmath::Smul
void Smul(int n, const T alpha, const T *x, const int incx, T *y, const int incy)
Scalar multiply y = alpha*y.
Definition: Vmath.cpp:199
Nektar::MultiRegions::ExpListSharedPtr
boost::shared_ptr< ExpList > ExpListSharedPtr
Shared pointer to an ExpList object.
Definition: ExpList.h:1340
npts
static std::string npts
Definition: InputFld.cpp:43
Nektar::SolverUtils::EquationSystem::m_spacedim
int m_spacedim
Spatial dimension (>= expansion dim).
Definition: EquationSystem.h:449
Nektar::SolverUtils::EquationSystem::GetTraceTotPoints
SOLVER_UTILS_EXPORT int GetTraceTotPoints()
Definition: EquationSystem.h:803
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
Vmath::Vcopy
void Vcopy(int n, const T *x, const int incx, T *y, const int incy)
Definition: Vmath.cpp:1038
void Nektar::NonlinearPeregrine::WallBoundary2D ( int  bcRegion,
int  cnt,
Array< OneD, Array< OneD, NekDouble > > &  physarray 
)
private

Definition at line 626 of file NonlinearPeregrine.cpp.

References ASSERTL0, Nektar::SolverUtils::EquationSystem::GetTraceTotPoints(), Nektar::SolverUtils::EquationSystem::m_expdim, Nektar::SolverUtils::EquationSystem::m_fields, Nektar::SolverUtils::EquationSystem::m_traceNormals, Vmath::Neg(), npts, Vmath::Vcopy(), Vmath::Vmul(), Vmath::Vvtvm(), and Vmath::Vvtvp().

Referenced by SetBoundaryConditions().

630 {
631 
632  int i;
633  int nTraceNumPoints = GetTraceTotPoints();
634  int nvariables = 3;
635 
636  // get physical values of the forward trace
637  Array<OneD, Array<OneD, NekDouble> > Fwd(nvariables);
638  for (i = 0; i < nvariables; ++i)
639  {
640  Fwd[i] = Array<OneD, NekDouble>(nTraceNumPoints);
641  m_fields[i]->ExtractTracePhys(physarray[i], Fwd[i]);
642  }
643 
644  // Adjust the physical values of the trace to take
645  // user defined boundaries into account
646  int e, id1, id2, npts;
647  MultiRegions::ExpListSharedPtr bcexp =
648  m_fields[0]->GetBndCondExpansions()[bcRegion];
649 
650  for (e = 0; e < bcexp->GetExpSize();
651  ++e)
652  {
653  npts = bcexp->GetExp(e)->GetNumPoints(0);
654  id1 = bcexp->GetPhys_Offset(e);
655  id2 = m_fields[0]->GetTrace()->GetPhys_Offset(
656  m_fields[0]->GetTraceMap()->GetBndCondCoeffsToGlobalCoeffsMap(
657  cnt + e));
658 
659  switch (m_expdim)
660  {
661  case 1:
662  {
663  // negate the forward flux
664  Vmath::Neg(npts, &Fwd[1][id2], 1);
665  break;
666  }
667  case 2:
668  {
669  Array<OneD, NekDouble> tmp_n(npts);
670  Array<OneD, NekDouble> tmp_t(npts);
671 
672  Vmath::Vmul (npts, &Fwd[1][id2], 1, &m_traceNormals[0][id2], 1,
673  &tmp_n[0], 1);
674  Vmath::Vvtvp(npts, &Fwd[2][id2], 1, &m_traceNormals[1][id2], 1,
675  &tmp_n[0], 1, &tmp_n[0], 1);
676 
677  Vmath::Vmul (npts, &Fwd[1][id2], 1, &m_traceNormals[1][id2], 1,
678  &tmp_t[0], 1);
679  Vmath::Vvtvm(npts, &Fwd[2][id2], 1, &m_traceNormals[0][id2], 1,
680  &tmp_t[0], 1, &tmp_t[0], 1);
681 
682  // negate the normal flux
683  Vmath::Neg(npts, tmp_n, 1);
684 
685  // rotate back to Cartesian
686  Vmath::Vmul (npts, &tmp_t[0], 1, &m_traceNormals[1][id2], 1,
687  &Fwd[1][id2], 1);
688  Vmath::Vvtvm(npts, &tmp_n[0], 1, &m_traceNormals[0][id2], 1,
689  &Fwd[1][id2], 1, &Fwd[1][id2], 1);
690 
691  Vmath::Vmul(npts, &tmp_t[0], 1, &m_traceNormals[0][id2], 1,
692  &Fwd[2][id2], 1);
693  Vmath::Vvtvp(npts, &tmp_n[0], 1, &m_traceNormals[1][id2], 1,
694  &Fwd[2][id2], 1, &Fwd[2][id2], 1);
695  break;
696  }
697  case 3:
698  ASSERTL0(false,
699  "3D not implemented for Shallow Water Equations");
700  break;
701  default:
702  ASSERTL0(false, "Illegal expansion dimension");
703  }
704 
705  // copy boundary adjusted values into the boundary expansion
706  for (i = 0; i < nvariables; ++i)
707  {
708  bcexp = m_fields[i]->GetBndCondExpansions()[bcRegion];
709  Vmath::Vcopy(npts, &Fwd[i][id2], 1, &(bcexp->UpdatePhys())[id1], 1);
710  }
711  }
712 }
ASSERTL0
#define ASSERTL0(condition, msg)
Definition: ErrorUtil.hpp:161
Nektar::SolverUtils::EquationSystem::m_expdim
int m_expdim
Expansion dimension.
Definition: EquationSystem.h:451
Vmath::Vvtvp
void Vvtvp(int n, const T *w, const int incw, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
vvtvp (vector times vector plus vector): z = w*x + y
Definition: Vmath.cpp:428
Nektar::SolverUtils::EquationSystem::m_traceNormals
Array< OneD, Array< OneD, NekDouble > > m_traceNormals
Array holding trace normals for DG simulations in the forwards direction.
Definition: EquationSystem.h:473
Nektar::MultiRegions::ExpListSharedPtr
boost::shared_ptr< ExpList > ExpListSharedPtr
Shared pointer to an ExpList object.
Definition: ExpList.h:1340
npts
static std::string npts
Definition: InputFld.cpp:43
Vmath::Neg
void Neg(int n, T *x, const int incx)
Negate x = -x.
Definition: Vmath.cpp:382
Nektar::SolverUtils::EquationSystem::GetTraceTotPoints
SOLVER_UTILS_EXPORT int GetTraceTotPoints()
Definition: EquationSystem.h:803
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
Vmath::Vvtvm
void Vvtvm(int n, const T *w, const int incw, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
vvtvm (vector times vector plus vector): z = w*x - y
Definition: Vmath.cpp:451
Vmath::Vcopy
void Vcopy(int n, const T *x, const int incx, T *y, const int incy)
Definition: Vmath.cpp:1038
Vmath::Vmul
void Vmul(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Multiply vector z = x*y.
Definition: Vmath.cpp:169
void Nektar::NonlinearPeregrine::WallBoundaryContVariables ( int  bcRegion,
int  cnt,
Array< OneD, NekDouble > &  inarray 
)
private

Definition at line 1099 of file NonlinearPeregrine.cpp.

References Nektar::SolverUtils::EquationSystem::GetTraceTotPoints(), Nektar::SolverUtils::EquationSystem::m_fields, npts, and Vmath::Vcopy().

Referenced by SetBoundaryConditionsContVariables().

1103 {
1104  int nTraceNumPoints = GetTraceTotPoints();
1105 
1106  // get physical values of z for the forward trace
1107  Array<OneD, NekDouble> z(nTraceNumPoints);
1108  m_fields[0]->ExtractTracePhys(inarray, z);
1109 
1110  // Adjust the physical values of the trace to take
1111  // user defined boundaries into account
1112  int e, id1, id2, npts;
1113  MultiRegions::ExpListSharedPtr bcexp =
1114  m_fields[0]->GetBndCondExpansions()[bcRegion];
1115 
1116  for (e = 0; e < bcexp->GetExpSize(); ++e)
1117  {
1118  npts = bcexp->GetExp(e)->GetTotPoints();
1119  id1 = bcexp->GetPhys_Offset(e);
1120  id2 = m_fields[0]->GetTrace()->GetPhys_Offset(
1121  m_fields[0]->GetTraceMap()->GetBndCondCoeffsToGlobalCoeffsMap(
1122  cnt + e));
1123 
1124  // copy boundary adjusted values into the boundary expansion field[1] and field[2]
1125  bcexp = m_fields[1]->GetBndCondExpansions()[bcRegion];
1126  Vmath::Vcopy(npts, &z[id2], 1, &(bcexp->UpdatePhys())[id1], 1);
1127 
1128  }
1129 }
Nektar::MultiRegions::ExpListSharedPtr
boost::shared_ptr< ExpList > ExpListSharedPtr
Shared pointer to an ExpList object.
Definition: ExpList.h:1340
npts
static std::string npts
Definition: InputFld.cpp:43
Nektar::SolverUtils::EquationSystem::GetTraceTotPoints
SOLVER_UTILS_EXPORT int GetTraceTotPoints()
Definition: EquationSystem.h:803
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
Vmath::Vcopy
void Vcopy(int n, const T *x, const int incx, T *y, const int incy)
Definition: Vmath.cpp:1038
void Nektar::NonlinearPeregrine::WallBoundaryForcing ( int  bcRegion,
int  cnt,
Array< OneD, Array< OneD, NekDouble > > &  inarray 
)
private

Definition at line 989 of file NonlinearPeregrine.cpp.

References ASSERTL0, Nektar::SolverUtils::EquationSystem::GetTraceTotPoints(), Nektar::SolverUtils::EquationSystem::m_expdim, Nektar::SolverUtils::EquationSystem::m_fields, Nektar::SolverUtils::EquationSystem::m_traceNormals, Vmath::Neg(), npts, Vmath::Vcopy(), Vmath::Vmul(), Vmath::Vvtvm(), and Vmath::Vvtvp().

Referenced by SetBoundaryConditionsForcing().

993 {
994 
995  //std::cout << " WallBoundaryForcing" << std::endl;
996 
997  int nTraceNumPoints = GetTraceTotPoints();
998  int nvariables = 2;
999 
1000  // get physical values of f1 and f2 for the forward trace
1001  Array<OneD, Array<OneD, NekDouble> > Fwd(nvariables);
1002  for (int i = 0; i < nvariables; ++i)
1003  {
1004  Fwd[i] = Array<OneD, NekDouble>(nTraceNumPoints);
1005  m_fields[i]->ExtractTracePhys(inarray[i], Fwd[i]);
1006  }
1007 
1008  // Adjust the physical values of the trace to take
1009  // user defined boundaries into account
1010  int e, id1, id2, npts;
1011  MultiRegions::ExpListSharedPtr bcexp =
1012  m_fields[0]->GetBndCondExpansions()[bcRegion];
1013  for (e = 0; e < bcexp->GetExpSize(); ++e)
1014  {
1015  npts = bcexp->GetExp(e)->GetTotPoints();
1016  id1 = bcexp->GetPhys_Offset(e);
1017  id2 = m_fields[0]->GetTrace()->GetPhys_Offset(
1018  m_fields[0]->GetTraceMap()->GetBndCondCoeffsToGlobalCoeffsMap(
1019  cnt + e));
1020 
1021  switch (m_expdim)
1022  {
1023  case 1:
1024  {
1025  ASSERTL0(false, "1D not yet implemented for Boussinesq");
1026  break;
1027  }
1028  case 2:
1029  {
1030  Array<OneD, NekDouble> tmp_n(npts);
1031  Array<OneD, NekDouble> tmp_t(npts);
1032 
1033  Vmath::Vmul (npts, &Fwd[0][id2], 1, &m_traceNormals[0][id2], 1,
1034  &tmp_n[0], 1);
1035  Vmath::Vvtvp(npts, &Fwd[1][id2], 1, &m_traceNormals[1][id2], 1,
1036  &tmp_n[0], 1, &tmp_n[0], 1);
1037 
1038  Vmath::Vmul (npts, &Fwd[0][id2], 1, &m_traceNormals[1][id2], 1,
1039  &tmp_t[0], 1);
1040  Vmath::Vvtvm(npts, &Fwd[1][id2], 1, &m_traceNormals[0][id2], 1,
1041  &tmp_t[0], 1, &tmp_t[0], 1);
1042 
1043  // negate the normal flux
1044  Vmath::Neg(npts, tmp_n, 1);
1045 
1046  // rotate back to Cartesian
1047  Vmath::Vmul (npts, &tmp_t[0], 1, &m_traceNormals[1][id2], 1,
1048  &Fwd[0][id2], 1);
1049  Vmath::Vvtvm(npts, &tmp_n[0], 1, &m_traceNormals[0][id2], 1,
1050  &Fwd[0][id2], 1, &Fwd[0][id2], 1);
1051 
1052  Vmath::Vmul (npts, &tmp_t[0], 1, &m_traceNormals[0][id2], 1,
1053  &Fwd[1][id2], 1);
1054  Vmath::Vvtvp(npts, &tmp_n[0], 1, &m_traceNormals[1][id2], 1,
1055  &Fwd[1][id2], 1, &Fwd[1][id2], 1);
1056  break;
1057  }
1058  case 3:
1059  ASSERTL0(false, "3D not implemented for Boussinesq equations");
1060  break;
1061  default:
1062  ASSERTL0(false, "Illegal expansion dimension");
1063  }
1064 
1065  // copy boundary adjusted values into the boundary expansion
1066  bcexp = m_fields[1]->GetBndCondExpansions()[bcRegion];
1067  Vmath::Vcopy(npts, &Fwd[0][id2], 1, &(bcexp->UpdatePhys())[id1], 1);
1068 
1069  bcexp = m_fields[2]->GetBndCondExpansions()[bcRegion];
1070  Vmath::Vcopy(npts, &Fwd[1][id2], 1, &(bcexp->UpdatePhys())[id1], 1);
1071  }
1072 }
ASSERTL0
#define ASSERTL0(condition, msg)
Definition: ErrorUtil.hpp:161
Nektar::SolverUtils::EquationSystem::m_expdim
int m_expdim
Expansion dimension.
Definition: EquationSystem.h:451
Vmath::Vvtvp
void Vvtvp(int n, const T *w, const int incw, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
vvtvp (vector times vector plus vector): z = w*x + y
Definition: Vmath.cpp:428
Nektar::SolverUtils::EquationSystem::m_traceNormals
Array< OneD, Array< OneD, NekDouble > > m_traceNormals
Array holding trace normals for DG simulations in the forwards direction.
Definition: EquationSystem.h:473
Nektar::MultiRegions::ExpListSharedPtr
boost::shared_ptr< ExpList > ExpListSharedPtr
Shared pointer to an ExpList object.
Definition: ExpList.h:1340
npts
static std::string npts
Definition: InputFld.cpp:43
Vmath::Neg
void Neg(int n, T *x, const int incx)
Negate x = -x.
Definition: Vmath.cpp:382
Nektar::SolverUtils::EquationSystem::GetTraceTotPoints
SOLVER_UTILS_EXPORT int GetTraceTotPoints()
Definition: EquationSystem.h:803
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
Vmath::Vvtvm
void Vvtvm(int n, const T *w, const int incw, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
vvtvm (vector times vector plus vector): z = w*x - y
Definition: Vmath.cpp:451
Vmath::Vcopy
void Vcopy(int n, const T *x, const int incx, T *y, const int incy)
Definition: Vmath.cpp:1038
Vmath::Vmul
void Vmul(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Multiply vector z = x*y.
Definition: Vmath.cpp:169
void Nektar::NonlinearPeregrine::WCESolve ( Array< OneD, NekDouble > &  fce,
NekDouble  lambda 
)
private

Definition at line 898 of file NonlinearPeregrine.cpp.

References Nektar::StdRegions::eFactorLambda, Nektar::SolverUtils::EquationSystem::GetTotPoints(), m_factors, Nektar::SolverUtils::EquationSystem::m_fields, Nektar::NullFlagList, and Vmath::Vcopy().

Referenced by DoOdeRhs().

901 {
902  int nq = GetTotPoints();
903 
904  m_factors[StdRegions::eFactorLambda] = lambda;
905 
906  for (int j = 0; j < nq; j++)
907  {
908  (m_fields[3]->UpdatePhys())[j] = fce[j];
909  }
910 
911  m_fields[3]->SetPhysState(true);
912 
913  m_fields[3]->HelmSolve(m_fields[3]->GetPhys(),
914  m_fields[3]->UpdateCoeffs(),
915  NullFlagList,
916  m_factors);
917 
918  m_fields[3]->BwdTrans(m_fields[3]->GetCoeffs(), m_fields[3]->UpdatePhys());
919 
920  m_fields[3]->SetPhysState(true);
921 
922  Vmath::Vcopy(nq, m_fields[3]->GetPhys(), 1, fce, 1);
923 }
Nektar::SolverUtils::EquationSystem::GetTotPoints
SOLVER_UTILS_EXPORT int GetTotPoints()
Definition: EquationSystem.h:828
Nektar::NonlinearPeregrine::m_factors
StdRegions::ConstFactorMap m_factors
Definition: NonlinearPeregrine.h:82
Nektar::SolverUtils::EquationSystem::m_fields
Array< OneD, MultiRegions::ExpListSharedPtr > m_fields
Array holding all dependent variables.
Definition: EquationSystem.h:423
Vmath::Vcopy
void Vcopy(int n, const T *x, const int incx, T *y, const int incy)
Definition: Vmath.cpp:1038
Nektar::NullFlagList
static FlagList NullFlagList
An empty flag list.
Definition: NektarUnivTypeDefs.hpp:108

Friends And Related Function Documentation

friend class MemoryManager< NonlinearPeregrine >
friend

Definition at line 62 of file NonlinearPeregrine.h.

Member Data Documentation

string Nektar::NonlinearPeregrine::className
static
Initial value:
=
SolverUtils::GetEquationSystemFactory().RegisterCreatorFunction(
"NonlinearPeregrine", NonlinearPeregrine::create,
"Nonlinear Peregrine equations in conservative variables.")

Name of class.

Definition at line 74 of file NonlinearPeregrine.h.

NekDouble Nektar::NonlinearPeregrine::m_const_depth
private

Definition at line 127 of file NonlinearPeregrine.h.

Referenced by DoOdeRhs(), v_InitObject(), and v_SetInitialConditions().

Array<OneD, NekDouble> Nektar::NonlinearPeregrine::m_dBwd
protected

Definition at line 90 of file NonlinearPeregrine.h.

Referenced by GetDepthBwd().

Array<OneD, NekDouble> Nektar::NonlinearPeregrine::m_dFwd
protected

Still water depth traces.

Definition at line 89 of file NonlinearPeregrine.h.

Referenced by GetDepthFwd().

StdRegions::ConstFactorMap Nektar::NonlinearPeregrine::m_factors
protected

Definition at line 82 of file NonlinearPeregrine.h.

Referenced by NonlinearPeregrine(), and WCESolve().

ProblemType Nektar::NonlinearPeregrine::m_problemType

Definition at line 79 of file NonlinearPeregrine.h.

Referenced by v_InitObject(), and v_SetInitialConditions().

Generated on Tue Dec 8 2015 23:45:34 for Nektar++ by   doxygen 1.8.9.1