Changeset 4898 for LMDZ6/trunk/libf/phylmd/lmdz_lscp_ini.F90
- Timestamp:
- Apr 11, 2024, 5:50:38 PM (5 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/lmdz_lscp_ini.F90
r4895 r4898 140 140 !$OMP THREADPRIVATE(ok_poprecip) 141 141 142 REAL, SAVE, PROTECTED :: cld_lc_lsc_snow ! snow autoconversion coefficient, stratiform rain142 REAL, SAVE, PROTECTED :: cld_lc_lsc_snow=2.e-5 ! snow autoconversion coefficient, stratiform. default from Chaboureau and PInty 2006 143 143 !$OMP THREADPRIVATE(cld_lc_lsc_snow) 144 144 145 REAL, SAVE, PROTECTED :: cld_lc_con_snow ! snow autoconversion coefficient, convective rain145 REAL, SAVE, PROTECTED :: cld_lc_con_snow=2.e-5 ! snow autoconversion coefficient, convective 146 146 !$OMP THREADPRIVATE(cld_lc_con_snow) 147 147 … … 166 166 REAL, SAVE, PROTECTED :: rho_ice=920. ! A COMMENTER TODO [kg/m3] 167 167 !$OMP THREADPRIVATE(rho_ice) 168 169 REAL, SAVE, PROTECTED :: rho_snow ! A COMMENTER TODO [kg/m3]170 !$OMP THREADPRIVATE(rho_snow)171 168 172 169 REAL, SAVE, PROTECTED :: r_rain=500.E-6 ! A COMMENTER TODO [m] … … 279 276 CALL getin_p('cld_lc_lsc',cld_lc_lsc) 280 277 CALL getin_p('cld_lc_con',cld_lc_con) 281 cld_lc_lsc_snow=cld_lc_lsc282 cld_lc_con_snow=cld_lc_con283 278 CALL getin_p('cld_lc_lsc_snow',cld_lc_lsc_snow) 284 279 CALL getin_p('cld_lc_con_snow',cld_lc_con_snow) … … 393 388 394 389 395 !--Initialisations of constants depending on other constants396 !--rho_snow formula from r_snow (Brandes et al. 2007 - JAMC)397 rho_snow = 1.e3 * 0.178 * (r_snow * 2. * 1000.)**(-0.922)398 399 400 390 !AA Temporary initialisation 401 391 a_tr_sca(1) = -0.5
Note: See TracChangeset
for help on using the changeset viewer.