src/OpenFOAM/matrices/lduMatrix/solvers/GAMG/GAMGSolverScalingFactor.C

   1 /*---------------------------------------------------------------------------*\
   2   =========                 |
   3   \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
   4    \\    /   O peration     |
   5     \\  /    A nd           | Copyright (C) 1991-2009 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 \*---------------------------------------------------------------------------*/
  26
  27 #include "GAMGSolver.H"
  28 #include "vector2D.H"
  29
  30 // * * * * * * * * * * * * * Private Member Functions  * * * * * * * * * * * //
  31
  32 Foam::scalar Foam::GAMGSolver::scalingFactor
  33 (
  34     scalarField& field,
  35     const scalarField& source,
  36     const scalarField& Acf,
  37     const scalarField& D
  38 ) const
  39 {
  40     scalar scalingFactorNum = 0.0;
  41     scalar scalingFactorDenom = 0.0;
  42
  43     forAll(field, i)
  44     {
  45         scalingFactorNum += source[i]*field[i];
  46         scalingFactorDenom += Acf[i]*field[i];
  47
  48         // While the matrix-multiply done for the scaling it is
  49         // possible to perform a point-Jacobi smoothing operation cheaply
  50         field[i] += (source[i] - Acf[i])/D[i];
  51     }
  52
  53     vector2D scalingVector(scalingFactorNum, scalingFactorDenom);
  54     reduce(scalingVector, sumOp<vector2D>());
  55     return scalingVector.x()/stabilise(scalingVector.y(), VSMALL);
  56 }
  57
  58
  59 Foam::scalar Foam::GAMGSolver::scalingFactor
  60 (
  61     scalarField& Acf,
  62     const lduMatrix& A,
  63     scalarField& field,
  64     const FieldField<Field, scalar>& interfaceLevelBouCoeffs,
  65     const lduInterfaceFieldPtrsList& interfaceLevel,
  66     const scalarField& source,
  67     const direction cmpt
  68 ) const
  69 {
  70     A.Amul
  71     (
  72         Acf,
  73         field,
  74         interfaceLevelBouCoeffs,
  75         interfaceLevel,
  76         cmpt
  77     );
  78
  79     return scalingFactor
  80     (
  81         field,
  82         source,
  83         Acf,
  84         A.diag()
  85     );
  86 }
  87
  88
  89 // ************************************************************************* //