engineSwirl.C
Go to the documentation of this file.
1 /*---------------------------------------------------------------------------*\
2  ========= |
3  \\ / F ield | OpenFOAM: The Open Source CFD Toolbox
4  \\ / O peration | Website: https://openfoam.org
5  \\ / A nd | Copyright (C) 2011-2023 OpenFOAM Foundation
6  \\/ M anipulation |
7 -------------------------------------------------------------------------------
8 License
9  This file is part of OpenFOAM.
10 
11  OpenFOAM is free software: you can redistribute it and/or modify it
12  under the terms of the GNU General Public License as published by
13  the Free Software Foundation, either version 3 of the License, or
14  (at your option) any later version.
15 
16  OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
17  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
18  FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
19  for more details.
20 
21  You should have received a copy of the GNU General Public License
22  along with OpenFOAM. If not, see <http://www.gnu.org/licenses/>.
23 
24 Application
25  engineSwirl
26 
27 Description
28  Generates a swirling flow for engine calculations.
29 
30 \*---------------------------------------------------------------------------*/
31 
32 #include "argList.H"
33 #include "volFields.H"
34 #include "mathematicalConstants.H"
35 
36 using namespace Foam;
37 
38 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
39 
40 int main(int argc, char *argv[])
41 {
42  #include "setRootCase.H"
43  #include "createTime.H"
44  #include "createMeshNoChangers.H"
45  #include "createFields.H"
46 
47  // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
48 
49  scalar Vphi = (constant::mathematical::pi*swirlRPMRatio*rpm/30).value();
50  scalar b1 = j1(swirlProfile).value();
51  scalar b2 = 2.0*b1/swirlProfile.value() - j0(swirlProfile).value();
52 
53  scalar omega = 0.125*(Vphi*bore*swirlProfile/b2).value();
54 
55  scalar cylinderRadius = 0.5*bore.value();
56 
57  scalar Umax = 0.0;
58  forAll(mesh.C(), celli)
59  {
60  vector c = mesh.C()[celli] - swirlCenter;
61  scalar r = ::pow(sqr(c & xT) + sqr(c & yT), 0.5);
62 
63  if (r <= cylinderRadius)
64  {
65  scalar b = j1(swirlProfile*r/cylinderRadius).value();
66  scalar vEff = omega*b;
67  r = max(r, small);
68  U[celli] = ((vEff/r)*(c & yT))*xT + (-(vEff/r)*(c & xT))*yT;
69  Umax = max(Umax, mag(U[celli]));
70  }
71  }
72 
73  Info<< "Umax = " << Umax << endl;
74 
75  U.write();
76 
77  Info<< "\n end\n";
78 
79  return 0;
80 }
81 
82 
83 // ************************************************************************* //
#define forAll(list, i)
Loop across all elements in list.
Definition: UList.H:434
const Type & value() const
Return const reference to value.
const scalar omega
int main(int argc, char *argv[])
Definition: financialFoam.C:44
volScalarField & b
Definition: createFields.H:27
U
Definition: pEqn.H:72
const dimensionedScalar c
Speed of light in a vacuum.
Namespace for OpenFOAM.
dimensionedSymmTensor sqr(const dimensionedVector &dv)
dimensionedScalar j1(const dimensionedScalar &ds)
Ostream & endl(Ostream &os)
Add newline and flush stream.
Definition: Ostream.H:251
messageStream Info
dimensionedScalar pow(const dimensionedScalar &ds, const dimensionedScalar &expt)
dimensioned< scalar > mag(const dimensioned< Type > &)
layerAndWeight max(const layerAndWeight &a, const layerAndWeight &b)
dimensionedScalar j0(const dimensionedScalar &ds)