diff --git a/src/SURFEX/init_isban.F90 b/src/SURFEX/init_isban.F90
index 4f6d848f80c02839be9d8c423126dc56629c2614..397e5385f8f1b819b83091f0738f4a0892fe430c 100644
--- a/src/SURFEX/init_isban.F90
+++ b/src/SURFEX/init_isban.F90
@@ -501,13 +501,13 @@ IF (.NOT.LSPLIT_PATCH) THEN
       ALLOCATE(IM%S%XSG2_WR(KI,ISNOW_NLAYER,IM%O%NPATCH))
       ALLOCATE(IM%S%XHIS_WR(KI,ISNOW_NLAYER,IM%O%NPATCH))
     ELSE
-      ALLOCATE(IM%S%XSG1_WR(0,0,1))
-      ALLOCATE(IM%S%XSG2_WR(0,0,1)) 
-      ALLOCATE(IM%S%XHIS_WR(0,0,1))   
+      ALLOCATE(IM%S%XSG1_WR(0,1,1))
+      ALLOCATE(IM%S%XSG2_WR(0,1,1)) 
+      ALLOCATE(IM%S%XHIS_WR(0,1,1))   
     ENDIF
   ELSE
-    ALLOCATE(IM%S%XHEA_WR(0,0,1))
-    ALLOCATE(IM%S%XAGE_WR(0,0,1))
+    ALLOCATE(IM%S%XHEA_WR(0,1,1))
+    ALLOCATE(IM%S%XAGE_WR(0,1,1))
   ENDIF
 
   ALLOCATE(IM%S%TDATE_WR(KI,IM%O%NPATCH))
@@ -516,14 +516,14 @@ ELSE
 
   ALLOCATE(IM%S%XWORK_WR(0,1))
 
-  ALLOCATE(IM%S%XWSN_WR(0,0,1))
-  ALLOCATE(IM%S%XRHO_WR(0,0,1))
+  ALLOCATE(IM%S%XWSN_WR(0,1,1))
+  ALLOCATE(IM%S%XRHO_WR(0,1,1))
   ALLOCATE(IM%S%XALB_WR(0,1))
-  ALLOCATE(IM%S%XHEA_WR(0,0,1))
-  ALLOCATE(IM%S%XAGE_WR(0,0,1))
-  ALLOCATE(IM%S%XSG1_WR(0,0,1))
-  ALLOCATE(IM%S%XSG2_WR(0,0,1)) 
-  ALLOCATE(IM%S%XHIS_WR(0,0,1))
+  ALLOCATE(IM%S%XHEA_WR(0,1,1))
+  ALLOCATE(IM%S%XAGE_WR(0,1,1))
+  ALLOCATE(IM%S%XSG1_WR(0,1,1))
+  ALLOCATE(IM%S%XSG2_WR(0,1,1)) 
+  ALLOCATE(IM%S%XHIS_WR(0,1,1))
 
   ALLOCATE(IM%S%TDATE_WR(0,1))
 
diff --git a/src/SURFEX/init_teb_garden_pgdn.F90 b/src/SURFEX/init_teb_garden_pgdn.F90
index 4b3b1ecc411bf3f734837708a4e54841024edd76..ff67851678fd4fa93e55437f1c2ee0071eda50e0 100644
--- a/src/SURFEX/init_teb_garden_pgdn.F90
+++ b/src/SURFEX/init_teb_garden_pgdn.F90
@@ -216,14 +216,14 @@ IF (OPATCH1) THEN
     CALL INIT_FROM_DATA_TEB_VEG_n(DTV, K, P, PEK, IDECADE, .FALSE., .TRUE., .FALSE.,.FALSE.)
   ENDIF
   !
-  ALLOCATE(S%XWSN_WR(0,0,1))
-  ALLOCATE(S%XRHO_WR(0,0,1))
+  ALLOCATE(S%XWSN_WR(0,1,1))
+  ALLOCATE(S%XRHO_WR(0,1,1))
   ALLOCATE(S%XALB_WR(0,1))
-  ALLOCATE(S%XHEA_WR(0,0,1))
-  ALLOCATE(S%XAGE_WR(0,0,1))
-  ALLOCATE(S%XSG1_WR(0,0,1))
-  ALLOCATE(S%XSG2_WR(0,0,1)) 
-  ALLOCATE(S%XHIS_WR(0,0,1))
+  ALLOCATE(S%XHEA_WR(0,1,1))
+  ALLOCATE(S%XAGE_WR(0,1,1))
+  ALLOCATE(S%XSG1_WR(0,1,1))
+  ALLOCATE(S%XSG2_WR(0,1,1)) 
+  ALLOCATE(S%XHIS_WR(0,1,1))
   !
 END IF
 
diff --git a/src/SURFEX/init_teb_greenroof_pgdn.F90 b/src/SURFEX/init_teb_greenroof_pgdn.F90
index 55624d65b0af92517de609d2421138a20ec0da69..78a1249a296ea3e194837fe36ab7b84c92873ac8 100644
--- a/src/SURFEX/init_teb_greenroof_pgdn.F90
+++ b/src/SURFEX/init_teb_greenroof_pgdn.F90
@@ -227,14 +227,14 @@ IF (OPATCH1) THEN
     CALL INIT_FROM_DATA_TEB_VEG_n(DTV, K, P, PEK, IDECADE, .FALSE., .TRUE., .FALSE.,.FALSE.)
   ENDIF
   ! 
-  ALLOCATE(S%XWSN_WR(0,0,1))
-  ALLOCATE(S%XRHO_WR(0,0,1))
+  ALLOCATE(S%XWSN_WR(0,1,1))
+  ALLOCATE(S%XRHO_WR(0,1,1))
   ALLOCATE(S%XALB_WR(0,1))
-  ALLOCATE(S%XHEA_WR(0,0,1))
-  ALLOCATE(S%XAGE_WR(0,0,1))
-  ALLOCATE(S%XSG1_WR(0,0,1))
-  ALLOCATE(S%XSG2_WR(0,0,1)) 
-  ALLOCATE(S%XHIS_WR(0,0,1))
+  ALLOCATE(S%XHEA_WR(0,1,1))
+  ALLOCATE(S%XAGE_WR(0,1,1))
+  ALLOCATE(S%XSG1_WR(0,1,1))
+  ALLOCATE(S%XSG2_WR(0,1,1)) 
+  ALLOCATE(S%XHIS_WR(0,1,1))
   !
 END IF
 !
diff --git a/src/SURFEX/writesurf_tebn.F90 b/src/SURFEX/writesurf_tebn.F90
index 2a8247f9e5fe78766b57d81a17fe64b6213ea4a0..210b625352a385379a181e0b20a48d73e6b9fc72 100644
--- a/src/SURFEX/writesurf_tebn.F90
+++ b/src/SURFEX/writesurf_tebn.F90
@@ -98,7 +98,7 @@ INTEGER,           INTENT(IN)  :: KPATCH   ! current TEB patch
 !*       0.2   Declarations of local variables
 !              -------------------------------
 !
-REAL, DIMENSION(0,0,1) :: ZWSN_WR, ZRHO_WR, ZHEA_WR, ZAGE_WR, ZSG1_WR, ZSG2_WR, ZHIS_WR
+REAL, DIMENSION(0,1,1) :: ZWSN_WR, ZRHO_WR, ZHEA_WR, ZAGE_WR, ZSG1_WR, ZSG2_WR, ZHIS_WR
 REAL, DIMENSION(0,1) :: ZALB_WR
 !
 INTEGER, DIMENSION(SIZE(T%XT_ROOF,1)) :: IMASK