OilfieldToolsNet/opm-core
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge from upstream.

Browse Source
This commit is contained in:
Bård Skaflestad 2010-11-19 15:20:22 +01:00
commit 064f0844a5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/cfs_tpfa.c
View File

@ -487,7 +487,10 @@ compute_flux(grid_t *G,
double t, dp; double t, dp;
for (f = 0; f < G->number_of_faces; f++) { for (f = 0; f < G->number_of_faces; f++) {
if (bc->type[f] == FLUX) { c1 = G->face_cells[2*f + 0];
c2 = G->face_cells[2*f + 1];
if (((c1 < 0) || (c2 < 0)) && (bc->type[f] == FLUX)) {
fflux[f] = bc->bcval[f]; fflux[f] = bc->bcval[f];
continue; continue;
} }
@ -498,9 +501,6 @@ compute_flux(grid_t *G,
} }
t *= trans[f]; t *= trans[f];
c1 = G->face_cells[2*f + 0];
c2 = G->face_cells[2*f + 1];
if ((c1 >= 0) && (c2 >= 0)) { if ((c1 >= 0) && (c2 >= 0)) {
dp = cpress[c1] - cpress[c2]; dp = cpress[c1] - cpress[c2];
} else if (bc->type[f] == PRESSURE) { } else if (bc->type[f] == PRESSURE) {