Quentin 14/11/2022: bugfix, INDEP allocation must be coherent between ini_micron and spawn_model2

TODO: when uniformizing init of PHYEX fields, check allocation and init of physics variables in other program of mesonh

src/MNH/read_precip_field.f90

@@ -186,7 +186,7 @@ IF (SIZE(PINPRC) /= 0 ) THEN
   END SELECT
 END IF
 !
-IF (SIZE(PINPRC) /= 0 .AND. (LDEPOSC .OR. LDEPOC .OR. MDEPOC) ) THEN
+IF (SIZE(PINDEP) /= 0 ) THEN
   SELECT CASE(YGETRCT)
   CASE ('READ')
     CALL FIND_FIELD_ID_FROM_MNHNAME('INDEP',IID,IRESP)

src/MNH/spawn_model2.f90

@@ -290,7 +290,9 @@ USE MODI_GET_SIZEX_LB
 USE MODI_GET_SIZEY_LB
 !
 USE MODD_LIMA_PRECIP_SCAVENGING_n
-USE MODD_PARAM_LIMA
+USE MODD_PARAM_LIMA, ONLY : MDEPOC=>LDEPOC, LSCAV
+USE MODD_PARAM_ICE,  ONLY : LDEPOSC
+USE MODD_PARAM_C2R2, ONLY : LDEPOC
 USE MODD_PASPOL, ONLY : LPASPOL
 !
 USE MODD_MPIF
@@ -897,8 +899,9 @@ ELSE
   ALLOCATE(XACPRC(0,0))
 END IF
 !
-IF (CCLOUD(1:3) == 'ICE' .OR. CCLOUD == 'C2R2'  &
-         .OR. CCLOUD == 'KHKO' ) THEN
+IF (( CCLOUD(1:3) == 'ICE'                                   .AND.LDEPOSC) .OR. &
+    ((CCLOUD=='C2R2' .OR. CCLOUD=='KHKO').AND.LDEPOC)  .OR. &
+    ( CCLOUD=='LIMA'                                         .AND.MDEPOC))  THEN
   ALLOCATE(XINDEP(IIU,IJU))
   ALLOCATE(XACDEP(IIU,IJU))
 ELSE