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

Add tentative implementation of surface-rate targets.

Browse Source 
Not tested at present.
This commit is contained in:
Bård Skaflestad
2012-09-26 10:14:45 +02:00
parent 9f69e9fa51
commit fb8e79857c
1 changed files with 30 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -820,7 +820,34 @@ welleq_coeff_resv(int np, struct cfs_tpfa_res_data *h,
/* ---------------------------------------------------------------------- */ /* ---------------------------------------------------------------------- */
static void static void
assemble_completion_to_well(int w, int c, int nc, int np, welleq_coeff_surfrate(int i, int np, struct cfs_tpfa_res_data *h,
struct WellControls *ctrl,
double *res, double *w2c, double *w2w)
/* ---------------------------------------------------------------------- */
{
int p;
double f;
const double *pflux, *dpflux_w, *dpflux_c, *distr;
pflux = h->pimpl->compflux_p + (i * (1 * np));
dpflux_w = h->pimpl->compflux_deriv_p + (i * (2 * np));
dpflux_c = dpflux_w + (1 * (1 * np));
distr = ctrl->distr + (ctrl->current * (1 * np));
*res = *w2c = *w2w = 0.0;
for (p = 0; p < np; p++) {
f = distr[ p ];
*res += f * pflux [ p ];
*w2w += f * dpflux_w[ p ];
*w2c += f * dpflux_c[ p ];
}
}
/* ---------------------------------------------------------------------- */
static void
assemble_completion_to_well(int i, int w, int c, int nc, int np,
double pw, double dt, double pw, double dt,
struct cfs_tpfa_res_wells *wells, struct cfs_tpfa_res_wells *wells,
struct cfs_tpfa_res_data *h ) struct cfs_tpfa_res_data *h )
@@ -856,7 +883,7 @@ assemble_completion_to_well(int w, int c, int nc, int np,
break; break;
case SURFACE_RATE: case SURFACE_RATE:
assert (0); /* Surface rate currently not supported */ welleq_coeff_surfrate(i, np, h, ctrl, &res, &w2c, &w2w);
break; break;
} }
} }
@@ -925,7 +952,7 @@ assemble_well_contrib(struct cfs_tpfa_res_wells *wells ,
h->pimpl->flux_work, h->pimpl->flux_work,
h->pimpl->flux_work + np); h->pimpl->flux_work + np);
assemble_completion_to_well(w, c, nc, np, pw, dt, wells, h); assemble_completion_to_well(i, w, c, nc, np, pw, dt, wells, h);
} }
ctrl = W->ctrls[ w ]; ctrl = W->ctrls[ w ];