From 1a5843ef2134b9d1a0b564a64b7bac816dc6b6b9 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Mon, 14 Sep 2020 12:04:37 +0200
Subject: [PATCH] Juan 14/09/2020 : tridiag_tke.f90 , OpenACC optimisation ->
 loop seq +  loop gang vector collapse

---
 src/MNH/tridiag_tke.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/MNH/tridiag_tke.f90 b/src/MNH/tridiag_tke.f90
index ee15d6a7b..b4743a212 100644
--- a/src/MNH/tridiag_tke.f90
+++ b/src/MNH/tridiag_tke.f90
@@ -256,8 +256,9 @@ IF ( PIMPL > 1.E-10 ) THEN
      PVARP(JI,JJ,IKB) = ZY(JI,JJ,IKB) / ZBET(JI,JJ)
   END DO !CONCURRENT
   !
+  !$acc loop  seq
   DO JK = IKB+KKL,IKE-KKL,KKL
-!$acc loop collapse(2) independent
+   !$acc loop gang, vector collapse(2) independent
     DO JJ=1,JJU
       DO JI=1,JIU
         ZGAM(JI,JJ,JK) = PIMPL * PA(JI,JJ,JK) / PRHODJ(JI,JJ,JK-KKL) / ZBET(JI,JJ)  
-- 
GitLab