diff --git a/src/MNH/rain_ice_red.f90 b/src/MNH/rain_ice_red.f90
index 0ee449851e549714e199b0c4831f77c23a036306..4e10302337f10d7fded5072b817bb336bb08c0aa 100644
--- a/src/MNH/rain_ice_red.f90
+++ b/src/MNH/rain_ice_red.f90
@@ -1844,11 +1844,18 @@ DO WHILE(ANY(ZTIME(:)<PTSTEP)) ! Loop to *really* compute tendencies
       ZRGT(JL)=ZRGT(JL)+ZA_RG(JL)*ZMAXTIME(JL)+ZB_RG(JL)
       ZCIT(JL)=ZCIT(JL) * MAX(0., -SIGN(1., -ZRIT(JL))) ! WHERE(ZRIT(:)==0.) ZCIT(:) = 0.
     ENDDO
-    IF(KRR==7) ZRHT(:)=ZRHT(:)+ZA_RH(:)*ZMAXTIME(:)+ZB_RH(:)
+!$acc end kernels
+    IF(KRR==7) THEN
+!$acc kernels
+      ZRHT(:)=ZRHT(:)+ZA_RH(:)*ZMAXTIME(:)+ZB_RH(:)
+!$acc end kernels
+    END IF
+! !$acc end kernels
     !
     !***       4.4 Mixing ratio change due to each process
     !
     IF(LBU_ENABLE) THEN
+!$acc kernels
       ZTOT_RVHENI(:)= ZTOT_RVHENI(:) +ZRVHENI_MR(:)
       ZTOT_RCHONI(:)= ZTOT_RCHONI(:) +ZRCHONI(:) *ZMAXTIME(:)
       ZTOT_RRHONG(:)= ZTOT_RRHONG(:) +ZRRHONG_MR(:)
@@ -1894,11 +1901,13 @@ DO WHILE(ANY(ZTIME(:)<PTSTEP)) ! Loop to *really* compute tendencies
       ZTOT_RHMLTR(:)= ZTOT_RHMLTR(:) +ZRHMLTR(:) *ZMAXTIME(:)
       ZTOT_RIMLTC(:)= ZTOT_RIMLTC(:) +ZRIMLTC_MR(:)
       ZTOT_RCBERI(:)= ZTOT_RCBERI(:) +ZRCBERI(:) *ZMAXTIME(:)
+!$acc end kernels
     ENDIF
     !
     !***       4.5 Next loop
     !
     GSOFT=.TRUE. ! We try to adjust tendencies (inner while loop)
+!$acc kernels
     ZTIME(:)=ZTIME(:)+ZMAXTIME(:)
 !$acc end kernels
 !$acc update self(ZCOMPUTE)