From c74fb4a8dcc0be89b5817874bd37c6d5c3c858d3 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Thu, 12 Oct 2023 14:09:14 +0200
Subject: [PATCH] Revert "Remove useless 0 in sub 0:D%NIKT+1"

This reverts commit 21056271c2e75392891025e1b7af93b1fa77d0f2.
---
 src/common/micro/mode_ice4_sedimentation_split.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/common/micro/mode_ice4_sedimentation_split.F90 b/src/common/micro/mode_ice4_sedimentation_split.F90
index 532e12915..6fa50a842 100644
--- a/src/common/micro/mode_ice4_sedimentation_split.F90
+++ b/src/common/micro/mode_ice4_sedimentation_split.F90
@@ -321,7 +321,7 @@ REAL, DIMENSION(D%NIJT)       :: ZMAX_TSTEP ! Maximum CFL in column
 REAL, DIMENSION(SIZE(ICED%XRTMIN))   :: ZRSMIN
 REAL, DIMENSION(D%NIJT)       :: ZREMAINT   ! Remaining time until the timestep end
 LOGICAL :: ZANYREMAINT
-REAL, DIMENSION(D%NIJT, D%NKT+1) :: ZWSED   ! Sedimentation fluxes
+REAL, DIMENSION(D%NIJT, 0:D%NKT+1) :: ZWSED   ! Sedimentation fluxes
 INTEGER :: IKTB, IKTE, IKB, IKL, IIJE, IIJB
 REAL(KIND=JPHOOK) :: ZHOOK_HANDLE
 IF (LHOOK) CALL DR_HOOK('ICE4_SEDIMENTATION_SPLIT:INTERNAL_SEDIM_SPLIT', 0, ZHOOK_HANDLE)
-- 
GitLab