After moving derefined blocks, set their cpu flags.
This commit is contained in:
parent
8173d8e603
commit
ee413ffee6
@ -575,9 +575,8 @@ module mesh
|
|||||||
! check if the parent blocks is on the same processor as the next block, if not
|
! check if the parent blocks is on the same processor as the next block, if not
|
||||||
! move it to the same processor
|
! move it to the same processor
|
||||||
!
|
!
|
||||||
if (pmeta%cpu .ne. pmeta%next%cpu) then
|
if (pmeta%cpu .ne. pmeta%next%cpu) &
|
||||||
pmeta%cpu = pmeta%next%cpu
|
pmeta%cpu = pmeta%next%cpu
|
||||||
end if
|
|
||||||
|
|
||||||
! find the case when child blocks are spread across at least 2 processors
|
! find the case when child blocks are spread across at least 2 processors
|
||||||
!
|
!
|
||||||
@ -630,12 +629,12 @@ module mesh
|
|||||||
! deallocate data block
|
! deallocate data block
|
||||||
!
|
!
|
||||||
call deallocate_datablock(pmeta%child(p)%ptr%data)
|
call deallocate_datablock(pmeta%child(p)%ptr%data)
|
||||||
|
end if
|
||||||
|
|
||||||
! set the current processor of the block
|
! set the current processor of the block
|
||||||
!
|
!
|
||||||
pmeta%child(p)%ptr%cpu = pmeta%cpu
|
pmeta%child(p)%ptr%cpu = pmeta%cpu
|
||||||
end if
|
end if
|
||||||
end if
|
|
||||||
end do
|
end do
|
||||||
|
|
||||||
end if
|
end if
|
||||||
|
Loading…
x
Reference in New Issue
Block a user