test

Author: henryleberre

src/simulation/m_global_parameters.fpp

@@ -1049,15 +1049,12 @@ contains
         idwint(1)%end = m; idwint(2)%end = n; idwint(3)%end = p
 
         idwbuff(1)%beg = -buff_size
-        idwbuff(1)%end = m + buff_size
-        if (num_dims > 1) then
-            idwbuff(2)%beg = -buff_size
-            idwbuff(2)%end = n + buff_size
-            if (num_dims > 2) then
-                idwbuff(3)%beg = -buff_size
-                idwbuff(3)%end = p + buff_size
-            end if
-        end if
+        if (num_dims > 1) then; idwbuff(2)%beg = -buff_size; else; idwbuff(2)%beg = 0; end if
+        if (num_dims > 2) then; idwbuff(3)%beg = -buff_size; else; idwbuff(3)%beg = 0; end if
+ 
+        idwbuff(1)%end = idwint(1)%end - idwbuff(1)%beg
+        idwbuff(2)%end = idwint(2)%end - idwbuff(2)%beg
+        idwbuff(3)%end = idwint(3)%end - idwbuff(3)%beg
 
         !$acc update device(idwint, idwbuff)