diff --git a/src/mo_fortran_tools.F90 b/src/mo_fortran_tools.F90
index c5ba60d77af205606497077d0ebff04ea16086c1..b1db528b70477cd2e30f1e36301bae7dda9085a9 100644
--- a/src/mo_fortran_tools.F90
+++ b/src/mo_fortran_tools.F90
@@ -467,6 +467,8 @@ CONTAINS
   END SUBROUTINE swap_int
 
   !>
+  !! Expand array by given size
+  !!
   !! Expand a 1D character array by given size.
   !!
   SUBROUTINE resize_arr_c1d(arr, nelem)
@@ -1780,12 +1782,11 @@ CONTAINS
 
     minval_1d = HUGE(minval_1d)
 
-    !$ACC PARALLEL DEFAULT(PRESENT) COPY(minval_1d) ASYNC(1) REDUCTION(MIN: minval_1d) IF(lacc)
-    !$ACC LOOP GANG VECTOR
+    !$ACC PARALLEL LOOP GANG VECTOR DEFAULT(PRESENT) ASYNC(1) REDUCTION(MIN: minval_1d) IF(lacc)
     DO i = 1, s1
       minval_1d = MIN(minval_1d, var(i)) ! The loop is equivalent to MINVAL(var(:))
     END DO
-    !$ACC END PARALLEL
+    !$ACC END PARALLEL LOOP
     !$ACC WAIT ! required to sync result back to CPU
 #else
     minval_1d = MINVAL(var(:))
@@ -2338,11 +2339,11 @@ CONTAINS
     LOGICAL, INTENT(IN), OPTIONAL :: lacc
 
 #ifdef _OPENACC
-    IF ((.NOT. PRESENT(lacc))) THEN
+    IF (.NOT. PRESENT(lacc)) THEN
       CALL finish(routine_name, ' must not be called without lacc.')
     ELSE
       IF (.NOT. lacc) THEN
-        CALL finish(routine_name, ' not supported on ACC host.')
+        CALL finish(routine_name, ' not supported in ACC host mode.')
       END IF
     END IF
 #endif