From a13b036db3eee9973389bf113ebf2a344b8507cb Mon Sep 17 00:00:00 2001
From: Henry Weller <http://cfd.direct>
Date: Sat, 5 Dec 2015 16:12:57 +0000
Subject: [PATCH] saturationModels/Antoine: Corrected dimensions in Tsat
 Resolves bug-report http://www.openfoam.org/mantisbt/view.php?id=1940

---
 .../saturationModels/Antoine/Antoine.C                        | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/applications/solvers/multiphase/reactingEulerFoam/interfacialCompositionModels/saturationModels/Antoine/Antoine.C b/applications/solvers/multiphase/reactingEulerFoam/interfacialCompositionModels/saturationModels/Antoine/Antoine.C
index 90f1c989c5..b5b0629df1 100644
--- a/applications/solvers/multiphase/reactingEulerFoam/interfacialCompositionModels/saturationModels/Antoine/Antoine.C
+++ b/applications/solvers/multiphase/reactingEulerFoam/interfacialCompositionModels/saturationModels/Antoine/Antoine.C
@@ -95,7 +95,9 @@ Foam::saturationModels::Antoine::Tsat
     const volScalarField& p
 ) const
 {
-    return B_/(log(p) - A_) - C_;
+    return
+        B_/(log(p*dimensionedScalar("one", dimless/dimPressure, 1)) - A_)
+      - C_;
 }