From 4a3d6f1781692e70c82bd93707e04faa5f764c56 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Fri, 25 Feb 2022 17:43:09 +0100
Subject: [PATCH] Quentin 25/02/2022: correction of
mode_compute_mf_cloud_direct.F90 from commit 878073e5 (not bit-repro with
MesoNH)
---
src/common/turb/mode_compute_mf_cloud_direct.F90 | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/src/common/turb/mode_compute_mf_cloud_direct.F90 b/src/common/turb/mode_compute_mf_cloud_direct.F90
index 090e49e48..8db27676d 100644
--- a/src/common/turb/mode_compute_mf_cloud_direct.F90
+++ b/src/common/turb/mode_compute_mf_cloud_direct.F90
@@ -90,10 +90,14 @@ PRI_MF(:,:)=0.
PCF_MF(:,:)=0.
DO JI=1,SIZE(PCF_MF,1)
+#ifdef REPRO48
JK0=KKLCL(JI)-KKL ! first mass level with cloud
JK0=MAX(JK0, MIN(KKB,KKE)) !protection if KKL=1
JK0=MIN(JK0, MAX(KKB,KKE)) !protection if KKL=-1
DO JK=JK0,KKE-KKL,KKL
+#else
+ DO JK=KKLCL(JI),KKE-KKL,KKL
+#endif
PCF_MF(JI,JK ) = MAX( 0., MIN(1.,XKCF_MF *0.5* ( &
& PFRAC_UP(JI,JK) + PFRAC_UP(JI,JK+KKL) ) ))
PRC_MF(JI,JK) = 0.5* XKCF_MF * ( PFRAC_UP(JI,JK)*PRC_UP(JI,JK) &
--
GitLab