Philippe 23/08/2022: missing allocate for ZRSMIN if NOOPENACC

src/MNH/resolved_cloud.f90

@@ -623,6 +623,13 @@ allocate ( ZZZ      ( JIU,JJU,JKU  ) )
 allocate ( ZINPRI   ( JIU,JJU ) )
 allocate ( ZTHSSTEP ( SIZE(PTHS,1), SIZE(PTHS,2), SIZE(PTHS,3) ) )
 allocate ( ZRSSTEP  ( SIZE(PRS,1),  SIZE(PRS,2),  SIZE(PRS,3), SIZE(PRS,4) ) )
+
+IF (HCLOUD(1:3)=='ICE' .AND. LRED) THEN
+  allocate( ZRSMIN(SIZE( XRTMIN )) )
+ELSE
+  allocate( ZRSMIN(0) )
+END IF
+
 #else
 !Pin positions in the pools of MNH memory
 CALL MNH_MEM_POSITION_PIN()