src/turbulenceModels/incompressible/LES/homogeneousDynOneEqEddy/homogeneousDynOneEqEddy.C

   1 /*---------------------------------------------------------------------------*\
   2   =========                 |
   3   \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
   4    \\    /   O peration     |
   5     \\  /    A nd           | Copyright (C) 2011 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 \*---------------------------------------------------------------------------*/
  25
  26 #include "homogeneousDynOneEqEddy.H"
  27 #include "addToRunTimeSelectionTable.H"
  28
  29 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
  30
  31 namespace Foam
  32 {
  33 namespace incompressible
  34 {
  35 namespace LESModels
  36 {
  37
  38 // * * * * * * * * * * * * * * Static Data Members * * * * * * * * * * * * * //
  39
  40 defineTypeNameAndDebug(homogeneousDynOneEqEddy, 0);
  41 addToRunTimeSelectionTable(LESModel, homogeneousDynOneEqEddy, dictionary);
  42
  43 // * * * * * * * * * * * * * Private Member Functions  * * * * * * * * * * * //
  44
  45 void homogeneousDynOneEqEddy::updateSubGridScaleFields(const volSymmTensorField& D)
  46 {
  47     nuSgs_ = ck(D)*sqrt(k_)*delta();
  48     nuSgs_.correctBoundaryConditions();
  49 }
  50
  51
  52 dimensionedScalar homogeneousDynOneEqEddy::ck(const volSymmTensorField& D) const
  53 {
  54     tmp<volScalarField> KK = 0.5*(filter_(magSqr(U())) - magSqr(filter_(U())));
  55
  56     const volSymmTensorField MM
  57     (
  58         delta()*(filter_(sqrt(k_)*D) - 2*sqrt(KK + filter_(k_))*filter_(D))
  59     );
  60
  61     dimensionedScalar MMMM = average(magSqr(MM));
  62
  63     if (MMMM.value() > VSMALL)
  64     {
  65         tmp<volSymmTensorField> LL = dev(filter_(sqr(U())) - sqr(filter_(U())));
  66
  67         return average(LL && MM)/MMMM;
  68     }
  69     else
  70     {
  71         return 0.0;
  72     }
  73 }
  74
  75
  76 dimensionedScalar homogeneousDynOneEqEddy::ce(const volSymmTensorField& D) const
  77 {
  78     const volScalarField KK
  79     (
  80         0.5*(filter_(magSqr(U())) - magSqr(filter_(U())))
  81     );
  82
  83     const volScalarField mm
  84     (
  85         pow(KK + filter_(k_), 1.5)/(2*delta()) - filter_(pow(k_, 1.5))/delta()
  86     );
  87
  88     dimensionedScalar mmmm = average(magSqr(mm));
  89
  90     if (mmmm.value() > VSMALL)
  91     {
  92         tmp<volScalarField> ee =
  93         (
  94             2*delta()*ck(D)
  95           * (
  96                 filter_(sqrt(k_)*magSqr(D))
  97               - 2*sqrt(KK + filter_(k_))*magSqr(filter_(D))
  98             )
  99         );
 100
 101         return average(ee*mm)/mmmm;
 102     }
 103     else
 104     {
 105         return 0.0;
 106     }
 107 }
 108
 109
 110 // * * * * * * * * * * * * * * * * Constructors  * * * * * * * * * * * * * * //
 111
 112 homogeneousDynOneEqEddy::homogeneousDynOneEqEddy
 113 (
 114     const volVectorField& U,
 115     const surfaceScalarField& phi,
 116     transportModel& transport,
 117     const word& turbulenceModelName,
 118     const word& modelName
 119 )
 120 :
 121     LESModel(modelName, U, phi, transport, turbulenceModelName),
 122     GenEddyVisc(U, phi, transport),
 123
 124     k_
 125     (
 126         IOobject
 127         (
 128             "k",
 129             runTime_.timeName(),
 130             mesh_,
 131             IOobject::MUST_READ,
 132             IOobject::AUTO_WRITE
 133         ),
 134         mesh_
 135     ),
 136
 137     filterPtr_(LESfilter::New(U.mesh(), coeffDict())),
 138     filter_(filterPtr_())
 139 {
 140     bound(k_, kMin_);
 141
 142     updateSubGridScaleFields(symm(fvc::grad(U)));
 143
 144     printCoeffs();
 145 }
 146
 147
 148 // * * * * * * * * * * * * * * * Member Functions  * * * * * * * * * * * * * //
 149
 150 void homogeneousDynOneEqEddy::correct(const tmp<volTensorField>& tgradU)
 151 {
 152     const volTensorField& gradU = tgradU();
 153
 154     GenEddyVisc::correct(gradU);
 155
 156     const volSymmTensorField D(symm(gradU));
 157
 158     const volScalarField P(2.0*nuSgs_*magSqr(D));
 159
 160     tmp<fvScalarMatrix> kEqn
 161     (
 162        fvm::ddt(k_)
 163      + fvm::div(phi(), k_)
 164      - fvm::laplacian(DkEff(), k_)
 165     ==
 166        P
 167      - fvm::Sp(ce(D)*sqrt(k_)/delta(), k_)
 168     );
 169
 170     kEqn().relax();
 171     kEqn().solve();
 172
 173     bound(k_, kMin_);
 174
 175     updateSubGridScaleFields(D);
 176 }
 177
 178
 179 bool homogeneousDynOneEqEddy::read()
 180 {
 181     if (GenEddyVisc::read())
 182     {
 183         filter_.read(coeffDict());
 184
 185         return true;
 186     }
 187     else
 188     {
 189         return false;
 190     }
 191 }
 192
 193
 194 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
 195
 196 } // End namespace LESModels
 197 } // End namespace incompressible
 198 } // End namespace Foam
 199
 200 // ************************************************************************* //