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

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