test

MFlowCode · Oct 26, 2024 · 0ac3ace · 0ac3ace
1 parent ea0d2c6
commit 0ac3ace
Show file tree

Hide file tree

Showing 4 changed files with 210 additions and 258 deletions.
diff --git a/src/simulation/m_global_parameters.fpp b/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)