diff --git a/src/common/micro/mode_ice4_sedimentation_stat.F90 b/src/common/micro/mode_ice4_sedimentation_stat.F90 index ba8e117d1d4bf185aa5ab8491d8212c6fd70fffa..bf5a71b554dca4a76a0df8c346eb36cc865e6420 100644 --- a/src/common/micro/mode_ice4_sedimentation_stat.F90 +++ b/src/common/micro/mode_ice4_sedimentation_stat.F90 @@ -366,7 +366,7 @@ CONTAINS ! ******* for snow DO JIJ = IIJB, IIJE ZQP=ZSED(JIJ,IKPLUS,JRR)*ZTSORHODZ(JIJ) - IF ((PRXT(JIJ) > ICED%XRTMIN(JRR)) .OR. (ZQP > ICED%XRTMIN(JRR))) THEN + IF ((PRXT(JIJ) > ICED%XRTMIN(JRR)) ) THEN !Compute lambda_snow parameter IF (PARAMI%LSNOW_T) THEN IF(PT(JIJ,JK)>CST%XTT-10.0) THEN