From 81f4ea921487a16e76e5fb68d90b8edbeb7c4e05 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 14 Sep 2022 14:38:17 +0200
Subject: [PATCH] Philippe 14/09/2022: bugfix: GALLOC/GALLOCM were not
 initialized

---
 src/MNH/set_grid.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/MNH/set_grid.f90 b/src/MNH/set_grid.f90
index c6acdf6b9..e2cb21e46 100644
--- a/src/MNH/set_grid.f90
+++ b/src/MNH/set_grid.f90
@@ -538,6 +538,8 @@ SUBROUTINE STORE_GRID_1DIR_BOUNDS( HDIR, PHAT, PHATM, PHAT_BOUND, PHATM_BOUND )
   REAL, DIMENSION(:), POINTER :: ZHAT_GLOB
   REAL, DIMENSION(:), POINTER :: ZHATM_GLOB
 
+  GALLOC  = .FALSE.
+  GALLOCM = .FALSE.
   ZHAT_GLOB  => NULL()
   ZHATM_GLOB => NULL()
 
-- 
GitLab