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

Implemented well_controls_add_new() with well_controls_iset_xxx() functions.

Browse Source
This commit is contained in:
Joakim Hove 2014-01-06 12:24:32 +01:00
parent 6098368d08
commit 2ee6331ac1
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
opm/core/wells/well_controls.c
View File

@ -209,14 +209,12 @@ well_controls_add_new(enum WellControlType type , double target , const double *
return 0;
}
ctrl->type [ctrl->num] = type ;
ctrl->target[ctrl->num] = target;
if (distr != NULL) {
int offset = ctrl->num * ctrl->number_of_phases;
memcpy(&ctrl->distr[offset] , distr, ctrl->number_of_phases * sizeof * ctrl->distr);
}
well_controls_iset_type( ctrl , ctrl->num , type);
well_controls_iset_target( ctrl , ctrl->num , target);
if (distr != NULL)
well_controls_iset_distr( ctrl , ctrl->num , distr);
ctrl->num += 1;
return 1;
}