Corrected some mistakes in Gauss Seidel gravitation transport solver.

examples/polymer_reorder.cpp

@@ -186,6 +186,11 @@ public:
         return props_.porosity();
     }
 
+    double deadporespace() const
+    {
+        return polyprops_.deadPoreVol();
+    }
+
     double rockdensity() const
     {
         return polyprops_.rockDensity();
@@ -394,6 +399,17 @@ main(int argc, char** argv)
         gravity[2] = param.getDefault("gravity", 0.0);
         // Init state variables (saturation and pressure).
         initStateBasic(*grid->c_grid(), *props, param, gravity[2], state);
+        // Init Polymer state
+        if (param.has("poly_init")) {
+            double poly_init = param.getDefault("poly_init", 0.0);
+            for (int cell = 0; cell < grid->c_grid()->number_of_cells; ++cell) {
+                if (state.saturation()[2*cell] > 0) {
+                    state.concentration()[cell] = poly_init;
+                } else {
+                    state.concentration()[cell] = 0.;
+                }
+            }
+        }
         // Init polymer properties.
         // Setting defaults to provide a simple example case.
         double c_max = param.getDefault("c_max_limit", 5.0);
@@ -417,8 +433,10 @@ main(int argc, char** argv)
         std::vector<double> ads_vals(3, -1e100);
         ads_vals[0] = 0.0;
         // polyprop.ads_vals[1] = param.getDefault("c_max_ads", 0.0025);
-        ads_vals[1] = 0.0015;
+        // ads_vals[1] = 0.0015;
-        ads_vals[2] = 0.0025;
+        // ads_vals[2] = 0.0025;
+        ads_vals[1] = 0.0;
+        ads_vals[2] = 0.0;
         polyprop.set(c_max, mix_param, rock_density, dead_pore_vol, res_factor, c_max_ads,
                      static_cast<Opm::PolymerProperties::AdsorptionBehaviour>(ads_index),
                      c_vals_visc,  visc_mult_vals, c_vals_ads, ads_vals);

opm/polymer/TransportModelPolymer.cpp

@@ -1083,7 +1083,7 @@ namespace Opm
 	double sat[2] = { s, 1.0 - s };
         double relperm[2];
 	props_.relperm(1, sat, &cell, relperm, 0);
-        polyprops_.effectiveMobilities(c, cmax0_[cell], &visc_[cell], relperm, mob);
+        polyprops_.effectiveMobilities(c, cmax0_[cell], visc_, relperm, mob);
     }
 
 
@@ -1111,8 +1111,8 @@ namespace Opm
 
 
     void TransportModelPolymer::solveSingleCellGravity(const std::vector<int>& cells,
-                                                        const int pos,
+                                                       const int pos,
-                                                        const double* gravflux)
+                                                       const double* gravflux)
     {
         const int cell = cells[pos];
         ResidualCGrav res_c(*this, cells, pos, gravflux);
@@ -1160,11 +1160,9 @@ namespace Opm
         // Store initial saturation s0
         s0_.resize(nc);
         c0_.resize(nc);
-        cmax0_.resize(nc);
         for (int ci = 0; ci < nc; ++ci) {
             s0_[ci] = saturation_[cells[ci]];
             c0_[ci] = concentration_[cells[ci]];
-            cmax0_[ci] = cmax_[cells[ci]];
         }
 
         // Solve single cell problems, repeating if necessary.
@@ -1177,8 +1175,10 @@ namespace Opm
                 double old_s[2] = { saturation_[cells[ci]],
                                     saturation_[cells[ci2]] };
                 saturation_[cells[ci]] = s0_[ci];
-                saturation_[cells[ci2]] = s0_[ci2];
+                concentration_[cells[ci]] = c0_[ci];
                 solveSingleCellGravity(cells, ci, &col_gravflux[0]);
+                saturation_[cells[ci2]] = s0_[ci2];
+                concentration_[cells[ci2]] = c0_[ci2];
                 solveSingleCellGravity(cells, ci2, &col_gravflux[0]);
                 max_s_change = std::max(max_s_change, std::max(std::fabs(saturation_[cells[ci]] - old_s[0]),
                                                                std::fabs(saturation_[cells[ci2]] - old_s[1])));
@@ -1201,20 +1201,23 @@ namespace Opm
                                               std::vector<double>& concentration,
                                               std::vector<double>& cmax)
     {
-        // Initialize mobilities.
+        // initialize variables.
+        porevolume_ = porevolume;
+        dt_ = dt;
+        saturation_ = &saturation[0];
+        concentration_ = &concentration[0];
+        cmax_ = &cmax[0];
         const int nc = grid_.number_of_cells;
+        cmax0_.resize(nc);
+        std::copy(cmax.begin(), cmax.end(), &cmax0_[0]);
+
+        // Initialize mobilities.
         mob_.resize(2*nc);
 
         for (int cell = 0; cell < nc; ++cell) {
             mobility(saturation[cell], concentration[cell], cell, &mob_[2*cell]);
         }
 
-        // Set up other variables.
-        porevolume_ = porevolume;
-        dt_ = dt;
-        saturation_ = &saturation[0];
-        concentration_ = &concentration[0];
-        cmax_ = &cmax[0];
 
         // Solve on all columns.
         int num_iters = 0;

opm/polymer/TransportModelPolymer.hpp

@@ -109,9 +109,10 @@ namespace Opm
         // For gravity segregation.
         std::vector<double> gravflux_;
         std::vector<double> mob_;
+        std::vector<double> cmax0_;
+        // For gravity segregation, column variables
         std::vector<double> s0_;
         std::vector<double> c0_;
-        std::vector<double> cmax0_;
 
 	struct ResidualC;
 	struct ResidualS;