mirror of
https://github.com/OPM/opm-simulators.git
synced 2025-02-25 18:55:30 -06:00
VFPHelpers: move some functions into a class with static members
and template Scalar type
This commit is contained in:
parent
3747981347
commit
d5d16eaee4
@ -83,13 +83,13 @@ double computeBhp(const VFPProdTable& table,
|
|||||||
// First, find the values to interpolate between.
|
// First, find the values to interpolate between.
|
||||||
// Assuming positive flo here!
|
// Assuming positive flo here!
|
||||||
assert(flo > 0.0);
|
assert(flo > 0.0);
|
||||||
auto flo_i = detail::findInterpData(flo, table.getFloAxis());
|
auto flo_i = VFPHelpers<double>::findInterpData(flo, table.getFloAxis());
|
||||||
auto thp_i = detail::findInterpData(thp, table.getTHPAxis()); // assume constant
|
auto thp_i = VFPHelpers<double>::findInterpData(thp, table.getTHPAxis()); // assume constant
|
||||||
auto wfr_i = detail::findInterpData(wfr, table.getWFRAxis());
|
auto wfr_i = VFPHelpers<double>::findInterpData(wfr, table.getWFRAxis());
|
||||||
auto gfr_i = detail::findInterpData(gfr, table.getGFRAxis());
|
auto gfr_i = VFPHelpers<double>::findInterpData(gfr, table.getGFRAxis());
|
||||||
auto alq_i = detail::findInterpData(alq, table.getALQAxis()); //assume constant
|
auto alq_i = VFPHelpers<double>::findInterpData(alq, table.getALQAxis()); //assume constant
|
||||||
|
|
||||||
return detail::interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i).value;
|
return VFPHelpers<double>::interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i).value;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
@ -38,14 +38,15 @@ namespace {
|
|||||||
* Helper function that finds x for a given value of y for a line
|
* Helper function that finds x for a given value of y for a line
|
||||||
* *NOTE ORDER OF ARGUMENTS*
|
* *NOTE ORDER OF ARGUMENTS*
|
||||||
*/
|
*/
|
||||||
double findX(const double x0,
|
template<class Scalar>
|
||||||
const double x1,
|
Scalar findX(const Scalar x0,
|
||||||
const double y0,
|
const Scalar x1,
|
||||||
const double y1,
|
const Scalar y0,
|
||||||
const double y)
|
const Scalar y1,
|
||||||
|
const Scalar y)
|
||||||
{
|
{
|
||||||
const double dx = x1 - x0;
|
const Scalar dx = x1 - x0;
|
||||||
const double dy = y1 - y0;
|
const Scalar dy = y1 - y0;
|
||||||
|
|
||||||
/**
|
/**
|
||||||
* y = y0 + (dy / dx) * (x - x0)
|
* y = y0 + (dy / dx) * (x - x0)
|
||||||
@ -54,7 +55,7 @@ double findX(const double x0,
|
|||||||
* If dy is zero, use x1 as the value.
|
* If dy is zero, use x1 as the value.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
double x = 0.0;
|
Scalar x = 0.0;
|
||||||
|
|
||||||
if (dy != 0.0) {
|
if (dy != 0.0) {
|
||||||
x = x0 + (y-y0) * (dx/dy);
|
x = x0 + (y-y0) * (dx/dy);
|
||||||
@ -77,17 +78,18 @@ static T chopNegativeValues(const T& value) {
|
|||||||
}
|
}
|
||||||
|
|
||||||
namespace Opm {
|
namespace Opm {
|
||||||
namespace detail {
|
|
||||||
|
|
||||||
InterpData findInterpData(const double value_in, const std::vector<double>& values)
|
template<class Scalar>
|
||||||
|
detail::InterpData<Scalar> VFPHelpers<Scalar>::findInterpData(const Scalar value_in,
|
||||||
|
const std::vector<double>& values)
|
||||||
{
|
{
|
||||||
InterpData retval;
|
detail::InterpData<Scalar> retval;
|
||||||
|
|
||||||
const int nvalues = values.size();
|
const int nvalues = values.size();
|
||||||
|
|
||||||
// chopping the value to be zero, which means we do not
|
// chopping the value to be zero, which means we do not
|
||||||
// extrapolate the table towards nagative ranges
|
// extrapolate the table towards nagative ranges
|
||||||
const double value = value_in < 0.? 0. : value_in;
|
const Scalar value = value_in < 0.? 0. : value_in;
|
||||||
|
|
||||||
//If we only have one value in our vector, return that
|
//If we only have one value in our vector, return that
|
||||||
if (values.size() == 1) {
|
if (values.size() == 1) {
|
||||||
@ -119,8 +121,8 @@ InterpData findInterpData(const double value_in, const std::vector<double>& valu
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
const double start = values[retval.ind_[0]];
|
const Scalar start = values[retval.ind_[0]];
|
||||||
const double end = values[retval.ind_[1]];
|
const Scalar end = values[retval.ind_[1]];
|
||||||
|
|
||||||
//Find interpolation ratio
|
//Find interpolation ratio
|
||||||
if (end > start) {
|
if (end > start) {
|
||||||
@ -138,50 +140,17 @@ InterpData findInterpData(const double value_in, const std::vector<double>& valu
|
|||||||
return retval;
|
return retval;
|
||||||
}
|
}
|
||||||
|
|
||||||
VFPEvaluation operator+(VFPEvaluation lhs, const VFPEvaluation& rhs)
|
template<class Scalar>
|
||||||
{
|
detail::VFPEvaluation<Scalar> VFPHelpers<Scalar>::
|
||||||
lhs.value += rhs.value;
|
interpolate(const VFPProdTable& table,
|
||||||
lhs.dthp += rhs.dthp;
|
const detail::InterpData<Scalar>& flo_i,
|
||||||
lhs.dwfr += rhs.dwfr;
|
const detail::InterpData<Scalar>& thp_i,
|
||||||
lhs.dgfr += rhs.dgfr;
|
const detail::InterpData<Scalar>& wfr_i,
|
||||||
lhs.dalq += rhs.dalq;
|
const detail::InterpData<Scalar>& gfr_i,
|
||||||
lhs.dflo += rhs.dflo;
|
const detail::InterpData<Scalar>& alq_i)
|
||||||
return lhs;
|
|
||||||
}
|
|
||||||
|
|
||||||
VFPEvaluation operator-(VFPEvaluation lhs, const VFPEvaluation& rhs)
|
|
||||||
{
|
|
||||||
lhs.value -= rhs.value;
|
|
||||||
lhs.dthp -= rhs.dthp;
|
|
||||||
lhs.dwfr -= rhs.dwfr;
|
|
||||||
lhs.dgfr -= rhs.dgfr;
|
|
||||||
lhs.dalq -= rhs.dalq;
|
|
||||||
lhs.dflo -= rhs.dflo;
|
|
||||||
return lhs;
|
|
||||||
}
|
|
||||||
|
|
||||||
VFPEvaluation operator*(double lhs, const VFPEvaluation& rhs)
|
|
||||||
{
|
|
||||||
VFPEvaluation retval;
|
|
||||||
retval.value = rhs.value * lhs;
|
|
||||||
retval.dthp = rhs.dthp * lhs;
|
|
||||||
retval.dwfr = rhs.dwfr * lhs;
|
|
||||||
retval.dgfr = rhs.dgfr * lhs;
|
|
||||||
retval.dalq = rhs.dalq * lhs;
|
|
||||||
retval.dflo = rhs.dflo * lhs;
|
|
||||||
return retval;
|
|
||||||
}
|
|
||||||
|
|
||||||
VFPEvaluation interpolate(const VFPProdTable& table,
|
|
||||||
const InterpData& flo_i,
|
|
||||||
const InterpData& thp_i,
|
|
||||||
const InterpData& wfr_i,
|
|
||||||
const InterpData& gfr_i,
|
|
||||||
const InterpData& alq_i)
|
|
||||||
{
|
{
|
||||||
//Values and derivatives in a 5D hypercube
|
//Values and derivatives in a 5D hypercube
|
||||||
VFPEvaluation nn[2][2][2][2][2];
|
detail::VFPEvaluation<Scalar> nn[2][2][2][2][2];
|
||||||
|
|
||||||
|
|
||||||
//Pick out nearest neighbors (nn) to our evaluation point
|
//Pick out nearest neighbors (nn) to our evaluation point
|
||||||
//This is not really required, but performance-wise it may pay off, since the 32-elements
|
//This is not really required, but performance-wise it may pay off, since the 32-elements
|
||||||
@ -231,7 +200,7 @@ VFPEvaluation interpolate(const VFPProdTable& table,
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
double t1, t2; //interpolation variables, so that t1 = (1-t) and t2 = t.
|
Scalar t1, t2; //interpolation variables, so that t1 = (1-t) and t2 = t.
|
||||||
|
|
||||||
// Remove dimensions one by one
|
// Remove dimensions one by one
|
||||||
// Example: going from 3D to 2D to 1D, we start by interpolating along
|
// Example: going from 3D to 2D to 1D, we start by interpolating along
|
||||||
@ -280,13 +249,14 @@ VFPEvaluation interpolate(const VFPProdTable& table,
|
|||||||
return nn[0][0][0][0][0];
|
return nn[0][0][0][0][0];
|
||||||
}
|
}
|
||||||
|
|
||||||
VFPEvaluation interpolate(const VFPInjTable& table,
|
template<class Scalar>
|
||||||
const InterpData& flo_i,
|
detail::VFPEvaluation<Scalar> VFPHelpers<Scalar>::
|
||||||
const InterpData& thp_i)
|
interpolate(const VFPInjTable& table,
|
||||||
|
const detail::InterpData<Scalar>& flo_i,
|
||||||
|
const detail::InterpData<Scalar>& thp_i)
|
||||||
{
|
{
|
||||||
//Values and derivatives in a 2D plane
|
//Values and derivatives in a 2D plane
|
||||||
VFPEvaluation nn[2][2];
|
detail::VFPEvaluation<Scalar> nn[2][2];
|
||||||
|
|
||||||
|
|
||||||
//Pick out nearest neighbors (nn) to our evaluation point
|
//Pick out nearest neighbors (nn) to our evaluation point
|
||||||
//The following ladder of for loops will presumably be unrolled by a reasonable compiler.
|
//The following ladder of for loops will presumably be unrolled by a reasonable compiler.
|
||||||
@ -318,7 +288,7 @@ VFPEvaluation interpolate(const VFPInjTable& table,
|
|||||||
nn[i][1].dflo = nn[i][0].dflo;
|
nn[i][1].dflo = nn[i][0].dflo;
|
||||||
}
|
}
|
||||||
|
|
||||||
double t1, t2; //interpolation variables, so that t1 = (1-t) and t2 = t.
|
Scalar t1, t2; //interpolation variables, so that t1 = (1-t) and t2 = t.
|
||||||
|
|
||||||
// Go from 2D to 1D
|
// Go from 2D to 1D
|
||||||
t2 = flo_i.factor_;
|
t2 = flo_i.factor_;
|
||||||
@ -334,20 +304,22 @@ VFPEvaluation interpolate(const VFPInjTable& table,
|
|||||||
return nn[0][0];
|
return nn[0][0];
|
||||||
}
|
}
|
||||||
|
|
||||||
VFPEvaluation bhp(const VFPProdTable& table,
|
template<class Scalar>
|
||||||
const double aqua,
|
detail::VFPEvaluation<Scalar> VFPHelpers<Scalar>::
|
||||||
const double liquid,
|
bhp(const VFPProdTable& table,
|
||||||
const double vapour,
|
const Scalar aqua,
|
||||||
const double thp,
|
const Scalar liquid,
|
||||||
const double alq,
|
const Scalar vapour,
|
||||||
const double explicit_wfr,
|
const Scalar thp,
|
||||||
const double explicit_gfr,
|
const Scalar alq,
|
||||||
|
const Scalar explicit_wfr,
|
||||||
|
const Scalar explicit_gfr,
|
||||||
const bool use_vfpexplicit)
|
const bool use_vfpexplicit)
|
||||||
{
|
{
|
||||||
//Find interpolation variables
|
//Find interpolation variables
|
||||||
double flo = detail::getFlo(table, aqua, liquid, vapour);
|
Scalar flo = detail::getFlo(table, aqua, liquid, vapour);
|
||||||
double wfr = detail::getWFR(table, aqua, liquid, vapour);
|
Scalar wfr = detail::getWFR(table, aqua, liquid, vapour);
|
||||||
double gfr = detail::getGFR(table, aqua, liquid, vapour);
|
Scalar gfr = detail::getGFR(table, aqua, liquid, vapour);
|
||||||
if (use_vfpexplicit || -flo < table.getFloAxis().front()) {
|
if (use_vfpexplicit || -flo < table.getFloAxis().front()) {
|
||||||
wfr = explicit_wfr;
|
wfr = explicit_wfr;
|
||||||
gfr = explicit_gfr;
|
gfr = explicit_gfr;
|
||||||
@ -355,43 +327,47 @@ VFPEvaluation bhp(const VFPProdTable& table,
|
|||||||
|
|
||||||
//First, find the values to interpolate between
|
//First, find the values to interpolate between
|
||||||
//Recall that flo is negative in Opm, so switch sign.
|
//Recall that flo is negative in Opm, so switch sign.
|
||||||
auto flo_i = detail::findInterpData(-flo, table.getFloAxis());
|
auto flo_i = findInterpData(-flo, table.getFloAxis());
|
||||||
auto thp_i = detail::findInterpData( thp, table.getTHPAxis());
|
auto thp_i = findInterpData( thp, table.getTHPAxis());
|
||||||
auto wfr_i = detail::findInterpData( wfr, table.getWFRAxis());
|
auto wfr_i = findInterpData( wfr, table.getWFRAxis());
|
||||||
auto gfr_i = detail::findInterpData( gfr, table.getGFRAxis());
|
auto gfr_i = findInterpData( gfr, table.getGFRAxis());
|
||||||
auto alq_i = detail::findInterpData( alq, table.getALQAxis());
|
auto alq_i = findInterpData( alq, table.getALQAxis());
|
||||||
|
|
||||||
detail::VFPEvaluation retval = detail::interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i);
|
detail::VFPEvaluation retval = interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i);
|
||||||
|
|
||||||
return retval;
|
return retval;
|
||||||
}
|
}
|
||||||
|
|
||||||
VFPEvaluation bhp(const VFPInjTable& table,
|
template<class Scalar>
|
||||||
const double aqua,
|
detail::VFPEvaluation<Scalar> VFPHelpers<Scalar>::
|
||||||
const double liquid,
|
bhp(const VFPInjTable& table,
|
||||||
const double vapour,
|
const Scalar aqua,
|
||||||
const double thp)
|
const Scalar liquid,
|
||||||
|
const Scalar vapour,
|
||||||
|
const Scalar thp)
|
||||||
{
|
{
|
||||||
//Find interpolation variables
|
//Find interpolation variables
|
||||||
double flo = detail::getFlo(table, aqua, liquid, vapour);
|
Scalar flo = detail::getFlo(table, aqua, liquid, vapour);
|
||||||
|
|
||||||
//First, find the values to interpolate between
|
//First, find the values to interpolate between
|
||||||
auto flo_i = detail::findInterpData(flo, table.getFloAxis());
|
auto flo_i = findInterpData(flo, table.getFloAxis());
|
||||||
auto thp_i = detail::findInterpData(thp, table.getTHPAxis());
|
auto thp_i = findInterpData(thp, table.getTHPAxis());
|
||||||
|
|
||||||
//Then perform the interpolation itself
|
//Then perform the interpolation itself
|
||||||
detail::VFPEvaluation retval = detail::interpolate(table, flo_i, thp_i);
|
detail::VFPEvaluation retval = interpolate(table, flo_i, thp_i);
|
||||||
|
|
||||||
return retval;
|
return retval;
|
||||||
}
|
}
|
||||||
|
|
||||||
double findTHP(const std::vector<double>& bhp_array,
|
template<class Scalar>
|
||||||
|
Scalar VFPHelpers<Scalar>::
|
||||||
|
findTHP(const std::vector<Scalar>& bhp_array,
|
||||||
const std::vector<double>& thp_array,
|
const std::vector<double>& thp_array,
|
||||||
double bhp)
|
Scalar bhp)
|
||||||
{
|
{
|
||||||
int nthp = thp_array.size();
|
int nthp = thp_array.size();
|
||||||
|
|
||||||
double thp = -1e100;
|
Scalar thp = -1e100;
|
||||||
|
|
||||||
//Check that our thp axis is sorted
|
//Check that our thp axis is sorted
|
||||||
assert(std::is_sorted(thp_array.begin(), thp_array.end()));
|
assert(std::is_sorted(thp_array.begin(), thp_array.end()));
|
||||||
@ -406,19 +382,19 @@ double findTHP(const std::vector<double>& bhp_array,
|
|||||||
//Target bhp less than all values in array, extrapolate
|
//Target bhp less than all values in array, extrapolate
|
||||||
if (bhp <= bhp_array[0]) {
|
if (bhp <= bhp_array[0]) {
|
||||||
//TODO: LOG extrapolation
|
//TODO: LOG extrapolation
|
||||||
const double& x0 = thp_array[0];
|
const Scalar& x0 = thp_array[0];
|
||||||
const double& x1 = thp_array[1];
|
const Scalar& x1 = thp_array[1];
|
||||||
const double& y0 = bhp_array[0];
|
const Scalar& y0 = bhp_array[0];
|
||||||
const double& y1 = bhp_array[1];
|
const Scalar& y1 = bhp_array[1];
|
||||||
thp = findX(x0, x1, y0, y1, bhp);
|
thp = findX(x0, x1, y0, y1, bhp);
|
||||||
}
|
}
|
||||||
//Target bhp greater than all values in array, extrapolate
|
//Target bhp greater than all values in array, extrapolate
|
||||||
else if (bhp > bhp_array[nthp-1]) {
|
else if (bhp > bhp_array[nthp-1]) {
|
||||||
//TODO: LOG extrapolation
|
//TODO: LOG extrapolation
|
||||||
const double& x0 = thp_array[nthp-2];
|
const Scalar& x0 = thp_array[nthp-2];
|
||||||
const double& x1 = thp_array[nthp-1];
|
const Scalar& x1 = thp_array[nthp-1];
|
||||||
const double& y0 = bhp_array[nthp-2];
|
const Scalar& y0 = bhp_array[nthp-2];
|
||||||
const double& y1 = bhp_array[nthp-1];
|
const Scalar& y1 = bhp_array[nthp-1];
|
||||||
thp = findX(x0, x1, y0, y1, bhp);
|
thp = findX(x0, x1, y0, y1, bhp);
|
||||||
}
|
}
|
||||||
//Target bhp within table ranges, interpolate
|
//Target bhp within table ranges, interpolate
|
||||||
@ -432,8 +408,8 @@ double findTHP(const std::vector<double>& bhp_array,
|
|||||||
int i=0;
|
int i=0;
|
||||||
bool found = false;
|
bool found = false;
|
||||||
for (; i<nthp-1; ++i) {
|
for (; i<nthp-1; ++i) {
|
||||||
const double& y0 = bhp_array[i ];
|
const Scalar& y0 = bhp_array[i ];
|
||||||
const double& y1 = bhp_array[i+1];
|
const Scalar& y1 = bhp_array[i+1];
|
||||||
|
|
||||||
if (y0 < bhp && bhp <= y1) {
|
if (y0 < bhp && bhp <= y1) {
|
||||||
found = true;
|
found = true;
|
||||||
@ -444,10 +420,10 @@ double findTHP(const std::vector<double>& bhp_array,
|
|||||||
assert(found == true);
|
assert(found == true);
|
||||||
static_cast<void>(found); //Silence compiler warning
|
static_cast<void>(found); //Silence compiler warning
|
||||||
|
|
||||||
const double& x0 = thp_array[i ];
|
const Scalar& x0 = thp_array[i ];
|
||||||
const double& x1 = thp_array[i+1];
|
const Scalar& x1 = thp_array[i+1];
|
||||||
const double& y0 = bhp_array[i ];
|
const Scalar& y0 = bhp_array[i ];
|
||||||
const double& y1 = bhp_array[i+1];
|
const Scalar& y1 = bhp_array[i+1];
|
||||||
thp = findX(x0, x1, y0, y1, bhp);
|
thp = findX(x0, x1, y0, y1, bhp);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -459,8 +435,8 @@ double findTHP(const std::vector<double>& bhp_array,
|
|||||||
int i=0;
|
int i=0;
|
||||||
bool found = false;
|
bool found = false;
|
||||||
for (; i<nthp-1; ++i) {
|
for (; i<nthp-1; ++i) {
|
||||||
const double& y0 = bhp_array[i ];
|
const Scalar& y0 = bhp_array[i ];
|
||||||
const double& y1 = bhp_array[i+1];
|
const Scalar& y1 = bhp_array[i+1];
|
||||||
|
|
||||||
if (y0 < bhp && bhp <= y1) {
|
if (y0 < bhp && bhp <= y1) {
|
||||||
found = true;
|
found = true;
|
||||||
@ -468,27 +444,27 @@ double findTHP(const std::vector<double>& bhp_array,
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
if (found) {
|
if (found) {
|
||||||
const double& x0 = thp_array[i ];
|
const Scalar& x0 = thp_array[i ];
|
||||||
const double& x1 = thp_array[i+1];
|
const Scalar& x1 = thp_array[i+1];
|
||||||
const double& y0 = bhp_array[i ];
|
const Scalar& y0 = bhp_array[i ];
|
||||||
const double& y1 = bhp_array[i+1];
|
const Scalar& y1 = bhp_array[i+1];
|
||||||
thp = findX(x0, x1, y0, y1, bhp);
|
thp = findX(x0, x1, y0, y1, bhp);
|
||||||
}
|
}
|
||||||
else if (bhp <= bhp_array[0]) {
|
else if (bhp <= bhp_array[0]) {
|
||||||
//TODO: LOG extrapolation
|
//TODO: LOG extrapolation
|
||||||
const double& x0 = thp_array[0];
|
const Scalar& x0 = thp_array[0];
|
||||||
const double& x1 = thp_array[1];
|
const Scalar& x1 = thp_array[1];
|
||||||
const double& y0 = bhp_array[0];
|
const Scalar& y0 = bhp_array[0];
|
||||||
const double& y1 = bhp_array[1];
|
const Scalar& y1 = bhp_array[1];
|
||||||
thp = findX(x0, x1, y0, y1, bhp);
|
thp = findX(x0, x1, y0, y1, bhp);
|
||||||
}
|
}
|
||||||
//Target bhp greater than all values in array, extrapolate
|
//Target bhp greater than all values in array, extrapolate
|
||||||
else if (bhp > bhp_array[nthp-1]) {
|
else if (bhp > bhp_array[nthp-1]) {
|
||||||
//TODO: LOG extrapolation
|
//TODO: LOG extrapolation
|
||||||
const double& x0 = thp_array[nthp-2];
|
const Scalar& x0 = thp_array[nthp-2];
|
||||||
const double& x1 = thp_array[nthp-1];
|
const Scalar& x1 = thp_array[nthp-1];
|
||||||
const double& y0 = bhp_array[nthp-2];
|
const Scalar& y0 = bhp_array[nthp-2];
|
||||||
const double& y1 = bhp_array[nthp-1];
|
const Scalar& y1 = bhp_array[nthp-1];
|
||||||
thp = findX(x0, x1, y0, y1, bhp);
|
thp = findX(x0, x1, y0, y1, bhp);
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
@ -499,29 +475,30 @@ double findTHP(const std::vector<double>& bhp_array,
|
|||||||
return thp;
|
return thp;
|
||||||
}
|
}
|
||||||
|
|
||||||
std::pair<double, double>
|
template<class Scalar>
|
||||||
|
std::pair<Scalar, Scalar> VFPHelpers<Scalar>::
|
||||||
getMinimumBHPCoordinate(const VFPProdTable& table,
|
getMinimumBHPCoordinate(const VFPProdTable& table,
|
||||||
const double thp,
|
const Scalar thp,
|
||||||
const double wfr,
|
const Scalar wfr,
|
||||||
const double gfr,
|
const Scalar gfr,
|
||||||
const double alq)
|
const Scalar alq)
|
||||||
{
|
{
|
||||||
// Given fixed thp, wfr, gfr and alq, this function finds the minimum bhp and returns
|
// Given fixed thp, wfr, gfr and alq, this function finds the minimum bhp and returns
|
||||||
// the corresponding pair (-flo_at_bhp_min, bhp_min). No assumption is taken on the
|
// the corresponding pair (-flo_at_bhp_min, bhp_min). No assumption is taken on the
|
||||||
// shape of the function bhp(flo), so all points in the flo-axis is checked.
|
// shape of the function bhp(flo), so all points in the flo-axis is checked.
|
||||||
double flo_at_bhp_min = 0.0; // start by checking flo=0
|
Scalar flo_at_bhp_min = 0.0; // start by checking flo=0
|
||||||
auto flo_i = detail::findInterpData(flo_at_bhp_min, table.getFloAxis());
|
auto flo_i = findInterpData(flo_at_bhp_min, table.getFloAxis());
|
||||||
auto thp_i = detail::findInterpData( thp, table.getTHPAxis());
|
auto thp_i = findInterpData( thp, table.getTHPAxis());
|
||||||
auto wfr_i = detail::findInterpData( wfr, table.getWFRAxis());
|
auto wfr_i = findInterpData( wfr, table.getWFRAxis());
|
||||||
auto gfr_i = detail::findInterpData( gfr, table.getGFRAxis());
|
auto gfr_i = findInterpData( gfr, table.getGFRAxis());
|
||||||
auto alq_i = detail::findInterpData( alq, table.getALQAxis());
|
auto alq_i = findInterpData( alq, table.getALQAxis());
|
||||||
|
|
||||||
detail::VFPEvaluation bhp_i = detail::interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i);
|
detail::VFPEvaluation bhp_i = interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i);
|
||||||
double bhp_min = bhp_i.value;
|
Scalar bhp_min = bhp_i.value;
|
||||||
const std::vector<double>& flos = table.getFloAxis();
|
const std::vector<double>& flos = table.getFloAxis();
|
||||||
for (size_t i = 0; i < flos.size(); ++i) {
|
for (size_t i = 0; i < flos.size(); ++i) {
|
||||||
flo_i = detail::findInterpData(flos[i], flos);
|
flo_i = findInterpData(flos[i], flos);
|
||||||
bhp_i = detail::interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i);
|
bhp_i = interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i);
|
||||||
if (bhp_i.value < bhp_min){
|
if (bhp_i.value < bhp_min){
|
||||||
bhp_min = bhp_i.value;
|
bhp_min = bhp_i.value;
|
||||||
flo_at_bhp_min = flos[i];
|
flo_at_bhp_min = flos[i];
|
||||||
@ -531,15 +508,16 @@ getMinimumBHPCoordinate(const VFPProdTable& table,
|
|||||||
return std::make_pair(-flo_at_bhp_min, bhp_min);
|
return std::make_pair(-flo_at_bhp_min, bhp_min);
|
||||||
}
|
}
|
||||||
|
|
||||||
std::optional<std::pair<double, double>>
|
template<class Scalar>
|
||||||
|
std::optional<std::pair<Scalar, Scalar>> VFPHelpers<Scalar>::
|
||||||
intersectWithIPR(const VFPProdTable& table,
|
intersectWithIPR(const VFPProdTable& table,
|
||||||
const double thp,
|
const Scalar thp,
|
||||||
const double wfr,
|
const Scalar wfr,
|
||||||
const double gfr,
|
const Scalar gfr,
|
||||||
const double alq,
|
const Scalar alq,
|
||||||
const double ipr_a,
|
const Scalar ipr_a,
|
||||||
const double ipr_b,
|
const Scalar ipr_b,
|
||||||
const std::function<double(const double)>& adjust_bhp)
|
const std::function<Scalar(const Scalar)>& adjust_bhp)
|
||||||
{
|
{
|
||||||
// Given fixed thp, wfr, gfr and alq, this function finds a stable (-flo, bhp)-intersection
|
// Given fixed thp, wfr, gfr and alq, this function finds a stable (-flo, bhp)-intersection
|
||||||
// between the ipr-line and bhp(flo) if such an intersection exists. For multiple stable
|
// between the ipr-line and bhp(flo) if such an intersection exists. For multiple stable
|
||||||
@ -550,35 +528,35 @@ intersectWithIPR(const VFPProdTable& table,
|
|||||||
// NOTE: ipr-line is q=b*bhp - a!
|
// NOTE: ipr-line is q=b*bhp - a!
|
||||||
// ipr is given for negative flo, so
|
// ipr is given for negative flo, so
|
||||||
// flo = -b*bhp + a, i.e., bhp = -(flo-a)/b
|
// flo = -b*bhp + a, i.e., bhp = -(flo-a)/b
|
||||||
auto thp_i = detail::findInterpData( thp, table.getTHPAxis());
|
auto thp_i = findInterpData( thp, table.getTHPAxis());
|
||||||
auto wfr_i = detail::findInterpData( wfr, table.getWFRAxis());
|
auto wfr_i = findInterpData( wfr, table.getWFRAxis());
|
||||||
auto gfr_i = detail::findInterpData( gfr, table.getGFRAxis());
|
auto gfr_i = findInterpData( gfr, table.getGFRAxis());
|
||||||
auto alq_i = detail::findInterpData( alq, table.getALQAxis());
|
auto alq_i = findInterpData( alq, table.getALQAxis());
|
||||||
|
|
||||||
if (ipr_b == 0.0) {
|
if (ipr_b == 0.0) {
|
||||||
// this shouldn't happen, but deal with it to be safe
|
// this shouldn't happen, but deal with it to be safe
|
||||||
auto flo_i = detail::findInterpData(ipr_a, table.getFloAxis());
|
auto flo_i = findInterpData(ipr_a, table.getFloAxis());
|
||||||
detail::VFPEvaluation bhp_i = detail::interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i);
|
detail::VFPEvaluation bhp_i = interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i);
|
||||||
return std::make_pair(-ipr_a, adjust_bhp(bhp_i.value));
|
return std::make_pair(-ipr_a, adjust_bhp(bhp_i.value));
|
||||||
}
|
}
|
||||||
// find largest flo (flo_x) for which y = bhp(flo) + (flo-a)/b = 0 and dy/dflo > 0
|
// find largest flo (flo_x) for which y = bhp(flo) + (flo-a)/b = 0 and dy/dflo > 0
|
||||||
double flo_x = -1.0;
|
Scalar flo_x = -1.0;
|
||||||
double flo0, flo1;
|
Scalar flo0, flo1;
|
||||||
double y0, y1;
|
Scalar y0, y1;
|
||||||
flo0 = 0.0; // start by checking flo=0
|
flo0 = 0.0; // start by checking flo=0
|
||||||
auto flo_i = detail::findInterpData(flo0, table.getFloAxis());
|
auto flo_i = findInterpData(flo0, table.getFloAxis());
|
||||||
detail::VFPEvaluation bhp_i = detail::interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i);
|
detail::VFPEvaluation bhp_i = interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i);
|
||||||
y0 = adjust_bhp(bhp_i.value) - ipr_a/ipr_b; // +0.0/ipr_b
|
y0 = adjust_bhp(bhp_i.value) - ipr_a/ipr_b; // +0.0/ipr_b
|
||||||
|
|
||||||
std::vector<double> flos = table.getFloAxis();
|
const std::vector<double>& flos = table.getFloAxis();
|
||||||
for (size_t i = 0; i < flos.size(); ++i) {
|
for (size_t i = 0; i < flos.size(); ++i) {
|
||||||
flo1 = flos[i];
|
flo1 = flos[i];
|
||||||
flo_i = detail::findInterpData(flo1, table.getFloAxis());
|
flo_i = findInterpData(flo1, flos);
|
||||||
bhp_i = detail::interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i);
|
bhp_i = interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i);
|
||||||
y1 = adjust_bhp(bhp_i.value) + (flo1 - ipr_a)/ipr_b;
|
y1 = adjust_bhp(bhp_i.value) + (flo1 - ipr_a)/ipr_b;
|
||||||
if (y0 < 0 && y1 >= 0){
|
if (y0 < 0 && y1 >= 0){
|
||||||
// crossing with positive slope
|
// crossing with positive slope
|
||||||
double w = -y0/(y1-y0);
|
Scalar w = -y0/(y1-y0);
|
||||||
w = std::clamp(w, 0.0, 1.0); // just to be safe (if y0~y1~0)
|
w = std::clamp(w, 0.0, 1.0); // just to be safe (if y0~y1~0)
|
||||||
flo_x = flo0 + w*(flo1 - flo0);
|
flo_x = flo0 + w*(flo1 - flo0);
|
||||||
}
|
}
|
||||||
@ -593,6 +571,45 @@ intersectWithIPR(const VFPProdTable& table,
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
namespace detail {
|
||||||
|
|
||||||
|
template<class Scalar>
|
||||||
|
VFPEvaluation<Scalar> operator+(VFPEvaluation<Scalar> lhs, const VFPEvaluation<Scalar>& rhs)
|
||||||
|
{
|
||||||
|
lhs.value += rhs.value;
|
||||||
|
lhs.dthp += rhs.dthp;
|
||||||
|
lhs.dwfr += rhs.dwfr;
|
||||||
|
lhs.dgfr += rhs.dgfr;
|
||||||
|
lhs.dalq += rhs.dalq;
|
||||||
|
lhs.dflo += rhs.dflo;
|
||||||
|
return lhs;
|
||||||
|
}
|
||||||
|
|
||||||
|
template<class Scalar>
|
||||||
|
VFPEvaluation<Scalar> operator-(VFPEvaluation<Scalar> lhs, const VFPEvaluation<Scalar>& rhs)
|
||||||
|
{
|
||||||
|
lhs.value -= rhs.value;
|
||||||
|
lhs.dthp -= rhs.dthp;
|
||||||
|
lhs.dwfr -= rhs.dwfr;
|
||||||
|
lhs.dgfr -= rhs.dgfr;
|
||||||
|
lhs.dalq -= rhs.dalq;
|
||||||
|
lhs.dflo -= rhs.dflo;
|
||||||
|
return lhs;
|
||||||
|
}
|
||||||
|
|
||||||
|
template<class Scalar>
|
||||||
|
VFPEvaluation<Scalar> operator*(Scalar lhs, const VFPEvaluation<Scalar>& rhs)
|
||||||
|
{
|
||||||
|
VFPEvaluation<Scalar> retval;
|
||||||
|
retval.value = rhs.value * lhs;
|
||||||
|
retval.dthp = rhs.dthp * lhs;
|
||||||
|
retval.dwfr = rhs.dwfr * lhs;
|
||||||
|
retval.dgfr = rhs.dgfr * lhs;
|
||||||
|
retval.dalq = rhs.dalq * lhs;
|
||||||
|
retval.dflo = rhs.dflo * lhs;
|
||||||
|
return retval;
|
||||||
|
}
|
||||||
|
|
||||||
template <typename T>
|
template <typename T>
|
||||||
T getFlo(const VFPProdTable& table,
|
T getFlo(const VFPProdTable& table,
|
||||||
const T& aqua,
|
const T& aqua,
|
||||||
@ -753,4 +770,7 @@ INSTANCE(DenseAd::Evaluation<double, 9, 0u>)
|
|||||||
INSTANCE(DenseAd::Evaluation<double, 10, 0u>)
|
INSTANCE(DenseAd::Evaluation<double, 10, 0u>)
|
||||||
|
|
||||||
} // namespace detail
|
} // namespace detail
|
||||||
|
|
||||||
|
template class VFPHelpers<double>;
|
||||||
|
|
||||||
} // namespace Opm
|
} // namespace Opm
|
||||||
|
@ -21,7 +21,6 @@
|
|||||||
#ifndef OPM_AUTODIFF_VFPHELPERS_HPP_
|
#ifndef OPM_AUTODIFF_VFPHELPERS_HPP_
|
||||||
#define OPM_AUTODIFF_VFPHELPERS_HPP_
|
#define OPM_AUTODIFF_VFPHELPERS_HPP_
|
||||||
|
|
||||||
#include <array>
|
|
||||||
#include <functional>
|
#include <functional>
|
||||||
#include <map>
|
#include <map>
|
||||||
#include <vector>
|
#include <vector>
|
||||||
@ -37,6 +36,40 @@ class VFPProdTable;
|
|||||||
|
|
||||||
namespace detail {
|
namespace detail {
|
||||||
|
|
||||||
|
/**
|
||||||
|
* An "ADB-like" structure with a single value and a set of derivatives
|
||||||
|
*/
|
||||||
|
template<class Scalar>
|
||||||
|
struct VFPEvaluation
|
||||||
|
{
|
||||||
|
VFPEvaluation() : value(0.0), dthp(0.0), dwfr(0.0), dgfr(0.0), dalq(0.0), dflo(0.0) {};
|
||||||
|
Scalar value;
|
||||||
|
Scalar dthp;
|
||||||
|
Scalar dwfr;
|
||||||
|
Scalar dgfr;
|
||||||
|
Scalar dalq;
|
||||||
|
Scalar dflo;
|
||||||
|
};
|
||||||
|
|
||||||
|
template<class Scalar>
|
||||||
|
VFPEvaluation<Scalar> operator+(VFPEvaluation<Scalar> lhs, const VFPEvaluation<Scalar>& rhs);
|
||||||
|
template<class Scalar>
|
||||||
|
VFPEvaluation<Scalar> operator-(VFPEvaluation<Scalar> lhs, const VFPEvaluation<Scalar>& rhs);
|
||||||
|
template<class Scalar>
|
||||||
|
VFPEvaluation<Scalar> operator*(Scalar lhs, const VFPEvaluation<Scalar>& rhs);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Helper struct for linear interpolation
|
||||||
|
*/
|
||||||
|
template<class Scalar>
|
||||||
|
struct InterpData
|
||||||
|
{
|
||||||
|
InterpData() : ind_{0, 0}, inv_dist_(0.0), factor_(0.0) {}
|
||||||
|
int ind_[2]; //[First element greater than or equal to value, Last element smaller than or equal to value]
|
||||||
|
Scalar inv_dist_; // 1 / distance between the two end points of the segment. Used to calculate derivatives and uses 1.0 / 0.0 = 0.0 as a convention
|
||||||
|
Scalar factor_; // Interpolation factor
|
||||||
|
};
|
||||||
|
|
||||||
/**
|
/**
|
||||||
* Computes the flo parameter according to the flo_type_
|
* Computes the flo parameter according to the flo_type_
|
||||||
* for production tables
|
* for production tables
|
||||||
@ -79,76 +112,6 @@ T getGFR(const VFPProdTable& table,
|
|||||||
const T& liquid,
|
const T& liquid,
|
||||||
const T& vapour);
|
const T& vapour);
|
||||||
|
|
||||||
/**
|
|
||||||
* Helper struct for linear interpolation
|
|
||||||
*/
|
|
||||||
struct InterpData {
|
|
||||||
InterpData() : ind_{0, 0}, inv_dist_(0.0), factor_(0.0) {}
|
|
||||||
int ind_[2]; //[First element greater than or equal to value, Last element smaller than or equal to value]
|
|
||||||
double inv_dist_; // 1 / distance between the two end points of the segment. Used to calculate derivatives and uses 1.0 / 0.0 = 0.0 as a convention
|
|
||||||
double factor_; // Interpolation factor
|
|
||||||
};
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Helper function to find indices etc. for linear interpolation and extrapolation
|
|
||||||
* @param value_in Value to find in values
|
|
||||||
* @param values Sorted list of values to search for value in.
|
|
||||||
* @return Data required to find the interpolated value
|
|
||||||
*/
|
|
||||||
InterpData findInterpData(const double value_in, const std::vector<double>& values);
|
|
||||||
|
|
||||||
/**
|
|
||||||
* An "ADB-like" structure with a single value and a set of derivatives
|
|
||||||
*/
|
|
||||||
struct VFPEvaluation {
|
|
||||||
VFPEvaluation() : value(0.0), dthp(0.0), dwfr(0.0), dgfr(0.0), dalq(0.0), dflo(0.0) {};
|
|
||||||
double value;
|
|
||||||
double dthp;
|
|
||||||
double dwfr;
|
|
||||||
double dgfr;
|
|
||||||
double dalq;
|
|
||||||
double dflo;
|
|
||||||
};
|
|
||||||
|
|
||||||
VFPEvaluation operator+(VFPEvaluation lhs, const VFPEvaluation& rhs);
|
|
||||||
VFPEvaluation operator-(VFPEvaluation lhs, const VFPEvaluation& rhs);
|
|
||||||
VFPEvaluation operator*(double lhs, const VFPEvaluation& rhs);
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Helper function which interpolates data using the indices etc. given in the inputs.
|
|
||||||
*/
|
|
||||||
VFPEvaluation interpolate(const VFPProdTable& table,
|
|
||||||
const InterpData& flo_i,
|
|
||||||
const InterpData& thp_i,
|
|
||||||
const InterpData& wfr_i,
|
|
||||||
const InterpData& gfr_i,
|
|
||||||
const InterpData& alq_i);
|
|
||||||
|
|
||||||
/**
|
|
||||||
* This basically models interpolate(VFPProdTable::array_type, ...)
|
|
||||||
* which performs 5D interpolation, but here for the 2D case only
|
|
||||||
*/
|
|
||||||
VFPEvaluation interpolate(const VFPInjTable& table,
|
|
||||||
const InterpData& flo_i,
|
|
||||||
const InterpData& thp_i);
|
|
||||||
|
|
||||||
VFPEvaluation bhp(const VFPProdTable& table,
|
|
||||||
const double aqua,
|
|
||||||
const double liquid,
|
|
||||||
const double vapour,
|
|
||||||
const double thp,
|
|
||||||
const double alq,
|
|
||||||
const double explicit_wfr,
|
|
||||||
const double explicit_gfr,
|
|
||||||
const bool use_vfpexplicit);
|
|
||||||
|
|
||||||
VFPEvaluation bhp(const VFPInjTable& table,
|
|
||||||
const double aqua,
|
|
||||||
const double liquid,
|
|
||||||
const double vapour,
|
|
||||||
const double thp);
|
|
||||||
|
|
||||||
|
|
||||||
/**
|
/**
|
||||||
* Returns the table from the map if found, or throws an exception
|
* Returns the table from the map if found, or throws an exception
|
||||||
*/
|
*/
|
||||||
@ -164,13 +127,59 @@ bool hasTable(const std::map<int, std::reference_wrapper<const T>>& tables, int
|
|||||||
return (entry != tables.end() );
|
return (entry != tables.end() );
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
/**
|
/**
|
||||||
* Returns the type variable for FLO/GFR/WFR for production tables
|
* Returns the type variable for FLO/GFR/WFR for production tables
|
||||||
*/
|
*/
|
||||||
template <typename TYPE, typename TABLE>
|
template <typename TYPE, typename TABLE>
|
||||||
TYPE getType(const TABLE& table);
|
TYPE getType(const TABLE& table);
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
template<class Scalar>
|
||||||
|
class VFPHelpers {
|
||||||
|
public:
|
||||||
|
/**
|
||||||
|
* Helper function to find indices etc. for linear interpolation and extrapolation
|
||||||
|
* @param value_in Value to find in values
|
||||||
|
* @param values Sorted list of values to search for value in.
|
||||||
|
* @return Data required to find the interpolated value
|
||||||
|
*/
|
||||||
|
static detail::InterpData<Scalar> findInterpData(const Scalar value_in,
|
||||||
|
const std::vector<double>& values);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Helper function which interpolates data using the indices etc. given in the inputs.
|
||||||
|
*/
|
||||||
|
static detail::VFPEvaluation<Scalar> interpolate(const VFPProdTable& table,
|
||||||
|
const detail::InterpData<Scalar>& flo_i,
|
||||||
|
const detail::InterpData<Scalar>& thp_i,
|
||||||
|
const detail::InterpData<Scalar>& wfr_i,
|
||||||
|
const detail::InterpData<Scalar>& gfr_i,
|
||||||
|
const detail::InterpData<Scalar>& alq_i);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This basically models interpolate(VFPProdTable::array_type, ...)
|
||||||
|
* which performs 5D interpolation, but here for the 2D case only
|
||||||
|
*/
|
||||||
|
static detail::VFPEvaluation<Scalar> interpolate(const VFPInjTable& table,
|
||||||
|
const detail::InterpData<Scalar>& flo_i,
|
||||||
|
const detail::InterpData<Scalar>& thp_i);
|
||||||
|
|
||||||
|
static detail::VFPEvaluation<Scalar> bhp(const VFPProdTable& table,
|
||||||
|
const Scalar aqua,
|
||||||
|
const Scalar liquid,
|
||||||
|
const Scalar vapour,
|
||||||
|
const Scalar thp,
|
||||||
|
const Scalar alq,
|
||||||
|
const Scalar explicit_wfr,
|
||||||
|
const Scalar explicit_gfr,
|
||||||
|
const bool use_vfpexplicit);
|
||||||
|
|
||||||
|
static detail::VFPEvaluation<Scalar> bhp(const VFPInjTable& table,
|
||||||
|
const Scalar aqua,
|
||||||
|
const Scalar liquid,
|
||||||
|
const Scalar vapour,
|
||||||
|
const Scalar thp);
|
||||||
|
|
||||||
/**
|
/**
|
||||||
* This function finds the value of THP given a specific BHP.
|
* This function finds the value of THP given a specific BHP.
|
||||||
@ -178,40 +187,35 @@ TYPE getType(const TABLE& table);
|
|||||||
* Given the function f(thp_array(x)) = bhp_array(x), which is piecewise linear,
|
* Given the function f(thp_array(x)) = bhp_array(x), which is piecewise linear,
|
||||||
* find thp so that f(thp) = bhp.
|
* find thp so that f(thp) = bhp.
|
||||||
*/
|
*/
|
||||||
double findTHP(const std::vector<double>& bhp_array,
|
static Scalar findTHP(const std::vector<Scalar>& bhp_array,
|
||||||
const std::vector<double>& thp_array,
|
const std::vector<double>& thp_array,
|
||||||
double bhp);
|
Scalar bhp);
|
||||||
|
|
||||||
/**
|
/**
|
||||||
* Get (flo, bhp) at minimum bhp for given thp,wfr,gfr,alq
|
* Get (flo, bhp) at minimum bhp for given thp,wfr,gfr,alq
|
||||||
*/
|
*/
|
||||||
std::pair<double, double>
|
static std::pair<Scalar, Scalar>
|
||||||
getMinimumBHPCoordinate(const VFPProdTable& table,
|
getMinimumBHPCoordinate(const VFPProdTable& table,
|
||||||
const double thp,
|
const Scalar thp,
|
||||||
const double wfr,
|
const Scalar wfr,
|
||||||
const double gfr,
|
const Scalar gfr,
|
||||||
const double alq);
|
const Scalar alq);
|
||||||
|
|
||||||
/**
|
/**
|
||||||
* Get (flo, bhp) at largest occuring stable vfp/ipr-intersection
|
* Get (flo, bhp) at largest occuring stable vfp/ipr-intersection
|
||||||
* if it exists
|
* if it exists
|
||||||
*/
|
*/
|
||||||
std::optional<std::pair<double, double>>
|
static std::optional<std::pair<Scalar, Scalar>>
|
||||||
intersectWithIPR(const VFPProdTable& table,
|
intersectWithIPR(const VFPProdTable& table,
|
||||||
const double thp,
|
const Scalar thp,
|
||||||
const double wfr,
|
const Scalar wfr,
|
||||||
const double gfr,
|
const Scalar gfr,
|
||||||
const double alq,
|
const Scalar alq,
|
||||||
const double ipr_a,
|
const Scalar ipr_a,
|
||||||
const double ipr_b,
|
const Scalar ipr_b,
|
||||||
const std::function<double(const double)>& adjust_bhp);
|
const std::function<Scalar(const Scalar)>& adjust_bhp);
|
||||||
|
};
|
||||||
} // namespace detail
|
|
||||||
|
|
||||||
|
|
||||||
} // namespace
|
} // namespace
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#endif /* OPM_AUTODIFF_VFPHELPERS_HPP_ */
|
#endif /* OPM_AUTODIFF_VFPHELPERS_HPP_ */
|
||||||
|
@ -41,7 +41,7 @@ bhp(const int table_id,
|
|||||||
{
|
{
|
||||||
const VFPInjTable& table = detail::getTable(m_tables, table_id);
|
const VFPInjTable& table = detail::getTable(m_tables, table_id);
|
||||||
|
|
||||||
detail::VFPEvaluation retval = detail::bhp(table, aqua, liquid, vapour, thp_arg);
|
detail::VFPEvaluation retval = VFPHelpers<Scalar>::bhp(table, aqua, liquid, vapour, thp_arg);
|
||||||
return retval.value;
|
return retval.value;
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -61,7 +61,7 @@ thp(const int table_id,
|
|||||||
return 0.;
|
return 0.;
|
||||||
}
|
}
|
||||||
|
|
||||||
const std::vector<double> thp_array = table.getTHPAxis();
|
const auto thp_array = table.getTHPAxis();
|
||||||
int nthp = thp_array.size();
|
int nthp = thp_array.size();
|
||||||
|
|
||||||
/**
|
/**
|
||||||
@ -69,14 +69,14 @@ thp(const int table_id,
|
|||||||
* by interpolating for every value of thp. This might be somewhat
|
* by interpolating for every value of thp. This might be somewhat
|
||||||
* expensive, but let us assome that nthp is small
|
* expensive, but let us assome that nthp is small
|
||||||
*/
|
*/
|
||||||
auto flo_i = detail::findInterpData(flo, table.getFloAxis());
|
const auto flo_i = VFPHelpers<Scalar>::findInterpData(flo, table.getFloAxis());
|
||||||
std::vector<Scalar> bhp_array(nthp);
|
std::vector<Scalar> bhp_array(nthp);
|
||||||
for (int i = 0; i < nthp; ++i) {
|
for (int i = 0; i < nthp; ++i) {
|
||||||
auto thp_i = detail::findInterpData(thp_array[i], thp_array);
|
auto thp_i = VFPHelpers<Scalar>::findInterpData(thp_array[i], thp_array);
|
||||||
bhp_array[i] = detail::interpolate(table, flo_i, thp_i).value;
|
bhp_array[i] = VFPHelpers<Scalar>::interpolate(table, flo_i, thp_i).value;
|
||||||
}
|
}
|
||||||
|
|
||||||
return detail::findTHP(bhp_array, thp_array, bhp_arg);
|
return VFPHelpers<Scalar>::findTHP(bhp_array, thp_array, bhp_arg);
|
||||||
}
|
}
|
||||||
|
|
||||||
template<class Scalar>
|
template<class Scalar>
|
||||||
@ -115,10 +115,10 @@ EvalWell VFPInjProperties<Scalar>::bhp(const int table_id,
|
|||||||
|
|
||||||
//First, find the values to interpolate between
|
//First, find the values to interpolate between
|
||||||
//Value of FLO is negative in OPM for producers, but positive in VFP table
|
//Value of FLO is negative in OPM for producers, but positive in VFP table
|
||||||
auto flo_i = detail::findInterpData(flo.value(), table.getFloAxis());
|
const auto flo_i = VFPHelpers<Scalar>::findInterpData(flo.value(), table.getFloAxis());
|
||||||
auto thp_i = detail::findInterpData( thp, table.getTHPAxis()); // assume constant
|
const auto thp_i = VFPHelpers<Scalar>::findInterpData(thp, table.getTHPAxis()); // assume constant
|
||||||
|
|
||||||
detail::VFPEvaluation bhp_val = detail::interpolate(table, flo_i, thp_i);
|
detail::VFPEvaluation bhp_val = VFPHelpers<Scalar>::interpolate(table, flo_i, thp_i);
|
||||||
|
|
||||||
bhp = bhp_val.dflo * flo;
|
bhp = bhp_val.dflo * flo;
|
||||||
bhp.setValue(bhp_val.value); // thp is assumed constant i.e.
|
bhp.setValue(bhp_val.value); // thp is assumed constant i.e.
|
||||||
|
@ -67,17 +67,17 @@ thp(const int table_id,
|
|||||||
* by interpolating for every value of thp. This might be somewhat
|
* by interpolating for every value of thp. This might be somewhat
|
||||||
* expensive, but let us assome that nthp is small.
|
* expensive, but let us assome that nthp is small.
|
||||||
*/
|
*/
|
||||||
auto flo_i = detail::findInterpData( flo, table.getFloAxis());
|
auto flo_i = VFPHelpers<Scalar>::findInterpData( flo, table.getFloAxis());
|
||||||
auto wfr_i = detail::findInterpData( wfr, table.getWFRAxis());
|
auto wfr_i = VFPHelpers<Scalar>::findInterpData( wfr, table.getWFRAxis());
|
||||||
auto gfr_i = detail::findInterpData( gfr, table.getGFRAxis());
|
auto gfr_i = VFPHelpers<Scalar>::findInterpData( gfr, table.getGFRAxis());
|
||||||
auto alq_i = detail::findInterpData( alq, table.getALQAxis());
|
auto alq_i = VFPHelpers<Scalar>::findInterpData( alq, table.getALQAxis());
|
||||||
std::vector<Scalar> bhp_array(nthp);
|
std::vector<Scalar> bhp_array(nthp);
|
||||||
for (int i = 0; i < nthp; ++i) {
|
for (int i = 0; i < nthp; ++i) {
|
||||||
auto thp_i = detail::findInterpData(thp_array[i], thp_array);
|
auto thp_i = VFPHelpers<Scalar>::findInterpData(thp_array[i], thp_array);
|
||||||
bhp_array[i] = detail::interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i).value;
|
bhp_array[i] = VFPHelpers<Scalar>::interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i).value;
|
||||||
}
|
}
|
||||||
|
|
||||||
return detail::findTHP(bhp_array, thp_array, bhp_arg);
|
return VFPHelpers<Scalar>::findTHP(bhp_array, thp_array, bhp_arg);
|
||||||
}
|
}
|
||||||
|
|
||||||
template<class Scalar>
|
template<class Scalar>
|
||||||
@ -94,7 +94,9 @@ bhp(const int table_id,
|
|||||||
{
|
{
|
||||||
const VFPProdTable& table = detail::getTable(m_tables, table_id);
|
const VFPProdTable& table = detail::getTable(m_tables, table_id);
|
||||||
|
|
||||||
detail::VFPEvaluation retval = detail::bhp(table, aqua, liquid, vapour, thp_arg, alq, explicit_wfr,explicit_gfr, use_expvfp);
|
detail::VFPEvaluation retval = VFPHelpers<Scalar>::bhp(table, aqua, liquid, vapour,
|
||||||
|
thp_arg, alq, explicit_wfr,
|
||||||
|
explicit_gfr, use_expvfp);
|
||||||
return retval.value;
|
return retval.value;
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -124,16 +126,16 @@ bhpwithflo(const std::vector<Scalar>& flos,
|
|||||||
{
|
{
|
||||||
// Get the table
|
// Get the table
|
||||||
const VFPProdTable& table = detail::getTable(m_tables, table_id);
|
const VFPProdTable& table = detail::getTable(m_tables, table_id);
|
||||||
const auto thp_i = detail::findInterpData( thp, table.getTHPAxis()); // assume constant
|
const auto thp_i = VFPHelpers<Scalar>::findInterpData( thp, table.getTHPAxis()); // assume constant
|
||||||
const auto wfr_i = detail::findInterpData( wfr, table.getWFRAxis());
|
const auto wfr_i = VFPHelpers<Scalar>::findInterpData( wfr, table.getWFRAxis());
|
||||||
const auto gfr_i = detail::findInterpData( gfr, table.getGFRAxis());
|
const auto gfr_i = VFPHelpers<Scalar>::findInterpData( gfr, table.getGFRAxis());
|
||||||
const auto alq_i = detail::findInterpData( alq, table.getALQAxis()); //assume constant
|
const auto alq_i = VFPHelpers<Scalar>::findInterpData( alq, table.getALQAxis()); //assume constant
|
||||||
|
|
||||||
std::vector<Scalar> bhps(flos.size(), 0.);
|
std::vector<Scalar> bhps(flos.size(), 0.);
|
||||||
for (std::size_t i = 0; i < flos.size(); ++i) {
|
for (std::size_t i = 0; i < flos.size(); ++i) {
|
||||||
// Value of FLO is negative in OPM for producers, but positive in VFP table
|
// Value of FLO is negative in OPM for producers, but positive in VFP table
|
||||||
const auto flo_i = detail::findInterpData(-flos[i], table.getFloAxis());
|
const auto flo_i = VFPHelpers<Scalar>::findInterpData(-flos[i], table.getFloAxis());
|
||||||
const detail::VFPEvaluation bhp_val = detail::interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i);
|
const detail::VFPEvaluation bhp_val = VFPHelpers<Scalar>::interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i);
|
||||||
|
|
||||||
// TODO: this kind of breaks the conventions for the functions here by putting dp within the function
|
// TODO: this kind of breaks the conventions for the functions here by putting dp within the function
|
||||||
bhps[i] = bhp_val.value - dp;
|
bhps[i] = bhp_val.value - dp;
|
||||||
@ -152,7 +154,7 @@ minimumBHP(const int table_id,
|
|||||||
{
|
{
|
||||||
// Get the table
|
// Get the table
|
||||||
const VFPProdTable& table = detail::getTable(m_tables, table_id);
|
const VFPProdTable& table = detail::getTable(m_tables, table_id);
|
||||||
const auto retval = detail::getMinimumBHPCoordinate(table, thp, wfr, gfr, alq);
|
const auto retval = VFPHelpers<Scalar>::getMinimumBHPCoordinate(table, thp, wfr, gfr, alq);
|
||||||
// returned pair is (flo, bhp)
|
// returned pair is (flo, bhp)
|
||||||
return retval.second;
|
return retval.second;
|
||||||
}
|
}
|
||||||
@ -191,13 +193,14 @@ bhp(const int table_id,
|
|||||||
|
|
||||||
//First, find the values to interpolate between
|
//First, find the values to interpolate between
|
||||||
//Value of FLO is negative in OPM for producers, but positive in VFP table
|
//Value of FLO is negative in OPM for producers, but positive in VFP table
|
||||||
auto flo_i = detail::findInterpData(-flo.value(), table.getFloAxis());
|
auto flo_i = VFPHelpers<Scalar>::findInterpData(-flo.value(), table.getFloAxis());
|
||||||
auto thp_i = detail::findInterpData( thp, table.getTHPAxis()); // assume constant
|
auto thp_i = VFPHelpers<Scalar>::findInterpData( thp, table.getTHPAxis()); // assume constant
|
||||||
auto wfr_i = detail::findInterpData( wfr.value(), table.getWFRAxis());
|
auto wfr_i = VFPHelpers<Scalar>::findInterpData( wfr.value(), table.getWFRAxis());
|
||||||
auto gfr_i = detail::findInterpData( gfr.value(), table.getGFRAxis());
|
auto gfr_i = VFPHelpers<Scalar>::findInterpData( gfr.value(), table.getGFRAxis());
|
||||||
auto alq_i = detail::findInterpData( alq, table.getALQAxis()); //assume constant
|
auto alq_i = VFPHelpers<Scalar>::findInterpData( alq, table.getALQAxis()); //assume constant
|
||||||
|
|
||||||
detail::VFPEvaluation bhp_val = detail::interpolate(table, flo_i, thp_i, wfr_i, gfr_i, alq_i);
|
detail::VFPEvaluation bhp_val = VFPHelpers<Scalar>::interpolate(table, flo_i, thp_i, wfr_i,
|
||||||
|
gfr_i, alq_i);
|
||||||
|
|
||||||
bhp = (bhp_val.dwfr * wfr) + (bhp_val.dgfr * gfr) - (std::max(0.0, bhp_val.dflo) * flo);
|
bhp = (bhp_val.dwfr * wfr) + (bhp_val.dgfr * gfr) - (std::max(0.0, bhp_val.dflo) * flo);
|
||||||
bhp.setValue(bhp_val.value);
|
bhp.setValue(bhp_val.value);
|
||||||
|
@ -919,7 +919,9 @@ isStableSolution(const WellState<Scalar>& well_state,
|
|||||||
const auto& table = well_.vfpProperties()->getProd()->getTable(controls.vfp_table_number);
|
const auto& table = well_.vfpProperties()->getProd()->getTable(controls.vfp_table_number);
|
||||||
const bool use_vfpexplicit = well_.useVfpExplicit();
|
const bool use_vfpexplicit = well_.useVfpExplicit();
|
||||||
|
|
||||||
detail::VFPEvaluation bhp = detail::bhp(table, aqua, liquid, vapour, thp, well_.getALQ(well_state), wfr, gfr, use_vfpexplicit);
|
auto bhp = VFPHelpers<double>::bhp(table, aqua, liquid, vapour, thp,
|
||||||
|
well_.getALQ(well_state), wfr, gfr,
|
||||||
|
use_vfpexplicit);
|
||||||
|
|
||||||
if (bhp.dflo >= 0) {
|
if (bhp.dflo >= 0) {
|
||||||
return true;
|
return true;
|
||||||
@ -964,7 +966,10 @@ estimateStableBhp(const WellState<Scalar>& well_state,
|
|||||||
auto bhp_adjusted = [this, &thp, &dp_hydro](const Scalar bhp) {
|
auto bhp_adjusted = [this, &thp, &dp_hydro](const Scalar bhp) {
|
||||||
return bhp - dp_hydro + getVfpBhpAdjustment(bhp, thp);
|
return bhp - dp_hydro + getVfpBhpAdjustment(bhp, thp);
|
||||||
};
|
};
|
||||||
const auto retval = detail::intersectWithIPR(table, thp, wfr, gfr, well_.getALQ(well_state), ipr.first, ipr.second, bhp_adjusted);
|
const auto retval = VFPHelpers<double>::intersectWithIPR(table, thp, wfr, gfr,
|
||||||
|
well_.getALQ(well_state),
|
||||||
|
ipr.first, ipr.second,
|
||||||
|
bhp_adjusted);
|
||||||
if (retval.has_value()) {
|
if (retval.has_value()) {
|
||||||
// returned pair is (flo, bhp)
|
// returned pair is (flo, bhp)
|
||||||
return retval.value().second;
|
return retval.value().second;
|
||||||
|
@ -68,12 +68,12 @@ BOOST_AUTO_TEST_CASE(findInterpData)
|
|||||||
double first = 1;
|
double first = 1;
|
||||||
double last = 15;
|
double last = 15;
|
||||||
|
|
||||||
Opm::detail::InterpData eval0 = Opm::detail::findInterpData(exact, values);
|
auto eval0 = Opm::VFPHelpers<double>::findInterpData(exact, values);
|
||||||
Opm::detail::InterpData eval1 = Opm::detail::findInterpData(interpolate, values);
|
auto eval1 = Opm::VFPHelpers<double>::findInterpData(interpolate, values);
|
||||||
Opm::detail::InterpData eval2 = Opm::detail::findInterpData(extrapolate_left, values);
|
auto eval2 = Opm::VFPHelpers<double>::findInterpData(extrapolate_left, values);
|
||||||
Opm::detail::InterpData eval3 = Opm::detail::findInterpData(extrapolate_right, values);
|
auto eval3 = Opm::VFPHelpers<double>::findInterpData(extrapolate_right, values);
|
||||||
Opm::detail::InterpData eval4 = Opm::detail::findInterpData(first, values);
|
auto eval4 = Opm::VFPHelpers<double>::findInterpData(first, values);
|
||||||
Opm::detail::InterpData eval5 = Opm::detail::findInterpData(last, values);
|
auto eval5 = Opm::VFPHelpers<double>::findInterpData(last, values);
|
||||||
|
|
||||||
BOOST_CHECK_EQUAL(eval0.ind_[0], 2);
|
BOOST_CHECK_EQUAL(eval0.ind_[0], 2);
|
||||||
BOOST_CHECK_EQUAL(eval0.ind_[1], 3);
|
BOOST_CHECK_EQUAL(eval0.ind_[1], 3);
|
||||||
@ -109,7 +109,7 @@ BOOST_AUTO_TEST_SUITE_END() // HelperTests
|
|||||||
* values data is given at
|
* values data is given at
|
||||||
*/
|
*/
|
||||||
struct TrivialFixture {
|
struct TrivialFixture {
|
||||||
typedef Opm::detail::VFPEvaluation VFPEvaluation;
|
typedef Opm::detail::VFPEvaluation<double> VFPEvaluation;
|
||||||
|
|
||||||
TrivialFixture() : table_ids(1, 1),
|
TrivialFixture() : table_ids(1, 1),
|
||||||
thp_axis{0.0, 1.0},
|
thp_axis{0.0, 1.0},
|
||||||
|
Loading…
Reference in New Issue
Block a user