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

Refactor transmissibility reference during Dirichlet BC assembly.

Browse Source
This commit is contained in:
Bård Skaflestad 2012-03-13 14:43:56 +01:00
parent 427a2e6712
commit 89aaf3dea2
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
opm/core/pressure/tpfa/ifs_tpfa.c
View File

@ -162,7 +162,7 @@ assemble_bc_contrib(struct UnstructuredGrid *G ,
int f, c1, c2;
size_t i, j, ix;
double s;
double s, t;
is_neumann = 1;
@ -179,13 +179,14 @@ assemble_bc_contrib(struct UnstructuredGrid *G ,
is_inflow = c1 >= 0;
t = trans[ f ];
s = 2.0*is_inflow - 1.0;
c1 = is_inflow ? c1 : c2;
ix = csrmatrix_elm_index(c1, c1, h->A);
h->A->sa[ ix ] += trans[ f ];
h->b [ c1 ] += trans[ f ] * bc->value[ i ];
h->b [ c1 ] -= s * trans[f] * h->pimpl->fgrav[f];
h->A->sa[ ix ] += t;
h->b [ c1 ] += t * bc->value[ i ];
h->b [ c1 ] -= s * t * h->pimpl->fgrav[ f ];
}
}