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

BOUNDARIES: Call face boundary subroutines in boundary_variables().

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2014-07-22 08:59:50 -03:00
parent 24436a0150
commit ba6b6c13ac
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/boundaries.F90
View File

@ -346,6 +346,14 @@ module boundaries
! !
call update_corners() 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 ! update edge boundaries between blocks at the same levels
! !
do idir = 1, ndims do idir = 1, ndims
@ -356,6 +364,14 @@ module boundaries
! !
call boundaries_corner_copy() 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 ! restricts edge boundaries from block at higher level
! !
do idir = 1, ndims do idir = 1, ndims
@ -366,6 +382,14 @@ module boundaries
! !
call boundaries_corner_restrict() 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 ! prolongs edge boundaries from block at lower level
! !
do idir = 1, ndims do idir = 1, ndims