#820 Fix a bug introduced yesterday: the matrix used in dH was not the right...

#820 Fix a bug introduced yesterday: the matrix used in dH was not the right one (Dirichlet contribution was still there; it didn't appear on numerical results of first iteration but could have been tricky to find in later ones).

Sources/ModelInstances/UnderDevelopment/Poromechanics/ImplicitStepFluid/InnerLoop/VariationalFormulation.hpp

@@ -182,7 +182,8 @@ namespace HappyHeart
                      *
                      * \todo #9 - #820 To complete!
                      */
-                    double PerformDifferential(unsigned int iteration);
+                    double PerformDifferential(unsigned int iteration,
+                                               const GlobalMatrix& monolithic_without_dirichlet);
                     
                     
                     //! Compute the matrix with an updated T21 block (to use after the Newton converged).

Sources/ModelInstances/UnderDevelopment/Poromechanics/ImplicitStepFluid/InnerLoop/VariationalFormulation.hxx

@@ -144,7 +144,8 @@ namespace HappyHeart
                 
                 template<class HyperelasticLawT>
                 double VariationalFormulation<HyperelasticLawT>
-                ::PerformDifferential(unsigned int iteration)
+                ::PerformDifferential(unsigned int iteration,
+                                      const GlobalMatrix& monolithic_without_dirichlet)
                 {
                     SetIndexInnerLoop(iteration);
                     //decltype(auto) time_manager = parent::GetTimeManager();
@@ -211,7 +212,9 @@ namespace HappyHeart
                     
                     auto& dirichlet_load_state_correction = GetNonCstDirichletLoadStateCorrection();
                     
-                    Wrappers::Petsc::MatMult(parent::GetSystemMatrix(numbering_subset, numbering_subset),
+                    // Matrix here is the one computed after the Newton loop was done, without the Dirichlet condition
+                    // inside for T33 term.
+                    Wrappers::Petsc::MatMult(monolithic_without_dirichlet,
                                              robin_vector,
                                              dirichlet_load_state_correction,
                                              __FILE__, __LINE__);

Sources/ModelInstances/UnderDevelopment/Poromechanics/ImplicitStepFluid/VariationalFormulation.hxx

@@ -81,7 +81,8 @@ namespace HappyHeart
                         }
                         case differential::yes:
                         {
-                            current_norm = inner_varf.PerformDifferential(counter++);
+                            current_norm = inner_varf.PerformDifferential(counter++,
+                                                                          GetMonolithicMatrixAfterInnerLoopWithoutDirichlet());
                             break;
                         }
                     }