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

DRIVER: Initialize refinement after domains.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2019-01-29 17:49:40 -02:00
parent 09f032faba
commit feb14685bc
1 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
sources/driver.F90
View File

@ -381,6 +381,8 @@ program amun
if (iret > 0) go to 240
call initialize_domains(problem, master, iret)
if (iret > 0) go to 220
call initialize_refinement(master, iret)
if (iret > 0) go to 200
! initialize module GRAVITY
!
@ -392,11 +394,6 @@ program amun
call initialize_boundaries(master, iret)
if (iret > 0) go to 200
! initialize module REFINEMENT
!
call initialize_refinement(master, iret)
if (iret > 0) go to 180
! initialize module SHAPES
!
call initialize_shapes(master, iret)
@ -704,14 +701,8 @@ program amun
160 continue
call finalize_shapes(iret)
! finalize module REFINEMENT
!
180 continue
call finalize_refinement(iret)
! finalize module BOUNDARIES
!
200 continue
call finalize_boundaries(iret)
! finalize module GRAVITY
@ -720,6 +711,8 @@ program amun
! finalize modules
!
200 continue
call finalize_refinement(iret)
220 continue
call finalize_domains(iret)
240 continue