diff --git a/sources/driver.F90 b/sources/driver.F90 index ff5c0d7..7bc4481 100644 --- a/sources/driver.F90 +++ b/sources/driver.F90 @@ -348,6 +348,12 @@ program amun ! call get_parameter("ndat", ndat) +! print the problem name here, so in initialize_user_problem() we can print +! parameters +! + call print_section(master, "Problem") + call print_parameter(master, "problem name", trim(problem)) + ! initialize the remaining modules ! call initialize_random(1, 0) @@ -492,8 +498,6 @@ program amun ! print module information ! - call print_section(master, "Problem") - call print_parameter(master, "problem name", trim(problem)) call print_equations(master) call print_sources(master) call print_coordinates(master)