From 3545e53610c5691787e3aaaa7e6b9a8cd39d5fb5 Mon Sep 17 00:00:00 2001
From: Gaelle DELAUTIER <gaelle.delautier@meteo.fr>
Date: Thu, 19 Oct 2017 14:54:51 +0200
Subject: [PATCH] C.Lac 10/2017 : bug for LIMA
---
src/MNH/drag_veg.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/drag_veg.f90 b/src/MNH/drag_veg.f90
index a7446291b..d525e5b81 100644
--- a/src/MNH/drag_veg.f90
+++ b/src/MNH/drag_veg.f90
@@ -257,7 +257,7 @@ IF (ODEPOTREE) THEN
IF (GDEP(JI,JJ,JK)) THEN
PRRS(JI,JJ,JK,2) = PRRS(JI,JJ,JK,2) + (ZWDEPR(JI,JJ,JK+1)-ZWDEPR(JI,JJ,JK))/ &
(PZZ(JI,JJ,JK+1)-PZZ(JI,JJ,JK))
- IF ((HCLOUD=='C2R2') .OR. (HCLOUD=='KHKO')) THEN
+ IF ((HCLOUD=='C2R2') .OR. (HCLOUD=='KHKO').OR. (HCLOUD=='LIMA')) THEN
PSVS(JI,JJ,JK,NSV_C2R2BEG+1) = PSVS(JI,JJ,JK,NSV_C2R2BEG+1) + &
(ZWDEPS(JI,JJ,JK+1)-ZWDEPS(JI,JJ,JK))/(PZZ(JI,JJ,JK+1)-PZZ(JI,JJ,JK))
END IF
--
GitLab