OilfieldToolsNet/opm-simulators
4
0
Fork 0
mirror of https://github.com/OPM/opm-simulators.git synced 2024-12-27 17:50:59 -06:00
Code Issues Packages Projects Releases Wiki Activity

Only perform incompressible adjustment if there are no BHP wells.

Browse Source
This commit is contained in:
Bård Skaflestad 2011-12-19 14:07:57 +01:00
parent e59110f5f4
commit 2b65e19c6f
1 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
opm/core/pressure/tpfa/cfs_tpfa_residual.c
View File

@ -817,7 +817,7 @@ assemble_completion_to_well(int w, int c, int nc, int np,
} }
static void static int
assemble_well_contrib(struct cfs_tpfa_res_wells *W , assemble_well_contrib(struct cfs_tpfa_res_wells *W ,
struct compr_quantities_gen *cq , struct compr_quantities_gen *cq ,
double dt , double dt ,
@ -826,6 +826,7 @@ assemble_well_contrib(struct cfs_tpfa_res_wells *W ,
struct cfs_tpfa_res_data *h ) struct cfs_tpfa_res_data *h )
{ {
int w, i, c, np, np2, nc; int w, i, c, np, np2, nc;
int is_neumann;
double pw, dp; double pw, dp;
double *WI, *gpot, *pmobp; double *WI, *gpot, *pmobp;
const double *Ac, *dAc; const double *Ac, *dAc;
@ -838,6 +839,8 @@ assemble_well_contrib(struct cfs_tpfa_res_wells *W ,
gpot = W->data->gpot; gpot = W->data->gpot;
pmobp = W->data->phasemob; pmobp = W->data->phasemob;
is_neumann = 1;
for (w = i = 0; w < W->conn->number_of_wells; w++) { for (w = i = 0; w < W->conn->number_of_wells; w++) {
pw = wpress[ w ]; pw = wpress[ w ];
@ -865,9 +868,14 @@ assemble_well_contrib(struct cfs_tpfa_res_wells *W ,
if (W->ctrl->ctrl[ w ] != BHP) { if (W->ctrl->ctrl[ w ] != BHP) {
h->F[ nc + w ] -= dt * W->ctrl->target[ w ]; h->F[ nc + w ] -= dt * W->ctrl->target[ w ];
} }
else {
is_neumann = 0;
} }
} }
return is_neumann;
}
/* ---------------------------------------------------------------------- */ /* ---------------------------------------------------------------------- */
static void static void
@ -1085,7 +1093,7 @@ cfs_tpfa_res_assemble(grid_t *G,
struct cfs_tpfa_res_data *h) struct cfs_tpfa_res_data *h)
/* ---------------------------------------------------------------------- */ /* ---------------------------------------------------------------------- */
{ {
int res_is_neumann, c, np2; int res_is_neumann, well_is_neumann, c, np2;
csrmatrix_zero( h->J); csrmatrix_zero( h->J);
vector_zero (h->J->m, h->F); vector_zero (h->J->m, h->F);
@ -1095,6 +1103,9 @@ cfs_tpfa_res_assemble(grid_t *G,
compute_compflux_and_deriv(G, cq->nphases, cpress, trans, compute_compflux_and_deriv(G, cq->nphases, cpress, trans,
cq->phasemobf, gravcap_f, cq->Af, h->pimpl); cq->phasemobf, gravcap_f, cq->Af, h->pimpl);
res_is_neumann = 1;
well_is_neumann = 1;
np2 = cq->nphases * cq->nphases; np2 = cq->nphases * cq->nphases;
for (c = 0; c < G->number_of_cells; for (c = 0; c < G->number_of_cells;
c++, zc += cq->nphases) { c++, zc += cq->nphases) {
@ -1110,7 +1121,8 @@ cfs_tpfa_res_assemble(grid_t *G,
compute_well_compflux_and_deriv(forces->W, cq->nphases, compute_well_compflux_and_deriv(forces->W, cq->nphases,
cpress, wpress, h->pimpl); cpress, wpress, h->pimpl);
assemble_well_contrib(forces->W, cq, dt, cpress, wpress, h); well_is_neumann = assemble_well_contrib(forces->W, cq, dt,
cpress, wpress, h);
} }
if ((forces != NULL) && (forces->src != NULL)) { if ((forces != NULL) && (forces->src != NULL)) {
@ -1118,9 +1130,7 @@ cfs_tpfa_res_assemble(grid_t *G,
assemble_sources(dt, forces->src, h); assemble_sources(dt, forces->src, h);
} }
res_is_neumann = 1; if (res_is_neumann && well_is_neumann && h->pimpl->is_incomp) {
if (res_is_neumann && h->pimpl->is_incomp) {
h->J->sa[0] *= 2; h->J->sa[0] *= 2;
} }
} }