OilfieldToolsNet/opm-core
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Compensate for matrix adjustment in rock comp case.

Browse Source
This commit is contained in:
Atgeirr Flø Rasmussen 2012-03-20 12:05:59 +01:00
parent f91ec88df6
commit a99cccf2fc
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
opm/core/pressure/IncompTpfa.cpp
View File

@ -178,7 +178,13 @@ namespace Opm
ifs_tpfa_assemble(gg, &F, &trans_[0], &gpress_omegaweighted_[0], h_); ifs_tpfa_assemble(gg, &F, &trans_[0], &gpress_omegaweighted_[0], h_);
// TODO: this is a hack, it would be better to handle this in a
// (variant of) ifs_tpfa_assemble().
if (!rock_comp.empty()) { if (!rock_comp.empty()) {
// We must compensate for adjustment made in ifs_tpfa_assemble()
// to make the system nonsingular.
h_->A->sa[0] *= 0.5;
// The extra term of the equation is // The extra term of the equation is
// //
// porevol*rock_comp*(p - p0)/dt. // porevol*rock_comp*(p - p0)/dt.