diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90 index f88d337e5ac3c136ee0c535b6bee82e5a8cf83ef..0ad3212f52ad4cc5ce588ff347ea0990d9a28f5e 100644 --- a/src/MNH/ini_modeln.f90 +++ b/src/MNH/ini_modeln.f90 @@ -2572,6 +2572,8 @@ IF (LIBM) THEN ALLOCATE(XIBM_LS(IIU,IJU,IKU,4)) ; XIBM_LS = -XIBM_IEPS XIBM_LS(:,:,:,1)=ZIBM_LS(:,:,:) DEALLOCATE(ZIBM_LS) +ELSE + ALLOCATE( XIBM_LS(0,0,0,1) ) !Last dimension should be at least 1 because it is passed in phys_param_n ENDIF !------------------------------------------------------------------------------- !