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

Fix recently created bug in append_well_controls().

Browse Source
This commit is contained in:
Atgeirr Flø Rasmussen 2012-05-03 12:48:56 +02:00
parent 18ace3c137
commit 373a4f2689
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
opm/core/utility/newwells.c
View File

@ -160,7 +160,7 @@ well_controls_reserve(int nctrl, int nphases, struct WellControls *ctrl)
if (target != NULL) { ctrl->target = target; ok++; } if (target != NULL) { ctrl->target = target; ok++; }
if (distr != NULL) { ctrl->distr = distr ; ok++; } if (distr != NULL) { ctrl->distr = distr ; ok++; }
if (ok == 2) { if (ok == 3) {
m = ctrl->data; m = ctrl->data;
for (c = m->cpty; c < nctrl; c++) { for (c = m->cpty; c < nctrl; c++) {
ctrl->type [c] = BHP; ctrl->type [c] = BHP;
@ -173,7 +173,7 @@ well_controls_reserve(int nctrl, int nphases, struct WellControls *ctrl)
m->cpty = nctrl; m->cpty = nctrl;
} }
return ok == 2; return ok == 3;
} }