From a03c0267142847b8bd33b7e5c2b957dbb17178da Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 23 Aug 2022 11:02:20 +0200
Subject: [PATCH] Philippe 23/08/2022: missing allocate for ZRSMIN if NOOPENACC

---
 src/MNH/resolved_cloud.f90 | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/MNH/resolved_cloud.f90 b/src/MNH/resolved_cloud.f90
index d97d37e34..0870549d4 100644
--- a/src/MNH/resolved_cloud.f90
+++ b/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()
-- 
GitLab