Changeset 5045
- Timestamp:
- Jul 10, 2024, 9:36:19 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/lmdz_lscp_poprecip.F90
r4960 r5045 560 560 561 561 !--Same as for aggregation 562 !--Eff_snow_liq formula: following Milbrandt and Yau 2005,562 !--Eff_snow_liq formula: 563 563 !--it s a product of a collection efficiency and a sticking efficiency 564 Eff_snow_ice = 0.05 * EXP( 0.1 * ( temp(i) - RTT ) ) 564 ! Milbrandt and Yau formula that gives very low values: 565 ! Eff_snow_ice = 0.05 * EXP( 0.1 * ( temp(i) - RTT ) ) 566 ! Lin 1983's formula 567 Eff_snow_ice = EXP( 0.025 * MIN( ( temp(i) - RTT ), 0.) ) 565 568 !--rho_snow formula follows Brandes et al. 2007 (JAMC) 566 569 rho_snow = 1.e3 * 0.178 * ( r_snow * 2. * 1000. )**(-0.922)
Note: See TracChangeset
for help on using the changeset viewer.