DRIVER: Initialize USE_PROBLEM after COORDINATES.
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
parent
e0a0c816f3
commit
76c6f3c67c
@ -296,10 +296,6 @@ program amun
|
|||||||
!
|
!
|
||||||
call get_parameter_integer("ndat" , ndat)
|
call get_parameter_integer("ndat" , ndat)
|
||||||
|
|
||||||
! initialize module USER_PROBLEM
|
|
||||||
!
|
|
||||||
call initialize_user_problem(master, iret)
|
|
||||||
|
|
||||||
! initialize MPI module and print info
|
! initialize MPI module and print info
|
||||||
!
|
!
|
||||||
if (master) then
|
if (master) then
|
||||||
@ -346,6 +342,10 @@ program amun
|
|||||||
!
|
!
|
||||||
if (iret > 0) go to 60
|
if (iret > 0) go to 60
|
||||||
|
|
||||||
|
! initialize module USER_PROBLEM
|
||||||
|
!
|
||||||
|
call initialize_user_problem(master, iret)
|
||||||
|
|
||||||
! initialize refinement module and print info
|
! initialize refinement module and print info
|
||||||
!
|
!
|
||||||
if (master) then
|
if (master) then
|
||||||
|
Loading…
x
Reference in New Issue
Block a user