Loading...
Searching...
No Matches
PiecewiseLinearTwoPhaseMaterial.hpp
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 OPM_PIECEWISE_LINEAR_TWO_PHASE_MATERIAL_HPP
#define OPM_PIECEWISE_LINEAR_TWO_PHASE_MATERIAL_HPP
#include "PiecewiseLinearTwoPhaseMaterialParams.hpp"
#include <opm/common/TimingMacros.hpp>
#include <opm/material/common/MathToolbox.hpp>
#include <stdexcept>
#include <type_traits>
#include <opm/common/utility/gpuDecorators.hpp>
namespace Opm {
template <class TraitsT, class ParamsT = PiecewiseLinearTwoPhaseMaterialParams<TraitsT> >
class PiecewiseLinearTwoPhaseMaterial : public TraitsT
{
using ValueVector = typename ParamsT::ValueVector;
public:
using Traits = TraitsT;
using Params = ParamsT;
using Scalar = typename Traits::Scalar;
static constexpr int numPhases = Traits::numPhases;
static_assert(numPhases == 2,
"The piecewise linear two-phase capillary pressure law only"
"applies to the case of two fluid phases");
static constexpr bool implementsTwoPhaseApi = true;
static constexpr bool implementsTwoPhaseSatApi = true;
static constexpr bool isSaturationDependent = true;
static constexpr bool isPressureDependent = false;
static constexpr bool isTemperatureDependent = false;
static constexpr bool isCompositionDependent = false;
template <class Container, class FluidState>
OPM_HOST_DEVICE static void capillaryPressures(Container& values, const Params& params, const FluidState& fs)
{
OPM_TIMEFUNCTION_LOCAL(Subsystem::SatProps);
using Evaluation = typename std::remove_reference<decltype(values[0])>::type;
values[Traits::wettingPhaseIdx] = 0.0; // reference phase
values[Traits::nonWettingPhaseIdx] = pcnw<FluidState, Evaluation>(params, fs);
}
template <class Container, class FluidState>
OPM_HOST_DEVICE static void saturations(Container& /* values */, const Params& /* params */, const FluidState& /* fs */)
{ throw std::logic_error("Not implemented: saturations()"); }
template <class Container, class FluidState>
OPM_HOST_DEVICE static void relativePermeabilities(Container& values, const Params& params, const FluidState& fs)
{
OPM_TIMEFUNCTION_LOCAL(Subsystem::SatProps);
using Evaluation = typename std::remove_reference<decltype(values[0])>::type;
values[Traits::wettingPhaseIdx] = krw<FluidState, Evaluation>(params, fs);
values[Traits::nonWettingPhaseIdx] = krn<FluidState, Evaluation>(params, fs);
}
template <class FluidState, class Evaluation = typename FluidState::Scalar>
OPM_HOST_DEVICE static Evaluation pcnw(const Params& params, const FluidState& fs)
{
OPM_TIMEFUNCTION_LOCAL(Subsystem::SatProps);
const auto& Sw =
decay<Evaluation>(fs.saturation(Traits::wettingPhaseIdx));
return twoPhaseSatPcnw(params, Sw);
}
template <class Evaluation>
OPM_HOST_DEVICE static Evaluation twoPhaseSatPcnw(const Params& params, const Evaluation& Sw)
{
OPM_TIMEFUNCTION_LOCAL(Subsystem::SatProps);
return eval_(params.SwPcwnSamples(), params.pcwnSamples(), Sw);
}
template <class Evaluation>
static Evaluation twoPhaseSatPcnwInv(const Params& params, const Evaluation& pcnw)
{ return eval_(params.pcwnSamples(), params.SwPcwnSamples(), pcnw); }
template <class FluidState, class Evaluation = typename FluidState::Scalar>
OPM_HOST_DEVICE static Evaluation Sw(const Params& /* params */, const FluidState& /* fs */)
{ throw std::logic_error("Not implemented: Sw()"); }
template <class Evaluation>
OPM_HOST_DEVICE static Evaluation twoPhaseSatSw(const Params& /* params */, const Evaluation& /* pC */)
{ throw std::logic_error("Not implemented: twoPhaseSatSw()"); }
template <class FluidState, class Evaluation = typename FluidState::Scalar>
OPM_HOST_DEVICE static Evaluation Sn(const Params& params, const FluidState& fs)
{ return 1 - Sw<FluidState, Scalar>(params, fs); }
template <class Evaluation>
OPM_HOST_DEVICE static Evaluation twoPhaseSatSn(const Params& params, const Evaluation& pC)
{ return 1 - twoPhaseSatSw(params, pC); }
template <class FluidState, class Evaluation = typename FluidState::Scalar>
OPM_HOST_DEVICE static Evaluation krw(const Params& params, const FluidState& fs)
{
OPM_TIMEFUNCTION_LOCAL(Subsystem::SatProps);
const auto& sw =
decay<Evaluation>(fs.saturation(Traits::wettingPhaseIdx));
return twoPhaseSatKrw(params, sw);
}
template <class Evaluation>
OPM_HOST_DEVICE static Evaluation twoPhaseSatKrw(const Params& params, const Evaluation& Sw)
{
OPM_TIMEFUNCTION_LOCAL(Subsystem::SatProps);
return eval_(params.SwKrwSamples(), params.krwSamples(), Sw);
}
template <class Evaluation>
OPM_HOST_DEVICE static Evaluation twoPhaseSatKrwInv(const Params& params, const Evaluation& krw)
{
OPM_TIMEFUNCTION_LOCAL(Subsystem::SatProps);
return eval_(params.krwSamples(), params.SwKrwSamples(), krw);
}
template <class FluidState, class Evaluation = typename FluidState::Scalar>
OPM_HOST_DEVICE static Evaluation krn(const Params& params, const FluidState& fs)
{
OPM_TIMEFUNCTION_LOCAL(Subsystem::SatProps);
const auto& sw =
decay<Evaluation>(fs.saturation(Traits::wettingPhaseIdx));
return twoPhaseSatKrn(params, sw);
}
template <class Evaluation>
OPM_HOST_DEVICE static Evaluation twoPhaseSatKrn(const Params& params, const Evaluation& Sw)
{
OPM_TIMEFUNCTION_LOCAL(Subsystem::SatProps);
return eval_(params.SwKrnSamples(), params.krnSamples(), Sw);
}
template <class Evaluation>
OPM_HOST_DEVICE static Evaluation twoPhaseSatKrnInv(const Params& params, const Evaluation& krn)
{ return eval_(params.krnSamples(), params.SwKrnSamples(), krn); }
template <class Evaluation>
OPM_HOST_DEVICE static size_t findSegmentIndex(const ValueVector& xValues, const Evaluation& x){
return findSegmentIndex_(xValues, scalarValue(x));
}
template <class Evaluation>
OPM_HOST_DEVICE static size_t findSegmentIndexDescending(const ValueVector& xValues, const Evaluation& x){
return findSegmentIndexDescending_(xValues, scalarValue(x));
}
template <class Evaluation>
OPM_HOST_DEVICE static Evaluation eval(const ValueVector& xValues, const ValueVector& yValues, const Evaluation& x, unsigned segIdx){
Scalar x0 = xValues[segIdx];
Scalar x1 = xValues[segIdx + 1];
Scalar y0 = yValues[segIdx];
Scalar y1 = yValues[segIdx + 1];
Scalar m = (y1 - y0)/(x1 - x0);
return y0 + (x - x0)*m;
}
private:
template <class Evaluation>
OPM_HOST_DEVICE static Evaluation eval_(const ValueVector& xValues,
const ValueVector& yValues,
const Evaluation& x)
{
OPM_TIMEFUNCTION_LOCAL(Subsystem::SatProps);
if (xValues.front() < xValues.back())
return evalAscending_(xValues, yValues, x);
return evalDescending_(xValues, yValues, x);
}
template <class Evaluation>
OPM_HOST_DEVICE static Evaluation evalAscending_(const ValueVector& xValues,
const ValueVector& yValues,
const Evaluation& x)
{
OPM_TIMEFUNCTION_LOCAL(Subsystem::SatProps);
if (x <= xValues.front())
return yValues.front();
if (x >= xValues.back())
return yValues.back();
size_t segIdx = findSegmentIndex_(xValues, scalarValue(x));
return eval(xValues, yValues, x, segIdx);
}
template <class Evaluation>
OPM_HOST_DEVICE static Evaluation evalDescending_(const ValueVector& xValues,
const ValueVector& yValues,
const Evaluation& x)
{
OPM_TIMEFUNCTION_LOCAL(Subsystem::SatProps);
if (x >= xValues.front())
return yValues.front();
if (x <= xValues.back())
return yValues.back();
size_t segIdx = findSegmentIndexDescending_(xValues, scalarValue(x));
return eval(xValues, yValues, x, segIdx);
}
template <class Evaluation>
OPM_HOST_DEVICE static Evaluation evalDeriv_(const ValueVector& xValues,
const ValueVector& yValues,
const Evaluation& x)
{
OPM_TIMEFUNCTION_LOCAL(Subsystem::SatProps);
if (x <= xValues.front())
return 0.0;
if (x >= xValues.back())
return 0.0;
size_t segIdx = findSegmentIndex_(xValues, scalarValue(x));
Scalar x0 = xValues[segIdx];
Scalar x1 = xValues[segIdx + 1];
Scalar y0 = yValues[segIdx];
Scalar y1 = yValues[segIdx + 1];
return (y1 - y0)/(x1 - x0);
}
template<class ScalarT>
OPM_HOST_DEVICE static size_t findSegmentIndex_(const ValueVector& xValues, const ScalarT& x)
{
OPM_TIMEFUNCTION_LOCAL(Subsystem::SatProps);
assert(xValues.size() > 1); // we need at least two sampling points!
size_t n = xValues.size() - 1;
if (xValues.back() <= x)
return n - 1;
else if (x <= xValues.front())
return 0;
// bisection
size_t lowIdx = 0, highIdx = n;
while (lowIdx + 1 < highIdx) {
size_t curIdx = (lowIdx + highIdx)/2;
if (xValues[curIdx] < x)
lowIdx = curIdx;
else
highIdx = curIdx;
}
return lowIdx;
}
OPM_HOST_DEVICE static size_t findSegmentIndexDescending_(const ValueVector& xValues, Scalar x)
{
OPM_TIMEFUNCTION_LOCAL(Subsystem::SatProps);
assert(xValues.size() > 1); // we need at least two sampling points!
size_t n = xValues.size() - 1;
if (x <= xValues.back())
return n;
else if (xValues.front() <= x)
return 0;
// bisection
size_t lowIdx = 0, highIdx = n;
while (lowIdx + 1 < highIdx) {
size_t curIdx = (lowIdx + highIdx)/2;
if (xValues[curIdx] >= x)
lowIdx = curIdx;
else
highIdx = curIdx;
}
return lowIdx;
}
};
} // namespace Opm
#endif
MathToolbox.hpp
A traits class which provides basic mathematical functions for arbitrary scalar floating point values...
PiecewiseLinearTwoPhaseMaterialParams.hpp
Specification of the material parameters for a two-phase material law which uses a table and piecewis...
Opm::PiecewiseLinearTwoPhaseMaterialParams::pcwnSamples
OPM_HOST_DEVICE const ValueVector & pcwnSamples() const
Return the sampling points for the capillary pressure curve.
Definition PiecewiseLinearTwoPhaseMaterialParams.hpp:156
Opm::PiecewiseLinearTwoPhaseMaterialParams::SwPcwnSamples
OPM_HOST_DEVICE const ValueVector & SwPcwnSamples() const
Return the wetting-phase saturation values of all sampling points.
Definition PiecewiseLinearTwoPhaseMaterialParams.hpp:145
Opm::PiecewiseLinearTwoPhaseMaterial
Implementation of a tabulated, piecewise linear capillary pressure law.
Definition PiecewiseLinearTwoPhaseMaterial.hpp:53
Opm::PiecewiseLinearTwoPhaseMaterial::Traits
TraitsT Traits
The traits class for this material law.
Definition PiecewiseLinearTwoPhaseMaterial.hpp:58
Opm::PiecewiseLinearTwoPhaseMaterial::Params
ParamsT Params
The type of the parameter objects for this law.
Definition PiecewiseLinearTwoPhaseMaterial.hpp:61
Opm::PiecewiseLinearTwoPhaseMaterial::capillaryPressures
static OPM_HOST_DEVICE void capillaryPressures(Container &values, const Params &params, const FluidState &fs)
The capillary pressure-saturation curve.
Definition PiecewiseLinearTwoPhaseMaterial.hpp:100
Opm::PiecewiseLinearTwoPhaseMaterial::Sn
static OPM_HOST_DEVICE Evaluation Sn(const Params &params, const FluidState &fs)
Calculate the non-wetting phase saturations depending on the phase pressures.
Definition PiecewiseLinearTwoPhaseMaterial.hpp:173
Opm::PiecewiseLinearTwoPhaseMaterial< Traits >::numPhases
static constexpr int numPhases
Definition PiecewiseLinearTwoPhaseMaterial.hpp:67
Opm::PiecewiseLinearTwoPhaseMaterial::relativePermeabilities
static OPM_HOST_DEVICE void relativePermeabilities(Container &values, const Params &params, const FluidState &fs)
The relative permeabilities.
Definition PiecewiseLinearTwoPhaseMaterial.hpp:121
Opm::PiecewiseLinearTwoPhaseMaterial< Traits >::implementsTwoPhaseSatApi
static constexpr bool implementsTwoPhaseSatApi
Definition PiecewiseLinearTwoPhaseMaterial.hpp:78
Opm::PiecewiseLinearTwoPhaseMaterial::twoPhaseSatPcnw
static OPM_HOST_DEVICE Evaluation twoPhaseSatPcnw(const Params &params, const Evaluation &Sw)
The saturation-capillary pressure curve.
Definition PiecewiseLinearTwoPhaseMaterial.hpp:147
Opm::PiecewiseLinearTwoPhaseMaterial::Scalar
typename Traits::Scalar Scalar
The type of the scalar values for this law.
Definition PiecewiseLinearTwoPhaseMaterial.hpp:64
Opm::PiecewiseLinearTwoPhaseMaterial::krw
static OPM_HOST_DEVICE Evaluation krw(const Params &params, const FluidState &fs)
The relative permeability for the wetting phase of the porous medium.
Definition PiecewiseLinearTwoPhaseMaterial.hpp:185
Opm::PiecewiseLinearTwoPhaseMaterial< Traits >::isCompositionDependent
static constexpr bool isCompositionDependent
Definition PiecewiseLinearTwoPhaseMaterial.hpp:94
Opm::PiecewiseLinearTwoPhaseMaterial< Traits >::isSaturationDependent
static constexpr bool isSaturationDependent
Definition PiecewiseLinearTwoPhaseMaterial.hpp:82
Opm::PiecewiseLinearTwoPhaseMaterial::saturations
static OPM_HOST_DEVICE void saturations(Container &, const Params &, const FluidState &)
The saturations of the fluid phases starting from their pressure differences.
Definition PiecewiseLinearTwoPhaseMaterial.hpp:114
Opm::PiecewiseLinearTwoPhaseMaterial::krn
static OPM_HOST_DEVICE Evaluation krn(const Params &params, const FluidState &fs)
The relative permeability for the non-wetting phase of the porous medium.
Definition PiecewiseLinearTwoPhaseMaterial.hpp:213
Opm::PiecewiseLinearTwoPhaseMaterial< Traits >::isTemperatureDependent
static constexpr bool isTemperatureDependent
Definition PiecewiseLinearTwoPhaseMaterial.hpp:90
Opm::PiecewiseLinearTwoPhaseMaterial< Traits >::isPressureDependent
static constexpr bool isPressureDependent
Definition PiecewiseLinearTwoPhaseMaterial.hpp:86
Opm::PiecewiseLinearTwoPhaseMaterial< Traits >::Sw
static OPM_HOST_DEVICE Evaluation Sw(const Params &, const FluidState &)
Definition PiecewiseLinearTwoPhaseMaterial.hpp:161
Opm::PiecewiseLinearTwoPhaseMaterial< Traits >::implementsTwoPhaseApi
static constexpr bool implementsTwoPhaseApi
Definition PiecewiseLinearTwoPhaseMaterial.hpp:74
Opm::PiecewiseLinearTwoPhaseMaterial::pcnw
static OPM_HOST_DEVICE Evaluation pcnw(const Params &params, const FluidState &fs)
The capillary pressure-saturation curve.
Definition PiecewiseLinearTwoPhaseMaterial.hpp:134
Opm
This class implements a small container which holds the transmissibility mulitpliers for all the face...
Definition Exceptions.hpp:30