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

Corrected a bug in computation of effective mobilities.

Browse Source
This commit is contained in:
Xavier Raynaud
2012-04-23 10:07:51 +02:00
parent a0794117c9
commit 88941610ed
2 changed files with 30 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
opm/polymer/PolymerProperties.cpp
View File

@@ -76,13 +76,13 @@ namespace Opm
simpleAdsorptionBoth(c, c_ads, dummy, false); simpleAdsorptionBoth(c, c_ads, dummy, false);
} }
void PolymerProperties::simpleAdsorptionWithDer(double c, double& c_ads, void PolymerProperties::simpleAdsorptionWithDer(double c, double& c_ads,
double& dc_ads_dc) const double& dc_ads_dc) const
{ {
simpleAdsorptionBoth(c, c_ads, dc_ads_dc, true); simpleAdsorptionBoth(c, c_ads, dc_ads_dc, true);
} }
void PolymerProperties::simpleAdsorptionBoth(double c, double& c_ads, void PolymerProperties::simpleAdsorptionBoth(double c, double& c_ads,
double& dc_ads_dc, bool if_with_der) const double& dc_ads_dc, bool if_with_der) const
{ {
c_ads = Opm::linearInterpolation(c_vals_ads_, ads_vals_, c);; c_ads = Opm::linearInterpolation(c_vals_ads_, ads_vals_, c);;
@@ -99,14 +99,14 @@ namespace Opm
adsorptionBoth(c, cmax, c_ads, dummy, false); adsorptionBoth(c, cmax, c_ads, dummy, false);
} }
void PolymerProperties::adsorptionWithDer(double c, double cmax, void PolymerProperties::adsorptionWithDer(double c, double cmax,
double& c_ads, double& dc_ads_dc) const double& c_ads, double& dc_ads_dc) const
{ {
adsorptionBoth(c, cmax, c_ads, dc_ads_dc, true); adsorptionBoth(c, cmax, c_ads, dc_ads_dc, true);
} }
void PolymerProperties::adsorptionBoth(double c, double cmax, void PolymerProperties::adsorptionBoth(double c, double cmax,
double& c_ads, double& dc_ads_dc, double& c_ads, double& dc_ads_dc,
bool if_with_der) const bool if_with_der) const
{ {
if (ads_index_ == Desorption) { if (ads_index_ == Desorption) {
@@ -147,11 +147,11 @@ namespace Opm
double mu_w = visc[0]; double mu_w = visc[0];
double mu_m; double mu_m;
double omega = mix_param_; double omega = mix_param_;
double mu_m_dc; double dmu_m_dc;
if (if_with_der) { if (if_with_der) {
mu_m = viscMultWithDer(c, &mu_m_dc)*mu_w; mu_m = viscMultWithDer(c, &dmu_m_dc)*mu_w;
mu_m_dc *= mu_w; dmu_m_dc *= mu_w;
} else { } else {
mu_m = viscMult(c)*mu_w; mu_m = viscMult(c)*mu_w;
} }
double mu_p = viscMult(c_max_)*mu_w; double mu_p = viscMult(c_max_)*mu_w;
@@ -162,15 +162,15 @@ namespace Opm
visc_eff[0] = mu_w_eff; visc_eff[0] = mu_w_eff;
visc_eff[1] = visc[1]; visc_eff[1] = visc[1];
if (if_with_der) { if (if_with_der) {
double mu_w_e_dc = omega*mu_m_dc*std::pow(mu_m, omega - 1)*std::pow(mu_w, 1 - omega); double dmu_w_e_dc = omega*dmu_m_dc*std::pow(mu_m, omega - 1)*std::pow(mu_w, 1 - omega);
double mu_p_eff_dc = omega*mu_m_dc*std::pow(mu_m, omega - 1)*std::pow(mu_p, 1 - omega); double dmu_p_eff_dc = omega*dmu_m_dc*std::pow(mu_m, omega - 1)*std::pow(mu_p, 1 - omega);
dvisc_eff_dc[0] = -1./c_max_*mu_w_eff*mu_w_eff*(1./mu_p_eff - 1./mu_w_e) + (1-cbar)*(mu_w_eff*mu_w_eff/(mu_w_e*mu_w_e))*mu_w_e_dc + cbar*(mu_w_eff*mu_w_eff/(mu_p_eff*mu_p_eff))*mu_p_eff_dc; dvisc_eff_dc[0] = -1./c_max_*mu_w_eff*mu_w_eff*(1./mu_p_eff - 1./mu_w_e) + (1-cbar)*(mu_w_eff*mu_w_eff/(mu_w_e*mu_w_e))*dmu_w_e_dc + cbar*(mu_w_eff*mu_w_eff/(mu_p_eff*mu_p_eff))*dmu_p_eff_dc;
dvisc_eff_dc[1] = 0.; dvisc_eff_dc[1] = 0.;
} else { } else {
dvisc_eff_dc = 0; dvisc_eff_dc = 0;
} }
} }
void PolymerProperties::effectiveRelperm(const double c, void PolymerProperties::effectiveRelperm(const double c,
const double cmax, const double cmax,
const double* relperm, const double* relperm,
@@ -219,8 +219,8 @@ namespace Opm
const double cmax, const double cmax,
const double* visc, const double* visc,
const double* relperm, const double* relperm,
std::vector<double>& mob) const std::vector<double>& mob) const
{ {
double dummy1; double dummy1;
double dummy2[2]; double dummy2[2];
std::vector<double> dummy3; std::vector<double> dummy3;
@@ -233,9 +233,9 @@ namespace Opm
const double* visc, const double* visc,
const double* relperm, const double* relperm,
const double* drelpermds, const double* drelpermds,
std::vector<double>& mob, std::vector<double>& mob,
std::vector<double>& dmobds, std::vector<double>& dmobds,
double& dmobwatdc) const double& dmobwatdc) const
{ {
effectiveMobilitiesBoth(c, cmax, visc, effectiveMobilitiesBoth(c, cmax, visc,
relperm, drelpermds, mob,dmobds, relperm, drelpermds, mob,dmobds,
@@ -247,16 +247,16 @@ namespace Opm
const double* visc, const double* visc,
const double* relperm, const double* relperm,
const double* drelperm_ds, const double* drelperm_ds,
std::vector<double>& mob, std::vector<double>& mob,
std::vector<double>& dmob_ds, std::vector<double>& dmob_ds,
double& dmobwat_dc, double& dmobwat_dc,
bool if_with_der) const bool if_with_der) const
{ {
double visc_eff[2]; double visc_eff[2];
double dvisc_eff_dc[2]; double dvisc_eff_dc[2];
effectiveViscBoth(c, visc, visc_eff, dvisc_eff_dc, if_with_der); effectiveViscBoth(c, visc, visc_eff, dvisc_eff_dc, if_with_der);
double mu_w_eff = visc_eff[0]; double mu_w_eff = visc_eff[0];
double mu_w_eff_dc = dvisc_eff_dc[0]; double dmu_w_eff_dc = dvisc_eff_dc[0];
double eff_relperm_wat; double eff_relperm_wat;
double deff_relperm_wat_ds; double deff_relperm_wat_ds;
double deff_relperm_wat_dc; double deff_relperm_wat_dc;
@@ -266,34 +266,33 @@ namespace Opm
if_with_der); if_with_der);
mob[0] = eff_relperm_wat/visc_eff[0]; mob[0] = eff_relperm_wat/visc_eff[0];
mob[1] = relperm[1]/visc_eff[1]; mob[1] = relperm[1]/visc_eff[1];
if (if_with_der) { if (if_with_der) {
dmobwat_dc = - mob[0]*mu_w_eff_dc/(mu_w_eff*mu_w_eff) dmobwat_dc = - eff_relperm_wat*dmu_w_eff_dc/(mu_w_eff*mu_w_eff)
+ deff_relperm_wat_dc/mu_w_eff; + deff_relperm_wat_dc/mu_w_eff;
dmob_ds[0*2 + 0] = deff_relperm_wat_ds/visc_eff[0]; dmob_ds[0*2 + 0] = deff_relperm_wat_ds/visc_eff[0];
dmob_ds[0*2 + 1] = -dmob_ds[0*2 + 0]; dmob_ds[0*2 + 1] = -dmob_ds[0*2 + 0];
dmob_ds[1*2 + 0] = drelperm_ds[1*2 + 0]/visc_eff[1]; dmob_ds[1*2 + 0] = drelperm_ds[1*2 + 0]/visc_eff[1];
dmob_ds[1*2 + 1] = drelperm_ds[1*2 + 1]/visc_eff[1]; dmob_ds[1*2 + 1] = drelperm_ds[1*2 + 1]/visc_eff[1];
} else { } else {
mob.clear();
dmob_ds.clear(); dmob_ds.clear();
} }
} }
void PolymerProperties::computeMcWithDer(const double& c, double& mc) const void PolymerProperties::computeMc(const double& c, double& mc) const
{ {
double dummy; double dummy;
computeMcBoth(c, mc, dummy, false); computeMcBoth(c, mc, dummy, false);
} }
void PolymerProperties::computeMcWithDer(const double& c, double& mc, void PolymerProperties::computeMcWithDer(const double& c, double& mc,
double& dmc_dc) const double& dmc_dc) const
{ {
computeMcBoth(c, mc, dmc_dc, true); computeMcBoth(c, mc, dmc_dc, true);
} }
void PolymerProperties::computeMcBoth(const double& c, double& mc, void PolymerProperties::computeMcBoth(const double& c, double& mc,
double& dmc_dc, bool if_with_der) const double& dmc_dc, bool if_with_der) const
{ {
double cbar = c/c_max_; double cbar = c/c_max_;
double omega = mix_param_; double omega = mix_param_;

9
opm/polymer/TransportModelPolymer.cpp
View File

@@ -858,8 +858,8 @@ namespace Opm
dmob_dc[1] = 0.; dmob_dc[1] = 0.;
ff = mob[0]/(mob[0] + mob[1]); ff = mob[0]/(mob[0] + mob[1]);
if (if_with_der) { if (if_with_der) {
dff_dsdc[0] = (dmob_ds[0]*mob[1] - dmob_ds[1]*mob[0])/((mob[0] + mob[1])*(mob[0] + mob[1])); dff_dsdc[0] = (dmob_ds[0]*mob[1] - dmob_ds[1]*mob[0])/((mob[0] + mob[1])*(mob[0] + mob[1])); // derivative with respect to s
dff_dsdc[1] = (dmob_dc[0]*mob[1] - dmob_dc[1]*mob[0])/((mob[0] + mob[1])*(mob[0] + mob[1])); dff_dsdc[1] = (dmob_dc[0]*mob[1] - dmob_dc[1]*mob[0])/((mob[0] + mob[1])*(mob[0] + mob[1])); // derivative with respect to c
} else { } else {
dff_dsdc.clear(); dff_dsdc.clear();
} }
@@ -867,14 +867,13 @@ namespace Opm
void TransportModelPolymer::computeMc(double c, double& mc) const void TransportModelPolymer::computeMc(double c, double& mc) const
{ {
double dummy; polyprops_.computeMc(c, mc);
polyprops_.computeMcBoth(c, mc, dummy, false);
} }
void TransportModelPolymer::computeMcWithDer(double c, double& mc, void TransportModelPolymer::computeMcWithDer(double c, double& mc,
double &dmc_dc) const double &dmc_dc) const
{ {
polyprops_.computeMcBoth(c, mc, dmc_dc, true); polyprops_.computeMcWithDer(c, mc, dmc_dc);
} }
} // namespace Opm } // namespace Opm