7 use json_module,
only: json_file
8 use json_utils,
only: json_get
9 use utils,
only: neko_error
10 use json_utils_ext,
only: json_read_file
11 use neko_top,
only: neko_top_register_types
13 use mpi_f08,
only: mpi_init
19 character(len=256) :: parameter_file
20 type(json_file) :: parameters, design_parameters
26 type(simulation_t) :: sim
28 class(design_t),
allocatable :: des
30 type(problem_t) :: prob
32 class(optimizer_t),
allocatable :: opt
38 call neko_top_register_types()
43 argc = command_argument_count()
44 if (argc .lt. 1)
call neko_error(
'Missing parameter file')
45 call get_command_argument(1, parameter_file)
48 parameters = json_read_file(trim(parameter_file))
49 call json_get(parameters,
'optimization.design', design_parameters)
55 call sim%init(parameters)
61 call prob%init(parameters, des, sim)
69 call opt%run(prob, des, sim)
79 if (
allocated(des))
deallocate(des)
80 if (
allocated(opt))
deallocate(opt)
Factory function for the design object.
Factory function for the optimizer.
Module for handling the optimization problem.
Implements the steady_problem_t type.
Abstract optimizer class.
The abstract problem type.