From aba6936594fb39751d399ccf638f37cbf292f4bd Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 11 Jun 2020 18:23:49 +0200
Subject: [PATCH] Philippe 11/06/2020: bugfix: add "Non local correction for
precipitating species" for ICE4
---
src/MNH/resolved_cloud.f90 | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/src/MNH/resolved_cloud.f90 b/src/MNH/resolved_cloud.f90
index 34945c07d..9ec614a57 100644
--- a/src/MNH/resolved_cloud.f90
+++ b/src/MNH/resolved_cloud.f90
@@ -271,6 +271,7 @@ END MODULE MODI_RESOLVED_CLOUD
!! 03/2020 (B.Vie) : LIMA negativity checks after turbulence, advection and microphysics budgets
!! B.Vié 03/03/2020 : use DTHRAD instead of dT/dt in Smax diagnostic computation
! P. Wautelet 11/06/2020: bugfix: correct ZSVS array indices
+! P. Wautelet 11/06/2020: bugfix: add "Non local correction for precipitating species" for ICE4
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -590,9 +591,10 @@ ZCPH(:,:,:)=XCPD +XCPV*PRT(:,:,:,1)
!
!* 3.1 Non local correction for precipitating species (Rood 87)
!
-IF (HCLOUD == 'KESS' .OR. HCLOUD == 'ICE3' &
- .OR. HCLOUD == 'C2R2' .OR. &
- HCLOUD == 'C3R5' .OR. HCLOUD == 'KHKO' .OR. HCLOUD=='LIMA' ) THEN
+IF ( HCLOUD == 'KESS' &
+ .OR. HCLOUD == 'ICE3' .OR. HCLOUD == 'ICE4' &
+ .OR. HCLOUD == 'C2R2' .OR. HCLOUD == 'C3R5' &
+ .OR. HCLOUD == 'KHKO' .OR. HCLOUD == 'LIMA' ) THEN
!
DO JRR = 3,KRR
SELECT CASE (JRR)
--
GitLab