From 1248fe62fa8a7e0b47c9c9152326bcdb8dcb0a95 Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Mon, 1 Dec 2014 09:06:08 -0200 Subject: [PATCH] BOUNDARIES: Compare neighbor processes. Signed-off-by: Grzegorz Kowal --- src/boundaries.F90 | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/boundaries.F90 b/src/boundaries.F90 index da0e3eb..d270117 100644 --- a/src/boundaries.F90 +++ b/src/boundaries.F90 @@ -1918,7 +1918,7 @@ module boundaries ! check if the neighbor belongs to the current process ! - if (pmeta%process == nproc) then + if (pneigh%process == nproc) then #endif /* MPI */ ! prepare the region indices for face boundary update @@ -2475,7 +2475,7 @@ module boundaries ! check if the neighbor belongs to the current process ! - if (pmeta%process == nproc) then + if (pneigh%process == nproc) then #endif /* MPI */ ! 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 ! - if (pmeta%process == nproc) then + if (pneigh%process == nproc) then #endif /* MPI */ ! prepare the region indices for edge boundary update @@ -3642,7 +3642,7 @@ module boundaries ! check if the neighbor belongs to the current process ! - if (pmeta%process == nproc) then + if (pneigh%process == nproc) then #endif /* MPI */ ! prepare the region indices for edge boundary update @@ -4228,7 +4228,7 @@ module boundaries ! check if the neighbor belongs to the current process ! - if (pmeta%process == nproc) then + if (pneigh%process == nproc) then #endif /* MPI */ ! prepare the region indices for edge boundary update @@ -4804,7 +4804,7 @@ module boundaries ! check if the neighbor belongs to the current process ! - if (pmeta%process == nproc) then + if (pneigh%process == nproc) then #endif /* MPI */ ! prepare the region indices for corner boundary update @@ -5268,7 +5268,7 @@ module boundaries ! check if the neighbor belongs to the current process ! - if (pmeta%process == nproc) then + if (pneigh%process == nproc) then #endif /* MPI */ ! prepare the region indices for corner boundary update @@ -5731,7 +5731,7 @@ module boundaries ! check if the neighbor belongs to the current process ! - if (pmeta%process == nproc) then + if (pneigh%process == nproc) then #endif /* MPI */ ! prepare the region indices for corner boundary update