added: StandardWellEquations::invert()

this inverts the D matrix.
use the new method in the well implementation.

opm/simulators/wells/StandardWellEquations.cpp

@@ -22,6 +22,10 @@
 #include <config.h>
 #include <opm/simulators/wells/StandardWellEquations.hpp>
 
+#include <opm/common/Exceptions.hpp>
+
+#include <opm/simulators/linalg/matrixblock.hh>
+
 namespace Opm
 {
 
@@ -141,6 +145,21 @@ void StandardWellEquations<Scalar,numEq>::apply(BVector& r) const
     duneC_.mmtv(invDrw_, r);
 }
 
+template<class Scalar, int numEq>
+void StandardWellEquations<Scalar,numEq>::invert()
+{
+    try {
+        invDuneD_ = duneD_; // Not strictly need if not cpr with well contributions is used
+        detail::invertMatrix(invDuneD_[0][0]);
+    } catch (NumericalProblem&) {
+        // for singular matrices, use identity as the inverse
+        invDuneD_[0][0] = 0.0;
+        for (size_t i = 0; i < invDuneD_[0][0].rows(); ++i) {
+            invDuneD_[0][0][i][i] = 1.0;
+        }
+    }
+}
+
 #define INSTANCE(N) \
 template class StandardWellEquations<double,N>;
 

opm/simulators/wells/StandardWellEquations.hpp

@@ -79,6 +79,9 @@ public:
     //! \brief Apply linear operator to vector.
     void apply(BVector& r) const;
 
+    //! \brief Invert D matrix.
+    void invert();
+
     // two off-diagonal matrices
     OffDiagMatWell duneB_;
     OffDiagMatWell duneC_;

opm/simulators/wells/StandardWell_impl.hpp

@@ -551,14 +551,7 @@ namespace Opm
 
         // do the local inversion of D.
         try {
-            this->linSys_.invDuneD_ = this->linSys_.duneD_; // Not strictly need if not cpr with well contributions is used
+            this->linSys_.invert();
-            detail::invertMatrix(this->linSys_.invDuneD_[0][0]);
-        } catch (NumericalProblem&) {
-            // for singular matrices, use identity as the inverse
-            this->linSys_.invDuneD_[0][0] = 0.0;
-            for (size_t i = 0; i < this->linSys_.invDuneD_[0][0].rows(); ++i) {
-                this->linSys_.invDuneD_[0][0][i][i] = 1.0;
-            }
         } catch( ... ) {
             OPM_DEFLOG_THROW(NumericalIssue,"Error when inverting local well equations for well " + name(), deferred_logger);
         }