diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index aad37b9c5c14d2da473d91cac1f72aa1e4ca9935..73260de518a3e05bf2139b3bdb39e3893d5a60b3 100644
--- a/src/MNH/ini_modeln.f90
+++ b/src/MNH/ini_modeln.f90
@@ -2981,16 +2981,19 @@ END IF
 !*     33.  Auto-coupling Atmos-Ocean LES NH
 !
 ! Atmos Flux at interface
-IF (LCOUPLES.AND.(.NOT.LOCEAN)) THEN
- ALLOCATE(XSSUFL(IIU,IJU)); XSSUFL=0.0
- ALLOCATE(XSSVFL(IIU,IJU)); XSSVFL=0.0
- ALLOCATE(XSSTFL(IIU,IJU)); XSSTFL=0.0
- ALLOCATE(XSSRFL(IIU,IJU)); XSSRFL=0.0
-ELSE
- ALLOCATE(XSSUFL(0,0))
- ALLOCATE(XSSVFL(0,0))
- ALLOCATE(XSSTFL(0,0))
- ALLOCATE(XSSRFL(0,0))
+! Allocate to a non-zero size only if LCOUPLES=T. It must be allocated only once (=>IF KMI==1)
+IF ( KMI == 1 ) THEN
+  IF ( LCOUPLES ) THEN
+    ALLOCATE( XSSUFL(IIU,IJU) ); XSSUFL=0.0
+    ALLOCATE( XSSVFL(IIU,IJU) ); XSSVFL=0.0
+    ALLOCATE( XSSTFL(IIU,IJU) ); XSSTFL=0.0
+    ALLOCATE( XSSRFL(IIU,IJU) ); XSSRFL=0.0
+  ELSE
+    ALLOCATE( XSSVFL(0,0) )
+    ALLOCATE( XSSTFL(0,0) )
+    ALLOCATE( XSSRFL(0,0) )
+    ALLOCATE( XSSUFL(0,0) )
+  END IF
 END IF
 !
 END SUBROUTINE INI_MODEL_n