IO: Remove coordinate scaling factors dcor and ucor.
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:
parent
d88a1396dd
commit
21ded794e8
24
src/io.F90
24
src/io.F90
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user