two_step_v_p_settings.h

Go to the documentation of this file.

//
//   Project Name:        KratosPFEMFluidDynamicsApplication $
//   Last modified by:    $Author:                   AFranci $
//   Date:                $Date:                January 2016 $
//   Revision:            $Revision:                     0.0 $
//
//
 
#ifndef KRATOS_TWO_STEP_V_P_SETTINGS_H
#define KRATOS_TWO_STEP_V_P_SETTINGS_H
 
// System includes
#include <string>
#include <iostream>
 
// External includes
 
// Project includes
#include "includes/define.h"
#include "solving_strategies/builder_and_solvers/builder_and_solver.h"
#include "solving_strategies/builder_and_solvers/residualbased_block_builder_and_solver.h"
#include "solving_strategies/convergencecriterias/convergence_criteria.h"
#include "solving_strategies/convergencecriterias/residual_criteria.h"
#include "solving_strategies/schemes/scheme.h"
#include "solving_strategies/schemes/residualbased_incrementalupdate_static_scheme.h"
#include "solving_strategies/schemes/residualbased_incrementalupdate_static_scheme_slip.h"
#include "solving_strategies/strategies/implicit_solving_strategy.h"
#include "solving_strategies/strategies/residualbased_linear_strategy.h"
#include "processes/process.h"
 
// Application includes
#include "custom_utilities/solver_settings.h"
 
namespace Kratos
{
 
 
 
 
 
 
    template <class TSparseSpace,
              class TDenseSpace,
              class TLinearSolver>
    class TwoStepVPSettings : public TwoStepVPSolverSettings<TSparseSpace, TDenseSpace, TLinearSolver>
    {
    public:
 
        KRATOS_CLASS_POINTER_DEFINITION(TwoStepVPSettings);
 
        typedef TwoStepVPSolverSettings<TSparseSpace, TDenseSpace, TLinearSolver> BaseType;
        typedef typename BaseType::StrategyType StrategyType;
        typedef typename BaseType::StrategyPointerType StrategyPointerType;
        typedef typename BaseType::ProcessPointerType ProcessPointerType;
 
        typedef typename BaseType::StrategyLabel StrategyLabel;
 
 
        TwoStepVPSettings(ModelPart &rModelPart,
                          const unsigned int ThisDomainSize,
                          const unsigned int ThisTimeOrder,
                          const bool ReformDofSet) : BaseType(rModelPart, ThisDomainSize, ThisTimeOrder, ReformDofSet)
        {
        }
 
