Merge branch 'master' of https://github.com/UMR-CNRM/PHYEX

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
 

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