After moving derefined blocks, set their cpu flags.

This commit is contained in:
Grzegorz Kowal 2009-09-26 00:14:23 -03:00
parent 8173d8e603
commit ee413ffee6

View File

@ -575,9 +575,8 @@ module mesh
! check if the parent blocks is on the same processor as the next block, if not
! 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
end if
! find the case when child blocks are spread across at least 2 processors
!
@ -630,11 +629,11 @@ module mesh
! deallocate data block
!
call deallocate_datablock(pmeta%child(p)%ptr%data)
end if
! set the current processor of the block
!
pmeta%child(p)%ptr%cpu = pmeta%cpu
end if
pmeta%child(p)%ptr%cpu = pmeta%cpu
end if
end do