driver.f90

Go to the documentation of this file.

program usrneko
  use simulation, only: simulation_t
  use brinkman_design, only: brinkman_design_t
  use problem, only: problem_t
  use optimizer, only : optimizer_t, optimizer_factory
 
  use json_module, only: json_file
  use utils, only: neko_error
  use json_utils_ext, only: json_read_file
 
  use mpi_f08, only: mpi_init
 
  implicit none
 
  ! JSON related arguments
  integer :: argc
  type(json_file) :: parameters
  character(len=256) :: parameter_file
 
  ! MPI parameters
  integer :: ierr
 
  type(simulation_t) :: simulation
  type(problem_t) :: problem
  type(brinkman_design_t) :: design
  class(optimizer_t), allocatable :: optimizer
 
  ! -------------------------------------------------------------------------- !
  ! Initialize the MPI environment
  call mpi_init(ierr)
 
  ! -------------------------------------------------------------------------- !
  ! Read the parameters file as the first terminal argument
 
  argc = command_argument_count()
  if (argc .lt. 1) call neko_error('Missing parameter file')
  call get_command_argument(1, parameter_file)
 
  ! Read the parameters file
  parameters = json_read_file(trim(parameter_file))
 
  ! -------------------------------------------------------------------------- !
  ! Initialization of the components
 
  call simulation%init(parameters)
 
  call design%init(parameters, simulation)
 
 
  call problem%init(parameters, design, simulation)
  call optimizer_factory(optimizer, parameters, problem, design, simulation)
 
  ! -------------------------------------------------------------------------- !
  ! Execute the optimization
 
  call optimizer%run(problem, design, simulation)
 
  ! -------------------------------------------------------------------------- !
  ! Clean up the components
 
  call optimizer%free()
  if (allocated(optimizer)) deallocate(optimizer)
 
  call problem%free()
  call design%free()
  call simulation%free()
 
end program usrneko