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

Re-install zero-level enforcement, but only for incompressible problems.

Browse Source
This commit is contained in:
Bård Skaflestad 2011-01-13 14:19:07 +01:00
parent eb30bcb049
commit b8fd9a5516
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/cfs_tpfa.c
View File

@ -675,6 +675,21 @@ compute_wflux(well_t *W,
}
/* ---------------------------------------------------------------------- */
static int
is_incompr(int nc, struct compr_quantities *cq)
/* ---------------------------------------------------------------------- */
{
int c, incompr;
for (c = 0, incompr = 1; (c < nc) && incompr; ++c) {
incompr = cq->totcompr[c] == 0.0;
}
return incompr;
}
/* ======================================================================
* Public interface below separator.
@ -750,6 +765,11 @@ cfs_tpfa_assemble(grid_t *G,
} else {
well_is_neumann = 1;
}
if (res_is_neumann && well_is_neumann &&
is_incompr(G->number_of_cells, cq)) {
h->A->sa[0] *= 2;
}
}