From 89af4fa41c8c957637f0a02c088861530a33c90e Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 26 Sep 2023 16:26:35 +0200
Subject: [PATCH] Philippe 26/09/2023: ini_modeln: allocate XBFB to zero size
if not used (useful to prevent crash with OpenACC)
---
src/MNH/ini_modeln.f90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index 746403eaf..77d897d77 100644
--- a/src/MNH/ini_modeln.f90
+++ b/src/MNH/ini_modeln.f90
@@ -1091,6 +1091,8 @@ END IF
CALL GET_DIM_EXT_ll('B',IIU_B,IJU_B)
IF ( CPRESOPT == 'ZRESI' .OR. CPRESOPT == 'ZSOLV' ) THEN
ALLOCATE(XBFB(IIU_B,IJU_B,IKU))
+ELSE
+ ALLOCATE(XBFB(0,0,0))
END IF
IF ( CPRESOPT == 'ZRESI' ) THEN
--
GitLab