diff --git a/src/MNH/lima_adjust.f90 b/src/MNH/lima_adjust.f90 index 7d20f4f446f510bc6e5d93eae49f61e0d7642fa4..bb3c7195d7fcb8d091f81af11a7c1a017841fc18 100644 --- a/src/MNH/lima_adjust.f90 +++ b/src/MNH/lima_adjust.f90 @@ -1109,8 +1109,8 @@ DEALLOCATE(ZCTMIN) !* 5.2 compute the cloud fraction PCLDFR (binary !!!!!!!) ! IF ( .NOT. OSUBG_COND ) THEN -! WHERE (PRCS(:,:,:) + PRIS(:,:,:) + PRSS(:,:,:) > 1.E-12 / ZDT) - WHERE (PRCS(:,:,:) + PRIS(:,:,:) > 1.E-12 / ZDT) + WHERE (PRCS(:,:,:) + PRIS(:,:,:) + PRSS(:,:,:) > 1.E-12 / ZDT) +! WHERE (PRCS(:,:,:) + PRIS(:,:,:) > 1.E-12 / ZDT) ZW(:,:,:) = 1. ELSEWHERE ZW(:,:,:) = 0.