Juan 14/09/2020 : tridiag_tke.f90 , OpenACC optimisation -> loop seq + loop gang vector collapse

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)