Loading...
Searching...
No Matches
richardsboundaryratevector.hh
Go to the documentation of this file.
// -*- mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*-
// vi: set et ts=4 sw=4 sts=4:
/*
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/>.
Consult the COPYING file in the top-level source directory of this
module for the precise wording of the license and the list of
copyright holders.
*/
#ifndef EWOMS_RICHARDS_BOUNDARY_RATE_VECTOR_HH
#define EWOMS_RICHARDS_BOUNDARY_RATE_VECTOR_HH
#include <opm/material/common/MathToolbox.hpp>
#include <opm/material/common/Valgrind.hpp>
#include <opm/models/common/multiphasebaseproperties.hh>
#include <opm/models/discretization/common/fvbaseproperties.hh>
#include <opm/models/richards/richardsproperties.hh>
#include <algorithm>
namespace Opm {
template <class TypeTag>
class RichardsBoundaryRateVector : public GetPropType<TypeTag, Properties::RateVector>
{
using ParentType = GetPropType<TypeTag, Properties::RateVector>;
using ExtensiveQuantities = GetPropType<TypeTag, Properties::ExtensiveQuantities>;
using FluidSystem = GetPropType<TypeTag, Properties::FluidSystem>;
using Scalar = GetPropType<TypeTag, Properties::Scalar>;
using Evaluation = GetPropType<TypeTag, Properties::Evaluation>;
using Indices = GetPropType<TypeTag, Properties::Indices>;
enum { numEq = getPropValue<TypeTag, Properties::NumEq>() };
enum { contiEqIdx = Indices::contiEqIdx };
enum { liquidPhaseIdx = getPropValue<TypeTag, Properties::LiquidPhaseIndex>() };
using Toolbox = MathToolbox<Evaluation>;
public:
RichardsBoundaryRateVector() = default;
RichardsBoundaryRateVector(const Evaluation& value)
: ParentType(value)
{}
RichardsBoundaryRateVector(const RichardsBoundaryRateVector& value) = default;
RichardsBoundaryRateVector& operator=(const RichardsBoundaryRateVector& value) = default;
template <class Context, class FluidState>
void setFreeFlow(const Context& context, unsigned bfIdx,
unsigned timeIdx, const FluidState& fluidState)
{
ExtensiveQuantities extQuants;
extQuants.updateBoundary(context, bfIdx, timeIdx, fluidState);
const auto& insideIntQuants = context.intensiveQuantities(bfIdx, timeIdx);
const unsigned focusDofIdx = context.focusDofIndex();
const unsigned interiorDofIdx = context.interiorScvIndex(bfIdx, timeIdx);
// advective fluxes of all components in all phases
(*this) = Evaluation(0.0);
const unsigned phaseIdx = liquidPhaseIdx;
Evaluation density;
if (fluidState.pressure(phaseIdx) > insideIntQuants.fluidState().pressure(phaseIdx)) {
if (focusDofIdx == interiorDofIdx) {
density = fluidState.density(phaseIdx);
}
else {
density = getValue(fluidState.density(phaseIdx));
}
}
else if (focusDofIdx == interiorDofIdx) {
density = insideIntQuants.fluidState().density(phaseIdx);
}
else {
density = getValue(insideIntQuants.fluidState().density(phaseIdx));
}
// add advective flux of current component in current
// phase
(*this)[contiEqIdx] += extQuants.volumeFlux(phaseIdx) * density;
#ifndef NDEBUG
for (unsigned i = 0; i < numEq; ++i) {
Valgrind::CheckDefined((*this)[i]);
}
Valgrind::CheckDefined(*this);
#endif
}
template <class Context, class FluidState>
void setInFlow(const Context& context,
unsigned bfIdx,
unsigned timeIdx,
const FluidState& fluidState)
{
this->setFreeFlow(context, bfIdx, timeIdx, fluidState);
// we only allow fluxes in the direction opposite to the outer unit normal
std::for_each(this->begin(), this->end(),
[](auto& val) { val = Toolbox::min(0.0, val); });
}
template <class Context, class FluidState>
void setOutFlow(const Context& context,
unsigned bfIdx,
unsigned timeIdx,
const FluidState& fluidState)
{
this->setFreeFlow(context, bfIdx, timeIdx, fluidState);
// we only allow fluxes in the same direction as the outer unit normal
std::for_each(this->begin(), this->end(),
[](auto& val) { val = Toolbox::max(0.0, val); });
}
void setNoFlow()
{ (*this) = Evaluation(0.0); }
};
} // namespace Opm
#endif
Opm::RichardsBoundaryRateVector::RichardsBoundaryRateVector
RichardsBoundaryRateVector(const RichardsBoundaryRateVector &value)=default
Opm::RichardsBoundaryRateVector::setFreeFlow
void setFreeFlow(const Context &context, unsigned bfIdx, unsigned timeIdx, const FluidState &fluidState)
Specify a free-flow boundary.
Definition richardsboundaryratevector.hh:84
Opm::RichardsBoundaryRateVector::setOutFlow
void setOutFlow(const Context &context, unsigned bfIdx, unsigned timeIdx, const FluidState &fluidState)
Specify an outflow boundary.
Definition richardsboundaryratevector.hh:147
Opm::RichardsBoundaryRateVector::setNoFlow
void setNoFlow()
Specify a no-flow boundary for all conserved quantities.
Definition richardsboundaryratevector.hh:162
Opm::RichardsBoundaryRateVector::setInFlow
void setInFlow(const Context &context, unsigned bfIdx, unsigned timeIdx, const FluidState &fluidState)
Specify an inflow boundary.
Definition richardsboundaryratevector.hh:131
Opm::RichardsBoundaryRateVector::RichardsBoundaryRateVector
RichardsBoundaryRateVector(const Evaluation &value)
Definition richardsboundaryratevector.hh:69
fvbaseproperties.hh
Declare the properties used by the infrastructure code of the finite volume discretizations.
multiphasebaseproperties.hh
Defines the common properties required by the porous medium multi-phase models.
Opm
This file contains a set of helper functions used by VFPProd / VFPInj.
Definition blackoilbioeffectsmodules.hh:43
Opm::GetPropType
typename Properties::Detail::GetPropImpl< TypeTag, Property >::type::type GetPropType
get the type alias defined in the property (equivalent to old macro GET_PROP_TYPE(....
Definition propertysystem.hh:233
Opm::getPropValue
constexpr auto getPropValue()
get the value data member of a property
Definition propertysystem.hh:240
richardsproperties.hh
Contains the property declarations for the Richards model.