Changeset 4879 for LMDZ6/trunk/libf/phylmd/lmdz_lscp.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.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, &