Skip to content
Snippets Groups Projects
Commit 91d168f4 authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 17/06/2024: bugfix ibm_detect, init of Z_NORM_GHOST and Z_NORM_TEMPO...

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
parent b372c897
No related branches found
No related tags found
No related merge requests found
......@@ -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.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment