diff --git a/src/arome/ext/aroini_micro.F90 b/src/arome/ext/aroini_micro.F90
index 347033c9cd594d9ec7961697d07eced23897f4e1..77cc42030d2345900bc4b2354cde65a9af936961 100644
--- a/src/arome/ext/aroini_micro.F90
+++ b/src/arome/ext/aroini_micro.F90
@@ -146,7 +146,8 @@ XTSTEP_TS=PTSTEP_TS ! Approximative time step for time-splitting (0 for no time-
 !
 !        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