optimizer_factory.f90

Go to the documentation of this file.

 
 
submodule(optimizer) optimizer_factory_mod
  use json_utils, only: json_get, json_get_or_default
  use utils, only: neko_type_error
 
  use mma_optimizer, only: mma_optimizer_t
 
  implicit none
 
  character(len=25), parameter :: KNOWN_TYPES(1) = [ character(len=25) :: &
       "mma"]
 
contains
 
  ! -------------------------------------------------------------------------- !
  ! Interfaces for the factory functions
 
  module subroutine optimizer_factory(object, parameters, problem, design, &
       simulation)
    class(optimizer_t), allocatable, intent(inout) :: object
    type(json_file), intent(inout) :: parameters
    class(problem_t), intent(in) :: problem
    class(design_t), intent(in) :: design
    class(simulation_t), intent(in) :: simulation
 
    character(len=:), allocatable :: type
    integer :: max_iterations
    real(kind=rp) :: tolerance
 
    if (allocated(object)) then
       call object%free()
       deallocate(object)
    end if
 
    ! Get the type of the optimizer
    call json_get(parameters, "optimization.solver.type", type)
    call json_get_or_default(parameters, "optimization.solver.max_iterations", &
         max_iterations, 100)
    call json_get_or_default(parameters, "optimization.solver.tolerance", &
         tolerance, 1.0e-3_rp)
 
    ! Select the optimizer type
    select case (trim(type))
    case ("mma")
       allocate(mma_optimizer_t::object)
 
    case default
       call neko_type_error("Optimizer", type, KNOWN_TYPES)
    end select
 
    call object%init_from_json(parameters, problem, design, simulation, &
         max_iterations, tolerance)
  end subroutine optimizer_factory
 
 
end submodule optimizer_factory_mod