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

COORDINATES: Update toplev only if it was not changed before.

Browse Source 
If we restart a job from a run with different maximum refinement level,
toplev parameter is set from a restart file and coordinate variables are
recreated. Setting toplev to maxlev all the time fails in recreating
correct coordinate variables and results in crashes.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2019-01-26 11:35:53 -02:00
parent a9123e466a
commit d88a1396dd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/coordinates.F90
View File

@ -59,7 +59,7 @@ module coordinates
! the limits of refinement level
!
integer , save :: minlev = 1, maxlev = 1, toplev = 1
integer , save :: minlev = 1, maxlev = 1, toplev = -1
! block indices
!
@ -255,7 +255,7 @@ module coordinates
! set the top level
!
toplev = maxlev
if (toplev == -1) toplev = maxlev
! obtain the domain base division
!