        virtual ~TwoStepVPSettings() {}
 
 
 
 
        virtual void SetStrategy(StrategyLabel const &rStrategyLabel,
                                 typename TLinearSolver::Pointer pLinearSolver,
                                 const double Tolerance,
                                 const unsigned int MaxIter)
        {
            KRATOS_TRY;
 
            // pointer types for solution strategy construcion
            typedef typename Scheme<TSparseSpace, TDenseSpace>::Pointer SchemePointerType;
            //typedef typename ConvergenceCriteria< TSparseSpace, TDenseSpace >::Pointer ConvergenceCriteriaPointerType;
            typedef typename BuilderAndSolver<TSparseSpace, TDenseSpace, TLinearSolver>::Pointer BuilderSolverTypePointer;
 
            // Default, fixed flags
            bool CalculateReactions = false;
            bool CalculateNormDxFlag = true;
 
            ModelPart &rModelPart = BaseType::GetModelPart();
            // Modification of the DofSet is managed by the fractional step strategy, not the auxiliary velocity and pressure strategies.
            bool ReformDofSet = false; //BaseType::GetReformDofSet();
            unsigned int EchoLevel = BaseType::GetEchoLevel();
            unsigned int StrategyEchoLevel = (EchoLevel > 0) ? (EchoLevel - 1) : 0;
 
            if (rStrategyLabel == BaseType::Velocity)
            {
                // Velocity Builder and Solver
                BuilderSolverTypePointer pBuildAndSolver = BuilderSolverTypePointer(new ResidualBasedBlockBuilderAndSolver<TSparseSpace, TDenseSpace, TLinearSolver>(pLinearSolver));
 
                SchemePointerType pScheme;
                //initializing fractional velocity solution step
 
                SchemePointerType Temp = SchemePointerType(new ResidualBasedIncrementalUpdateStaticScheme<TSparseSpace, TDenseSpace>());
                pScheme.swap(Temp);
 
                // Strategy
                BaseType::mStrategies[rStrategyLabel] = StrategyPointerType(new ResidualBasedLinearStrategy<TSparseSpace, TDenseSpace, TLinearSolver>(rModelPart, pScheme, pLinearSolver, pBuildAndSolver, CalculateReactions, ReformDofSet, CalculateNormDxFlag));
            }
            else if (rStrategyLabel == BaseType::Pressure)
            {
                // Pressure Builder and Solver
                //            BuilderSolverTypePointer pBuildAndSolver = BuilderSolverTypePointer(new ResidualBasedEliminationBuilderAndSolverComponentwise<TSparseSpace, TDenseSpace, TLinearSolver, Variable<double> >(pLinearSolver, PRESSURE));
                BuilderSolverTypePointer pBuildAndSolver = BuilderSolverTypePointer(new ResidualBasedBlockBuilderAndSolver<TSparseSpace, TDenseSpace, TLinearSolver>(pLinearSolver));
                SchemePointerType pScheme = SchemePointerType(new ResidualBasedIncrementalUpdateStaticScheme<TSparseSpace, TDenseSpace>());
 
                // Strategy
                BaseType::mStrategies[rStrategyLabel] = StrategyPointerType(new ResidualBasedLinearStrategy<TSparseSpace, TDenseSpace, TLinearSolver>(rModelPart, pScheme, pLinearSolver, pBuildAndSolver, CalculateReactions, ReformDofSet, CalculateNormDxFlag));
            }
 
            else
            {
                KRATOS_THROW_ERROR(std::runtime_error, "Error in TwoStepVPSettings: Unknown strategy label.", "");
            }
 
            BaseType::mTolerances[rStrategyLabel] = Tolerance;
 
            BaseType::mMaxIter[rStrategyLabel] = MaxIter;
 
            BaseType::mStrategies[rStrategyLabel]->SetEchoLevel(StrategyEchoLevel);
 
            KRATOS_CATCH("");
        }
 
 
 
        virtual std::string Info() const
        {
            std::stringstream buffer;
            buffer << "TwoStepVPSettings";
            return buffer.str();
        }
 
        virtual void PrintInfo(std::ostream &rOStream) const { rOStream << "TwoStepVPSettings"; }
 
        virtual void PrintData(std::ostream &rOStream) const {}
 
 
 
    protected:
 
 
 
 
 
 
 
 
    private:
 
 
 
 
 
 
 
        TwoStepVPSettings() {}
 
        TwoStepVPSettings &operator=(TwoStepVPSettings const &rOther) {}
 
        TwoStepVPSettings(TwoStepVPSettings const &rOther) {}
 
 
    }; // Class TwoStepVPSettings
 
 
 
 
    template <class TDenseSpace, class TSparseSpace, class TLinearSolver>
    inline std::istream &operator>>(std::istream &rIStream,
                                    TwoStepVPSettings<TSparseSpace, TDenseSpace, TLinearSolver> &rThis)
    {
        return rIStream;
    }
 
    template <class TDenseSpace, class TSparseSpace, class TLinearSolver>
    inline std::ostream &operator<<(std::ostream &rOStream,
                                    const TwoStepVPSettings<TSparseSpace, TDenseSpace, TLinearSolver> &rThis)
    {
        rThis.PrintInfo(rOStream);
        rOStream << std::endl;
        rThis.PrintData(rOStream);
 
        return rOStream;
    }
 
 
} // namespace Kratos.
 
#endif // KRATOS_V_P_SETTINGS_H