From 4eb1457c6118bdf186305fd32e4e68a89480683c Mon Sep 17 00:00:00 2001 From: "Halvor M. Nilsen" Date: Tue, 19 Jun 2012 13:37:22 +0200 Subject: [PATCH] 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. --- opm/core/pressure/tpfa/ifs_tpfa.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/opm/core/pressure/tpfa/ifs_tpfa.c b/opm/core/pressure/tpfa/ifs_tpfa.c index 00397d99..774fbdfb 100644 --- a/opm/core/pressure/tpfa/ifs_tpfa.c +++ b/opm/core/pressure/tpfa/ifs_tpfa.c @@ -585,7 +585,7 @@ assemble_incompressible(struct UnstructuredGrid *G , int res_is_neumann, wells_are_rate; double s; - + *ok=1; csrmatrix_zero( h->A); vector_zero (h->A->m, h->b); @@ -694,7 +694,6 @@ ifs_tpfa_assemble(struct UnstructuredGrid *G , /* ---------------------------------------------------------------------- */ { int system_singular, ok; - assemble_incompressible(G, F, trans, gpress, h, &system_singular, &ok); if (ok && system_singular) {