Line data    Source code

       1             : //* This file is part of the MOOSE framework
       2             : //* https://mooseframework.inl.gov
       3             : //*
       4             : //* All rights reserved, see COPYRIGHT for full restrictions
       5             : //* https://github.com/idaholab/moose/blob/master/COPYRIGHT
       6             : //*
       7             : //* Licensed under LGPL 2.1, please see LICENSE for details
       8             : //* https://www.gnu.org/licenses/lgpl-2.1.html
       9             : 
      10             : #ifdef MOOSE_MFEM_ENABLED
      11             : 
      12             : #include "MFEMGMRESSolver.h"
      13             : #include "MFEMProblem.h"
      14             : 
      15             : registerMooseObject("MooseApp", MFEMGMRESSolver);
      16             : 
      17             : InputParameters
      18        2120 : MFEMGMRESSolver::validParams()
      19             : {
      20        2120 :   InputParameters params = Moose::MFEM::LinearSolverBase::validParams();
      21        4240 :   params.addClassDescription("MFEM native solver for the iterative solution of MFEM equation "
      22             :                              "systems using the generalized minimal residual method.");
      23        4240 :   params.set<bool>("use_initial_guess", /*quiet_mode=*/true) = true;
      24        8480 :   params.addParam<mfem::real_t>("l_tol", 1e-5, "Set the relative tolerance.");
      25        8480 :   params.addParam<mfem::real_t>("l_abs_tol", 1e-50, "Set the absolute tolerance.");
      26        8480 :   params.addParam<int>("l_max_its", 10000, "Set the maximum number of iterations.");
      27        8480 :   params.addParam<int>("print_level", 2, "Set the solver verbosity.");
      28        6360 :   params.addParam<MFEMSolverName>("preconditioner", "Optional choice of preconditioner to use.");
      29             : 
      30        2120 :   return params;
      31           0 : }
      32             : 
      33          11 : MFEMGMRESSolver::MFEMGMRESSolver(const InputParameters & parameters)
      34          11 :   : Moose::MFEM::LinearSolverBase(parameters)
      35             : {
      36          11 :   ConstructSolver();
      37          11 : }
      38             : 
      39             : void
      40          11 : MFEMGMRESSolver::ConstructSolver()
      41             : {
      42          11 :   auto solver = std::make_unique<mfem::GMRESSolver>(getMFEMProblem().getComm());
      43          22 :   solver->iterative_mode = getParam<bool>("use_initial_guess");
      44          22 :   solver->SetRelTol(getParam<mfem::real_t>("l_tol"));
      45          22 :   solver->SetAbsTol(getParam<mfem::real_t>("l_abs_tol"));
      46          22 :   solver->SetMaxIter(getParam<int>("l_max_its"));
      47          22 :   solver->SetPrintLevel(getParam<int>("print_level"));
      48          11 :   SetPreconditioner(*solver);
      49          11 :   _solver = std::move(solver);
      50          11 : }
      51             : 
      52             : void
      53          11 : MFEMGMRESSolver::SetupLOR(mfem::ParBilinearForm & a, mfem::Array<int> & tdofs)
      54             : {
      55          11 :   if (_lor && _preconditioner)
      56           0 :     mooseError("LOR solver cannot take a preconditioner");
      57             : 
      58          11 :   if (_preconditioner)
      59             :   {
      60           7 :     _preconditioner->SetupLOR(a, tdofs);
      61           7 :     SetPreconditioner(static_cast<mfem::GMRESSolver &>(*_solver));
      62             :   }
      63           4 :   else if (_lor)
      64             :   {
      65           2 :     CheckSpectralEquivalence(a);
      66           2 :     auto lor_solver = new mfem::LORSolver<mfem::GMRESSolver>(a, tdofs);
      67           4 :     lor_solver->GetSolver().SetRelTol(getParam<mfem::real_t>("l_tol"));
      68           4 :     lor_solver->GetSolver().SetAbsTol(getParam<mfem::real_t>("l_abs_tol"));
      69           4 :     lor_solver->GetSolver().SetMaxIter(getParam<int>("l_max_its"));
      70           4 :     lor_solver->GetSolver().SetPrintLevel(getParam<int>("print_level"));
      71             : 
      72           2 :     _solver.reset(lor_solver);
      73             :   }
      74          11 : }
      75             : 
      76             : #endif