Quentin 13/01/2023: bugfix PHYEX, call of condensation by lima_adust_split

src/common/micro/condensation.F90

@@ -239,10 +239,12 @@ ZDZREF = ICEP%XFRMIN(25) ! Thickness for unchanged vqsigsat (only used for LHGT_
 PRC_OUT = PRC_IN
 PRV_OUT = PRV_IN
 PRI_OUT = PRI_IN
-PHLC_HRC = 0.
-PHLC_HCF = 0.
-PHLI_HRI = 0.
-PHLI_HCF = 0.
+IF(PRESENT(PHLC_HRC)) THEN
+ PHLC_HRC = 0.
+ PHLC_HCF = 0.
+ PHLI_HRI = 0.
+ PHLI_HCF = 0.
+END IF
 #endif
 IF(OCND2)ZPRIFACT = 0.
 !

src/mesonh/micro/lima_adjust_split.f90

@@ -287,8 +287,8 @@ REAL, DIMENSION(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3)) &
                             ZRI, ZRI_IN,  &
                             Z_SIGS, Z_SRCS, &
                             ZW_MF, &
-                            ZCND, ZS, ZVEC1
-REAL, DIMENSION(SIZE(PRHODJ,1),SIZE(PRHODJ,2)) :: ZSIGQSAT2D, ZDUM
+                            ZCND, ZS, ZVEC1,ZDUM
+REAL, DIMENSION(SIZE(PRHODJ,1),SIZE(PRHODJ,2)) :: ZSIGQSAT2D
 !
 INTEGER, DIMENSION(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3)) :: IVEC1
 !