Changeset 4879

Timestamp:

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

Author:

evignon

Message:

petite correction dans poprecip apres l'atelier nuages du jour

Location:

LMDZ6/trunk/libf/phylmd

Files:

• lmdz_lscp.F90 (modified) (2 diffs)
• lmdz_lscp_poprecip.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_lscp.F90

@@ -99 +99 @@
 USE lmdz_lscp_tools, ONLY : fallice_velocity, distance_to_cloud_top
 USE ice_sursat_mod, ONLY : ice_sursat
-USE lmdz_lscp_poprecip, ONLY : poprecip_evapsub, poprecip_postcld
+USE lmdz_lscp_poprecip, ONLY : poprecip_precld, poprecip_postcld
 
 ! Use du module lmdz_lscp_ini contenant les constantes
@@ -422 +422 @@
     IF (ok_poprecip) THEN
 
-            CALL poprecip_evapsub(klon, dtime, iftop, paprs(:,k), paprs(:,k+1), pplay(:,k), &
+            CALL poprecip_precld(klon, dtime, iftop, paprs(:,k), paprs(:,k+1), pplay(:,k), &
                               zt, ztupnew, zq, zmqc, znebprecipclr, znebprecipcld, &
                               zrfl, zrflclr, zrflcld, &

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