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