Skip to content
Snippets Groups Projects
Commit 67164c9b authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Christine 03/03/2020: change the cloud fraction diagnostic if SUBGCOND=F

parent 8fec3be3
No related branches found
No related tags found
No related merge requests found
......@@ -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.
......
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