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

BLOCKS: Update neighbors' pointer in derefine_block() in 2D.

Browse Source 
During the derefinement process, we first update the face, edge, and
corner neighbor pointer of the parent block. When this step is done, we
update the corresponsing pointers of the neighbors.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2014-07-15 07:24:10 -03:00
parent c74e63162c
commit d238a6ef45
1 changed files with 160 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

160
src/blocks.F90
View File

@ -3121,6 +3121,166 @@ module blocks
end if
#endif /* NDIMS == 2 */
! update neighbor's edge pointers
!
#if NDIMS == 2
! corner (1,1)
! X
if (associated(pmeta%edges(1,1,1)%ptr)) then
pneigh => pmeta%edges(1,1,1)%ptr
pneigh%edges(1,2,1)%ptr => pmeta
if (pneigh%level > pmeta%level) pneigh%edges(2,2,1)%ptr => pmeta
end if
! Y
if (associated(pmeta%edges(1,1,2)%ptr)) then
pneigh => pmeta%edges(1,1,2)%ptr
pneigh%edges(2,1,2)%ptr => pmeta
if (pneigh%level > pmeta%level) pneigh%edges(2,2,2)%ptr => pmeta
end if
! child (2,1)
! X
if (associated(pmeta%edges(2,1,1)%ptr)) then
pneigh => pmeta%edges(2,1,1)%ptr
pneigh%edges(2,2,1)%ptr => pmeta
if (pneigh%level > pmeta%level) pneigh%edges(1,2,1)%ptr => pmeta
end if
! Y
if (associated(pmeta%edges(2,1,2)%ptr)) then
pneigh => pmeta%edges(2,1,2)%ptr
pneigh%edges(1,1,2)%ptr => pmeta
if (pneigh%level > pmeta%level) pneigh%edges(1,2,2)%ptr => pmeta
end if
! child (1,2)
! X
if (associated(pmeta%edges(1,2,1)%ptr)) then
pneigh => pmeta%edges(1,2,1)%ptr
pneigh%edges(1,1,1)%ptr => pmeta
if (pneigh%level > pmeta%level) pneigh%edges(2,1,1)%ptr => pmeta
end if
! Y
if (associated(pmeta%edges(1,2,2)%ptr)) then
pneigh => pmeta%edges(1,2,2)%ptr
pneigh%edges(2,2,2)%ptr => pmeta
if (pneigh%level > pmeta%level) pneigh%edges(2,1,2)%ptr => pmeta
end if
! child (2,2)
! X
if (associated(pmeta%edges(2,2,1)%ptr)) then
pneigh => pmeta%edges(2,2,1)%ptr
pneigh%edges(2,1,1)%ptr => pmeta
if (pneigh%level > pmeta%level) pneigh%edges(1,1,1)%ptr => pmeta
end if
! Y
if (associated(pmeta%edges(2,2,2)%ptr)) then
pneigh => pmeta%edges(2,2,2)%ptr
pneigh%edges(1,2,2)%ptr => pmeta
if (pneigh%level > pmeta%level) pneigh%edges(1,1,2)%ptr => pmeta
end if
#endif /* NDIMS == 2 */
! update neighbor's corner pointers
!
#if NDIMS == 2
! corner (1,1)
pchild => pmeta%child(1)%ptr
if (associated(pchild%corners(1,1)%ptr)) then
pneigh => pchild%corners(1,1)%ptr
pneigh%corners(2,2)%ptr => pmeta
end if
if (associated(pchild%corners(2,1)%ptr)) then
pneigh => pchild%corners(2,1)%ptr
if (pneigh%level == pchild%level) then
if (pneigh%id /= pmeta%child(4)%ptr%id) then
pneigh%corners(1,2)%ptr => pmeta
end if
end if
end if
if (associated(pchild%corners(1,2)%ptr)) then
pneigh => pchild%corners(1,2)%ptr
if (pneigh%level == pchild%level) then
if (pneigh%id /= pmeta%child(4)%ptr%id) then
pneigh%corners(2,1)%ptr => pmeta
end if
end if
end if
! corner (2,1)
pchild => pmeta%child(2)%ptr
if (associated(pchild%corners(1,1)%ptr)) then
pneigh => pchild%corners(1,1)%ptr
if (pneigh%level == pchild%level) then
if (pneigh%id /= pmeta%child(3)%ptr%id) then
pneigh%corners(2,2)%ptr => pmeta
end if
end if
end if
if (associated(pchild%corners(2,1)%ptr)) then
pneigh => pchild%corners(2,1)%ptr
pneigh%corners(1,2)%ptr => pmeta
end if
if (associated(pchild%corners(2,2)%ptr)) then
pneigh => pchild%corners(2,2)%ptr
if (pneigh%level == pchild%level) then
if (pneigh%id /= pmeta%child(3)%ptr%id) then
pneigh%corners(1,1)%ptr => pmeta
end if
end if
end if
! corner (1,2)
pchild => pmeta%child(3)%ptr
if (associated(pchild%corners(1,1)%ptr)) then
pneigh => pchild%corners(1,1)%ptr
if (pneigh%level == pchild%level) then
if (pneigh%id /= pmeta%child(2)%ptr%id) then
pneigh%corners(2,2)%ptr => pmeta
end if
end if
end if
if (associated(pchild%corners(1,2)%ptr)) then
pneigh => pchild%corners(1,2)%ptr
pneigh%corners(2,1)%ptr => pmeta
end if
if (associated(pchild%corners(2,2)%ptr)) then
pneigh => pchild%corners(2,2)%ptr
if (pneigh%level == pchild%level) then
if (pneigh%id /= pmeta%child(2)%ptr%id) then
pneigh%corners(1,1)%ptr => pmeta
end if
end if
end if
! corner (2,2)
pchild => pmeta%child(4)%ptr
if (associated(pchild%corners(2,1)%ptr)) then
pneigh => pchild%corners(2,1)%ptr
if (pneigh%level == pchild%level) then
if (pneigh%id /= pmeta%child(1)%ptr%id) then
pneigh%corners(1,2)%ptr => pmeta
end if
end if
end if
if (associated(pchild%corners(1,2)%ptr)) then
pneigh => pchild%corners(1,2)%ptr
if (pneigh%level == pchild%level) then
if (pneigh%id /= pmeta%child(1)%ptr%id) then
pneigh%corners(2,1)%ptr => pmeta
end if
end if
end if
if (associated(pchild%corners(2,2)%ptr)) then
pneigh => pchild%corners(2,2)%ptr
pneigh%corners(1,1)%ptr => pmeta
end if
#endif /* NDIMS == 2 */
! iterate over dimensions, sides, and faces
!
do i = 1, ndims