From f45d087e690dbdaa1f7fb11f711209c3eed4735d Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 19 Aug 2022 10:48:32 +0200
Subject: [PATCH] Philippe 19/08/2022: bugfix: deallocate ballon namelist data
 only if allocated

---
 src/MNH/ini_balloon.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/MNH/ini_balloon.f90 b/src/MNH/ini_balloon.f90
index 886f3f83e..f52a2f994 100644
--- a/src/MNH/ini_balloon.f90
+++ b/src/MNH/ini_balloon.f90
@@ -344,7 +344,7 @@ DO JI = 1, NBALLOONS
   END SELECT
 END DO
 
-CALL BALLOONS_NML_DEALLOCATE()
+IF ( NBALLOONS > 0 ) CALL BALLOONS_NML_DEALLOCATE()
 
 !----------------------------------------------------------------------------
 !
-- 
GitLab