Juan 21/09/2020:advection_metsv.f90, OpenACC opti -> DO CONCURRENT in 4 loop

src/MNH/advection_metsv.f90

@@ -842,13 +842,10 @@ DO JSPL=1,KSPLIT
       !$acc end kernels
    END IF
    !$acc kernels
-   !$acc loop seq
-   DO JR = 1, KRR
-      DO CONCURRENT ( JI=1:JIU,JJ=1:JJU,JK=1:JKU)
-         ZR(JI,JJ,JK,JR) = ZR(JI,JJ,JK,JR) + ( ZRRS_PPM(JI,JJ,JK,JR) + ZRRS_OTHER(JI,JJ,JK,JR) + PRRS_CLD(JI,JJ,JK,JR) ) &
-              * ZTSTEP_PPM / PRHODJ(JI,JJ,JK)
-      END DO !CONCURRENT 
-   END DO
+   DO CONCURRENT ( JI=1:JIU,JJ=1:JJU,JK=1:JKU, JR=1:KRR )
+      ZR(JI,JJ,JK,JR) = ZR(JI,JJ,JK,JR) + ( ZRRS_PPM(JI,JJ,JK,JR) + ZRRS_OTHER(JI,JJ,JK,JR) + PRRS_CLD(JI,JJ,JK,JR) ) &
+           * ZTSTEP_PPM / PRHODJ(JI,JJ,JK)
+   END DO !CONCURRENT 
    !$acc loop seq
    DO JSV = 1, KSV
       DO CONCURRENT ( JI=1:JIU,JJ=1:JJU,JK=1:JKU)