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

Added inizialization of ok, which correct error for solves without wells. The only thing which is check is if the well object have incompressible form.

Browse Source
This commit is contained in:
Halvor M. Nilsen
2012-06-19 13:37:22 +02:00
parent 6c4b799925
commit 4eb1457c61
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -585,7 +585,7 @@ assemble_incompressible(struct UnstructuredGrid *G ,
int res_is_neumann, wells_are_rate; int res_is_neumann, wells_are_rate;
double s; double s;
*ok=1;
csrmatrix_zero( h->A); csrmatrix_zero( h->A);
vector_zero (h->A->m, h->b); vector_zero (h->A->m, h->b);
@@ -694,7 +694,6 @@ ifs_tpfa_assemble(struct UnstructuredGrid *G ,
/* ---------------------------------------------------------------------- */ /* ---------------------------------------------------------------------- */
{ {
int system_singular, ok; int system_singular, ok;
assemble_incompressible(G, F, trans, gpress, h, &system_singular, &ok); assemble_incompressible(G, F, trans, gpress, h, &system_singular, &ok);
if (ok && system_singular) { if (ok && system_singular) {