reactingFoam: Added frozenFlow option

with frozenFlow set true in the PIMPLE sub-dictionary of fvSolution the p-U
system is not solved and the energy-composition system including reactions is
solved with the fixed flow.

applications/solvers/combustion/reactingFoam/YEqn.H

@@ -9,11 +9,10 @@ tmp<fv::convectionScheme<scalar>> mvConvection
     )
 );
 
-{
+reaction->correct();
-    reaction->correct();
 
-    forAll(Y, i)
+forAll(Y, i)
-    {
+{
     if (composition.solve(i))
     {
         volScalarField& Yi = Y[i];
@@ -36,7 +35,6 @@ tmp<fv::convectionScheme<scalar>> mvConvection
 
         fvOptions.correct(Yi);
     }
-    }
-
-    composition.normalise();
 }
+
+composition.normalise();

applications/solvers/combustion/reactingFoam/correctPhi.H

@@ -0,0 +1 @@
+#include "../../compressible/rhoPimpleFoam/correctPhi.H"

applications/solvers/combustion/reactingFoam/reactingFoam.C

@@ -101,6 +101,13 @@ int main(int argc, char *argv[])
 
         Info<< "Time = " << runTime.timeName() << nl << endl;
 
+        if (pimple.frozenFlow())
+        {
+            #include "YEqn.H"
+            #include "EEqn.H"
+        }
+        else
+        {
             // --- Pressure-velocity PIMPLE corrector loop
             while (pimple.loop())
             {
@@ -126,7 +133,7 @@ int main(int argc, char *argv[])
                             // from the mapped surface velocity
                             phi = mesh.Sf() & rhoUf();
 
-                        #include "../../compressible/rhoPimpleFoam/correctPhi.H"
+                            #include "correctPhi.H"
 
                             // Make the fluxes relative to the mesh-motion
                             fvc::makeRelative(phi, rho, U);
@@ -160,6 +167,7 @@ int main(int argc, char *argv[])
                     thermophysicalTransport->correct();
                 }
             }
+        }
 
         rho = thermo.rho();