From 3ac0c888e6ea2a8aaaa0057b3a1fee7aa4888050 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Tue, 31 Jan 2023 15:02:25 +0100
Subject: [PATCH] Quentin 31/01/2023: bugfix LIMA, Ri not initialized in arg of
condensation (bug from plugging with PHYEX)
---
src/mesonh/micro/lima_adjust_split.f90 | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/src/mesonh/micro/lima_adjust_split.f90 b/src/mesonh/micro/lima_adjust_split.f90
index 724b835b9..d0b3425d8 100644
--- a/src/mesonh/micro/lima_adjust_split.f90
+++ b/src/mesonh/micro/lima_adjust_split.f90
@@ -504,12 +504,11 @@ DO JITER =1,ITERMAX
ZRC2=PRCT
ZRV_IN=ZRV
ZRC_IN=ZRC
- ZRI_IN=0.
IF (NMOM_I.EQ.1) THEN
- ZRI=PRIS*PTSTEP
+ ZRI_IN=PRIS*PTSTEP
GUSERI=.TRUE.
ELSE
- ZRI=0.
+ ZRI_IN=0.
GUSERI=.FALSE.
END IF
IF (OSUBG_COND) THEN
--
GitLab