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

Don't enforce p[0]=0 for non-Neumann problems.

Browse Source
This commit is contained in:
Bård Skaflestad 2010-11-06 19:16:23 +01:00
parent dba90f41bd
commit 43ddeaeca8
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/cfs_tpfa.c
View File

@ -217,12 +217,15 @@ cfs_tpfa_assemble(grid_t *G,
/* ---------------------------------------------------------------------- */
{
int c1, c2, c, i, f, j1, j2;
int is_neumann;
double s;
csrmatrix_zero( h->A);
vector_zero (h->A->m, h->b);
is_neumann = 1;
for (c = i = 0; c < G->number_of_cells; c++) {
j1 = csrmatrix_elm_index(c, c, h->A);
@ -241,6 +244,8 @@ cfs_tpfa_assemble(grid_t *G,
h->A->sa[j1] += ctrans[i];
h->A->sa[j2] -= ctrans[i];
} else if (bc->type[f] == PRESSURE) {
is_neumann = 0;
h->A->sa[j1] += ctrans[i];
h->b [c ] += ctrans[i] * bc->bcval[f];
}
@ -252,7 +257,9 @@ cfs_tpfa_assemble(grid_t *G,
h->A->sa[j1] += P[c];
}
h->A->sa[0] *= 2;
if (is_neumann) {
h->A->sa[0] *= 2;
}
}