Changeset 4910 for LMDZ6/trunk/libf/phylmd/lmdz_lscp_ini.F90
- Timestamp:
- Apr 18, 2024, 6:16:25 PM (4 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/lmdz_lscp_ini.F90
r4898 r4910 12 12 !$OMP THREADPRIVATE(ok_bug_fonte_lscp) 13 13 14 REAL, SAVE, PROTECTED :: seuil_neb=0.001 ! cloud fraction threshold: a cloud really existswhen exceeded14 REAL, SAVE, PROTECTED :: seuil_neb=0.001 ! cloud fraction threshold: a cloud can precipitate when exceeded 15 15 !$OMP THREADPRIVATE(seuil_neb) 16 17 REAL, SAVE, PROTECTED :: min_neb_th=1e-10 ! a cloud produced by bi-gaussian really exists when exceeded 18 !$OMP THREADPRIVATE(min_neb_th) 19 20 REAL, SAVE, PROTECTED :: min_frac_thermals=1.e-10 ! minimum thermals fraction for use of bigaussian distribution 21 !$OMP THREADPRIVATE(min_frac_thermals) 16 22 17 23 INTEGER, SAVE :: lunout, prt_level ! Logical unit number and level for standard output … … 43 49 !$OMP THREADPRIVATE(a_tr_sca) 44 50 45 INTEGER, SAVE, PROTECTED :: iflag_mpc_bl=0 ! flag to activate boundary layer mixed phase cloud param46 !$OMP THREADPRIVATE( iflag_mpc_bl)47 51 REAL, SAVE, PROTECTED :: min_frac_th_cld=1.e-10 ! minimum thermal fraction to compute a thermal cloud fraction 52 !$OMP THREADPRIVATE(min_frac_th_cld) 53 48 54 LOGICAL, SAVE, PROTECTED :: ok_radocond_snow=.false. ! take into account the mass of ice precip in the cloud ice content seen by radiation 49 55 !$OMP THREADPRIVATE(ok_radocond_snow) … … 260 266 CALL getin_p('iflag_evap_prec',iflag_evap_prec) 261 267 CALL getin_p('seuil_neb',seuil_neb) 262 CALL getin_p('iflag_mpc_bl',iflag_mpc_bl)263 268 CALL getin_p('ok_radocond_snow',ok_radocond_snow) 264 269 CALL getin_p('t_glace_max',t_glace_max) … … 320 325 WRITE(lunout,*) 'lscp_ini, iflag_evap_prec:', iflag_evap_prec 321 326 WRITE(lunout,*) 'lscp_ini, seuil_neb:', seuil_neb 322 WRITE(lunout,*) 'lscp_ini, iflag_mpc_bl:', iflag_mpc_bl323 327 WRITE(lunout,*) 'lscp_ini, ok_radocond_snow:', ok_radocond_snow 324 328 WRITE(lunout,*) 'lscp_ini, t_glace_max:', t_glace_max
Note: See TracChangeset
for help on using the changeset viewer.