From 850ba8d5649259df1ae862d2293832a22e32ac41 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 24 Mar 2021 10:30:08 +0100
Subject: [PATCH] Philippe 24/03/2021: bugfix: allocate XLSRVM, XINPAP and
XACPAP to zero size when not needed
(cherry picked from commit a7a23457ae5d9f7a7a5e03962c0277d85ee20f75)
---
src/MNH/spawn_model2.f90 | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/src/MNH/spawn_model2.f90 b/src/MNH/spawn_model2.f90
index 0f1a298d8..82c8f1eca 100644
--- a/src/MNH/spawn_model2.f90
+++ b/src/MNH/spawn_model2.f90
@@ -199,6 +199,7 @@ END MODULE MODI_SPAWN_MODEL2
! P. Wautelet 10/04/2019: replace ABORT and STOP calls by Print_msg
! P. Wautelet 20/05/2019: add name argument to ADDnFIELD_ll + new ADD4DFIELD_ll subroutine
! P. Wautelet 09/03/2021: move some chemistry initializations to ini_nsv
+! P. Wautelet 24/03/2021: bugfix: allocate XLSRVM, XINPAP and XACPAP to zero size when not needed
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -766,6 +767,8 @@ ALLOCATE(XLSWM(IIU,IJU,IKU))
ALLOCATE(XLSTHM(IIU,IJU,IKU))
IF ( NRR >= 1) THEN
ALLOCATE(XLSRVM(IIU,IJU,IKU))
+ELSE
+ ALLOCATE(XLSRVM(0,0,0))
ENDIF
! LB fields for lbc coupling
!
@@ -931,6 +934,9 @@ IF ( CCLOUD=='LIMA' .AND. LSCAV ) THEN
ALLOCATE(XACPAP(IIU,IJU))
XINPAP(:,:)=0.0
XACPAP(:,:)=0.0
+ELSE
+ ALLOCATE(XINPAP(0,0))
+ ALLOCATE(XACPAP(0,0))
END IF
!
! 4.8bis electric variables
--
GitLab