2015-08-11 02:47:06 -05:00
|
|
|
/*
|
|
|
|
Copyright 2015 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/>.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include "config.h"
|
|
|
|
|
|
|
|
#include <opm/autodiff/VFPProdProperties.hpp>
|
|
|
|
#include <opm/core/props/BlackoilPhases.hpp>
|
2015-10-08 04:43:36 -05:00
|
|
|
#include <opm/common/ErrorMacros.hpp>
|
2016-09-09 04:33:34 -05:00
|
|
|
#include <opm/material/densead/Math.hpp>
|
|
|
|
#include <opm/material/densead/Evaluation.hpp>
|
2015-08-11 03:24:55 -05:00
|
|
|
#include <opm/autodiff/VFPHelpers.hpp>
|
2015-08-11 02:47:06 -05:00
|
|
|
|
|
|
|
|
|
|
|
|
2015-08-11 03:24:55 -05:00
|
|
|
namespace Opm {
|
2015-08-11 02:47:06 -05:00
|
|
|
|
|
|
|
|
2015-08-11 03:24:55 -05:00
|
|
|
|
|
|
|
|
|
|
|
VFPProdProperties::VFPProdProperties() {
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
VFPProdProperties::VFPProdProperties(const VFPProdTable* table){
|
|
|
|
m_tables[table->getTableNum()] = table;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2018-11-13 03:45:02 -06:00
|
|
|
VFPProdProperties::VFPProdProperties(const VFPProdProperties::ProdTable& tables) {
|
2015-08-11 09:31:43 -05:00
|
|
|
for (const auto& table : tables) {
|
2018-04-20 04:29:22 -05:00
|
|
|
m_tables[table.first] = table.second.get();
|
2015-08-11 03:24:55 -05:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2015-08-11 02:47:06 -05:00
|
|
|
double VFPProdProperties::thp(int table_id,
|
2018-11-13 03:45:02 -06:00
|
|
|
const double& aqua,
|
|
|
|
const double& liquid,
|
|
|
|
const double& vapour,
|
|
|
|
const double& bhp_arg,
|
|
|
|
const double& alq) const {
|
2015-08-11 09:31:43 -05:00
|
|
|
const VFPProdTable* table = detail::getTable(m_tables, table_id);
|
2015-08-11 02:47:06 -05:00
|
|
|
const VFPProdTable::array_type& data = table->getTable();
|
|
|
|
|
|
|
|
//Find interpolation variables
|
2015-08-11 03:24:55 -05:00
|
|
|
double flo = detail::getFlo(aqua, liquid, vapour, table->getFloType());
|
|
|
|
double wfr = detail::getWFR(aqua, liquid, vapour, table->getWFRType());
|
|
|
|
double gfr = detail::getGFR(aqua, liquid, vapour, table->getGFRType());
|
2015-08-11 02:47:06 -05:00
|
|
|
|
|
|
|
const std::vector<double> thp_array = table->getTHPAxis();
|
|
|
|
int nthp = thp_array.size();
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Find the function bhp_array(thp) by creating a 1D view of the data
|
|
|
|
* by interpolating for every value of thp. This might be somewhat
|
|
|
|
* expensive, but let us assome that nthp is small
|
2015-08-19 04:32:38 -05:00
|
|
|
* Recall that flo is negative in Opm, so switch the sign
|
2015-08-11 02:47:06 -05:00
|
|
|
*/
|
2015-08-19 04:32:38 -05:00
|
|
|
auto flo_i = detail::findInterpData(-flo, table->getFloAxis());
|
|
|
|
auto wfr_i = detail::findInterpData( wfr, table->getWFRAxis());
|
|
|
|
auto gfr_i = detail::findInterpData( gfr, table->getGFRAxis());
|
|
|
|
auto alq_i = detail::findInterpData( alq, table->getALQAxis());
|
2015-08-11 02:47:06 -05:00
|
|
|
std::vector<double> bhp_array(nthp);
|
|
|
|
for (int i=0; i<nthp; ++i) {
|
2015-08-11 03:24:55 -05:00
|
|
|
auto thp_i = detail::findInterpData(thp_array[i], thp_array);
|
|
|
|
bhp_array[i] = detail::interpolate(data, flo_i, thp_i, wfr_i, gfr_i, alq_i).value;
|
2015-08-11 02:47:06 -05:00
|
|
|
}
|
|
|
|
|
2015-09-02 06:02:27 -05:00
|
|
|
double retval = detail::findTHP(bhp_array, thp_array, bhp_arg);
|
|
|
|
return retval;
|
2015-08-11 02:47:06 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2018-11-13 03:45:02 -06:00
|
|
|
double VFPProdProperties::bhp(int table_id,
|
|
|
|
const double& aqua,
|
|
|
|
const double& liquid,
|
|
|
|
const double& vapour,
|
|
|
|
const double& thp_arg,
|
|
|
|
const double& alq) const {
|
|
|
|
const VFPProdTable* table = detail::getTable(m_tables, table_id);
|
2015-08-11 02:47:06 -05:00
|
|
|
|
2018-11-13 03:45:02 -06:00
|
|
|
detail::VFPEvaluation retval = detail::bhp(table, aqua, liquid, vapour, thp_arg, alq);
|
|
|
|
return retval.value;
|
|
|
|
}
|
2015-08-11 03:24:55 -05:00
|
|
|
|
|
|
|
|
2015-08-14 07:48:15 -05:00
|
|
|
const VFPProdTable* VFPProdProperties::getTable(const int table_id) const {
|
|
|
|
return detail::getTable(m_tables, table_id);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2015-08-11 02:47:06 -05:00
|
|
|
}
|