mirror of
https://github.com/OPM/opm-simulators.git
synced 2025-02-25 18:55:30 -06:00
the first part in separating the StandardWellsDense.hpp implementations.
split into commits for easy debugging purpose.
This commit is contained in:
Kai Bao
parent
b358319e63
commit
8354f3600f
@ -90,25 +90,7 @@ enum WellVariablePositions {
|
|||||||
StandardWellsDense(const Wells* wells_arg,
|
StandardWellsDense(const Wells* wells_arg,
|
||||||
WellCollection* well_collection,
|
WellCollection* well_collection,
|
||||||
const ModelParameters& param,
|
const ModelParameters& param,
|
||||||
const bool terminal_output)
|
const bool terminal_output);
|
||||||
: wells_active_(wells_arg!=nullptr)
|
|
||||||
, wells_(wells_arg)
|
|
||||||
, well_collection_(well_collection)
|
|
||||||
, param_(param)
|
|
||||||
, terminal_output_(terminal_output)
|
|
||||||
, well_perforation_efficiency_factors_((wells_!=nullptr ? wells_->well_connpos[wells_->number_of_wells] : 0), 1.0)
|
|
||||||
, well_perforation_densities_( wells_ ? wells_arg->well_connpos[wells_arg->number_of_wells] : 0)
|
|
||||||
, well_perforation_pressure_diffs_( wells_ ? wells_arg->well_connpos[wells_arg->number_of_wells] : 0)
|
|
||||||
, wellVariables_( wells_ ? (wells_arg->number_of_wells * wells_arg->number_of_phases) : 0)
|
|
||||||
, F0_(wells_ ? (wells_arg->number_of_wells * wells_arg->number_of_phases) : 0 )
|
|
||||||
{
|
|
||||||
if( wells_ )
|
|
||||||
{
|
|
||||||
invDuneD_.setBuildMode( Mat::row_wise );
|
|
||||||
duneC_.setBuildMode( Mat::row_wise );
|
|
||||||
duneB_.setBuildMode( Mat::row_wise );
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
void init(const PhaseUsage phase_usage_arg,
|
void init(const PhaseUsage phase_usage_arg,
|
||||||
const std::vector<bool>& active_arg,
|
const std::vector<bool>& active_arg,
|
||||||
@ -116,195 +98,20 @@ enum WellVariablePositions {
|
|||||||
const double gravity_arg,
|
const double gravity_arg,
|
||||||
const std::vector<double>& depth_arg,
|
const std::vector<double>& depth_arg,
|
||||||
const std::vector<double>& pv_arg,
|
const std::vector<double>& pv_arg,
|
||||||
const RateConverterType* rate_converter)
|
const RateConverterType* rate_converter);
|
||||||
{
|
|
||||||
|
|
||||||
if ( ! localWellsActive() ) {
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
phase_usage_ = phase_usage_arg;
|
|
||||||
active_ = active_arg;
|
|
||||||
vfp_properties_ = vfp_properties_arg;
|
|
||||||
gravity_ = gravity_arg;
|
|
||||||
cell_depths_ = extractPerfData(depth_arg);
|
|
||||||
pv_ = pv_arg;
|
|
||||||
rate_converter_ = rate_converter;
|
|
||||||
|
|
||||||
calculateEfficiencyFactors();
|
|
||||||
|
|
||||||
// setup sparsity pattern for the matrices
|
|
||||||
//[A B^T [x = [ res
|
|
||||||
// C D] x_well] res_well]
|
|
||||||
|
|
||||||
const int nw = wells().number_of_wells;
|
|
||||||
const int nperf = wells().well_connpos[nw];
|
|
||||||
const int nc = numCells();
|
|
||||||
|
|
||||||
#ifndef NDEBUG
|
|
||||||
const auto pu = phase_usage_;
|
|
||||||
const int np = pu.num_phases;
|
|
||||||
|
|
||||||
// assumes the gas fractions are stored after water fractions
|
|
||||||
// WellVariablePositions needs to be changed for 2p runs
|
|
||||||
assert (np == 3 || (np == 2 && !pu.phase_used[Gas]) );
|
|
||||||
#endif
|
|
||||||
|
|
||||||
// set invDuneD
|
|
||||||
invDuneD_.setSize( nw, nw, nw );
|
|
||||||
|
|
||||||
// set duneC
|
|
||||||
duneC_.setSize( nw, nc, nperf );
|
|
||||||
|
|
||||||
// set duneB
|
|
||||||
duneB_.setSize( nw, nc, nperf );
|
|
||||||
|
|
||||||
for(auto row=invDuneD_.createbegin(), end = invDuneD_.createend(); row!=end; ++row) {
|
|
||||||
// Add nonzeros for diagonal
|
|
||||||
row.insert(row.index());
|
|
||||||
}
|
|
||||||
|
|
||||||
for(auto row = duneC_.createbegin(), end = duneC_.createend(); row!=end; ++row) {
|
|
||||||
// Add nonzeros for diagonal
|
|
||||||
for (int perf = wells().well_connpos[row.index()] ; perf < wells().well_connpos[row.index()+1]; ++perf) {
|
|
||||||
const int cell_idx = wells().well_cells[perf];
|
|
||||||
row.insert(cell_idx);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
// make the B^T matrix
|
|
||||||
for(auto row = duneB_.createbegin(), end = duneB_.createend(); row!=end; ++row) {
|
|
||||||
for (int perf = wells().well_connpos[row.index()] ; perf < wells().well_connpos[row.index()+1]; ++perf) {
|
|
||||||
const int cell_idx = wells().well_cells[perf];
|
|
||||||
row.insert(cell_idx);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
resWell_.resize( nw );
|
|
||||||
|
|
||||||
// resize temporary class variables
|
|
||||||
Cx_.resize( duneC_.N() );
|
|
||||||
invDrw_.resize( invDuneD_.N() );
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
template <typename Simulator>
|
template <typename Simulator>
|
||||||
SimulatorReport assemble(Simulator& ebosSimulator,
|
SimulatorReport assemble(Simulator& ebosSimulator,
|
||||||
const int iterationIdx,
|
const int iterationIdx,
|
||||||
const double dt,
|
const double dt,
|
||||||
WellState& well_state) {
|
WellState& well_state);
|
||||||
|
|
||||||
SimulatorReport report;
|
|
||||||
if ( ! localWellsActive() ) {
|
|
||||||
return report;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (param_.compute_well_potentials_) {
|
|
||||||
computeWellPotentials(ebosSimulator, well_state);
|
|
||||||
}
|
|
||||||
|
|
||||||
resetWellControlFromState(well_state);
|
|
||||||
updateWellControls(well_state);
|
|
||||||
// Set the primary variables for the wells
|
|
||||||
setWellVariables(well_state);
|
|
||||||
|
|
||||||
if (iterationIdx == 0) {
|
|
||||||
computeWellConnectionPressures(ebosSimulator, well_state);
|
|
||||||
computeAccumWells();
|
|
||||||
}
|
|
||||||
|
|
||||||
if (param_.solve_welleq_initially_ && iterationIdx == 0) {
|
|
||||||
// solve the well equations as a pre-processing step
|
|
||||||
report = solveWellEq(ebosSimulator, dt, well_state);
|
|
||||||
}
|
|
||||||
assembleWellEq(ebosSimulator, dt, well_state, false);
|
|
||||||
|
|
||||||
report.converged = true;
|
|
||||||
return report;
|
|
||||||
}
|
|
||||||
|
|
||||||
template <typename Simulator>
|
template <typename Simulator>
|
||||||
void assembleWellEq(Simulator& ebosSimulator,
|
void assembleWellEq(Simulator& ebosSimulator,
|
||||||
const double dt,
|
const double dt,
|
||||||
WellState& well_state,
|
WellState& well_state,
|
||||||
bool only_wells) {
|
bool only_wells);
|
||||||
const int np = wells().number_of_phases;
|
|
||||||
const int nw = wells().number_of_wells;
|
|
||||||
|
|
||||||
|
|
||||||
// clear all entries
|
|
||||||
duneB_ = 0.0;
|
|
||||||
duneC_ = 0.0;
|
|
||||||
invDuneD_ = 0.0;
|
|
||||||
resWell_ = 0.0;
|
|
||||||
|
|
||||||
auto& ebosJac = ebosSimulator.model().linearizer().matrix();
|
|
||||||
auto& ebosResid = ebosSimulator.model().linearizer().residual();
|
|
||||||
|
|
||||||
const double volume = 0.002831684659200; // 0.1 cu ft;
|
|
||||||
for (int w = 0; w < nw; ++w) {
|
|
||||||
bool allow_cf = allow_cross_flow(w, ebosSimulator);
|
|
||||||
for (int perf = wells().well_connpos[w] ; perf < wells().well_connpos[w+1]; ++perf) {
|
|
||||||
|
|
||||||
const int cell_idx = wells().well_cells[perf];
|
|
||||||
const auto& intQuants = *(ebosSimulator.model().cachedIntensiveQuantities(cell_idx, /*timeIdx=*/0));
|
|
||||||
std::vector<EvalWell> cq_s(np,0.0);
|
|
||||||
const EvalWell bhp = getBhp(w);
|
|
||||||
computeWellFlux(w, wells().WI[perf], intQuants, bhp, wellPerforationPressureDiffs()[perf], allow_cf, cq_s);
|
|
||||||
|
|
||||||
for (int p1 = 0; p1 < np; ++p1) {
|
|
||||||
|
|
||||||
// the cq_s entering mass balance equations need to consider the efficiency factors.
|
|
||||||
const EvalWell cq_s_effective = cq_s[p1] * well_perforation_efficiency_factors_[perf];
|
|
||||||
|
|
||||||
if (!only_wells) {
|
|
||||||
// subtract sum of phase fluxes in the reservoir equation.
|
|
||||||
// need to consider the efficiency factor
|
|
||||||
ebosResid[cell_idx][flowPhaseToEbosCompIdx(p1)] -= cq_s_effective.value();
|
|
||||||
}
|
|
||||||
|
|
||||||
// subtract sum of phase fluxes in the well equations.
|
|
||||||
resWell_[w][flowPhaseToEbosCompIdx(p1)] -= cq_s[p1].value();
|
|
||||||
|
|
||||||
// assemble the jacobians
|
|
||||||
for (int p2 = 0; p2 < np; ++p2) {
|
|
||||||
if (!only_wells) {
|
|
||||||
// also need to consider the efficiency factor when manipulating the jacobians.
|
|
||||||
ebosJac[cell_idx][cell_idx][flowPhaseToEbosCompIdx(p1)][flowToEbosPvIdx(p2)] -= cq_s_effective.derivative(p2);
|
|
||||||
duneB_[w][cell_idx][flowToEbosPvIdx(p2)][flowPhaseToEbosCompIdx(p1)] -= cq_s_effective.derivative(p2+blocksize); // intput in transformed matrix
|
|
||||||
duneC_[w][cell_idx][flowPhaseToEbosCompIdx(p1)][flowToEbosPvIdx(p2)] -= cq_s_effective.derivative(p2);
|
|
||||||
}
|
|
||||||
invDuneD_[w][w][flowPhaseToEbosCompIdx(p1)][flowToEbosPvIdx(p2)] -= cq_s[p1].derivative(p2+blocksize);
|
|
||||||
}
|
|
||||||
|
|
||||||
// add trivial equation for 2p cases (Only support water + oil)
|
|
||||||
if (np == 2) {
|
|
||||||
assert(!active_[ Gas ]);
|
|
||||||
invDuneD_[w][w][flowPhaseToEbosCompIdx(Gas)][flowToEbosPvIdx(Gas)] = 1.0;
|
|
||||||
}
|
|
||||||
|
|
||||||
// Store the perforation phase flux for later usage.
|
|
||||||
well_state.perfPhaseRates()[perf*np + p1] = cq_s[p1].value();
|
|
||||||
}
|
|
||||||
// Store the perforation pressure for later usage.
|
|
||||||
well_state.perfPress()[perf] = well_state.bhp()[w] + wellPerforationPressureDiffs()[perf];
|
|
||||||
}
|
|
||||||
|
|
||||||
// add vol * dF/dt + Q to the well equations;
|
|
||||||
for (int p1 = 0; p1 < np; ++p1) {
|
|
||||||
EvalWell resWell_loc = (wellVolumeFraction(w, p1) - F0_[w + nw*p1]) * volume / dt;
|
|
||||||
resWell_loc += getQs(w, p1);
|
|
||||||
for (int p2 = 0; p2 < np; ++p2) {
|
|
||||||
invDuneD_[w][w][flowPhaseToEbosCompIdx(p1)][flowToEbosPvIdx(p2)] += resWell_loc.derivative(p2+blocksize);
|
|
||||||
}
|
|
||||||
resWell_[w][flowPhaseToEbosCompIdx(p1)] += resWell_loc.value();
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
// do the local inversion of D.
|
|
||||||
localInvert( invDuneD_ );
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
template <typename Simulator>
|
template <typename Simulator>
|
||||||
bool allow_cross_flow(const int w, Simulator& ebosSimulator) const {
|
bool allow_cross_flow(const int w, Simulator& ebosSimulator) const {
|
||||||
@ -2173,4 +1980,6 @@ enum WellVariablePositions {
|
|||||||
|
|
||||||
|
|
||||||
} // namespace Opm
|
} // namespace Opm
|
||||||
|
|
||||||
|
#include "StandardWellsDense_impl.hpp"
|
||||||
#endif
|
#endif
|
||||||
|
|||||||
248
opm/autodiff/StandardWellsDense_impl.hpp
Normal file
248
opm/autodiff/StandardWellsDense_impl.hpp
Normal file
@ -0,0 +1,248 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
namespace Opm {
|
||||||
|
|
||||||
|
template<typename FluidSystem, typename BlackoilIndices>
|
||||||
|
StandardWellsDense<FluidSystem, BlackoilIndices>::
|
||||||
|
StandardWellsDense(const Wells* wells_arg,
|
||||||
|
WellCollection* well_collection,
|
||||||
|
const ModelParameters& param,
|
||||||
|
const bool terminal_output)
|
||||||
|
: wells_active_(wells_arg!=nullptr)
|
||||||
|
, wells_(wells_arg)
|
||||||
|
, well_collection_(well_collection)
|
||||||
|
, param_(param)
|
||||||
|
, terminal_output_(terminal_output)
|
||||||
|
, well_perforation_efficiency_factors_((wells_!=nullptr ? wells_->well_connpos[wells_->number_of_wells] : 0), 1.0)
|
||||||
|
, well_perforation_densities_( wells_ ? wells_arg->well_connpos[wells_arg->number_of_wells] : 0)
|
||||||
|
, well_perforation_pressure_diffs_( wells_ ? wells_arg->well_connpos[wells_arg->number_of_wells] : 0)
|
||||||
|
, wellVariables_( wells_ ? (wells_arg->number_of_wells * wells_arg->number_of_phases) : 0)
|
||||||
|
, F0_(wells_ ? (wells_arg->number_of_wells * wells_arg->number_of_phases) : 0 )
|
||||||
|
{
|
||||||
|
if( wells_ )
|
||||||
|
{
|
||||||
|
invDuneD_.setBuildMode( Mat::row_wise );
|
||||||
|
duneC_.setBuildMode( Mat::row_wise );
|
||||||
|
duneB_.setBuildMode( Mat::row_wise );
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
template<typename FluidSystem, typename BlackoilIndices>
|
||||||
|
void
|
||||||
|
StandardWellsDense<FluidSystem, BlackoilIndices>::
|
||||||
|
init(const PhaseUsage phase_usage_arg,
|
||||||
|
const std::vector<bool>& active_arg,
|
||||||
|
const VFPProperties* vfp_properties_arg,
|
||||||
|
const double gravity_arg,
|
||||||
|
const std::vector<double>& depth_arg,
|
||||||
|
const std::vector<double>& pv_arg,
|
||||||
|
const RateConverterType* rate_converter)
|
||||||
|
{
|
||||||
|
if ( ! localWellsActive() ) {
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
phase_usage_ = phase_usage_arg;
|
||||||
|
active_ = active_arg;
|
||||||
|
vfp_properties_ = vfp_properties_arg;
|
||||||
|
gravity_ = gravity_arg;
|
||||||
|
cell_depths_ = extractPerfData(depth_arg);
|
||||||
|
pv_ = pv_arg;
|
||||||
|
rate_converter_ = rate_converter;
|
||||||
|
|
||||||
|
calculateEfficiencyFactors();
|
||||||
|
|
||||||
|
// setup sparsity pattern for the matrices
|
||||||
|
//[A B^T [x = [ res
|
||||||
|
// C D] x_well] res_well]
|
||||||
|
|
||||||
|
const int nw = wells().number_of_wells;
|
||||||
|
const int nperf = wells().well_connpos[nw];
|
||||||
|
const int nc = numCells();
|
||||||
|
|
||||||
|
#ifndef NDEBUG
|
||||||
|
const auto pu = phase_usage_;
|
||||||
|
const int np = pu.num_phases;
|
||||||
|
|
||||||
|
// assumes the gas fractions are stored after water fractions
|
||||||
|
// WellVariablePositions needs to be changed for 2p runs
|
||||||
|
assert (np == 3 || (np == 2 && !pu.phase_used[Gas]) );
|
||||||
|
#endif
|
||||||
|
|
||||||
|
// set invDuneD
|
||||||
|
invDuneD_.setSize( nw, nw, nw );
|
||||||
|
|
||||||
|
// set duneC
|
||||||
|
duneC_.setSize( nw, nc, nperf );
|
||||||
|
|
||||||
|
// set duneB
|
||||||
|
duneB_.setSize( nw, nc, nperf );
|
||||||
|
|
||||||
|
for (auto row=invDuneD_.createbegin(), end = invDuneD_.createend(); row!=end; ++row) {
|
||||||
|
// Add nonzeros for diagonal
|
||||||
|
row.insert(row.index());
|
||||||
|
}
|
||||||
|
|
||||||
|
for (auto row = duneC_.createbegin(), end = duneC_.createend(); row!=end; ++row) {
|
||||||
|
// Add nonzeros for diagonal
|
||||||
|
for (int perf = wells().well_connpos[row.index()] ; perf < wells().well_connpos[row.index()+1]; ++perf) {
|
||||||
|
const int cell_idx = wells().well_cells[perf];
|
||||||
|
row.insert(cell_idx);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// make the B^T matrix
|
||||||
|
for (auto row = duneB_.createbegin(), end = duneB_.createend(); row!=end; ++row) {
|
||||||
|
for (int perf = wells().well_connpos[row.index()] ; perf < wells().well_connpos[row.index()+1]; ++perf) {
|
||||||
|
const int cell_idx = wells().well_cells[perf];
|
||||||
|
row.insert(cell_idx);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
resWell_.resize( nw );
|
||||||
|
|
||||||
|
// resize temporary class variables
|
||||||
|
Cx_.resize( duneC_.N() );
|
||||||
|
invDrw_.resize( invDuneD_.N() );
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
template<typename FluidSystem, typename BlackoilIndices>
|
||||||
|
template <typename Simulator>
|
||||||
|
SimulatorReport
|
||||||
|
StandardWellsDense<FluidSystem, BlackoilIndices>::
|
||||||
|
assemble(Simulator& ebosSimulator,
|
||||||
|
const int iterationIdx,
|
||||||
|
const double dt,
|
||||||
|
WellState& well_state)
|
||||||
|
{
|
||||||
|
SimulatorReport report;
|
||||||
|
if ( ! localWellsActive() ) {
|
||||||
|
return report;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (param_.compute_well_potentials_) {
|
||||||
|
computeWellPotentials(ebosSimulator, well_state);
|
||||||
|
}
|
||||||
|
|
||||||
|
resetWellControlFromState(well_state);
|
||||||
|
updateWellControls(well_state);
|
||||||
|
// Set the primary variables for the wells
|
||||||
|
setWellVariables(well_state);
|
||||||
|
|
||||||
|
if (iterationIdx == 0) {
|
||||||
|
computeWellConnectionPressures(ebosSimulator, well_state);
|
||||||
|
computeAccumWells();
|
||||||
|
}
|
||||||
|
|
||||||
|
if (param_.solve_welleq_initially_ && iterationIdx == 0) {
|
||||||
|
// solve the well equations as a pre-processing step
|
||||||
|
report = solveWellEq(ebosSimulator, dt, well_state);
|
||||||
|
}
|
||||||
|
assembleWellEq(ebosSimulator, dt, well_state, false);
|
||||||
|
|
||||||
|
report.converged = true;
|
||||||
|
return report;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
template<typename FluidSystem, typename BlackoilIndices>
|
||||||
|
template <typename Simulator>
|
||||||
|
void
|
||||||
|
StandardWellsDense<FluidSystem, BlackoilIndices>::
|
||||||
|
assembleWellEq(Simulator& ebosSimulator,
|
||||||
|
const double dt,
|
||||||
|
WellState& well_state,
|
||||||
|
bool only_wells)
|
||||||
|
{
|
||||||
|
const int np = wells().number_of_phases;
|
||||||
|
const int nw = wells().number_of_wells;
|
||||||
|
|
||||||
|
// clear all entries
|
||||||
|
duneB_ = 0.0;
|
||||||
|
duneC_ = 0.0;
|
||||||
|
invDuneD_ = 0.0;
|
||||||
|
resWell_ = 0.0;
|
||||||
|
|
||||||
|
auto& ebosJac = ebosSimulator.model().linearizer().matrix();
|
||||||
|
auto& ebosResid = ebosSimulator.model().linearizer().residual();
|
||||||
|
|
||||||
|
const double volume = 0.002831684659200; // 0.1 cu ft;
|
||||||
|
for (int w = 0; w < nw; ++w) {
|
||||||
|
bool allow_cf = allow_cross_flow(w, ebosSimulator);
|
||||||
|
for (int perf = wells().well_connpos[w] ; perf < wells().well_connpos[w+1]; ++perf) {
|
||||||
|
|
||||||
|
const int cell_idx = wells().well_cells[perf];
|
||||||
|
const auto& intQuants = *(ebosSimulator.model().cachedIntensiveQuantities(cell_idx, /*timeIdx=*/0));
|
||||||
|
std::vector<EvalWell> cq_s(np,0.0);
|
||||||
|
const EvalWell bhp = getBhp(w);
|
||||||
|
computeWellFlux(w, wells().WI[perf], intQuants, bhp, wellPerforationPressureDiffs()[perf], allow_cf, cq_s);
|
||||||
|
|
||||||
|
for (int p1 = 0; p1 < np; ++p1) {
|
||||||
|
|
||||||
|
// the cq_s entering mass balance equations need to consider the efficiency factors.
|
||||||
|
const EvalWell cq_s_effective = cq_s[p1] * well_perforation_efficiency_factors_[perf];
|
||||||
|
|
||||||
|
if (!only_wells) {
|
||||||
|
// subtract sum of phase fluxes in the reservoir equation.
|
||||||
|
// need to consider the efficiency factor
|
||||||
|
ebosResid[cell_idx][flowPhaseToEbosCompIdx(p1)] -= cq_s_effective.value();
|
||||||
|
}
|
||||||
|
|
||||||
|
// subtract sum of phase fluxes in the well equations.
|
||||||
|
resWell_[w][flowPhaseToEbosCompIdx(p1)] -= cq_s[p1].value();
|
||||||
|
|
||||||
|
// assemble the jacobians
|
||||||
|
for (int p2 = 0; p2 < np; ++p2) {
|
||||||
|
if (!only_wells) {
|
||||||
|
// also need to consider the efficiency factor when manipulating the jacobians.
|
||||||
|
ebosJac[cell_idx][cell_idx][flowPhaseToEbosCompIdx(p1)][flowToEbosPvIdx(p2)] -= cq_s_effective.derivative(p2);
|
||||||
|
duneB_[w][cell_idx][flowToEbosPvIdx(p2)][flowPhaseToEbosCompIdx(p1)] -= cq_s_effective.derivative(p2+blocksize); // intput in transformed matrix
|
||||||
|
duneC_[w][cell_idx][flowPhaseToEbosCompIdx(p1)][flowToEbosPvIdx(p2)] -= cq_s_effective.derivative(p2);
|
||||||
|
}
|
||||||
|
invDuneD_[w][w][flowPhaseToEbosCompIdx(p1)][flowToEbosPvIdx(p2)] -= cq_s[p1].derivative(p2+blocksize);
|
||||||
|
}
|
||||||
|
|
||||||
|
// add trivial equation for 2p cases (Only support water + oil)
|
||||||
|
if (np == 2) {
|
||||||
|
assert(!active_[ Gas ]);
|
||||||
|
invDuneD_[w][w][flowPhaseToEbosCompIdx(Gas)][flowToEbosPvIdx(Gas)] = 1.0;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Store the perforation phase flux for later usage.
|
||||||
|
well_state.perfPhaseRates()[perf*np + p1] = cq_s[p1].value();
|
||||||
|
}
|
||||||
|
|
||||||
|
// Store the perforation pressure for later usage.
|
||||||
|
well_state.perfPress()[perf] = well_state.bhp()[w] + wellPerforationPressureDiffs()[perf];
|
||||||
|
}
|
||||||
|
|
||||||
|
// add vol * dF/dt + Q to the well equations;
|
||||||
|
for (int p1 = 0; p1 < np; ++p1) {
|
||||||
|
EvalWell resWell_loc = (wellVolumeFraction(w, p1) - F0_[w + nw*p1]) * volume / dt;
|
||||||
|
resWell_loc += getQs(w, p1);
|
||||||
|
for (int p2 = 0; p2 < np; ++p2) {
|
||||||
|
invDuneD_[w][w][flowPhaseToEbosCompIdx(p1)][flowToEbosPvIdx(p2)] += resWell_loc.derivative(p2+blocksize);
|
||||||
|
}
|
||||||
|
resWell_[w][flowPhaseToEbosCompIdx(p1)] += resWell_loc.value();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// do the local inversion of D.
|
||||||
|
localInvert( invDuneD_ );
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
} // namespace Opm
|
||||||
Loading…
Reference in New Issue
Block a user