Sébastien Riette 17/02/2022 fast_rs

Suppression of ZMASK (DO with IF tests)
Arrays declared with KPROMA size
WHERE statement decorated with mnh_expand directives

use of REPRO55 for mode_ice4_sedimentation_stat.F90 (in addition to REPRO48)

src/common/micro/mode_ice4_sedimentation_stat.F90

@@ -96,7 +96,7 @@ REAL :: FWSED1, FWSED2, PWSEDW, PWSEDWSUP, PINVTSTEP, PTSTEP1, PDZZ1, PRHODREF1,
 
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
-#ifdef REPRO48
+#if defined(REPRO48) || defined(REPRO55)
 ! 5 multiplications + 1 division => cost = 7X
 FWSED1(PWSEDW,PTSTEP1,PDZZ1,PRHODREF1,PRXT1,PINVTSTEP)=MIN(1.,PWSEDW*PTSTEP1/PDZZ1 )*PRHODREF1*PDZZ1*PRXT1*PINVTSTEP
 #else

src/common/micro/mode_ice4_tendencies.F90

@@ -419,7 +419,7 @@ END IF
 !*       4.     COMPUTES THE FAST COLD PROCESS SOURCES FOR r_s
 !               ----------------------------------------------
 !
-CALL ICE4_FAST_RS(CST, PARAMI, ICEP, ICED, KPROMA, KSIZE, ODSOFT, PCOMPUTE, &
+CALL ICE4_FAST_RS(CST, PARAMI, ICEP, ICED, KPROMA, KSIZE, ODSOFT, LLCOMPUTE, &
                  &PRHODREF, PLVFACT, PLSFACT, PPRES, &
                  &ZDV, ZKA, ZCJ, &
                  &ZLBDAR, ZLBDAS, &