dg.h

Go to the documentation of this file.

/*
 *
 *                 #####    #####   ######  ######  ###   ###
 *               ##   ##  ##   ##  ##      ##      ## ### ##
 *              ##   ##  ##   ##  ####    ####    ##  #  ##
 *             ##   ##  ##   ##  ##      ##      ##     ##
 *            ##   ##  ##   ##  ##      ##      ##     ##
 *            #####    #####   ##      ######  ##     ##
 *
 *
 *             OOFEM : Object Oriented Finite Element Code
 *
 *               Copyright (C) 1993 - 2025   Borek Patzak
 *
 *
 *
 *       Czech Technical University, Faculty of Civil Engineering,
 *   Department of Structural Mechanics, 166 29 Prague, Czech Republic
 *
 *  This library is free software; you can redistribute it and/or
 *  modify it under the terms of the GNU Lesser General Public
 *  License as published by the Free Software Foundation; either
 *  version 2.1 of the License, or (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 *  Lesser General Public License for more details.
 *
 *  You should have received a copy of the GNU Lesser General Public
 *  License along with this library; if not, write to the Free Software
 *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 */
 
#ifndef dg_h
#define dg_h
 
#include "engngm.h"
#include "sparselinsystemnm.h"
#include "sparsenonlinsystemnm.h"
#include "sparsemtrx.h"
#include "primaryfield.h"
#include "function.h"
#include "dofdistributedprimaryfield.h"
#include "mpm.h"


#define _IFT_DGProblem_Name "dgproblem"
#define _IFT_DGProblem_initt "initt"
#define _IFT_DGProblem_deltat "deltat"
#define _IFT_DGProblem_deltatfunction "deltatfunction"
#define _IFT_DGProblem_prescribedtimes "prescribedtimes"
#define _IFT_DGProblem_alpha "alpha"
#define _IFT_DGProblem_keepTangent "keeptangent" 
#define _IFT_DGProblem_exportFields "exportfields" 
#define _IFT_DGProblem_problemType "ptype" 
#define _IFT_DGProblem_preprocessFEM2DG "fem2dg" 
#define _IFT_DGProblem_sets2preprocess "boundarysets" 
#define _IFT_DGProblem_targetBoundaryNodeSets "targetboundarynodesets" 
#define _IFT_DGProblem_targetAllNodeSet "targetallnodeset" 
#define _IFT_DGProblem_targetAllElementSet "targetallelementset" 

 
namespace oofem {

class ScalarAdvectionLhsAssembler : public MatrixAssembler
{
protected:
    double alpha;
    double deltaT;
    Variable::VariableQuantity q;
 
public:
    ScalarAdvectionLhsAssembler(double alpha, double deltaT, Variable::VariableQuantity q) ;
    void matrixFromElement(FloatMatrix &mat, Element &element, TimeStep *tStep) const override;
};

class ScalarAdvectionRhsAssembler : public VectorAssembler
{
protected:
    double alpha;
    double deltaT;
    Variable::VariableQuantity q;
 
public:
    ScalarAdvectionRhsAssembler(double alpha, double deltaT, Variable::VariableQuantity q) ;
    void vectorFromElement(FloatArray &mat, Element &element, TimeStep *tStep, ValueModeType mode) const override;
};
 
 
class ClonedDofManager : public DofManager
{
protected:
    int master; // master DofManager
 
public:
    ClonedDofManager(int i, Domain * d, int master) : DofManager(i, d), master(master) { }
    int giveMasterNumber() { return master; }
    void printOutputAt(FILE *file, TimeStep *tStep) override;
    const char *giveClassName() const override { return "ClonedDofManager"; }
    const char *giveInputRecordName() const override { return NULL; }
    bool isDofTypeCompatible(dofType type) const override { return ( type == DT_master || type == DT_simpleSlave || type == DT_active ); }
 
 
 
};
 

class DGProblem : public EngngModel
{
protected:
 
    Variable::VariableQuantity unknownQuantity = Variable::VariableQuantity::VolumeFraction;
    
    LinSystSolverType solverType = ST_Direct;
    SparseMtrxType sparseMtrxType = SMT_Skyline;
    std :: unique_ptr< DofDistributedPrimaryField > field;
 
