Merge branch 'master' of ssh://git.code.sf.net/p/foam-extend/foam-extend-3.2
[foam-extend-3.2.git] / src / lagrangian / dieselSpray / spraySubModels / dispersionModel / stochasticDispersionRAS / stochasticDispersionRAS.C
blob6741c429fb8e335b5d4a61ef7d37165ba016eec5
1 /*---------------------------------------------------------------------------*\
2   =========                 |
3   \\      /  F ield         | foam-extend: Open Source CFD
4    \\    /   O peration     | Version:     3.2
5     \\  /    A nd           | Web:         http://www.foam-extend.org
6      \\/     M anipulation  | For copyright notice see file Copyright
7 -------------------------------------------------------------------------------
8 License
9     This file is part of foam-extend.
11     foam-extend is free software: you can redistribute it and/or modify it
12     under the terms of the GNU General Public License as published by the
13     Free Software Foundation, either version 3 of the License, or (at your
14     option) any later version.
16     foam-extend is distributed in the hope that it will be useful, but
17     WITHOUT ANY WARRANTY; without even the implied warranty of
18     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
19     General Public License for more details.
21     You should have received a copy of the GNU General Public License
22     along with foam-extend.  If not, see <http://www.gnu.org/licenses/>.
24 \*---------------------------------------------------------------------------*/
26 #include "error.H"
28 #include "stochasticDispersionRAS.H"
29 #include "addToRunTimeSelectionTable.H"
31 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
33 namespace Foam
36 // * * * * * * * * * * * * * * Static Data Members * * * * * * * * * * * * * //
38 defineTypeNameAndDebug(stochasticDispersionRAS, 0);
40 addToRunTimeSelectionTable
42     dispersionModel,
43     stochasticDispersionRAS,
44     dictionary
48 // * * * * * * * * * * * * * * * * Constructors  * * * * * * * * * * * * * * //
50 // Construct from components
51 stochasticDispersionRAS::stochasticDispersionRAS
53     const dictionary& dict,
54     spray& sm
57     dispersionRASModel(dict, sm)
61 // * * * * * * * * * * * * * * * * Destructor  * * * * * * * * * * * * * * * //
63 stochasticDispersionRAS::~stochasticDispersionRAS()
67 // * * * * * * * * * * * * * * * Member Functions  * * * * * * * * * * * * * //
69 void stochasticDispersionRAS::disperseParcels() const
72     const scalar cps = 0.16432;
74     scalar dt = spray_.runTime().deltaT().value();
75     const volScalarField& k = turbulence().k();
76     //volVectorField gradk = fvc::grad(k);
77     const volScalarField& epsilon = turbulence().epsilon();
78     const volVectorField& U = spray_.U();
80     for
81     (
82         spray::iterator elmnt = spray_.begin();
83         elmnt != spray_.end();
84         ++elmnt
85     )
86     {
87         label celli = elmnt().cell();
88         scalar UrelMag = mag(elmnt().U() - U[celli] - elmnt().Uturb());
90         scalar Tturb = min
91         (
92             k[celli]/epsilon[celli],
93             cps*pow(k[celli], 1.5)/epsilon[celli]/(UrelMag + SMALL)
94         );
96         // parcel is perturbed by the turbulence
97         if (dt < Tturb)
98         {
99             elmnt().tTurb() += dt;
101             if (elmnt().tTurb() > Tturb)
102             {
103                 elmnt().tTurb() = 0.0;
105                 scalar sigma = sqrt(2.0*k[celli]/3.0);
106                 vector dir = 2.0*spray_.rndGen().vector01() - vector::one;
107                 dir /= mag(dir) + SMALL;
109                 // numerical recipes... Ch. 7. Random Numbers...
110                 scalar x1,x2;
111                 scalar rsq = 10.0;
112                 while((rsq > 1.0) || (rsq == 0.0))
113                 {
114                     x1 = 2.0*spray_.rndGen().scalar01() - 1.0;
115                     x2 = 2.0*spray_.rndGen().scalar01() - 1.0;
116                     rsq = x1*x1 + x2*x2;
117                 }
119                 scalar fac = sqrt(-2.0*log(rsq)/rsq);
121                 fac *= mag(x1);
123                 elmnt().Uturb() = sigma*fac*dir;
124             }
125         }
126         else
127         {
128             elmnt().tTurb() = GREAT;
129             elmnt().Uturb() = vector::zero;
130         }
131     }
135 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
137 } // End namespace Foam
139 // ************************************************************************* //