Update porosities before calling transport solver.

This commit is contained in:
Atgeirr Flø Rasmussen 2012-06-14 21:51:44 +02:00
parent 95bf53cc30
commit dd83ac3b87
2 changed files with 10 additions and 0 deletions

View File

@ -594,6 +594,11 @@ main(int argc, char** argv)
}
} while (!well_control_passed);
// Update pore volumes if rock is compressible.
if (rock_comp->isActive()) {
computePorevolume(*grid->c_grid(), props->porosity(), *rock_comp, state.pressure(), porevol);
}
// Process transport sources (to include bdy terms and well flows).
Opm::computeTransportSource(*grid->c_grid(), src, state.faceflux(), 1.0,
wells->c_wells(), well_state.perfRates(), reorder_src);

View File

@ -311,6 +311,11 @@ namespace Opm
ptime += pt;
} while (false);
// Update pore volumes if rock is compressible.
if (rock_comp_ && rock_comp_->isActive()) {
computePorevolume(grid_, props_.porosity(), *rock_comp_, 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);