From 364cfd76d24f32ccabac6f1c5a3f9d1c28b97749 Mon Sep 17 00:00:00 2001
From: Henry <Henry>
Date: Wed, 8 Jan 2014 16:48:09 +0000
Subject: [PATCH] GAMGSolverSolve: scale coarsest level if using interpolation

---
 .../matrices/lduMatrix/solvers/GAMG/GAMGSolverSolve.C       | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/OpenFOAM/matrices/lduMatrix/solvers/GAMG/GAMGSolverSolve.C b/src/OpenFOAM/matrices/lduMatrix/solvers/GAMG/GAMGSolverSolve.C
index 42f141965b..1a547204a7 100644
--- a/src/OpenFOAM/matrices/lduMatrix/solvers/GAMG/GAMGSolverSolve.C
+++ b/src/OpenFOAM/matrices/lduMatrix/solvers/GAMG/GAMGSolverSolve.C
@@ -352,7 +352,11 @@ void Foam::GAMGSolver::Vcycle
 
             // Scale coarse-grid correction field
             // but not on the coarsest level because it evaluates to 1
-            if (scaleCorrection_ && leveli < coarsestLevel - 1)
+            if
+            (
+                scaleCorrection_
+             && (interpolateCorrection_ || leveli < coarsestLevel - 1)
+            )
             {
                 scale
                 (