applications/utilities/errorEstimation/momentScalarError/momentScalarError.C

   1 /*---------------------------------------------------------------------------*\
   2   =========                 |
   3   \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
   4    \\    /   O peration     |
   5     \\  /    A nd           | Copyright (C) 1991-2008 OpenCFD Ltd.
   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 the
  13     Free Software Foundation; either version 2 of the License, or (at your
  14     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, write to the Free Software Foundation,
  23     Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
  24
  25 Application
  26     momentScalarError
  27
  28 Description
  29     Estimates the error in the solution for a scalar transport equation in the
  30     standard form
  31
  32 \*---------------------------------------------------------------------------*/
  33
  34 #include "fvCFD.H"
  35 #include "linear.H"
  36 #include "gaussConvectionScheme.H"
  37 #include "gaussLaplacianScheme.H"
  38
  39 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
  40
  41 int main(int argc, char *argv[])
  42 {
  43
  44 #   include "addTimeOptions.H"
  45 #   include "setRootCase.H"
  46
  47     Info<< "\nEstimating error in scalar transport equation\n" << endl;
  48
  49 #   include "createTime.H"
  50
  51     // Get times list
  52     instantList Times = runTime.times();
  53
  54 #   include "checkTimeOptions.H"
  55
  56     runTime.setTime(Times[startTime], startTime);
  57
  58 #   include "createMesh.H"
  59
  60     Info<< "Reading transportProperties\n" << endl;
  61
  62     IOdictionary transportProperties
  63     (
  64         IOobject
  65         (
  66             "transportProperties",
  67             runTime.constant(),
  68             mesh,
  69             IOobject::MUST_READ,
  70             IOobject::NO_WRITE
  71         )
  72     );
  73
  74
  75     Info<< "Reading diffusivity DT\n" << endl;
  76
  77     dimensionedScalar DT
  78     (
  79         transportProperties.lookup("DT")
  80     );
  81
  82
  83     for (label i=startTime; i<endTime; i++)
  84     {
  85         runTime.setTime(Times[i], i);
  86
  87         Info<< "Time = " << runTime.timeName() << endl;
  88
  89         mesh.readUpdate();
  90
  91         IOobject THeader
  92         (
  93             "T",
  94             runTime.timeName(),
  95             mesh,
  96             IOobject::MUST_READ
  97         );
  98
  99         IOobject Uheader
 100         (
 101             "U",
 102             runTime.timeName(),
 103             mesh,
 104             IOobject::MUST_READ
 105         );
 106
 107         if (THeader.headerOk() && Uheader.headerOk())
 108         {
 109             Info << "Reading T" << endl;
 110             volScalarField T(THeader, mesh);
 111
 112             Info << "Reading U" << endl;
 113             volVectorField U(Uheader, mesh);
 114
 115 #           include "createPhi.H"
 116
 117             volVectorField gradT = fvc::grad(T);
 118
 119             volScalarField TE = 0.5*sqr(T);
 120
 121             volScalarField L
 122             (
 123                 IOobject
 124                 (
 125                     "L",
 126                     mesh.time().timeName(),
 127                     mesh,
 128                     IOobject::NO_READ,
 129                     IOobject::NO_WRITE
 130                 ),
 131                 mesh,
 132                 dimensionedScalar("one", dimLength, 1.0)
 133             );
 134
 135             L.internalField() =
 136                 mesh.V()/fvc::surfaceSum(mesh.magSf())().internalField();
 137
 138             // Divergence of the error in the T squared
 139             volScalarField momError
 140             (
 141                 IOobject
 142                 (
 143                     "momErrorL" + T.name(),
 144                     mesh.time().timeName(),
 145                     mesh,
 146                     IOobject::NO_READ,
 147                     IOobject::NO_WRITE
 148                 ),
 149                 sqrt
 150                 (
 151                     2.0*mag
 152                     (
 153                         (
 154                             fv::gaussConvectionScheme<scalar>
 155                             (
 156                                 mesh,
 157                                 phi,
 158                                 tmp<surfaceInterpolationScheme<scalar> >
 159                                 (
 160                                     new linear<scalar>(mesh)
 161                                 )
 162                             ).fvcDiv(phi, TE)
 163
 164                           - DT*
 165                             fv::gaussLaplacianScheme<scalar, scalar>(mesh)
 166                            .fvcLaplacian
 167                             (
 168                                 TE
 169                             )
 170                           + DT*(gradT & gradT)
 171                         )*L/(mag(U) + DT/L)
 172                     )
 173                 )
 174             );
 175
 176             momError.boundaryField() = 0.0;
 177             momError.write();
 178         }
 179         else
 180         {
 181             Info<< "    No T or U" << endl;
 182         }
 183
 184         Info<< endl;
 185     }
 186
 187     Info<< "End\n" << endl;
 188
 189     return(0);
 190 }
 191
 192
 193 // ************************************************************************* //