diff --git a/src/MNH/lima_graupel.f90 b/src/MNH/lima_graupel.f90 index ec51cbc555d3246ba3b96ef7415fc866177576c2..00ad1646afd9a083366e53b0bcab3406a243666e 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 ff363c6477e7949d2a8d89d4a87ded4833f127d6..b3cfaa7e12e5515dea8f3207d86dd57ed6d30e0e 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 !