Changeset 5045

Timestamp:

Jul 10, 2024, 9:36:19 PM (6 months ago)

Author:

evignon

Message:

update de l'efficacite d'aggregation dans poprecip

File:

• LMDZ6/trunk/libf/phylmd/lmdz_lscp_poprecip.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/lmdz_lscp_poprecip.F90

@@ -560 +560 @@
 
     !--Same as for aggregation
-    !--Eff_snow_liq formula: following Milbrandt and Yau 2005,
+    !--Eff_snow_liq formula:
     !--it s a product of a collection efficiency and a sticking efficiency
-    Eff_snow_ice = 0.05 * EXP( 0.1 * ( temp(i) - RTT ) )
+    ! Milbrandt and Yau formula that gives very low values:
+    ! Eff_snow_ice = 0.05 * EXP( 0.1 * ( temp(i) - RTT ) )
+    ! Lin 1983's formula 
+    Eff_snow_ice = EXP( 0.025 * MIN( ( temp(i) - RTT ), 0.) ) 
     !--rho_snow formula follows Brandes et al. 2007 (JAMC)
     rho_snow = 1.e3 * 0.178 * ( r_snow * 2. * 1000. )**(-0.922)