Skip to content
Snippets Groups Projects
Commit 52c6fc6e authored by VIE Benoit's avatar VIE Benoit Committed by RODIER Quentin
Browse files

Add test on NMOM_R in radar_rain_ice for LIMA

parent f700e25e
No related branches found
No related tags found
No related merge requests found
......@@ -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(:,:,:) )
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment