src/tetDecompositionFiniteElement/tetFemMatrix/tetFemScalarMatrix.C

   1 /*---------------------------------------------------------------------------*\
   2   =========                 |
   3   \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
   4    \\    /   O peration     |
   5     \\  /    A nd           | Copyright held by original author
   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 Description
  26      Tet Finite Element scalar matrix member functions and operators
  27
  28 \*---------------------------------------------------------------------------*/
  29
  30 #include "tetFemScalarMatrix.H"
  31 #include "tetPointFields.H"
  32 #include "tetPolyPatchFields.H"
  33
  34 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
  35
  36 namespace Foam
  37 {
  38
  39 // * * * * * * * * * * * * * * * Member Functions  * * * * * * * * * * * * * //
  40
  41 template<>
  42 lduSolverPerformance tetFemMatrix<scalar>::solve
  43 (
  44     const dictionary& solverControls
  45 )
  46 {
  47     if (debug)
  48     {
  49         Info<< "tetFemMatrix<scalar>::solve(const dictionary&) : "
  50             << "solving tetFemMatrix<scalar>"
  51             << endl;
  52     }
  53
  54     // Add boundary source for gradient-type conditions
  55     addBoundarySourceDiag();
  56
  57     // Store the boundary coefficients for insertion of boundary conditions
  58     storeBoundaryCoeffs();
  59
  60     // Set component boundary conditions
  61     scalarField sourceCpy = source_;
  62
  63     // Store the boundary coefficients for insertion of boundary conditions
  64     setComponentBoundaryConditions(0, psi_, sourceCpy);
  65
  66     // Add the coupling coefficients
  67     addCouplingCoeffs();
  68     addCouplingSource(sourceCpy);
  69
  70     // prepare for coupled interface update
  71     FieldField<Field, scalar> coupledBouCoeffs(psi_.boundaryField().size());
  72     FieldField<Field, scalar> coupledIntCoeffs(psi_.boundaryField().size());
  73
  74     forAll(psi_.boundaryField(), patchI)
  75     {
  76         const tetPolyPatchScalarField& ptf = psi_.boundaryField()[patchI];
  77
  78         coupledBouCoeffs.set
  79         (
  80             patchI,
  81             new scalarField(ptf.cutBouCoeffs(*this))
  82         );
  83
  84         coupledIntCoeffs.set
  85         (
  86             patchI,
  87             new scalarField(ptf.cutIntCoeffs(*this))
  88         );
  89     }
  90
  91     eliminateCouplingCoeffs();
  92
  93     lduSolverPerformance solverPerf
  94     (
  95         "tetFemMatrix<scalar>::solve",
  96         psi_.name()
  97     );
  98
  99     // Make a copy of interfaces: no longer a reference
 100     // HJ, 20/Nov/2007
 101     lduInterfaceFieldPtrsList interfaces = psi_.boundaryField().interfaces();
 102
 103     solverPerf = lduSolver::New
 104     (
 105         psi_.name(),
 106         *this,
 107         coupledBouCoeffs,
 108         coupledIntCoeffs,
 109         interfaces,
 110         solverControls
 111     )->solve(psi_.internalField(), sourceCpy);
 112
 113     solverPerf.print();
 114
 115     reconstructMatrix();
 116
 117     if (debug)
 118     {
 119         Info<< "tetFemMatrix<scalar>::solve(const scalar, const scalar) : "
 120             << "correcting boundary conditions"
 121             << endl;
 122     }
 123
 124     psi_.correctBoundaryConditions();
 125
 126     return solverPerf;
 127 }
 128
 129
 130 // Return the matrix residual
 131 template<>
 132 tmp<scalarField> tetFemMatrix<scalar>::residual()
 133 {
 134     // Store the boundary coefficients for insertion of boundary conditions
 135     storeBoundaryCoeffs();
 136
 137     // Set component boundary conditions
 138     scalarField sourceCpy = source_;
 139
 140     setComponentBoundaryConditions(0, psi_, sourceCpy);
 141
 142     // Add the coupling coefficients
 143     addCouplingCoeffs();
 144     addCouplingSource(sourceCpy);
 145
 146     // Prepare for coupled interface update
 147     FieldField<Field, scalar> coupledBouCoeffs(psi_.boundaryField().size());
 148
 149     forAll(psi_.boundaryField(), patchI)
 150     {
 151         const tetPolyPatchScalarField& ptf = psi_.boundaryField()[patchI];
 152         coupledBouCoeffs.set
 153         (
 154             patchI,
 155             new scalarField(ptf.cutBouCoeffs(*this))
 156         );
 157     }
 158
 159     eliminateCouplingCoeffs();
 160
 161     // Make a copy of interfaces: no longer a reference
 162     // HJ, 20/Nov/2007
 163     lduInterfaceFieldPtrsList interfaces = psi_.boundaryField().interfaces();
 164
 165     tmp<scalarField> tres
 166     (
 167         lduMatrix::residual
 168         (
 169             psi_.internalField(),
 170             sourceCpy,
 171             coupledBouCoeffs,
 172             interfaces,
 173             0
 174         )
 175     );
 176
 177     reconstructMatrix();
 178
 179     return tres;
 180 }
 181
 182
 183 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
 184
 185 } // End namespace Foam
 186
 187 // ************************************************************************* //