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

Merge remote-tracking branch 'bska/master'

Browse Source
This commit is contained in:
Atgeirr Flø Rasmussen 2013-05-14 15:12:18 +02:00
commit e8baa4a967
1 changed files with 56 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
ImpesTPFAAD.hpp
View File

@ -275,26 +275,33 @@ namespace Opm {
{ {
pdepfdata_.computeSatQuant(state); pdepfdata_.computeSatQuant(state);
const double atol = 1.0e-9;
const double rtol = 5.0e-10;
const int maxit = 15;
assemble(dt, state, well_state); assemble(dt, state, well_state);
const int nc = grid_.number_of_cells; const double r0 = residualNorm();
Eigen::SparseMatrix<double, Eigen::RowMajor> matr = cell_residual_.derivative()[0]; int it = 0;
bool resTooLarge = r0 > atol;
while (resTooLarge && (it < maxit)) {
solveJacobianSystem(state);
#if HACK_INCOMPRESSIBLE_GRAVITY assemble(dt, state, well_state);
matr.coeffRef(0, 0) *= 2;
#endif
V dp(nc); const double r = residualNorm();
const V p0 = Eigen::Map<const V>(&state.pressure()[0], nc, 1);
Opm::LinearSolverInterface::LinearSolverReport rep resTooLarge = (r > atol) && (r > rtol*r0);
= linsolver_.solve(nc, matr.nonZeros(),
matr.outerIndexPtr(), matr.innerIndexPtr(), matr.valuePtr(), it += 1;
cell_residual_.value().data(), dp.data()); }
if (!rep.converged) {
THROW("ImpesTPFAAD::solve(): Linear solver convergence failure."); if (resTooLarge) {
THROW("Failed to compute converged pressure solution");
}
else {
computeFluxes();
} }
const V p = p0 - dp;
std::copy(&p[0], &p[0] + nc, state.pressure().begin());
} }
private: private:
@ -392,6 +399,40 @@ namespace Opm {
cell_residual_ = cell_residual_ - (cell_B * component_contrib); cell_residual_ = cell_residual_ - (cell_B * component_contrib);
} }
} }
void
solveJacobianSystem(BlackoilState& state) const
{
const int nc = grid_.number_of_cells;
Eigen::SparseMatrix<double, Eigen::RowMajor> matr = cell_residual_.derivative()[0];
#if HACK_INCOMPRESSIBLE_GRAVITY
matr.coeffRef(0, 0) *= 2;
#endif
V dp(nc);
const V p0 = Eigen::Map<const V>(&state.pressure()[0], nc, 1);
Opm::LinearSolverInterface::LinearSolverReport rep
= linsolver_.solve(nc, matr.nonZeros(),
matr.outerIndexPtr(), matr.innerIndexPtr(), matr.valuePtr(),
cell_residual_.value().data(), dp.data());
if (!rep.converged) {
THROW("ImpesTPFAAD::solve(): Linear solver convergence failure.");
}
const V p = p0 - dp;
std::copy(&p[0], &p[0] + nc, state.pressure().begin());
}
double
residualNorm() const
{
return cell_residual_.value().matrix().norm();
}
void
computeFluxes() const
{
}
}; };
} // namespace Opm } // namespace Opm