From 91d168f47cfec7a2d4e59e2567b09f4cc1235b6c Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Mon, 17 Jun 2024 13:42:08 +0200
Subject: [PATCH] Quentin 17/06/2024: bugfix ibm_detect, init of Z_NORM_GHOST
and Z_NORM_TEMPO before their allocation (this is OK with ifort on Belenos
git add ibm_detect.f90 ); crash on gfortran 9.4
---
src/MNH/ibm_detect.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/MNH/ibm_detect.f90 b/src/MNH/ibm_detect.f90
index b88a80445..3919727cc 100644
--- a/src/MNH/ibm_detect.f90
+++ b/src/MNH/ibm_detect.f90
@@ -145,6 +145,7 @@ SUBROUTINE IBM_DETECT(PPHI)
ALLOCATE(I_INDE_GHOST(IIB:IIE,IJB:IJE,IKB:IKE,4))
ALLOCATE(ZIBM_TESTING(IIU,IJU,IKU,4))
ALLOCATE(Z_PHI(8),ZPROD(6),ZVECT(3),Z_IMG(8,3),Z_GHO(8,3),I_INDE_TEMPO(3),I_INDE_TEMPO2(3))
+ ALLOCATE(Z_NORM_GHOST(IIU,IJU,IKU,3),Z_NORM_TEMPO(IIU,IJU,IKU,3))
!
!------------------------------------------------------------------------------
!
@@ -464,7 +465,7 @@ SUBROUTINE IBM_DETECT(PPHI)
ALLOCATE(XIBM_IMAGE_P(I_DIME_GHOSTP,I_NUMB_LAYERP,1,3,3))
XIBM_IMAGE_P(:,:,:,:,:) = 0.
!
- ALLOCATE(Z_NORM_GHOST(IIU,IJU,IKU,3),Z_NORM_TEMPO(IIU,IJU,IKU,3),Z_NORM_TEMP1(IIU,IJU,IKU,4),Z_NORM_TEMP2(IIU,IJU,IKU), &
+ ALLOCATE(Z_NORM_TEMP1(IIU,IJU,IKU,4),Z_NORM_TEMP2(IIU,IJU,IKU), &
Z_NORM_TEMP3(IIU,IJU,IKU))
ALLOCATE(ZPHI(IIU,IJU,IKU,4))
ZPHI = 0.
--
GitLab