mirror of
https://github.com/OPM/opm-simulators.git
synced 2025-02-25 18:55:30 -06:00
55bb38118c
this allows to retrieve the name of the problem before it is instantiated. this is required to be able to print the "Initializing problem" message at the correct point (i.e., before instantiating the problem).
314 lines
9.8 KiB
C++
314 lines
9.8 KiB
C++
/*
|
|
Copyright (C) 2011-2013 by Andreas Lauser
|
|
|
|
This file is part of the Open Porous Media project (OPM).
|
|
|
|
OPM is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
OPM 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 General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with OPM. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
/*!
|
|
* \file
|
|
* \copydoc Ewoms::StokesNiTestProblem
|
|
*/
|
|
#ifndef EWOMS_STOKES_NI_TEST_PROBLEM_HH
|
|
#define EWOMS_STOKES_NI_TEST_PROBLEM_HH
|
|
|
|
#include <ewoms/models/stokes/stokesmodel.hh>
|
|
#include <ewoms/io/simplexgridcreator.hh>
|
|
#include <opm/material/fluidsystems/H2OAirFluidSystem.hpp>
|
|
|
|
#include <dune/grid/yaspgrid.hh>
|
|
|
|
#include <dune/common/version.hh>
|
|
#include <dune/common/fvector.hh>
|
|
|
|
namespace Ewoms {
|
|
template <class TypeTag>
|
|
class StokesNiTestProblem;
|
|
}
|
|
|
|
namespace Opm {
|
|
namespace Properties {
|
|
NEW_TYPE_TAG(StokesNiTestProblem, INHERITS_FROM(StokesModel));
|
|
|
|
// Set the grid type
|
|
SET_TYPE_PROP(StokesNiTestProblem, Grid, Dune::YaspGrid<2>);
|
|
|
|
// Set the problem property
|
|
SET_TYPE_PROP(StokesNiTestProblem, Problem, Ewoms::StokesNiTestProblem<TypeTag>);
|
|
|
|
//! Select the fluid system
|
|
SET_TYPE_PROP(StokesNiTestProblem, FluidSystem,
|
|
Opm::FluidSystems::H2OAir<typename GET_PROP_TYPE(TypeTag, Scalar)>);
|
|
|
|
//! Select the phase to be considered
|
|
SET_INT_PROP(StokesNiTestProblem, StokesPhaseIndex,
|
|
GET_PROP_TYPE(TypeTag, FluidSystem)::gPhaseIdx);
|
|
|
|
// Enable gravity
|
|
SET_BOOL_PROP(StokesNiTestProblem, EnableGravity, true);
|
|
|
|
// Enable the energy equation
|
|
SET_BOOL_PROP(StokesNiTestProblem, EnableEnergy, true);
|
|
|
|
// Enable constraints
|
|
SET_BOOL_PROP(StokesNiTestProblem, EnableConstraints, true);
|
|
|
|
// Default simulation end time [s]
|
|
SET_SCALAR_PROP(StokesNiTestProblem, EndTime, 3.0);
|
|
|
|
// Default initial time step size [s]
|
|
SET_SCALAR_PROP(StokesNiTestProblem, InitialTimeStepSize, 0.1);
|
|
|
|
// Default tolerance of the Newton-Raphson method
|
|
SET_SCALAR_PROP(StokesNiTestProblem, NewtonTolerance, 1e-4);
|
|
|
|
// Default grid file to load
|
|
SET_STRING_PROP(StokesNiTestProblem, GridFile, "grids/test_stokes2cni.dgf");
|
|
} // namespace Properties
|
|
} // namespace Opm
|
|
|
|
namespace Ewoms {
|
|
/*!
|
|
* \ingroup StokesNiModel
|
|
* \ingroup VcfvTestProblems
|
|
* \brief Non-isothermal test problem for the Stokes model with a gas
|
|
* (N2) flowing from the left to the right.
|
|
*
|
|
* The domain of this problem is 1m times 1m. The upper and the lower
|
|
* boundaries are fixed to the initial condition by means of
|
|
* constraints, the left and the right boundaries are no-slip
|
|
* conditions.
|
|
*/
|
|
template <class TypeTag>
|
|
class StokesNiTestProblem : public GET_PROP_TYPE(TypeTag, BaseProblem)
|
|
{
|
|
typedef typename GET_PROP_TYPE(TypeTag, BaseProblem) ParentType;
|
|
typedef typename GET_PROP_TYPE(TypeTag, GridView) GridView;
|
|
typedef typename GET_PROP_TYPE(TypeTag, TimeManager) TimeManager;
|
|
typedef typename GET_PROP_TYPE(TypeTag, Indices) Indices;
|
|
typedef typename GET_PROP_TYPE(TypeTag, FluidSystem) FluidSystem;
|
|
typedef typename GET_PROP_TYPE(TypeTag, Constraints) Constraints;
|
|
typedef typename GET_PROP_TYPE(TypeTag, RateVector) RateVector;
|
|
typedef typename GET_PROP_TYPE(TypeTag, BoundaryRateVector) BoundaryRateVector;
|
|
typedef typename GET_PROP_TYPE(TypeTag, PrimaryVariables) PrimaryVariables;
|
|
typedef typename GET_PROP_TYPE(TypeTag, Scalar) Scalar;
|
|
typedef typename GET_PROP_TYPE(TypeTag, Model) Model;
|
|
|
|
enum { // Number of equations and grid dimension
|
|
numEq = GET_PROP_VALUE(TypeTag, NumEq),
|
|
dimWorld = GridView::dimensionworld };
|
|
enum {
|
|
// primary variable indices
|
|
pressureIdx = Indices::pressureIdx,
|
|
moleFrac1Idx = Indices::moleFrac1Idx,
|
|
velocity0Idx = Indices::velocity0Idx,
|
|
temperatureIdx = Indices::temperatureIdx,
|
|
|
|
// equation indices
|
|
conti0EqIdx = Indices::conti0EqIdx,
|
|
momentum0EqIdx = Indices::momentum0EqIdx,
|
|
energyEqIdx = Indices::energyEqIdx
|
|
};
|
|
enum { numComponents = FluidSystem::numComponents };
|
|
enum { H2OIdx = FluidSystem::H2OIdx };
|
|
enum { AirIdx = FluidSystem::AirIdx };
|
|
|
|
typedef typename GridView::ctype CoordScalar;
|
|
typedef Dune::FieldVector<CoordScalar, dimWorld> GlobalPosition;
|
|
typedef Dune::FieldVector<Scalar, dimWorld> DimVector;
|
|
|
|
public:
|
|
/*!
|
|
* \copydoc Doxygen::defaultProblemConstructor
|
|
*/
|
|
StokesNiTestProblem(TimeManager &timeManager)
|
|
#if DUNE_VERSION_NEWER(DUNE_COMMON, 2, 3)
|
|
: ParentType(timeManager,
|
|
GET_PROP_TYPE(TypeTag, GridCreator)::grid().leafGridView())
|
|
#else
|
|
: ParentType(timeManager,
|
|
GET_PROP_TYPE(TypeTag, GridCreator)::grid().leafView())
|
|
#endif
|
|
{
|
|
eps_ = 1e-6;
|
|
|
|
// initialize the tables of the fluid system
|
|
FluidSystem::init(/*Tmin=*/280.0, /*Tmax=*/285, /*nT=*/10,
|
|
/*pmin=*/1e5, /*pmax=*/1e5 + 100, /*np=*/200);
|
|
}
|
|
|
|
/*!
|
|
* \name Problem parameters
|
|
*/
|
|
//! \{
|
|
|
|
/*!
|
|
* \copydoc VcfvProblem::name
|
|
*/
|
|
static std::string name()
|
|
{ return "stokestest_ni"; }
|
|
|
|
//! \}
|
|
|
|
/*!
|
|
* \name Boundary conditions
|
|
*/
|
|
//! \{
|
|
|
|
/*!
|
|
* \copydoc VcfvProblem::boundary
|
|
*/
|
|
template <class Context>
|
|
void boundary(BoundaryRateVector &values, const Context &context,
|
|
int spaceIdx, int timeIdx) const
|
|
{
|
|
const GlobalPosition &pos = context.pos(spaceIdx, timeIdx);
|
|
|
|
if (onUpperBoundary_(pos))
|
|
values.setOutFlow(context, spaceIdx, timeIdx);
|
|
else if (onLowerBoundary_(pos)) {
|
|
// lower boundary is constraint!
|
|
values = 0.0;
|
|
}
|
|
else {
|
|
// left and right
|
|
values.setNoFlow(context, spaceIdx, timeIdx);
|
|
}
|
|
}
|
|
|
|
//! \}
|
|
|
|
/*!
|
|
* \name Volume terms
|
|
*/
|
|
// \{
|
|
|
|
/*!
|
|
* \copydoc VcfvProblem::initial
|
|
*/
|
|
template <class Context>
|
|
void initial(PrimaryVariables &values, const Context &context, int spaceIdx,
|
|
int timeIdx) const
|
|
{
|
|
const GlobalPosition &pos = context.pos(spaceIdx, timeIdx);
|
|
|
|
Scalar moleFrac[numComponents];
|
|
|
|
moleFrac[H2OIdx] = 1e-4;
|
|
Scalar temperature = 283.15;
|
|
if (inLens_(pos)) {
|
|
moleFrac[H2OIdx] = 0.9e-4;
|
|
temperature = 284.15;
|
|
};
|
|
moleFrac[AirIdx] = 1 - moleFrac[H2OIdx];
|
|
|
|
// parabolic velocity profile
|
|
Scalar y = this->boundingBoxMax()[1] - pos[1];
|
|
Scalar x = pos[0] - this->boundingBoxMin()[0];
|
|
Scalar width = this->boundingBoxMax()[0] - this->boundingBoxMin()[0];
|
|
|
|
// parabolic velocity profile
|
|
const Scalar maxVelocity = 1.0;
|
|
|
|
Scalar a = -4 * maxVelocity / (width * width);
|
|
Scalar b = -a * width;
|
|
Scalar c = 0;
|
|
|
|
DimVector velocity(0.0);
|
|
velocity[1] = a * x * x + b * x + c;
|
|
|
|
// hydrostatic pressure
|
|
Scalar rho = 1.189;
|
|
Scalar pressure = 1e5 - rho * this->gravity()[1] * y;
|
|
|
|
for (int axisIdx = 0; axisIdx < dimWorld; ++axisIdx)
|
|
values[velocity0Idx + axisIdx] = velocity[axisIdx];
|
|
|
|
values[pressureIdx] = pressure;
|
|
values[moleFrac1Idx] = moleFrac[1];
|
|
values[temperatureIdx] = temperature;
|
|
}
|
|
|
|
/*!
|
|
* \copydoc VcfvProblem::source
|
|
*
|
|
* For this problem, the source term of all conserved quantities
|
|
* is 0 everywhere.
|
|
*/
|
|
template <class Context>
|
|
void source(RateVector &rate, const Context &context, int spaceIdx,
|
|
int timeIdx) const
|
|
{ rate = Scalar(0.0); }
|
|
|
|
/*!
|
|
* \copydoc VcfvProblem::constraints
|
|
*
|
|
* This problem sets temperature constraints for the finite volumes
|
|
* adjacent to the inlet.
|
|
*/
|
|
template <class Context>
|
|
void constraints(Constraints &constraints, const Context &context,
|
|
int spaceIdx, int timeIdx) const
|
|
{
|
|
const auto &pos = context.pos(spaceIdx, timeIdx);
|
|
|
|
if (onLowerBoundary_(pos) || onUpperBoundary_(pos)) {
|
|
PrimaryVariables initCond;
|
|
initial(initCond, context, spaceIdx, timeIdx);
|
|
|
|
constraints.setConstraint(temperatureIdx, energyEqIdx,
|
|
initCond[temperatureIdx]);
|
|
;
|
|
constraints.setConstraint(pressureIdx, conti0EqIdx,
|
|
initCond[pressureIdx]);
|
|
constraints.setConstraint(moleFrac1Idx, conti0EqIdx + 1,
|
|
initCond[moleFrac1Idx]);
|
|
;
|
|
for (int axisIdx = 0; axisIdx < dimWorld; ++axisIdx)
|
|
constraints.setConstraint(velocity0Idx + axisIdx,
|
|
momentum0EqIdx + axisIdx,
|
|
initCond[momentum0EqIdx + axisIdx]);
|
|
}
|
|
}
|
|
|
|
//! \}
|
|
|
|
private:
|
|
bool onLeftBoundary_(const GlobalPosition &pos) const
|
|
{ return pos[0] < this->boundingBoxMin()[0] + eps_; }
|
|
|
|
bool onRightBoundary_(const GlobalPosition &pos) const
|
|
{ return pos[0] > this->boundingBoxMax()[0] - eps_; }
|
|
|
|
bool onLowerBoundary_(const GlobalPosition &pos) const
|
|
{ return pos[1] < this->boundingBoxMin()[1] + eps_; }
|
|
|
|
bool onUpperBoundary_(const GlobalPosition &pos) const
|
|
{ return pos[1] > this->boundingBoxMax()[1] - eps_; }
|
|
|
|
bool onBoundary_(const GlobalPosition &pos) const
|
|
{
|
|
return onLeftBoundary_(pos) || onRightBoundary_(pos)
|
|
|| onLowerBoundary_(pos) || onUpperBoundary_(pos);
|
|
}
|
|
|
|
bool inLens_(const GlobalPosition &pos) const
|
|
{ return pos[0] < 0.75 && pos[0] > 0.25 && pos[1] < 0.75 && pos[1] > 0.25; }
|
|
|
|
Scalar eps_;
|
|
};
|
|
} // namespace Ewoms
|
|
|
|
#endif
|