From c6dbf1656f001507f53dde7f7de57736830a7ccc Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 19 Feb 2021 09:36:10 +0100
Subject: [PATCH] Philippe 19/02/2021: bugfix: correct condition for NSEDIRR
(cherry picked from commit 902578994193673e26fabd78e22391ede9692991)
---
src/MNH/ini_budget.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/ini_budget.f90 b/src/MNH/ini_budget.f90
index 2b07be060..4124f4089 100644
--- a/src/MNH/ini_budget.f90
+++ b/src/MNH/ini_budget.f90
@@ -1819,7 +1819,7 @@ IF (LBU_RRR) THEN
IPROC=IPROC+1
IF ((HCLOUD == 'C2R2'.OR. HCLOUD == 'KHKO') .AND. LRAIN) IPROACTV(8,IPROC) = NREVARR
IPROC=IPROC+1
- IF ( CELEC/='NONE' .AND. ( HCLOUD == 'C2R2' .OR. HCLOUD == 'KHKO' .OR. &
+ IF ( CELEC=='NONE' .AND. ( HCLOUD == 'C2R2' .OR. HCLOUD == 'KHKO' .OR. &
(HCLOUD(1:3) == 'ICE' .AND. .NOT. (LRED)) .OR. &
(HCLOUD(1:3) == 'ICE' .AND. LRED .AND. LSEDIM_AFTER))) &
IPROACTV(8,IPROC) = NSEDIRR
--
GitLab