From a3842c3e4dd560ba9940ae08d08bfe82d5c4c58e Mon Sep 17 00:00:00 2001
From: VIE Benoit <vie@sxphynh>
Date: Thu, 8 Sep 2022 14:25:41 +0200
Subject: [PATCH] bugfix
---
src/MNH/lima_graupel.f90 | 2 +-
src/MNH/lima_mixed_fast_processes.f90 | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/lima_graupel.f90 b/src/MNH/lima_graupel.f90
index ec51cbc55..00ad1646a 100644
--- a/src/MNH/lima_graupel.f90
+++ b/src/MNH/lima_graupel.f90
@@ -489,7 +489,7 @@ ZZW(:) = 0.0
NHAIL = 0.
IF (LHAIL) NHAIL = 1.
WHERE( LDCOMPUTE(:) .AND. PRGT(:)>XRTMIN(6) .AND. PT(:)<XTT .AND. &
- (ZRDRYG(:)-ZZW2(:)-ZZW3(:))>=(ZRWETG(:)-ZZW5(:)-ZZW6(:)) .AND. ZRWETG(:)>0.0 )
+ (ZRDRYG(:)-ZZW2(:)-ZZW3(:))>=(ZRWETG(:)-ZZW5(:)-ZZW6(:)) .AND. ZRWETG(:)-ZZW5(:)-ZZW6(:)>0.0 )
!
! Mass of rain and cloud droplets frozen by graupel in wet mode : RCWETG + RRWETG = RWETG - RIWETG - RSWETG
ZZW7(:) = ZRWETG(:) - ZZW5(:) - ZZW6(:)
diff --git a/src/MNH/lima_mixed_fast_processes.f90 b/src/MNH/lima_mixed_fast_processes.f90
index ff363c647..b3cfaa7e1 100644
--- a/src/MNH/lima_mixed_fast_processes.f90
+++ b/src/MNH/lima_mixed_fast_processes.f90
@@ -1508,7 +1508,7 @@ NHAIL = 0.
IF (LHAIL) NHAIL = 1.
WHERE( PRGT1D(:)>XRTMIN(6) .AND. PZT(:)<XTT .AND. &
- (ZRDRYG(:)-ZZW1(:,2)-ZZW1(:,3))>=(ZRWETG(:)-ZZW1(:,5)-ZZW1(:,6)) .AND. ZRWETG(:)-ZZW1(JJ,5)-ZZW1(JJ,6)>0.0 )
+ (ZRDRYG(:)-ZZW1(:,2)-ZZW1(:,3))>=(ZRWETG(:)-ZZW1(:,5)-ZZW1(:,6)) .AND. ZRWETG(:)-ZZW1(:,5)-ZZW1(:,6)>0.0 )
!
ZZW(:) = ZRWETG(:) - ZZW1(:,5) - ZZW1(:,6) ! RCWETG+RRWETG
!
--
GitLab