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

IO: Remove coordinate scaling factors dcor and ucor.

Browse Source 
These factors aren't necessary, since the block coordinate is calculate
with respecto the all blocks at given level. Therefore, even if we
change the maximum refinement level during job restart, these coordinate
do not change.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2019-01-27 09:47:40 -02:00
parent d88a1396dd
commit 21ded794e8
1 changed files with 0 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/io.F90
View File

@ -147,11 +147,6 @@ module io
!
integer(kind=4) , save :: rtoplev = 1, nfiles = 1
! the coefficient related to the difference between the maximum level stored in
! the restart file and set through the configuration file
!
integer(kind=4) , save :: ucor = 1, dcor = 1
! array of pointer used during job restart
!
type(pointer_meta), dimension(:), allocatable, save :: block_array
@ -1578,16 +1573,6 @@ module io
call finalize_coordinates(ierr)
call initialize_coordinates(.false., ierr)
! calculate a factor to rescale the block coordinates
!
dcor = 2**(toplev - maxlev)
else
! calculate a factor to rescale the block coordinates
!
ucor = 2**(maxlev - lmaxlev)
end if
! allocate space for seeds
@ -2140,15 +2125,6 @@ module io
call read_array(gid, 'corners', nm(1:4), corners(:,:,:,:))
#endif /* NDIMS == 3 */
! check if the maximum level has been changed, is so, rescale block coordinates
!
if (dcor .gt. 1) then
cor(:,:) = cor(:,:) / dcor
end if
if (ucor .gt. 1) then
cor(:,:) = cor(:,:) * ucor
end if
! reset the block counter
!
l = 0