Changeset 5202 for LMDZ6/branches/cirrus/libf/phylmd/lmdz_lscp_poprecip.F90
- Timestamp:
- Sep 20, 2024, 12:32:04 PM (31 hours ago)
- Location:
- LMDZ6/branches/cirrus
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/cirrus
- Property svn:mergeinfo changed
-
LMDZ6/branches/cirrus/libf/phylmd/lmdz_lscp_poprecip.F90
r4974 r5202 559 559 560 560 !--Same as for aggregation 561 !--Eff_snow_liq formula: following Milbrandt and Yau 2005,561 !--Eff_snow_liq formula: 562 562 !--it s a product of a collection efficiency and a sticking efficiency 563 Eff_snow_ice = 0.05 * EXP( 0.1 * ( temp(i) - RTT ) ) 563 ! Milbrandt and Yau formula that gives very low values: 564 ! Eff_snow_ice = 0.05 * EXP( 0.1 * ( temp(i) - RTT ) ) 565 ! Lin 1983's formula 566 Eff_snow_ice = EXP( 0.025 * MIN( ( temp(i) - RTT ), 0.) ) 564 567 !--rho_snow formula follows Brandes et al. 2007 (JAMC) 565 568 rho_snow = 1.e3 * 0.178 * ( r_snow * 2. * 1000. )**(-0.922) … … 653 656 !--NB.: this process needs a temperature adjustment 654 657 655 !--Eff_snow_liq formula: following Seifert and Beheng 2006,656 !--assuming a cloud droplet diameter of 20 microns.657 Eff_snow_liq = 0.2658 !--Eff_snow_liq formula: following Ferrier 1994, 659 !--assuming 1 660 Eff_snow_liq = 1.0 658 661 !--rho_snow formula follows Brandes et al. 2007 (JAMC) 659 662 rho_snow = 1.e3 * 0.178 * ( r_snow * 2. * 1000. )**(-0.922)
Note: See TracChangeset
for help on using the changeset viewer.