From 5086bf6bd4665d1f3b9b139328b239aec67feaaa Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Mon, 18 Feb 2019 12:07:02 -0300 Subject: [PATCH] DRIVER: Print problem name before initializations. Signed-off-by: Grzegorz Kowal --- sources/driver.F90 | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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)