From 62c85f203c6382f666f706ac88a4715f3f0220a6 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 15 Sep 2022 16:27:53 +0200
Subject: [PATCH] Philippe 15/09/2022: bugfix: prep_ideal_case: earlier
 allocate of XHAT_BOUND and XHATM_BOUND

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

diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90
index bf758751f..2a892ab01 100644
--- a/src/MNH/prep_ideal_case.f90
+++ b/src/MNH/prep_ideal_case.f90
@@ -904,6 +904,7 @@ IF(.NOT. L1D) LHORELAX_SV(1:NSV)=.TRUE.
 !
 !*       4.1  Vertical Spatial grid 
 !
+ALLOCATE( XHAT_BOUND(NHAT_BOUND_SIZE), XHATM_BOUND(NHAT_BOUND_SIZE) )
 CALL READ_VER_GRID(TZEXPREFILE)
 !
 !*       4.2  Initialize parallel variables and compute array's dimensions
@@ -1242,7 +1243,6 @@ ELSE
 !
   ALLOCATE( XXHAT(NIU),  XYHAT(NJU)  )
   ALLOCATE( XXHATM(NIU), XYHATM(NJU) )
-  ALLOCATE( XHAT_BOUND (NHAT_BOUND_SIZE), XHATM_BOUND(NHAT_BOUND_SIZE) )
 !
 ! define the grid localization at the earth surface by the central point
 ! coordinates
-- 
GitLab