OilfieldToolsNet/opm-simulators
4
0
Fork 0
mirror of https://github.com/OPM/opm-simulators.git synced 2024-11-26 03:00:17 -06:00
Code Issues Packages Projects Releases Wiki Activity

Compute real Darcy flux in cfs_tpfa_press_flux().

Browse Source 
The previous edition made the grave mistake of summing the mass fluxes
per face.  This does not make sense.

Pointed out by: Jostein.R.Natvig@sintef.no
This commit is contained in:
Bård Skaflestad 2010-11-10 14:31:30 +01:00
parent 552bfd5f00
commit 64cf39691e
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/cfs_tpfa.c
View File

@ -213,7 +213,8 @@ static void
compute_flux(grid_t *G,
size_t np,
const double *cpress,
const double *ptransf,
const double *pmobf,
const double *trans,
struct cfs_tpfa_data *h,
double *fflux)
/* ---------------------------------------------------------------------- */
@ -227,7 +228,8 @@ compute_flux(grid_t *G,
c2 = G->face_cells[2*f + 1];
t = 0.0;
for (p = 0; p < np; p++) { t += ptransf[f*np + p]; }
for (p = 0; p < np; p++) { t += pmobf[f*np + p]; }
t *= trans[f];
if ((c1 >= 0) && (c2 >= 0)) {
dp = cpress[c1] - cpress[c2];
@ -338,7 +340,8 @@ cfs_tpfa_press_flux(grid_t *G,
size_t np,
flowbc_t *bc,
const double *ctrans,
const double *ptransf,
const double *trans,
const double *pmobf,
struct cfs_tpfa_data *h,
double *cpress,
double *fflux)
@ -348,7 +351,7 @@ cfs_tpfa_press_flux(grid_t *G,
memcpy(cpress, h->x, G->number_of_cells * sizeof *cpress);
compute_fpress(G, bc, ctrans, cpress, h);
compute_flux (G, np, cpress, ptransf, h, fflux);
compute_flux (G, np, cpress, pmobf, trans, h, fflux);
}

3
src/cfs_tpfa.h
View File

@ -55,7 +55,8 @@ cfs_tpfa_press_flux(grid_t *G,
size_t np,
flowbc_t *bc,
const double *ctrans,
const double *ptransf,
const double *trans,
const double *pmobf,
struct cfs_tpfa_data *h,
double *cpress,
double *fflux);