Workaround for the CCE 17 requiring explicit copy for reduction variables

What is the bug

CCE 17 needed for AMD GPUs on LUMI now requires an explicit copy of reduction variables.

How do you fix it

Add copy clauses for the reduction variables.

How urgent is the bugfix

• I need it as soon as possible
• I can wait for a couple of days
• None of my current codes is directly affected

Mandatory steps before review

• Gitlab CI passes (Hint: use make format for linting)
• Bugfix is covered by additional unit tests
• Mark the merge request as ready by removing Draft:

Mandatory steps before merge

• Test coverage does not decrease
• Reviewed by a maintainer
• Incorporate review suggestions
• Prior to merging, please remove any boilerplate from the MR description, retaining only the What is the bug and How do you fix it section to maintain
• Remember to edit the commit message and select the proper changelog category (feature/bugfix/other)

You are not supposed to merge this request by yourself, the maintainers of fortan-support take care of this action!

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(:,:))