BOUNDARIES: Call face boundary subroutines in boundary_variables().
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
parent
24436a0150
commit
ba6b6c13ac
@ -346,6 +346,14 @@ module boundaries
|
||||
!
|
||||
call update_corners()
|
||||
|
||||
#if NDIMS == 3
|
||||
! update face boundaries between blocks at the same levels
|
||||
!
|
||||
do idir = 1, ndims
|
||||
call boundaries_face_copy(idir)
|
||||
end do ! idir
|
||||
#endif /* NDIMS == 3 */
|
||||
|
||||
! update edge boundaries between blocks at the same levels
|
||||
!
|
||||
do idir = 1, ndims
|
||||
@ -356,6 +364,14 @@ module boundaries
|
||||
!
|
||||
call boundaries_corner_copy()
|
||||
|
||||
#if NDIMS == 3
|
||||
! restrict face boundaries from higher level blocks
|
||||
!
|
||||
do idir = 1, ndims
|
||||
call boundaries_face_restrict(idir)
|
||||
end do ! idir
|
||||
#endif /* NDIMS == 3 */
|
||||
|
||||
! restricts edge boundaries from block at higher level
|
||||
!
|
||||
do idir = 1, ndims
|
||||
@ -366,6 +382,14 @@ module boundaries
|
||||
!
|
||||
call boundaries_corner_restrict()
|
||||
|
||||
#if NDIMS == 3
|
||||
! prolong face boundaries from lower level blocks
|
||||
!
|
||||
do idir = 1, ndims
|
||||
call boundaries_face_prolong(idir)
|
||||
end do ! idir
|
||||
#endif /* NDIMS == 3 */
|
||||
|
||||
! prolongs edge boundaries from block at lower level
|
||||
!
|
||||
do idir = 1, ndims
|
||||
|
Loading…
x
Reference in New Issue
Block a user