Update porosities before calling transport solver.

This commit is contained in:
Atgeirr Flø Rasmussen
2012-06-14 21:53:56 +02:00
parent 83e9afc75a
commit 92bc55385d
2 changed files with 10 additions and 0 deletions

View File

@@ -296,6 +296,11 @@ namespace Opm
ptime += pt;
} while (false);
// Update pore volumes if rock is compressible.
if (rock_comp_props_ && rock_comp_props_->isActive()) {
computePorevolume(grid_, props_.porosity(), *rock_comp_props_, state.pressure(), porevol);
}
// Process transport sources (to include bdy terms and well flows).
Opm::computeTransportSource(grid_, src_, state.faceflux(), 1.0,
wells_, well_state.perfRates(), transport_src);