OilfieldToolsNet/opm-simulators
4
0
Fork 0
mirror of https://github.com/OPM/opm-simulators.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Transport solver reads polymer data from PolymerProperties.

Browse Source
This commit is contained in:
Xavier Raynaud 2012-02-29 13:27:20 +01:00
parent 5ef45c59e3
commit 07f136befb
2 changed files with 31 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
opm/polymer/TransportModelPolymer.cpp
View File

@ -33,7 +33,7 @@ namespace Opm
const double* porosity, const double* porosity,
const double* porevolume, const double* porevolume,
const IncompPropertiesInterface& props, const IncompPropertiesInterface& props,
const PolymerData& polyprops, const PolymerProperties& polyprops,
const int method, const int method,
const double tol, const double tol,
const int maxit) const int maxit)
@ -199,8 +199,8 @@ namespace Opm
s = modifiedRegulaFalsi(res_s, tm.smin_[2*cell], tm.smax_[2*cell], tm.maxit_, tm.tol_, iters_used); s = modifiedRegulaFalsi(res_s, tm.smin_[2*cell], tm.smax_[2*cell], tm.maxit_, tm.tol_, iters_used);
double ff = tm.fracFlow(s, c, cell); double ff = tm.fracFlow(s, c, cell);
double mc = tm.computeMc(c); double mc = tm.computeMc(c);
double dps = tm.polyprops_.dps; double dps = tm.polyprops_.deadPoreVol();
double rhor = tm.polyprops_.rhor; double rhor = tm.polyprops_.rockDensity();
double ads0 = tm.polyprops_.adsorbtion(std::max(c0, cmax0)); double ads0 = tm.polyprops_.adsorbtion(std::max(c0, cmax0));
double ads = tm.polyprops_.adsorbtion(std::max(c, cmax0)); double ads = tm.polyprops_.adsorbtion(std::max(c, cmax0));
double res = (s - dps)*c - (s0 - dps)*c0 double res = (s - dps)*c - (s0 - dps)*c0
@ -286,9 +286,9 @@ namespace Opm
void computeExplicitStep(const double* xmin, const double* xmax, double* x) const { void computeExplicitStep(const double* xmin, const double* xmax, double* x) const {
double ff = tm.fracFlow(s0, c0, cell); double ff = tm.fracFlow(s0, c0, cell);
double mc = tm.computeMc(c0); double mc = tm.computeMc(c0);
double dps = tm.polyprops_.dps; double dps = tm.polyprops_.deadPoreVol();
//In this explicit step, we do not compute absorption and take ads0=ads //In this explicit step, we do not compute absorption and take ads0=ads
// double rhor = tm.polyprops_.rhor; // double rhor = tm.polyprops_.rockDensity();
// double ads0 = tm.polyprops_.adsorbtion(std::max(c0, cmax0)); // double ads0 = tm.polyprops_.adsorbtion(std::max(c0, cmax0));
// double ads = tm.polyprops_.adsorbtion(std::max(c, cmax0)); // double ads = tm.polyprops_.adsorbtion(std::max(c, cmax0));
@ -314,8 +314,8 @@ namespace Opm
double c = x[1]; double c = x[1];
double ff = tm.fracFlow(s, c, cell); double ff = tm.fracFlow(s, c, cell);
double mc = tm.computeMc(c); double mc = tm.computeMc(c);
double dps = tm.polyprops_.dps; double dps = tm.polyprops_.deadPoreVol();
double rhor = tm.polyprops_.rhor; double rhor = tm.polyprops_.rockDensity();
double ads0 = tm.polyprops_.adsorbtion(std::max(c0, cmax0)); double ads0 = tm.polyprops_.adsorbtion(std::max(c0, cmax0));
double ads = tm.polyprops_.adsorbtion(std::max(c, cmax0)); double ads = tm.polyprops_.adsorbtion(std::max(c, cmax0));
res[0] = s - s0 + dtpv*(outflux*tm.fracFlow(s, c, cell) + influx); res[0] = s - s0 + dtpv*(outflux*tm.fracFlow(s, c, cell) + influx);
@ -362,8 +362,8 @@ namespace Opm
double ff = tm.fracFlowWithDer(s, c, cell, ff_ds_dc); double ff = tm.fracFlowWithDer(s, c, cell, ff_ds_dc);
double mc_dc; double mc_dc;
double mc = tm.computeMcWithDer(c, &mc_dc); double mc = tm.computeMcWithDer(c, &mc_dc);
double dps = tm.polyprops_.dps; double dps = tm.polyprops_.deadPoreVol();
double rhor = tm.polyprops_.rhor; double rhor = tm.polyprops_.rockDensity();
double ads0 = tm.polyprops_.adsorbtion(std::max(c0, cmax0)); double ads0 = tm.polyprops_.adsorbtion(std::max(c0, cmax0));
double ads; double ads;
double ads_dc; double ads_dc;
@ -430,8 +430,8 @@ namespace Opm
double ff = tm.fracFlowWithDer(s, c, cell, ff_ds_dc); double ff = tm.fracFlowWithDer(s, c, cell, ff_ds_dc);
double mc_dc; double mc_dc;
double mc = tm.computeMcWithDer(c, &mc_dc); double mc = tm.computeMcWithDer(c, &mc_dc);
double dps = tm.polyprops_.dps; double dps = tm.polyprops_.deadPoreVol();
double rhor = tm.polyprops_.rhor; double rhor = tm.polyprops_.rockDensity();
double ads0 = tm.polyprops_.adsorbtion(std::max(c0, cmax0)); double ads0 = tm.polyprops_.adsorbtion(std::max(c0, cmax0));
double ads; double ads;
double ads_dc; double ads_dc;
@ -544,8 +544,8 @@ namespace Opm
} else { } else {
double ff = tm.fracFlow(s, c, cell); double ff = tm.fracFlow(s, c, cell);
double mc = tm.computeMc(c); double mc = tm.computeMc(c);
double dps = tm.polyprops_.dps; double dps = tm.polyprops_.deadPoreVol();
double rhor = tm.polyprops_.rhor; double rhor = tm.polyprops_.rockDensity();
double ads0 = tm.polyprops_.adsorbtion(std::max(c0, cmax0)); double ads0 = tm.polyprops_.adsorbtion(std::max(c0, cmax0));
double ads = tm.polyprops_.adsorbtion(std::max(c, cmax0)); double ads = tm.polyprops_.adsorbtion(std::max(c, cmax0));
return (s - dps)*c - (s0 - dps)*c0 return (s - dps)*c - (s0 - dps)*c0
@ -572,7 +572,7 @@ namespace Opm
{ {
ResidualC res(*this, cell); ResidualC res(*this, cell);
const double a = 0.0; const double a = 0.0;
const double b = polyprops_.c_max_limit; const double b = polyprops_.cMax();
int iters_used; int iters_used;
concentration_[cell] = modifiedRegulaFalsi(res, a, b, maxit_, tol_, iters_used); concentration_[cell] = modifiedRegulaFalsi(res, a, b, maxit_, tol_, iters_used);
cmax_[cell] = std::max(cmax_[cell], concentration_[cell]); cmax_[cell] = std::max(cmax_[cell], concentration_[cell]);
@ -613,8 +613,8 @@ namespace Opm
} }
bool res_s_done; bool res_s_done;
double x_min[2] = {polyprops_.dps, 0.0}; double x_min[2] = {polyprops_.deadPoreVol(), 0.0};
double x_max[2] = {1.0, polyprops_.c_max_limit}; double x_max[2] = {1.0, polyprops_.cMax()};
double t; double t;
double t_max; double t_max;
double t_out; double t_out;
@ -843,12 +843,12 @@ namespace Opm
double TransportModelPolymer::fracFlow(double s, double c, int cell) const double TransportModelPolymer::fracFlow(double s, double c, int cell) const
{ {
double c_max_limit = polyprops_.c_max_limit; double c_max_limit = polyprops_.cMax();
double cbar = c/c_max_limit; double cbar = c/c_max_limit;
double mu_w = visc_[0]; double mu_w = visc_[0];
double mu_m = polyprops_.viscMult(c)*mu_w; double mu_m = polyprops_.viscMult(c)*mu_w;
double mu_p = polyprops_.viscMult(polyprops_.c_max_limit)*mu_w; double mu_p = polyprops_.viscMult(polyprops_.cMax())*mu_w;
double omega = polyprops_.omega; double omega = polyprops_.mixParam();
double mu_m_omega = std::pow(mu_m, omega); double mu_m_omega = std::pow(mu_m, omega);
double mu_w_e = mu_m_omega*std::pow(mu_w, 1.0 - omega); double mu_w_e = mu_m_omega*std::pow(mu_w, 1.0 - omega);
double mu_p_eff = mu_m_omega*std::pow(mu_p, 1.0 - omega); double mu_p_eff = mu_m_omega*std::pow(mu_p, 1.0 - omega);
@ -865,14 +865,14 @@ namespace Opm
double TransportModelPolymer::fracFlowWithDer(double s, double c, int cell, double* der) const double TransportModelPolymer::fracFlowWithDer(double s, double c, int cell, double* der) const
{ {
// We should check the dimension of der // We should check the dimension of der
double c_max_limit = polyprops_.c_max_limit; double c_max_limit = polyprops_.cMax();
double cbar = c/c_max_limit; double cbar = c/c_max_limit;
double mu_w = visc_[0]; double mu_w = visc_[0];
double mu_m_dc; // derivative of mu_m with respect to c double mu_m_dc; // derivative of mu_m with respect to c
double mu_m = polyprops_.viscMultWithDer(c, &mu_m_dc)*mu_w; double mu_m = polyprops_.viscMultWithDer(c, &mu_m_dc)*mu_w;
mu_m_dc *= mu_w; mu_m_dc *= mu_w;
double mu_p = polyprops_.viscMult(polyprops_.c_max_limit)*mu_w; double mu_p = polyprops_.viscMult(polyprops_.cMax())*mu_w;
double omega = polyprops_.omega; double omega = polyprops_.mixParam();
double mu_w_e = std::pow(mu_m, omega)*std::pow(mu_w, 1 - omega); double mu_w_e = std::pow(mu_m, omega)*std::pow(mu_w, 1 - omega);
double mu_w_e_dc = omega*mu_m_dc*std::pow(mu_m, omega - 1)*std::pow(mu_w, 1 - omega); double mu_w_e_dc = omega*mu_m_dc*std::pow(mu_m, omega - 1)*std::pow(mu_w, 1 - omega);
double mu_p_eff = std::pow(mu_m, omega)*std::pow(mu_p, 1 - omega); double mu_p_eff = std::pow(mu_m, omega)*std::pow(mu_p, 1 - omega);
@ -902,12 +902,12 @@ namespace Opm
double TransportModelPolymer::computeMc(double c) const double TransportModelPolymer::computeMc(double c) const
{ {
double c_max_limit = polyprops_.c_max_limit; double c_max_limit = polyprops_.cMax();
double cbar = c/c_max_limit; double cbar = c/c_max_limit;
double mu_w = visc_[0]; double mu_w = visc_[0];
double mu_m = polyprops_.viscMult(c)*mu_w; double mu_m = polyprops_.viscMult(c)*mu_w;
double mu_p = polyprops_.viscMult(polyprops_.c_max_limit)*mu_w; double mu_p = polyprops_.viscMult(polyprops_.cMax())*mu_w;
double omega = polyprops_.omega; double omega = polyprops_.mixParam();
double mu_m_omega = std::pow(mu_m, omega); double mu_m_omega = std::pow(mu_m, omega);
double mu_w_e = mu_m_omega*std::pow(mu_w, 1.0 - omega); double mu_w_e = mu_m_omega*std::pow(mu_w, 1.0 - omega);
double mu_p_eff = mu_m_omega*std::pow(mu_p, 1.0 - omega); double mu_p_eff = mu_m_omega*std::pow(mu_p, 1.0 - omega);
@ -917,14 +917,14 @@ namespace Opm
double TransportModelPolymer::computeMcWithDer(double c, double* der) const double TransportModelPolymer::computeMcWithDer(double c, double* der) const
{ {
double c_max_limit = polyprops_.c_max_limit; double c_max_limit = polyprops_.cMax();
double cbar = c/c_max_limit; double cbar = c/c_max_limit;
double mu_w = visc_[0]; double mu_w = visc_[0];
double mu_m_dc; // derivative of mu_m with respect to c double mu_m_dc; // derivative of mu_m with respect to c
double mu_m = polyprops_.viscMultWithDer(c, &mu_m_dc)*mu_w; double mu_m = polyprops_.viscMultWithDer(c, &mu_m_dc)*mu_w;
mu_m_dc *= mu_w; mu_m_dc *= mu_w;
double mu_p = polyprops_.viscMult(polyprops_.c_max_limit)*mu_w; double mu_p = polyprops_.viscMult(polyprops_.cMax())*mu_w;
double omega = polyprops_.omega; double omega = polyprops_.mixParam();
double mu_m_omega = std::pow(mu_m, omega); double mu_m_omega = std::pow(mu_m, omega);
double mu_m_omega_minus1 = std::pow(mu_m, omega-1); double mu_m_omega_minus1 = std::pow(mu_m, omega-1);
double mu_w_omega = std::pow(mu_w, 1.0 - omega); double mu_w_omega = std::pow(mu_w, 1.0 - omega);

43
opm/polymer/TransportModelPolymer.hpp
View File

@ -20,6 +20,7 @@
#ifndef OPM_TRANSPORTMODELPOLYMER_HEADER_INCLUDED #ifndef OPM_TRANSPORTMODELPOLYMER_HEADER_INCLUDED
#define OPM_TRANSPORTMODELPOLYMER_HEADER_INCLUDED #define OPM_TRANSPORTMODELPOLYMER_HEADER_INCLUDED
#include <opm/polymer/PolymerProperties.hpp>
#include <opm/core/transport/reorder/TransportModelInterface.hpp> #include <opm/core/transport/reorder/TransportModelInterface.hpp>
#include <opm/core/utility/linearInterpolation.hpp> #include <opm/core/utility/linearInterpolation.hpp>
#include <vector> #include <vector>
@ -31,44 +32,6 @@ namespace Opm
class IncompPropertiesInterface; class IncompPropertiesInterface;
/// Containing all the extra information needed to model
/// polymer-affected flow behaviour. This as an alternative
/// to changing the IncompPropertiesInterface class.
/// \TODO Improve encapsulation.
struct PolymerData
{
double c_max_limit;
double omega;
double viscMult(double c) const
{
return Opm::linearInterpolation(c_vals_visc, visc_mult_vals, c);
}
double viscMultWithDer(double c, double* der) const
{
*der = Opm::linearInterpolationDerivative(c_vals_visc, visc_mult_vals, c);
return Opm::linearInterpolation(c_vals_visc, visc_mult_vals, c);
}
double rhor;
double dps;
double adsorbtion(double c) const
{
return Opm::linearInterpolation(c_vals_ads, ads_vals, c);
}
double adsorbtionWithDer(double c, double* der) const
{
*der = Opm::linearInterpolationDerivative(c_vals_ads, ads_vals, c);
return Opm::linearInterpolation(c_vals_ads, ads_vals, c);
}
std::vector<double> c_vals_visc;
std::vector<double> visc_mult_vals;
std::vector<double> c_vals_ads;
std::vector<double> ads_vals;
};
/// A transport model for two-phase flow with polymer in the /// A transport model for two-phase flow with polymer in the
/// water phase. /// water phase.
/// \TODO Include permeability reduction effect. /// \TODO Include permeability reduction effect.
@ -80,7 +43,7 @@ namespace Opm
const double* porosity, const double* porosity,
const double* porevolume, const double* porevolume,
const IncompPropertiesInterface& props, const IncompPropertiesInterface& props,
const PolymerData& polyprops, const PolymerProperties& polyprops,
const int method, const int method,
const double tol, const double tol,
const int maxit); const int maxit);
@ -107,7 +70,7 @@ namespace Opm
const double* porosity_; const double* porosity_;
const double* porevolume_; // one volume per cell const double* porevolume_; // one volume per cell
const IncompPropertiesInterface& props_; const IncompPropertiesInterface& props_;
const PolymerData& polyprops_; const PolymerProperties& polyprops_;
std::vector<double> smin_; std::vector<double> smin_;
std::vector<double> smax_; std::vector<double> smax_;
double tol_; double tol_;