From c8945ee335660c17ca806c8fdd823066feb5021c Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 7 Dec 2021 15:01:40 +0100
Subject: [PATCH] Philippe 07/12/2021: OpenACC: fix: remove acc loop
independent if atomic not set (to compute correctly) Ideally, the loop
independent + atomic should be set but nvhpc 21.9 crashes
---
src/MNH/ice4_sedimentation_split.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/ice4_sedimentation_split.f90 b/src/MNH/ice4_sedimentation_split.f90
index 41c54c295..63921e9d3 100644
--- a/src/MNH/ice4_sedimentation_split.f90
+++ b/src/MNH/ice4_sedimentation_split.f90
@@ -664,7 +664,7 @@ DO WHILE (ANY(ZREMAINT>0.))
ENDIF
!$acc kernels
ZMAX_TSTEP(:,:) = ZREMAINT(:,:)
-!$acc loop independent private(JI,JJ,JK,JL)
+!acc loop independent private(JI,JJ,JK,JL)
DO CONCURRENT( JL = 1 : ISEDIM )
JI=I1(JL)
JJ=I2(JL)
--
GitLab