diff --git a/src/mo_fortran_tools.F90 b/src/mo_fortran_tools.F90 index 74e7ec76b70b1ab21d5ce840bdfab6d10701ad78..e58af342d55c5b657b6c8940dc02c979064c4c4b 100644 --- a/src/mo_fortran_tools.F90 +++ b/src/mo_fortran_tools.F90 @@ -1785,7 +1785,7 @@ CONTAINS minval_1d = HUGE(minval_1d) - !$ACC PARALLEL LOOP GANG VECTOR DEFAULT(PRESENT) ASYNC(1) REDUCTION(MIN: minval_1d) IF(lacc) + !$ACC PARALLEL LOOP GANG VECTOR DEFAULT(PRESENT) ASYNC(1) REDUCTION(MIN: minval_1d) IF(lzacc) COPY(minval_1d) DO i = 1, s1 minval_1d = MIN(minval_1d, var(i)) ! The loop is equivalent to MINVAL(var(:)) END DO @@ -1813,7 +1813,7 @@ CONTAINS minval_2d = HUGE(minval_2d) - !$ACC PARALLEL LOOP GANG VECTOR DEFAULT(PRESENT) ASYNC(1) REDUCTION(MIN: minval_2d) IF(lacc) + !$ACC PARALLEL LOOP GANG VECTOR DEFAULT(PRESENT) ASYNC(1) REDUCTION(MIN: minval_2d) IF(lzacc) COPY(minval_2d) DO j = 1, s2 DO i = 1, s1 minval_2d = MIN(minval_2d, var(i, j)) ! The loop is equivalent to MINVAL(var(:,:))