    std :: unique_ptr< SparseMtrx > lhsMatrix;
    std :: unique_ptr< SparseMtrx > rhsMatrix;
 
    FloatArray solution;
    FloatArray internalForces;
    FloatArray eNorm;

    std :: unique_ptr< SparseLinearSystemNM > nMethod;

    double initT = 0.;
    double deltaT = 0.;
    double alpha = 0.;
    int dtFunction = 0;
    FloatArray prescribedTimes;
    bool keepTangent = false, hasTangent = false;
    IntArray exportFields;
    std::string problemType; 
    bool preprocessFEM2DG = false;
    IntArray sets2preprocess;
    IntArray targetBoundaryNodeSets;
    int targetAllNodeSet = 0, targetAllElementSet = 0;
 
 
    // class representing boundary entity (edge, surface, etc.)
    class DGBoundaryEntity
    {
    public:
        IntArray elements; // list of elements sharing entity (size should be 1 or 2)
        IntArray elementBoundaryIDs; // list of boundary IDs of elements sharing entity
        DGBoundaryEntity() : elements(), elementBoundaryIDs() { }
        virtual ~DGBoundaryEntity() { }
        void addElement(int elem, int boundaryID) { elements.followedBy(elem); elementBoundaryIDs.followedBy(boundaryID); }
    };
 
    // list of boundary entities
    std :: vector< std::unique_ptr<DGBoundaryEntity>> boundaryEntities;
 
 
 
public:
    DGProblem(int i, EngngModel * _master);
 
    void constructBoundaryEntities ();
 
    void solveYourselfAt(TimeStep *tStep) override;
    void updateComponent(TimeStep *tStep, NumericalCmpn cmpn, Domain *d) override;
    bool newDofHandling() override { return true; }
    void updateSolution(FloatArray &solutionVector, TimeStep *tStep, Domain *d) override;
    void updateInternalRHS(FloatArray &answer, TimeStep *tStep, Domain *d, FloatArray *eNorm) override;
    void updateMatrix(SparseMtrx &mat, TimeStep *tStep, Domain *d) override;
    double giveUnknownComponent(ValueModeType mode, TimeStep *tStep, Domain *d, Dof *dof) override;
    void saveContext(DataStream &stream, ContextMode mode) override;
    void restoreContext(DataStream &stream, ContextMode mode) override;
    void postInitialize() override;
 
    virtual void applyIC();
 
    int requiresUnknownsDictionaryUpdate() override;
    int giveUnknownDictHashIndx(ValueModeType mode, TimeStep *tStep) override;
    void updateDomainLinks() override;
 
    Function *giveDtFunction();
    double giveDeltaT(int n);
    double giveDiscreteTime(int iStep);
 
    TimeStep *giveNextStep() override;
    TimeStep *giveSolutionStepWhenIcApply(bool force = false) override;
    NumericalMethod *giveNumericalMethod(MetaStep *mStep) override;
 
    void initializeFrom(InputRecord &ir) override;
 
    bool requiresEquationRenumbering(TimeStep *tStep) override;
    int forceEquationNumbering() override;
 
    void printOutputAt(FILE *file, TimeStep *tStep) override;
    
    void updateYourself(TimeStep *tStep) override;
    
    int checkConsistency() override;
    FieldPtr giveField (FieldType key, TimeStep *tStep) override;
    // identification
    const char *giveInputRecordName() const { return _IFT_DGProblem_Name; }
    const char *giveClassName() const override { return "DGProblem"; }
    fMode giveFormulation() override { return TL; }
 
  
  double giveFinalTime() override
  {
    if(prescribedTimes.giveSize()) {
      return prescribedTimes.at(prescribedTimes.giveSize());
    } else {
      return deltaT * numberOfSteps;
    }
  }
    protected:
    std::unique_ptr< Element> CreateBoundaryElement( Element_Geometry_Type egt, int elemNum, Domain *domain, IntArray &bentityNodes) const;
    void assembleDirichletBcRhsVector(FloatArray &answer, TimeStep *tStep, ValueModeType mode,
                                        const UnknownNumberingScheme &ns, Domain *d) const;
};
 
} // end namespace oofem
#endif // dg_h