OpenFOAM logo
The Open Source CFD Toolbox
  Source Guide OpenCFD Solutions Contact OpenFOAM

dieselFoam.C

Go to the documentation of this file.
00001 /*---------------------------------------------------------------------------*\
00002   =========                 |
00003   \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
00004    \\    /   O peration     |
00005     \\  /    A nd           | Copyright (C) 1991-2009 OpenCFD Ltd.
00006      \\/     M anipulation  |
00007 -------------------------------------------------------------------------------
00008 License
00009     This file is part of OpenFOAM.
00010 
00011     OpenFOAM is free software; you can redistribute it and/or modify it
00012     under the terms of the GNU General Public License as published by the
00013     Free Software Foundation; either version 2 of the License, or (at your
00014     option) any later version.
00015 
00016     OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
00017     ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
00018     FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
00019     for more details.
00020 
00021     You should have received a copy of the GNU General Public License
00022     along with OpenFOAM; if not, write to the Free Software Foundation,
00023     Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
00024 
00025 Application
00026     dieselFoam
00027 
00028 Description
00029     Solver for diesel spray and combustion.
00030 
00031 \*---------------------------------------------------------------------------*/
00032 
00033 #include "fvCFD.H"
00034 #include "hCombustionThermo.H"
00035 #include "turbulenceModel.H"
00036 #include "spray.H"
00037 #include "psiChemistryModel.H"
00038 #include "chemistrySolver.H"
00039 
00040 #include "multivariateScheme.H"
00041 #include "IFstream.H"
00042 #include "OFstream.H"
00043 #include "Switch.H"
00044 
00045 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
00046 
00047 int main(int argc, char *argv[])
00048 {
00049     #include "setRootCase.H"
00050     #include "createTime.H"
00051     #include "createMesh.H"
00052     #include "createFields.H"
00053     #include "readGravitationalAcceleration.H"
00054     #include "readCombustionProperties.H"
00055     #include "createSpray.H"
00056     #include "initContinuityErrs.H"
00057     #include "readTimeControls.H"
00058     #include "compressibleCourantNo.H"
00059     #include "setInitialDeltaT.H"
00060 
00061     // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
00062 
00063     Info << "\nStarting time loop\n" << endl;
00064 
00065     while (runTime.run())
00066     {
00067         #include "readPISOControls.H"
00068         #include "compressibleCourantNo.H"
00069         #include "setDeltaT.H"
00070 
00071         runTime++;
00072         Info<< "Time = " << runTime.timeName() << nl << endl;
00073 
00074         Info << "Evolving Spray" << endl;
00075 
00076         dieselSpray.evolve();
00077 
00078         Info << "Solving chemistry" << endl;
00079 
00080         chemistry.solve
00081         (
00082             runTime.value() - runTime.deltaT().value(),
00083             runTime.deltaT().value()
00084         );
00085 
00086         // turbulent time scale
00087         {
00088             volScalarField tk =
00089                 Cmix*sqrt(turbulence->muEff()/rho/turbulence->epsilon());
00090             volScalarField tc = chemistry.tc();
00091 
00092             // Chalmers PaSR model
00093             kappa = (runTime.deltaT() + tc)/(runTime.deltaT()+tc+tk);
00094         }
00095 
00096         #include "rhoEqn.H"
00097         #include "UEqn.H"
00098 
00099         for (label ocorr=1; ocorr <= nOuterCorr; ocorr++)
00100         {
00101             #include "YEqn.H"
00102             #include "hEqn.H"
00103 
00104             // --- PISO loop
00105             for (int corr=1; corr<=nCorr; corr++)
00106             {
00107                 #include "pEqn.H"
00108             }
00109         }
00110 
00111         turbulence->correct();
00112 
00113         #include "spraySummary.H"
00114 
00115         rho = thermo.rho();
00116 
00117         if (runTime.write())
00118         {
00119             chemistry.dQ()().write();
00120         }
00121 
00122         Info<< "ExecutionTime = " << runTime.elapsedCpuTime() << " s"
00123             << "  ClockTime = " << runTime.elapsedClockTime() << " s"
00124             << nl << endl;
00125     }
00126 
00127     Info<< "End\n" << endl;
00128 
00129     return 0;
00130 }
00131 
00132 
00133 // ************************************************************************* //
Copyright © 2000-2009 OpenCFD Ltd