Quentin Merge->MNH ice4_tendencies (temporary adaptation)

src/mesonh/micro/ice4_tendencies.f90

@@ -185,17 +185,17 @@ USE MODD_RAIN_ICE_DESCR, ONLY: XLBDAS_MAX,XLBEXG,XLBEXH,XLBEXR,XLBEXS,XLBG,XLBH,
 USE MODD_RAIN_ICE_PARAM, ONLY: XSCFAC
 !
 USE MODI_ICE4_COMPUTE_PDF
-USE MODI_ICE4_FAST_RG
-USE MODI_ICE4_FAST_RH
-USE MODI_ICE4_FAST_RI
-USE MODI_ICE4_FAST_RS
+USE MODE_ICE4_FAST_RG
+USE MODE_ICE4_FAST_RH
+USE MODE_ICE4_FAST_RI
+USE MODE_ICE4_FAST_RS
 USE MODI_ICE4_NUCLEATION
 USE MODI_ICE4_RAINFR_VERT
 USE MODI_ICE4_RIMLTC
 USE MODI_ICE4_RRHONG
-USE MODI_ICE4_RSRIMCG_OLD
-USE MODI_ICE4_SLOW
-USE MODI_ICE4_WARM
+USE MODE_ICE4_RSRIMCG_OLD
+USE MODE_ICE4_SLOW
+USE MODE_ICE4_WARM
 !
 IMPLICIT NONE
 !
@@ -537,7 +537,7 @@ END IF
 !*       4.     COMPUTES THE FAST COLD PROCESS SOURCES FOR r_s
 !               ----------------------------------------------
 !
-CALL ICE4_FAST_RS(KSIZE, ODSOFT, PCOMPUTE, &
+CALL ICE4_FAST_RS(KSIZE, KSIZE, ODSOFT, PCOMPUTE, &
                  &PRHODREF, PLVFACT, PLSFACT, PPRES, &
                  &ZDV, ZKA, ZCJ, &
                  &ZLBDAR, ZLBDAS, &
@@ -560,7 +560,7 @@ DO JL=1, KSIZE
            & PRSACCRG(JL) + PRCRIMSG(JL) + PRSRIMCG(JL)
   ZRGSI_MR(JL) = PRRHONG_MR(JL) + PRSRIMCG_MR(JL)
 ENDDO
-CALL ICE4_FAST_RG(KSIZE, ODSOFT, PCOMPUTE, KRR, &
+CALL ICE4_FAST_RG(KSIZE, KSIZE, ODSOFT, PCOMPUTE, KRR, &
                  &PRHODREF, PLVFACT, PLSFACT, PPRES, &
                  &ZDV, ZKA, ZCJ, PCIT, &
                  &ZLBDAR, ZLBDAS, ZLBDAG, &
@@ -579,7 +579,7 @@ CALL ICE4_FAST_RG(KSIZE, ODSOFT, PCOMPUTE, KRR, &
 !               ----------------------------------------------
 !
 IF (KRR==7) THEN
-  CALL ICE4_FAST_RH(KSIZE, ODSOFT, PCOMPUTE, ZWETG, &
+  CALL ICE4_FAST_RH(KSIZE, KSIZE, ODSOFT, PCOMPUTE, ZWETG, &
                    &PRHODREF, PLVFACT, PLSFACT, PPRES, &
                    &ZDV, ZKA, ZCJ, &
                    &ZLBDAS, ZLBDAG, ZLBDAR, ZLBDAH, &