From ca1cc9fb315298abfe47f6f84865154058207157 Mon Sep 17 00:00:00 2001
From: Grzegorz Kowal <grzegorz@amuncode.org>
Date: Tue, 29 Dec 2020 17:42:20 -0300
Subject: [PATCH] COORDINATES: Add indices for nb-1, nb+1, ne-1, ne+1.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
---
 sources/coordinates.F90 | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/sources/coordinates.F90 b/sources/coordinates.F90
index ff55ed3..67f62d9 100644
--- a/sources/coordinates.F90
+++ b/sources/coordinates.F90
@@ -59,8 +59,8 @@ module coordinates
 
 ! block interior and ghost zone indices
 !
-  integer     , save :: nbl =  2, nb  =  3, nbu =  4
-  integer     , save :: nel =  9, ne  = 10, neu = 11
+  integer     , save :: nbl =  2, nb  =  3, nbu =  4, nbm =  2, nbp =  4
+  integer     , save :: nel =  9, ne  = 10, neu = 11, nem =  9, nep = 11
 
 ! the domain bounds
 !
@@ -279,6 +279,10 @@ module coordinates
     nbu = nb + ng - 1
     nel = ne - ng + 1
     neu = ne + 1
+    nbm = nb - 1
+    nem = ne - 1
+    nbp = nb + 1
+    nep = ne + 1
 
 ! determine domain periodicity
 !