diff --git a/src/PHYEX/micro/mode_lima_tendencies.f90 b/src/PHYEX/micro/mode_lima_tendencies.f90 index 1917e23e8fa7ad6f259b5ae0fc26b8c2ab20c831..461fbcdc4eb7cd8b76454dccc592497c8548d564 100644 --- a/src/PHYEX/micro/mode_lima_tendencies.f90 +++ b/src/PHYEX/micro/mode_lima_tendencies.f90 @@ -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(:) !