From 24ae184b0e22656e507a86c0f808baeeb4f22170 Mon Sep 17 00:00:00 2001
From: Wautelet Philippe <waup@aeropc45.aero.obs-mip.fr>
Date: Wed, 3 Nov 2021 14:37:47 +0100
Subject: [PATCH] Philippe 03/11/2021: Sources_neg_correct: always allocate zls
(necessary to prevent crash with mppdb_check of it)
---
src/MNH/sources_neg_correct.f90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/MNH/sources_neg_correct.f90 b/src/MNH/sources_neg_correct.f90
index de994c8ab..2f115d901 100644
--- a/src/MNH/sources_neg_correct.f90
+++ b/src/MNH/sources_neg_correct.f90
@@ -168,6 +168,8 @@ if ( hcloud == 'ICE3' .or. hcloud == 'ICE4' .or. hcloud == 'LIMA' ) then
if ( krr > 3 ) then
allocate( zcor( jiu, jju, jku ) )
end if
+else
+ allocate( zls(0, 0, 0) )
end if
if ( .not. Associated( zcor ) ) Allocate( zcor(0, 0, 0) )
#else
--
GitLab