Skip to content
Snippets Groups Projects
Commit 8c54403a authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 23/02/2023: bugfix ice4 sedimentation, SNOW LBDAS computation criteria...

Quentin 23/02/2023: bugfix ice4 sedimentation, SNOW LBDAS computation criteria was not done on the use of ZQP before commit c2529c75 :
ZLBDAS for SNOW cas computed on rain_ice.f90 around l.483
parent fa12e9fc
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment