Updated stdpar version to use dc in array redutions

predsci · Nov 3, 2023 · 53b0550 · 53b0550
1 parent 516edd4
commit 53b0550
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/stdpar/pot3d.F b/src/stdpar/pot3d.F
@@ -5333,7 +5333,7 @@ subroutine set_boundary_points (x,vmask)
         enddo
         do concurrent (i=1:nr)
           temp_sum0=0.
-          do k=2,npm1
+          do concurrent (k=2:npm1) reduce(+:temp_sum0)
             temp_sum0=temp_sum0+x(i,2,k)*dph(k)*pl_i
           enddo
           sum0(i)=temp_sum0
@@ -5346,7 +5346,7 @@ subroutine set_boundary_points (x,vmask)
         enddo
         do concurrent (i=1:nr)
           temp_sum0=0.
-          do k=2,npm1
+          do concurrent (k=2:npm1) reduce(+:temp_sum0)
             temp_sum0=temp_sum0+x(i,ntm1,k)*dph(k)*pl_i
           enddo
           sum1(i)=temp_sum0