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 ! 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