saturationModels: Added Tsat function

Currently this is implemented only for the Antoine equation, for the
other more complex models an iterative inversion from pressure to
temperature is required.

applications/solvers/multiphase/reactingTwoPhaseEulerFoam/interfacialCompositionModels/saturationModels/Antoine/Antoine.C

@@ -89,4 +89,14 @@ Foam::saturationModels::Antoine::lnPSat
 }
 
 
+Foam::tmp<Foam::volScalarField>
+Foam::saturationModels::Antoine::Tsat
+(
+    const volScalarField& p
+) const
+{
+    return B_/(A_ - log10(p)) - C_;
+}
+
+
 // ************************************************************************* //

applications/solvers/multiphase/reactingTwoPhaseEulerFoam/interfacialCompositionModels/saturationModels/Antoine/Antoine.H

@@ -98,6 +98,9 @@ public:
 
         //- Natural log of the saturation pressure
         virtual tmp<volScalarField> lnPSat(const volScalarField& T) const;
+
+        //- Saturation temperature
+        virtual tmp<volScalarField> Tsat(const volScalarField& p) const;
 };
 
 

applications/solvers/multiphase/reactingTwoPhaseEulerFoam/interfacialCompositionModels/saturationModels/AntoineExtended/AntoineExtended.C

@@ -102,4 +102,19 @@ Foam::saturationModels::AntoineExtended::lnPSat
 }
 
 
+Foam::tmp<Foam::volScalarField>
+Foam::saturationModels::AntoineExtended::Tsat
+(
+    const volScalarField& p
+) const
+{
+    notImplemented
+    (
+        "saturationModels::AntoineExtended::Tsat(const volScalarField& p)"
+    );
+
+    return volScalarField::null();
+}
+
+
 // ************************************************************************* //

applications/solvers/multiphase/reactingTwoPhaseEulerFoam/interfacialCompositionModels/saturationModels/AntoineExtended/AntoineExtended.H

@@ -100,6 +100,9 @@ public:
 
         //- Natural log of the saturation pressure
         virtual tmp<volScalarField> lnPSat(const volScalarField& T) const;
+
+        //- Saturation temperature
+        virtual tmp<volScalarField> Tsat(const volScalarField& p) const;
 };
 
 

applications/solvers/multiphase/reactingTwoPhaseEulerFoam/interfacialCompositionModels/saturationModels/ArdenBuck/ArdenBuck.C

@@ -109,4 +109,19 @@ Foam::saturationModels::ArdenBuck::lnPSat
 }
 
 
+Foam::tmp<Foam::volScalarField>
+Foam::saturationModels::ArdenBuck::Tsat
+(
+    const volScalarField& p
+) const
+{
+    notImplemented
+    (
+        "saturationModels::ArdenBuck::Tsat(const volScalarField& p)"
+    );
+
+    return volScalarField::null();
+}
+
+
 // ************************************************************************* //

applications/solvers/multiphase/reactingTwoPhaseEulerFoam/interfacialCompositionModels/saturationModels/ArdenBuck/ArdenBuck.H

@@ -25,7 +25,7 @@ Class
     Foam::saturationModels::ArdenBuck
 
 Description
-    ArdenBuck equation for the vapour pressure of steam.
+    ArdenBuck equation for the vapour pressure of moist air.
 
 SourceFiles
     ArdenBuck.C
@@ -85,6 +85,9 @@ public:
 
         //- Natural log of the saturation pressure
         virtual tmp<volScalarField> lnPSat(const volScalarField& T) const;
+
+        //- Saturation temperature
+        virtual tmp<volScalarField> Tsat(const volScalarField& p) const;
 };
 
 

applications/solvers/multiphase/reactingTwoPhaseEulerFoam/interfacialCompositionModels/saturationModels/saturationModel/saturationModel.H

@@ -113,6 +113,12 @@ public:
         (
             const volScalarField& T
         ) const = 0;
+
+        //- Saturation temperature
+        virtual tmp<volScalarField> Tsat
+        (
+            const volScalarField& p
+        ) const = 0;
 };