From 511ab37dc41bcde7c9751baaa14f77138fe8c3be Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Atgeirr=20Fl=C3=B8=20Rasmussen?= Date: Wed, 22 May 2013 12:33:40 +0200 Subject: [PATCH] Fix error in testcase specifying well prod. factors. Also switch back to surface volume controls. --- examples/test_impestpfa_ad.cpp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/examples/test_impestpfa_ad.cpp b/examples/test_impestpfa_ad.cpp index 75b344111..449a9e929 100644 --- a/examples/test_impestpfa_ad.cpp +++ b/examples/test_impestpfa_ad.cpp @@ -128,13 +128,13 @@ main(int argc, char* argv[]) const int inj_cells[num_inj] = { 0, 1, 2 }; const int num_prod = 2; const int prod_cells[num_prod] = { 20, 21 }; - const double WI[3] = { 1e-12 }; + const double WI[3] = { 1e-12, 1e-12, 1e-12 }; bool ok = add_well(INJECTOR, 0.0, num_inj, inj_frac, inj_cells, WI, "Inj", wells); ok = ok && add_well(PRODUCER, 0.0, num_prod, prod_frac, prod_cells, WI, "Prod", wells); ok = ok && append_well_controls(BHP, 500.0*Opm::unit::barsa, 0, 0, wells); - ok = ok && append_well_controls(BHP, 200.0*Opm::unit::barsa, 0, 1, wells); + // ok = ok && append_well_controls(BHP, 200.0*Opm::unit::barsa, 0, 1, wells); double oildistr[2] = { 0.0, 1.0 }; - // ok = ok && append_well_controls(SURFACE_RATE, 8.64297e-05, oildistr, 1, wells); + ok = ok && append_well_controls(SURFACE_RATE, 1e-3, oildistr, 1, wells); if (!ok) { THROW("Something went wrong with well init."); }