From 8c54403ad2ff27e353d0fbe885f5eb0b9b70d243 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Thu, 23 Feb 2023 14:20:33 +0100
Subject: [PATCH] Quentin 23/02/2023: bugfix ice4 sedimentation, SNOW LBDAS
computation criteria was not done on the use of ZQP before commit c2529c7 :
ZLBDAS for SNOW cas computed on rain_ice.f90 around l.483
---
src/common/micro/mode_ice4_sedimentation_stat.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/common/micro/mode_ice4_sedimentation_stat.F90 b/src/common/micro/mode_ice4_sedimentation_stat.F90
index ba8e117d1..bf5a71b55 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
--
GitLab