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

added: MultisegmentWellEquations::apply(x,Ax)

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 8fe6b3968e
commit f2acbccc1a
3 changed files with 24 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
opm/simulators/wells/MultisegmentWellEquations.cpp
View File

@@ -22,6 +22,7 @@
#include <config.h>
#include <opm/simulators/wells/MultisegmentWellEquations.hpp>
#include <opm/simulators/wells/MSWellHelpers.hpp>
#include <opm/simulators/wells/MultisegmentWellGeneric.hpp>
namespace Opm {
@@ -114,6 +115,21 @@ void MultisegmentWellEquations<Scalar,numWellEq,numEq>::clear()
duneDSolver_.reset();
}
template<class Scalar, int numWellEq, int numEq>
void MultisegmentWellEquations<Scalar,numWellEq,numEq>::
apply(const BVector& x, BVector& Ax) const
{
BVectorWell Bx(duneB_.N());
duneB_.mv(x, Bx);
// invDBx = duneD^-1 * Bx_
const BVectorWell invDBx = mswellhelpers::applyUMFPack(duneD_, duneDSolver_, Bx);
// Ax = Ax - duneC_^T * invDBx
duneC_.mmtv(invDBx,Ax);
}
#define INSTANCE(numWellEq, numEq) \
template class MultisegmentWellEquations<double,numWellEq,numEq>;

4
opm/simulators/wells/MultisegmentWellEquations.hpp
View File

@@ -74,7 +74,9 @@ public:
//! \brief Set all coefficients to 0.
void clear();
// TODO, the following should go to a class for computing purpose
//! \brief Apply linear operator to vector.
void apply(const BVector& x, BVector& Ax) const;
// two off-diagonal matrices
OffDiagMatWell duneB_;
OffDiagMatWell duneC_;

17
opm/simulators/wells/MultisegmentWell_impl.hpp
View File

@@ -196,23 +196,16 @@ namespace Opm
MultisegmentWell<TypeTag>::
apply(const BVector& x, BVector& Ax) const
{
if (!this->isOperableAndSolvable() && !this->wellIsStopped()) return;
if (!this->isOperableAndSolvable() && !this->wellIsStopped()) {
return;
}
if ( this->param_.matrix_add_well_contributions_ )
{
if (this->param_.matrix_add_well_contributions_) {
// Contributions are already in the matrix itself
return;
}
BVectorWell Bx(this->linSys_.duneB_.N());
this->linSys_.duneB_.mv(x, Bx);
// invDBx = duneD^-1 * Bx_
const BVectorWell invDBx = mswellhelpers::applyUMFPack(this->linSys_.duneD_,
this->linSys_.duneDSolver_, Bx);
// Ax = Ax - duneC_^T * invDBx
this->linSys_.duneC_.mmtv(invDBx,Ax);
this->linSys_.apply(x, Ax);
}