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 setting of dpmob arrays. Minor edit and reindent.

Browse Source
This commit is contained in:
Atgeirr Flø Rasmussen 2011-04-11 11:12:33 +02:00
parent 4214a6aa1d
commit 40c90929a6
1 changed files with 57 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
src/cfs_tpfa.c
View File

@ -1075,7 +1075,7 @@ cfs_tpfa_impes_maxtime_cell(int c,
int i, j, k, f, c2;
double f11, f12, f21, f22;
double gsgn, dp, dzg, tr, tmob, detF, eqv_flux;
double dp, dzg, tr, tmob, detF, eqv_flux;
const double *pmob;
const double *A;
/* This is intended to be compatible with the dune-porsol blackoil
@ -1090,36 +1090,20 @@ cfs_tpfa_impes_maxtime_cell(int c,
/* Notation: dpmob[Oil][Water] is d/ds_w(lambda_o) */
double dpmob[num_phases][num_phases]
= { {0.0, 0.0, 0.0}, {0.0, 0.0, 0.0}, {0.0, 0.0, 0.0} };
/* Filling the dpmob array from available data.
Note that we only need the following combinations:
(Water, Water)
(Water, Gas)
(Oil, Water)
(Oil, Gas)
(Gas, Gas)
No derivatives w.r.t. Oil is needed, since there are only two
independent saturation variables.
The lack of (Gas, Water) may be due to assumptions on the
three-phase model used (should be checked to be compatible
with our choices).
*/
f11 = f12 = f21 = f22 = 0.0;
/* Loop over neighbour faces to accumulate f11, f12 etc. */
for (i = G->cell_facepos[c]; i < G->cell_facepos[c + 1]; ++i) {
f = G->cell_faces[i];
if ((c2 = G->face_cells[2*f + 0]) == c) {
gsgn = 1.0;
c2 = G->face_cells[2*f + 1];
} else {
gsgn = -1.0;
}
/* Initially only interiour faces */
if (c2 >= 0) {
if (c2 < 0) {
continue;
}
/* Computing density */
A = cq->Af + f*(cq->nphases)*(cq->nphases);
for (j = 0; j < cq->nphases; ++j) {
@ -1137,6 +1121,26 @@ cfs_tpfa_impes_maxtime_cell(int c,
for (j = 0; j < cq->nphases; ++j) {
pot[j] = fabs(dp - rho[j]*dzg);
}
/* Filling the dpmob array from available data.
Note that we only need the following combinations:
(Water, Water)
(Water, Gas)
(Oil, Water)
(Oil, Gas)
(Gas, Gas)
No derivatives w.r.t. Oil is needed, since there are only two
independent saturation variables.
The lack of (Gas, Water) may be due to assumptions on the
three-phase model used (should be checked to be compatible
with our choices).
*/
dpmob[Water][Water] = dpmobf[9*f];
dpmob[Water][Gas] = dpmobf[9*f + 2];
dpmob[Oil][Water] = dpmobf[9*f + 3];
dpmob[Oil][Gas] = dpmobf[9*f + 5];
dpmob[Gas][Gas] = dpmobf[9*f + 8];
/* Computing the flux parts f_ij */
pmob = cq->phasemobf + f*cq->nphases;
tr = trans[f];
@ -1152,7 +1156,6 @@ cfs_tpfa_impes_maxtime_cell(int c,
+ (pmob[Water] + pmob[Oil])*dpmob[Gas][Gas]*pot[Gas]
- pmob[Gas]*dpmob[Water][Gas]*pot[Water])/tmob;
}
}
/* (from eq. 3, 4a-e, 5a-c)
F_i = 1/2 |f11_i + f22_i + \sqrt{G}|