diff --git a/src/common/micro/mode_ice4_sedimentation_split.F90 b/src/common/micro/mode_ice4_sedimentation_split.F90 index 8f359ae49d71c30c5a16815d3710a141aa0cf326..597de289d590c5d45f3451248ef22a5e1bc188eb 100644 --- a/src/common/micro/mode_ice4_sedimentation_split.F90 +++ b/src/common/micro/mode_ice4_sedimentation_split.F90 @@ -342,7 +342,7 @@ END IF ! PINPRX(:) = 0. ZINVTSTEP=1./PTSTEP -ZRSMIN(:) = ICED%XRTMIN(:) * ZINVTSTEP +ZRSMIN = ICED%XRTMIN * ZINVTSTEP ZREMAINT(:) = 0. ZREMAINT(IIJB:IIJE) = PTSTEP !