diff --git a/src/MNH/rain_ice_red.f90 b/src/MNH/rain_ice_red.f90
index 4e10302337f10d7fded5072b817bb336bb08c0aa..c598b4c698398ba0fb4678006d8485f1133c9f23 100644
--- a/src/MNH/rain_ice_red.f90
+++ b/src/MNH/rain_ice_red.f90
@@ -359,6 +359,11 @@ REAL, DIMENSION(:,:,:), OPTIONAL,  INTENT(INOUT) :: PRHS    ! Hail m.r. source
 REAL, DIMENSION(:,:), OPTIONAL, INTENT(OUT)      :: PINPRH! Hail instant precip
 REAL, DIMENSION(:,:,:,:), OPTIONAL, INTENT(OUT)  :: PFPR ! upper-air precipitation fluxes
 !
+#ifdef MNH_COMPILER_CCE
+STOP "RAIN_ICE_RED TROP LENT A COMPILER AVEC CRAY/CCE >> 30 Minutes "
+STOP "ENLEVE LE ifdefMNH_COMPILER_CCE , SI VOUS EN AVEZ BESOIN sur GPU AMD "
+#else
+!
 !*       0.2   Declarations of local variables :
 !
 INTEGER :: IIB           !  Define the domain where is
@@ -1400,8 +1405,8 @@ IF(HSUBG_AUCV_RC=='PDF ' .AND. CSUBG_PR_PDF=='SIGM') GTEST=.true.
 #endif
 
 IF(IMICRO>0) THEN
-!$acc loop independent
-  DO JL=1, IMICRO
+!acc loop independent
+  !$mnh_do_concurrent(JL=1:IMICRO)
     ZRVT(JL) = PRVT(I1(JL),I2(JL),I3(JL))
     ZRCT(JL) = PRCT(I1(JL),I2(JL),I3(JL))
     ZRRT(JL) = PRRT(I1(JL),I2(JL),I3(JL))
@@ -1430,7 +1435,7 @@ IF(IMICRO>0) THEN
     ELSE
       ZHLI_LCF(JL)=0.
     ENDIF
-  ENDDO
+  !$mnh_end_do()
   IF(GEXT_TEND) THEN
 !$acc loop independent
     DO JL=1, IMICRO
@@ -2895,5 +2900,6 @@ CONTAINS
 
   END SUBROUTINE CORRECT_NEGATIVITIES
 !
+#endif  
 END SUBROUTINE RAIN_ICE_RED