From d2b0adbc51973e5d99503176d21fd84869d56dab Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Vi=C3=A9?= <benoit.vie@meteo.fr>
Date: Thu, 21 Mar 2024 15:41:36 +0100
Subject: [PATCH] bugfix lima_tendencies.f90
---
src/PHYEX/micro/mode_lima_tendencies.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/PHYEX/micro/mode_lima_tendencies.f90 b/src/PHYEX/micro/mode_lima_tendencies.f90
index 1917e23e8..461fbcdc4 100644
--- a/src/PHYEX/micro/mode_lima_tendencies.f90
+++ b/src/PHYEX/micro/mode_lima_tendencies.f90
@@ -587,7 +587,7 @@ IF (NMOM_R.GE.1) THEN
P_TH_EVAP, P_RR_EVAP, P_CR_EVAP, &
PEVAP3D )
P_RR_EVAP(:) = P_RR_EVAP(:) * MAX((ZPF1D(:) - ZCF1D(:)),0.)
- P_CR_EVAP(:) = P_RR_EVAP(:) * MAX((ZPF1D(:) - ZCF1D(:)),0.)
+ P_CR_EVAP(:) = P_CR_EVAP(:) * MAX((ZPF1D(:) - ZCF1D(:)),0.)
P_TH_EVAP(:) = P_RR_EVAP(:) * ZLVFACT(:)
PEVAP3D(:) = - P_RR_EVAP(:)
!
--
GitLab