2012-01-05 04:17:52 -06:00
|
|
|
/*
|
|
|
|
Copyright 2010, 2011, 2012 SINTEF ICT, Applied Mathematics.
|
|
|
|
|
|
|
|
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 3 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/>.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#ifndef OPM_SATURATIONPROPSFROMDECK_HEADER_INCLUDED
|
|
|
|
#define OPM_SATURATIONPROPSFROMDECK_HEADER_INCLUDED
|
|
|
|
|
|
|
|
#include <opm/core/eclipse/EclipseGridParser.hpp>
|
|
|
|
#include <opm/core/utility/UniformTableLinear.hpp>
|
|
|
|
#include <opm/core/fluid/blackoil/BlackoilPhases.hpp>
|
|
|
|
|
|
|
|
namespace Opm
|
|
|
|
{
|
|
|
|
|
|
|
|
class SaturationPropsFromDeck : public BlackoilPhases
|
|
|
|
{
|
|
|
|
public:
|
|
|
|
/// Default constructor.
|
|
|
|
SaturationPropsFromDeck();
|
|
|
|
|
|
|
|
/// Initialize from deck.
|
2012-01-19 06:50:57 -06:00
|
|
|
void init(const EclipseGridParser& deck);
|
2012-01-05 04:17:52 -06:00
|
|
|
|
2012-01-18 11:31:12 -06:00
|
|
|
/// \return P, the number of phases.
|
|
|
|
int numPhases() const;
|
|
|
|
|
2012-01-05 04:17:52 -06:00
|
|
|
/// Relative permeability.
|
|
|
|
/// \param[in] n Number of data points.
|
|
|
|
/// \param[in] s Array of nP saturation values.
|
|
|
|
/// \param[out] kr Array of nP relperm values, array must be valid before calling.
|
|
|
|
/// \param[out] dkrds If non-null: array of nP^2 relperm derivative values,
|
|
|
|
/// array must be valid before calling.
|
|
|
|
/// The P^2 derivative matrix is
|
|
|
|
/// m_{ij} = \frac{dkr_i}{ds^j},
|
|
|
|
/// and is output in Fortran order (m_00 m_10 m_20 m01 ...)
|
|
|
|
void relperm(const int n,
|
|
|
|
const double* s,
|
|
|
|
double* kr,
|
|
|
|
double* dkrds) const;
|
|
|
|
|
|
|
|
/// Capillary pressure.
|
|
|
|
/// \param[in] n Number of data points.
|
|
|
|
/// \param[in] s Array of nP saturation values.
|
|
|
|
/// \param[out] pc Array of nP capillary pressure values, array must be valid before calling.
|
|
|
|
/// \param[out] dpcds If non-null: array of nP^2 derivative values,
|
|
|
|
/// array must be valid before calling.
|
|
|
|
/// The P^2 derivative matrix is
|
|
|
|
/// m_{ij} = \frac{dpc_i}{ds^j},
|
|
|
|
/// and is output in Fortran order (m_00 m_10 m_20 m01 ...)
|
|
|
|
void capPress(const int n,
|
|
|
|
const double* s,
|
2012-01-05 04:40:58 -06:00
|
|
|
double* pc,
|
2012-01-05 04:17:52 -06:00
|
|
|
double* dpcds) const;
|
|
|
|
|
2012-02-17 07:15:25 -06:00
|
|
|
/// Obtain the range of allowable saturation values.
|
|
|
|
/// \param[in] n Number of data points.
|
|
|
|
/// \param[out] smin Array of nP minimum s values, array must be valid before calling.
|
|
|
|
/// \param[out] smax Array of nP maximum s values, array must be valid before calling.
|
|
|
|
void satRange(const int n,
|
|
|
|
double* smin,
|
|
|
|
double* smax) const;
|
2012-01-05 04:17:52 -06:00
|
|
|
private:
|
|
|
|
void evalKr(const double* s, double* kr) const;
|
|
|
|
void evalKrDeriv(const double* s, double* kr, double* dkrds) const;
|
|
|
|
void evalPc(const double* s, double* pc) const;
|
|
|
|
void evalPcDeriv(const double* s, double* pc, double* dpcds) const;
|
|
|
|
|
|
|
|
private:
|
|
|
|
PhaseUsage phase_usage_;
|
2012-01-19 06:50:57 -06:00
|
|
|
utils::UniformTableLinear<double> krw_;
|
|
|
|
utils::UniformTableLinear<double> krow_;
|
|
|
|
utils::UniformTableLinear<double> pcow_;
|
|
|
|
utils::UniformTableLinear<double> krg_;
|
|
|
|
utils::UniformTableLinear<double> krog_;
|
|
|
|
utils::UniformTableLinear<double> pcog_;
|
2012-01-05 04:17:52 -06:00
|
|
|
double krocw_; // = krow_(s_wc)
|
2012-02-17 07:15:25 -06:00
|
|
|
double smin_[PhaseUsage::MaxNumPhases];
|
|
|
|
double smax_[PhaseUsage::MaxNumPhases];
|
2012-01-05 04:17:52 -06:00
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
} // namespace Opm
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#endif // OPM_SATURATIONPROPSFROMDECK_HEADER_INCLUDED
|