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

Added new function well_controls_iset_distr().

Browse Source
This commit is contained in:
Joakim Hove
2014-01-06 12:22:15 +01:00
parent 3d171bd961
commit 6098368d08
3 changed files with 20 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -174,6 +174,14 @@ well_controls_iget_distr(const struct WellControls * ctrl, int control_index) {
}
void
well_controls_iset_distr(const struct WellControls * ctrl, int control_index, const double * distr) {
int offset = control_index * ctrl->number_of_phases;
for (int p=0; p < ctrl->number_of_phases; p++)
ctrl->distr[offset + p] = distr[p];
}
void
well_controls_assert_number_of_phases(struct WellControls * ctrl , int number_of_phases) {
if (ctrl->num == 0)