Juan 16/10/2020: tridiag_thermo/tke/wind.f90 , OpenACC opti -> add loop seq +...

Juan 16/10/2020: tridiag_thermo/tke/wind.f90 , OpenACC opti -> add loop seq + loop gang,  vector collapse(2)

src/MNH/tridiag_thermo.f90

@@ -398,7 +398,9 @@ END DO !CONCURRENT
 !*       3.3 going down
 !            ----------
 !
+!$acc loop seq
 DO JK = IKE-KKL,IKB,-1*KKL
+   !$acc loop gang, vector collapse(2)
    DO CONCURRENT ( JI=1:JIU,JJ=1:JJU)
       PVARP(JI,JJ,JK) = PVARP(JI,JJ,JK) - ZGAM(JI,JJ,JK+KKL) * PVARP(JI,JJ,JK+KKL)
    END DO !CONCURRENT

src/MNH/tridiag_tke.f90

@@ -291,7 +291,9 @@ IF ( PIMPL > 1.E-10 ) THEN
   !
   !  going down
   !
+  !$acc loop seq
   DO JK = IKE-KKL,IKB,-1*KKL
+     !$acc loop gang, vector collapse(2)
      DO CONCURRENT ( JI=1:JIU,JJ=1:JJU)
         PVARP(JI,JJ,JK) = PVARP(JI,JJ,JK) - ZGAM(JI,JJ,JK+KKL) * PVARP(JI,JJ,JK+KKL)
      END DO !CONCURRENT   

src/MNH/tridiag_wind.f90

@@ -300,7 +300,9 @@ IF ( PIMPL > 1.E-10 ) THEN
   !
   !  going down 
   !
+  !$acc loop seq
   DO JK = IKE-KKL,IKB,-1*KKL
+     !$acc loop gang, vector collapse(2)
       DO CONCURRENT ( JI=1:JIU,JJ=1:JJU)
          PVARP(JI,JJ,JK) = PVARP(JI,JJ,JK) - ZGAM(JI,JJ,JK+KKL) * PVARP(JI,JJ,JK+KKL)
       END DO !CONCURRENT