diff --git a/src/MNH/advection_metsv.f90 b/src/MNH/advection_metsv.f90
index c7c864704e2172e8ec09784e60cc8faaaf9512c8..f905e4e7892481796a6b30a15d7c8cbfe01e7bfe 100644
--- a/src/MNH/advection_metsv.f90
+++ b/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)