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

Verify that RESERVOIR_RATE controlled wells have specified total rate.

Browse Source
This commit is contained in:
Atgeirr Flø Rasmussen 2012-04-26 15:03:55 +02:00
parent 6d4f0fe293
commit 88a24ef839
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
opm/core/pressure/tpfa/ifs_tpfa.c
View File

@ -286,11 +286,13 @@ assemble_well_contrib(int nc ,
int *ok) int *ok)
/* ---------------------------------------------------------------------- */ /* ---------------------------------------------------------------------- */
{ {
int w; int w, p, np;
int are_rate; int are_rate;
struct WellControls *ctrls; struct WellControls *ctrls;
np = W->number_of_phases;
*all_rate = 1; *all_rate = 1;
*ok = 1; *ok = 1;
@ -307,7 +309,15 @@ assemble_well_contrib(int nc ,
break; break;
case RESERVOIR_RATE: case RESERVOIR_RATE:
assemble_rate_well(nc, w, W, mt, wdp, h); for (p = 0; p < np; ++p) {
if (ctrls->distr[np * ctrls->current + p] != 1.0) {
*ok = 0;
break;
}
}
if (*ok) {
assemble_rate_well(nc, w, W, mt, wdp, h);
}
break; break;
case SURFACE_RATE: case SURFACE_RATE: