Changeset 4879 for LMDZ6/trunk/libf/phylmd/lmdz_lscp_poprecip.F90

Timestamp:

Mar 28, 2024, 5:42:26 PM (7 weeks ago)

Author:

evignon

Message:

petite correction dans poprecip apres l'atelier nuages du jour

File:

• LMDZ6/trunk/libf/phylmd/lmdz_lscp_poprecip.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_lscp_poprecip.F90

@@ -16 +16 @@
 ! evaporation and sublimation
 ! 
-SUBROUTINE poprecip_evapsub( &
+SUBROUTINE poprecip_precld( &
            klon, dtime, iftop, paprsdn, paprsup, pplay, temp, tempupnew, qvap, &
            qprecip, precipfracclr, precipfraccld, &
@@ -648 +648 @@
       !--Exact version, which does not need a barrier because of
       !--the exponential decrease
-      dqlrim = qliq(i) * ( EXP( - dtime * coef_col * snowcld(i) / precipfraccld(i) ) - 1. )
+      dqlrim = qliq(i) * ( EXP( - dtime * coef_rim * snowcld(i) / precipfraccld(i) ) - 1. )
 
       !--Add tendencies