From eb23c5204ae9bcc2af92327392beb0a103000a69 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Fri, 4 Nov 2022 19:01:47 +0100
Subject: [PATCH] Juan 04/11/2022:tools.f90, BYpass CCE > 14.X , "acc atomic"
needed now "copy(ic)" to get corretly the ic value
---
src/MNH/tools.f90 | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/src/MNH/tools.f90 b/src/MNH/tools.f90
index 846462cbb..a811b0545 100644
--- a/src/MNH/tools.f90
+++ b/src/MNH/tools.f90
@@ -188,7 +188,7 @@ ic = 0
! different runs of this subroutine BUT final result should be the same
!Comment the following line + atomic directives to have consistent values for debugging
!Warning: huge impact on performance
-!$acc parallel loop private(idx) independent
+!$acc parallel loop private(idx) copy(ic) independent
do ji = 1, size( ltab, 1 )
if ( ltab(ji ) ) then
!$acc atomic capture
@@ -198,7 +198,7 @@ ic = 0
i1(idx) = ji
end if
end do
-! acc end kernels
+! acc end parallel
else
@@ -259,7 +259,7 @@ ic = 0
! different runs of this subroutine BUT final result should be the same
!Comment the following line + atomic directives to have consistent values for debugging
!Warning: huge impact on performance
-!$acc parallel loop collapse(2) private(idx) independent
+!$acc parallel loop collapse(2) private(idx) copy(ic) independent
do jj = 1, size( ltab, 2 )
do ji = 1, size( ltab, 1 )
if ( ltab(ji, jj ) ) then
@@ -272,7 +272,7 @@ ic = 0
end if
end do
end do
-! acc end kernels
+! acc end parallel
else
@@ -337,7 +337,7 @@ ic = 0
! different runs of this subroutine BUT final result should be the same
!Comment the following line + atomic directives to have consistent values for debugging
!Warning: huge impact on performance
-!$acc parallel loop collapse(3) private(idx) independent
+!$acc parallel loop collapse(3) private(idx) copy(ic) independent
do jk = 1, size( ltab, 3 )
do jj = 1, size( ltab, 2 )
do ji = 1, size( ltab, 1 )
@@ -353,7 +353,7 @@ ic = 0
end do
end do
end do
-! acc end kernels
+! acc end parellel
else
--
GitLab