From 52c6fc6ecf66a716c53c2b101b6cb2e1a96f1a14 Mon Sep 17 00:00:00 2001
From: VIE Benoit <vie@sxphynh>
Date: Tue, 14 Nov 2023 19:14:34 +0100
Subject: [PATCH] Add test on NMOM_R in radar_rain_ice for LIMA

---
 src/mesonh/micro/radar_rain_ice.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/mesonh/micro/radar_rain_ice.f90 b/src/mesonh/micro/radar_rain_ice.f90
index f90059caf..ae504233f 100644
--- a/src/mesonh/micro/radar_rain_ice.f90
+++ b/src/mesonh/micro/radar_rain_ice.f90
@@ -254,8 +254,8 @@ IF (SIZE(PRT,4) >= 3) THEN
   Z3=7.8
 !
   ZLBDA(:,:,:) = 0.0
-  IF (CCLOUD == 'LIMA') THEN
-    GRAIN(:,:,:) =( (PRT(:,:,:,3).GT.XRTMIN_L(3)).AND.  PCRT(:,:,:).GT.0.0)     
+  IF (CCLOUD == 'LIMA' .AND. NMOM_R.GE.2) THEN
+    GRAIN(:,:,:) =( PRT(:,:,:,3).GT.XRTMIN_L(3) .AND. PCRT(:,:,:).GT.0.0)     
     ZLBEX=1.0/(-XBR_L)
     ZLB_L(:,:,:)=( XAR_L*PCRT(:,:,:)*PRHODREF(:,:,:)*MOMG(XALPHAR_L,XNUR_L,XBR_L) )**(-ZLBEX)
     WHERE( GRAIN(:,:,:) )
-- 
GitLab