diff --git a/src/boundaries.F90 b/src/boundaries.F90 index a4ce12f..45fc36c 100644 --- a/src/boundaries.F90 +++ b/src/boundaries.F90 @@ -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