Skip to content
Snippets Groups Projects
Commit d2b0adbc authored by VIE Benoît's avatar VIE Benoît Committed by RODIER Quentin
Browse files

bugfix lima_tendencies.f90

parent c63cbd1b
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/PHYEX/micro/mode_lima_tendencies.f90
+ 1
− 1
View file @ d2b0adbc
......@@ -587,7 +587,7 @@ IF (NMOM_R.GE.1) THEN
P_TH_EVAP, P_RR_EVAP, P_CR_EVAP, &
PEVAP3D )
P_RR_EVAP(:) = P_RR_EVAP(:) * MAX((ZPF1D(:) - ZCF1D(:)),0.)
P_CR_EVAP(:) = P_RR_EVAP(:) * MAX((ZPF1D(:) - ZCF1D(:)),0.)
P_CR_EVAP(:) = P_CR_EVAP(:) * MAX((ZPF1D(:) - ZCF1D(:)),0.)
P_TH_EVAP(:) = P_RR_EVAP(:) * ZLVFACT(:)
PEVAP3D(:) = - P_RR_EVAP(:)
!
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme