diff --git a/src/arome/ext/aroini_micro.F90 b/src/arome/ext/aroini_micro.F90
index 450e1f8114df10ddf2ede6f61f1ab693019b9e2c..4881f58e8cf6e2881811f1d64ce3cc3c2764572d 100644
--- a/src/arome/ext/aroini_micro.F90
+++ b/src/arome/ext/aroini_micro.F90
@@ -148,7 +148,8 @@ LSEDIC=LDSEDIC
 !
 !        2. Set implicit default values for MODD_RAIN_ICE_DESCR 
 !                     et MODD_RAIN_ICE_PARAM
-
+LSNOW_T=.FALSE.
+LRED=CMICRO=='ICE3' .OR. CMICRO=='ICE4'
 CALL INI_RAIN_ICE (KULOUT, PTSTEP, 20.,KSPLITR,CMICRO)
 CALL INI_TIWMX
 
diff --git a/src/common/micro/mode_ice4_fast_rs.F90 b/src/common/micro/mode_ice4_fast_rs.F90
index d1a1afb4b923c8f2e8dd3af3fdc84909c180e1db..adc9f4715c241f7f54610365f0bb17ff3530f903 100644
--- a/src/common/micro/mode_ice4_fast_rs.F90
+++ b/src/common/micro/mode_ice4_fast_rs.F90
@@ -158,7 +158,11 @@ IF(.NOT. LDSOFT) THEN
     !        5.1.1  select the PLBDAS
     !
     DO JJ = 1, IGRIM
+#if defined(REPRO48) || defined(REPRO55)
+      ZVEC1(JJ) = PLBDAS(I1(JJ))
+#else
       ZVEC1(JJ) = (PLBDAS(I1(JJ))**ICED%XALPHAS + ICED%XFVELOS**ICED%XALPHAS)**(1./ICED%XALPHAS)
+#endif
     END DO
     !
     !        5.1.2  find the next lower indice for the PLBDAS in the geometrical