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

BOUNDARIES: Compare neighbor processes.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2014-12-01 09:06:08 -02:00
parent 53719482ed
commit 1248fe62fa
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/boundaries.F90
View File

@ -1918,7 +1918,7 @@ module boundaries
! check if the neighbor belongs to the current process ! check if the neighbor belongs to the current process
! !
if (pmeta%process == nproc) then if (pneigh%process == nproc) then
#endif /* MPI */ #endif /* MPI */
! prepare the region indices for face boundary update ! prepare the region indices for face boundary update
@ -2475,7 +2475,7 @@ module boundaries
! check if the neighbor belongs to the current process ! check if the neighbor belongs to the current process
! !
if (pmeta%process == nproc) then if (pneigh%process == nproc) then
#endif /* MPI */ #endif /* MPI */
! extract the corresponding face region from the neighbor and insert it in ! extract the corresponding face region from the neighbor and insert it in
@ -3060,7 +3060,7 @@ module boundaries
! check if the neighbor belongs to the current process ! check if the neighbor belongs to the current process
! !
if (pmeta%process == nproc) then if (pneigh%process == nproc) then
#endif /* MPI */ #endif /* MPI */
! prepare the region indices for edge boundary update ! prepare the region indices for edge boundary update
@ -3642,7 +3642,7 @@ module boundaries
! check if the neighbor belongs to the current process ! check if the neighbor belongs to the current process
! !
if (pmeta%process == nproc) then if (pneigh%process == nproc) then
#endif /* MPI */ #endif /* MPI */
! prepare the region indices for edge boundary update ! prepare the region indices for edge boundary update
@ -4228,7 +4228,7 @@ module boundaries
! check if the neighbor belongs to the current process ! check if the neighbor belongs to the current process
! !
if (pmeta%process == nproc) then if (pneigh%process == nproc) then
#endif /* MPI */ #endif /* MPI */
! prepare the region indices for edge boundary update ! prepare the region indices for edge boundary update
@ -4804,7 +4804,7 @@ module boundaries
! check if the neighbor belongs to the current process ! check if the neighbor belongs to the current process
! !
if (pmeta%process == nproc) then if (pneigh%process == nproc) then
#endif /* MPI */ #endif /* MPI */
! prepare the region indices for corner boundary update ! prepare the region indices for corner boundary update
@ -5268,7 +5268,7 @@ module boundaries
! check if the neighbor belongs to the current process ! check if the neighbor belongs to the current process
! !
if (pmeta%process == nproc) then if (pneigh%process == nproc) then
#endif /* MPI */ #endif /* MPI */
! prepare the region indices for corner boundary update ! prepare the region indices for corner boundary update
@ -5731,7 +5731,7 @@ module boundaries
! check if the neighbor belongs to the current process ! check if the neighbor belongs to the current process
! !
if (pmeta%process == nproc) then if (pneigh%process == nproc) then
#endif /* MPI */ #endif /* MPI */
! prepare the region indices for corner boundary update ! prepare the region indices for corner boundary update