diff --git a/src/MNH/ibm_detect.f90 b/src/MNH/ibm_detect.f90 index b88a80445aad736413f45e64431eae8f3a3c3db1..3919727cc4297cc1ad3f7ebabbbe1b349333f47d 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.