symGaussSeidelSmoother: symmetric Gauss-Seidel smoother
This commit is contained in:
Henry
parent
368a646863
commit
f8d14b0b28
@ -0,0 +1,241 @@
|
||||
/*---------------------------------------------------------------------------*\
|
||||
========= |
|
||||
\\ / F ield | OpenFOAM: The Open Source CFD Toolbox
|
||||
\\ / O peration |
|
||||
\\ / A nd | Copyright (C) 2012 OpenFOAM Foundation
|
||||
\\/ M anipulation |
|
||||
-------------------------------------------------------------------------------
|
||||
License
|
||||
This file is part of OpenFOAM.
|
||||
|
||||
OpenFOAM is free software: you can redistribute it and/or modify it
|
||||
under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
|
||||
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
||||
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
||||
for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with OpenFOAM. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
\*---------------------------------------------------------------------------*/
|
||||
|
||||
#include "symGaussSeidelSmoother.H"
|
||||
|
||||
// * * * * * * * * * * * * * * Static Data Members * * * * * * * * * * * * * //
|
||||
|
||||
namespace Foam
|
||||
{
|
||||
defineTypeNameAndDebug(symGaussSeidelSmoother, 0);
|
||||
|
||||
lduMatrix::smoother::addsymMatrixConstructorToTable<symGaussSeidelSmoother>
|
||||
addsymGaussSeidelSmootherSymMatrixConstructorToTable_;
|
||||
|
||||
lduMatrix::smoother::addasymMatrixConstructorToTable<symGaussSeidelSmoother>
|
||||
addsymGaussSeidelSmootherAsymMatrixConstructorToTable_;
|
||||
}
|
||||
|
||||
|
||||
// * * * * * * * * * * * * * * * * Constructors * * * * * * * * * * * * * * //
|
||||
|
||||
Foam::symGaussSeidelSmoother::symGaussSeidelSmoother
|
||||
(
|
||||
const word& fieldName,
|
||||
const lduMatrix& matrix,
|
||||
const FieldField<Field, scalar>& interfaceBouCoeffs,
|
||||
const FieldField<Field, scalar>& interfaceIntCoeffs,
|
||||
const lduInterfaceFieldPtrsList& interfaces
|
||||
)
|
||||
:
|
||||
lduMatrix::smoother
|
||||
(
|
||||
fieldName,
|
||||
matrix,
|
||||
interfaceBouCoeffs,
|
||||
interfaceIntCoeffs,
|
||||
interfaces
|
||||
)
|
||||
{}
|
||||
|
||||
|
||||
// * * * * * * * * * * * * * * * Member Functions * * * * * * * * * * * * * //
|
||||
|
||||
void Foam::symGaussSeidelSmoother::smooth
|
||||
(
|
||||
const word& fieldName_,
|
||||
scalarField& psi,
|
||||
const lduMatrix& matrix_,
|
||||
const scalarField& source,
|
||||
const FieldField<Field, scalar>& interfaceBouCoeffs_,
|
||||
const lduInterfaceFieldPtrsList& interfaces_,
|
||||
const direction cmpt,
|
||||
const label nSweeps
|
||||
)
|
||||
{
|
||||
register scalar* __restrict__ psiPtr = psi.begin();
|
||||
|
||||
register const label nCells = psi.size();
|
||||
|
||||
scalarField bPrime(nCells);
|
||||
register scalar* __restrict__ bPrimePtr = bPrime.begin();
|
||||
|
||||
register const scalar* const __restrict__ diagPtr = matrix_.diag().begin();
|
||||
register const scalar* const __restrict__ upperPtr =
|
||||
matrix_.upper().begin();
|
||||
register const scalar* const __restrict__ lowerPtr =
|
||||
matrix_.lower().begin();
|
||||
|
||||
register const label* const __restrict__ uPtr =
|
||||
matrix_.lduAddr().upperAddr().begin();
|
||||
|
||||
register const label* const __restrict__ ownStartPtr =
|
||||
matrix_.lduAddr().ownerStartAddr().begin();
|
||||
|
||||
|
||||
// Parallel boundary initialisation. The parallel boundary is treated
|
||||
// as an effective jacobi interface in the boundary.
|
||||
// Note: there is a change of sign in the coupled
|
||||
// interface update. The reason for this is that the
|
||||
// internal coefficients are all located at the l.h.s. of
|
||||
// the matrix whereas the "implicit" coefficients on the
|
||||
// coupled boundaries are all created as if the
|
||||
// coefficient contribution is of a source-kind (i.e. they
|
||||
// have a sign as if they are on the r.h.s. of the matrix.
|
||||
// To compensate for this, it is necessary to turn the
|
||||
// sign of the contribution.
|
||||
|
||||
FieldField<Field, scalar>& mBouCoeffs =
|
||||
const_cast<FieldField<Field, scalar>&>
|
||||
(
|
||||
interfaceBouCoeffs_
|
||||
);
|
||||
|
||||
forAll(mBouCoeffs, patchi)
|
||||
{
|
||||
if (interfaces_.set(patchi))
|
||||
{
|
||||
mBouCoeffs[patchi].negate();
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
for (label sweep=0; sweep<nSweeps; sweep++)
|
||||
{
|
||||
bPrime = source;
|
||||
|
||||
matrix_.initMatrixInterfaces
|
||||
(
|
||||
mBouCoeffs,
|
||||
interfaces_,
|
||||
psi,
|
||||
bPrime,
|
||||
cmpt
|
||||
);
|
||||
|
||||
matrix_.updateMatrixInterfaces
|
||||
(
|
||||
mBouCoeffs,
|
||||
interfaces_,
|
||||
psi,
|
||||
bPrime,
|
||||
cmpt
|
||||
);
|
||||
|
||||
register scalar psii;
|
||||
register label fStart;
|
||||
register label fEnd = ownStartPtr[0];
|
||||
|
||||
for (register label celli=0; celli<nCells; celli++)
|
||||
{
|
||||
// Start and end of this row
|
||||
fStart = fEnd;
|
||||
fEnd = ownStartPtr[celli + 1];
|
||||
|
||||
// Get the accumulated neighbour side
|
||||
psii = bPrimePtr[celli];
|
||||
|
||||
// Accumulate the owner product side
|
||||
for (register label facei=fStart; facei<fEnd; facei++)
|
||||
{
|
||||
psii -= upperPtr[facei]*psiPtr[uPtr[facei]];
|
||||
}
|
||||
|
||||
// Finish current psi
|
||||
psii /= diagPtr[celli];
|
||||
|
||||
// Distribute the neighbour side using current psi
|
||||
for (register label facei=fStart; facei<fEnd; facei++)
|
||||
{
|
||||
bPrimePtr[uPtr[facei]] -= lowerPtr[facei]*psii;
|
||||
}
|
||||
|
||||
psiPtr[celli] = psii;
|
||||
}
|
||||
|
||||
fStart = ownStartPtr[nCells];
|
||||
|
||||
for (register label celli=nCells-1; celli>=0; celli--)
|
||||
{
|
||||
// Start and end of this row
|
||||
fEnd = fStart;
|
||||
fStart = ownStartPtr[celli];
|
||||
|
||||
// Get the accumulated neighbour side
|
||||
psii = bPrimePtr[celli];
|
||||
|
||||
// Accumulate the owner product side
|
||||
for (register label facei=fStart; facei<fEnd; facei++)
|
||||
{
|
||||
psii -= upperPtr[facei]*psiPtr[uPtr[facei]];
|
||||
}
|
||||
|
||||
// Finish psi for this cell
|
||||
psii /= diagPtr[celli];
|
||||
|
||||
// Distribute the neighbour side using psi for this cell
|
||||
for (register label facei=fStart; facei<fEnd; facei++)
|
||||
{
|
||||
bPrimePtr[uPtr[facei]] -= lowerPtr[facei]*psii;
|
||||
}
|
||||
|
||||
psiPtr[celli] = psii;
|
||||
}
|
||||
}
|
||||
|
||||
// Restore interfaceBouCoeffs_
|
||||
forAll(mBouCoeffs, patchi)
|
||||
{
|
||||
if (interfaces_.set(patchi))
|
||||
{
|
||||
mBouCoeffs[patchi].negate();
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
void Foam::symGaussSeidelSmoother::smooth
|
||||
(
|
||||
scalarField& psi,
|
||||
const scalarField& source,
|
||||
const direction cmpt,
|
||||
const label nSweeps
|
||||
) const
|
||||
{
|
||||
smooth
|
||||
(
|
||||
fieldName_,
|
||||
psi,
|
||||
matrix_,
|
||||
source,
|
||||
interfaceBouCoeffs_,
|
||||
interfaces_,
|
||||
cmpt,
|
||||
nSweeps
|
||||
);
|
||||
}
|
||||
|
||||
|
||||
// ************************************************************************* //
|
||||
@ -0,0 +1,108 @@
|
||||
/*---------------------------------------------------------------------------*\
|
||||
========= |
|
||||
\\ / F ield | OpenFOAM: The Open Source CFD Toolbox
|
||||
\\ / O peration |
|
||||
\\ / A nd | Copyright (C) 2012 OpenFOAM Foundation
|
||||
\\/ M anipulation |
|
||||
-------------------------------------------------------------------------------
|
||||
License
|
||||
This file is part of OpenFOAM.
|
||||
|
||||
OpenFOAM is free software: you can redistribute it and/or modify it
|
||||
under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
|
||||
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
||||
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
||||
for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with OpenFOAM. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
Class
|
||||
Foam::symGaussSeidelSmoother
|
||||
|
||||
Description
|
||||
A lduMatrix::smoother for symmetric Gauss-Seidel
|
||||
|
||||
SourceFiles
|
||||
symGaussSeidelSmoother.C
|
||||
|
||||
\*---------------------------------------------------------------------------*/
|
||||
|
||||
#ifndef symGaussSeidelSmoother_H
|
||||
#define symGaussSeidelSmoother_H
|
||||
|
||||
#include "lduMatrix.H"
|
||||
|
||||
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
|
||||
|
||||
namespace Foam
|
||||
{
|
||||
|
||||
/*---------------------------------------------------------------------------*\
|
||||
Class symGaussSeidelSmoother Declaration
|
||||
\*---------------------------------------------------------------------------*/
|
||||
|
||||
class symGaussSeidelSmoother
|
||||
:
|
||||
public lduMatrix::smoother
|
||||
{
|
||||
|
||||
public:
|
||||
|
||||
//- Runtime type information
|
||||
TypeName("symGaussSeidel");
|
||||
|
||||
|
||||
// Constructors
|
||||
|
||||
//- Construct from components
|
||||
symGaussSeidelSmoother
|
||||
(
|
||||
const word& fieldName,
|
||||
const lduMatrix& matrix,
|
||||
const FieldField<Field, scalar>& interfaceBouCoeffs,
|
||||
const FieldField<Field, scalar>& interfaceIntCoeffs,
|
||||
const lduInterfaceFieldPtrsList& interfaces
|
||||
);
|
||||
|
||||
|
||||
// Member Functions
|
||||
|
||||
//- Smooth for the given number of sweeps
|
||||
static void smooth
|
||||
(
|
||||
const word& fieldName,
|
||||
scalarField& psi,
|
||||
const lduMatrix& matrix,
|
||||
const scalarField& source,
|
||||
const FieldField<Field, scalar>& interfaceBouCoeffs,
|
||||
const lduInterfaceFieldPtrsList& interfaces,
|
||||
const direction cmpt,
|
||||
const label nSweeps
|
||||
);
|
||||
|
||||
|
||||
//- Smooth the solution for a given number of sweeps
|
||||
virtual void smooth
|
||||
(
|
||||
scalarField& psi,
|
||||
const scalarField& Source,
|
||||
const direction cmpt,
|
||||
const label nSweeps
|
||||
) const;
|
||||
};
|
||||
|
||||
|
||||
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
|
||||
|
||||
} // End namespace Foam
|
||||
|
||||
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
|
||||
|
||||
#endif
|
||||
|
||||
// ************************************************************************* //
|
||||
Loading…
Reference in New Issue
Block a user