diff --git a/src/common/micro/mode_ice4_sedimentation_split.F90 b/src/common/micro/mode_ice4_sedimentation_split.F90 index 4390221369162981bf149baa01d972a171634a39..4864c1472fd78e896c504ba1b5d2fd60a9548221 100644 --- a/src/common/micro/mode_ice4_sedimentation_split.F90 +++ b/src/common/micro/mode_ice4_sedimentation_split.F90 @@ -336,7 +336,8 @@ END IF PINPRX(:,:) = 0. ZINVTSTEP=1./PTSTEP ZRSMIN(:) = ICED%XRTMIN(:) * ZINVTSTEP -ZREMAINT(:,:) = PTSTEP +ZREMAINT(:,:) = 0. +ZREMAINT(D%NIB:D%NIE,D%NJB:D%NJE) = PTSTEP ! DO WHILE (ANY(ZREMAINT>0.)) ISEDIM = 0