diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index 746403eaf1d53aaa543ee141a006fdb240b9fa94..77d897d7728958d263ae6247bf84a8e6e1eb49a5 100644
--- a/src/MNH/ini_modeln.f90
+++ b/src/MNH/ini_modeln.f90
@@ -1091,6 +1091,8 @@ END IF
 CALL GET_DIM_EXT_ll('B',IIU_B,IJU_B)
 IF ( CPRESOPT == 'ZRESI' .OR. CPRESOPT == 'ZSOLV' ) THEN
   ALLOCATE(XBFB(IIU_B,IJU_B,IKU))
+ELSE
+  ALLOCATE(XBFB(0,0,0))
 END IF
 
 IF ( CPRESOPT == 'ZRESI' ) THEN