gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DRIVER: Print problem name before initializations.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2019-02-18 12:07:02 -03:00
parent 0ceca17a95
commit 5086bf6bd4
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
sources/driver.F90
View File

@ -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)