OilfieldToolsNet/opm-simulators
4
0 Fork 0
mirror of https://github.com/OPM/opm-simulators.git synced 2026-10-13 17:32:03 -05:00
Code Issues Packages Projects Releases Wiki Activity

Merged.

Browse Source
This commit is contained in:
Atgeirr Flø Rasmussen committed 2012-03-20 12:12:21 +01:00
2 parents b430b7bcb5 433485c4f9
commit 39e55a34cf
1 file changed
+3 -2
Download Patch File Download Diff File Expand all files Collapse all files
opm/core/pressure/IncompTpfa.cpp
+3 -2
View File
@@ -193,8 +193,9 @@ namespace Opm
for (int c = 0; c < gg->number_of_cells; ++c) {
// Find diagonal
size_t j = csrmatrix_elm_index(c, c, h_->A);
h_->A->sa[j] += porevol[c]*rock_comp[c]/dt;
h_->b[c] += porevol[c]*rock_comp[c]*pressure[c]/dt;
double d = porevol[c] * rock_comp[c] / dt;
h_->A->sa[j] += d;
h_->b[c] += d * pressure[c];
}
}