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.

2012-06-19 13:37:22 +02:00
parent 6c4b799925
commit 4eb1457c61
1 changed files with 1 additions and 2 deletions
--- 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) {