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

Allow rain evaporation when NMOM_R=1

parent d6c84a80
No related branches found
No related tags found
No related merge requests found
......@@ -582,7 +582,7 @@ IF ((.NOT. LKHKO) .AND. NMOM_R.GE.2) THEN
PA_CR(:) = PA_CR(:) + P_CR_SCBU(:)
END IF
!
IF (NMOM_R.GE.2) THEN
IF (NMOM_R.GE.1) THEN
CALL LIMA_RAIN_EVAPORATION (PTSTEP, LDCOMPUTE, & ! depends on PF > CF
PRHODREF, ZT, ZLV, ZLVFACT, ZEVSAT, ZRVSAT, &
PRVT, ZRCT/ZPF1D, ZRRT/ZPF1D, PCRT/ZPF1D, ZLBDR, &
......
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