OilfieldToolsNet/opm-simulators
4
0
Fork 0
mirror of https://github.com/OPM/opm-simulators.git synced 2024-12-25 16:51:00 -06:00
Code Issues Packages Projects Releases Wiki Activity

added: StandardWellEquations::apply(r)

Browse Source 
this applies the equation system to a vector.
use the new method in the well implementation.
This commit is contained in:
Arne Morten Kvarving 2022-11-11 21:41:24 +01:00
parent 21bb4dc955
commit 033718f027
3 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
opm/simulators/wells/StandardWellEquations.cpp
View File

@ -130,6 +130,17 @@ void StandardWellEquations<Scalar,numEq>::apply(const BVector& x, BVector& Ax) c
duneC_.mmtv(invDBx, Ax);
}
template<class Scalar, int numEq>
void StandardWellEquations<Scalar,numEq>::apply(BVector& r) const
{
assert(invDrw_.size() == invDuneD_.N());
// invDrw_ = invDuneD_ * resWell_
invDuneD_.mv(resWell_, invDrw_);
// r = r - duneC_^T * invDrw_
duneC_.mmtv(invDrw_, r);
}
#define INSTANCE(N) \
template class StandardWellEquations<double,N>;

3
opm/simulators/wells/StandardWellEquations.hpp
View File

@ -76,6 +76,9 @@ public:
//! \brief Apply linear operator to vector.
void apply(const BVector& x, BVector& Ax) const;
//! \brief Apply linear operator to vector.
void apply(BVector& r) const;
// two off-diagonal matrices
OffDiagMatWell duneB_;
OffDiagMatWell duneC_;

7
opm/simulators/wells/StandardWell_impl.hpp
View File

@ -1736,12 +1736,7 @@ namespace Opm
{
if (!this->isOperableAndSolvable() && !this->wellIsStopped()) return;
assert(this->linSys_.invDrw_.size() == this->linSys_.invDuneD_.N());
// invDrw_ = invDuneD_ * resWell_
this->linSys_.invDuneD_.mv(this->linSys_.resWell_, this->linSys_.invDrw_);
// r = r - duneC_^T * invDrw_
this->linSys_.duneC_.mmtv(this->linSys_.invDrw_, r);
this->linSys_.apply(r);
}
template<typename TypeTag>