Changeset 5025 for LMDZ6/branches/cirrus/libf
- Timestamp:
- Jul 8, 2024, 10:43:04 AM (5 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/cirrus/libf/phylmd/lmdz_lscp_ini.F90
r5019 r5025 158 158 !$OMP THREADPRIVATE(mu_subl_pdf_lscp) 159 159 160 REAL, SAVE, PROTECTED :: beta_pdf_lscp= 2.8e-3 ! []160 REAL, SAVE, PROTECTED :: beta_pdf_lscp=8.75E-4 ! [] tuning coefficient for the standard deviation of the PDF of water vapor in the clear sky region 161 161 !$OMP THREADPRIVATE(beta_pdf_lscp) 162 162 163 REAL, SAVE, PROTECTED :: temp_thresh_pdf_lscp=188. ! [K] below this temperature, water vapor is homoegeneously distributed in the clear sky region163 REAL, SAVE, PROTECTED :: temp_thresh_pdf_lscp=188. ! [K] factor for the PDF fit of water vapor in UTLS - below this temperature, water vapor is homogeneously distributed in the clear sky region 164 164 !$OMP THREADPRIVATE(temp_thresh_pdf_lscp) 165 165 166 REAL, SAVE, PROTECTED :: rhlmid_pdf_lscp=5 7.6 ! [%]166 REAL, SAVE, PROTECTED :: rhlmid_pdf_lscp=52.8 ! [%] factor for the PDF fit of water vapor in UTLS - below this rel hum wrt liq, std increases with RHliq, above it decreases with RHliq 167 167 !$OMP THREADPRIVATE(rhlmid_pdf_lscp) 168 168 169 REAL, SAVE, PROTECTED :: k0_pdf_lscp= 1.75 ! [-] minimum value of the shape parameter for the weibull law169 REAL, SAVE, PROTECTED :: k0_pdf_lscp=2.80 ! [-] factor for the PDF fit of water vapor in UTLS 170 170 !$OMP THREADPRIVATE(k0_pdf_lscp) 171 171 172 REAL, SAVE, PROTECTED :: kappa_pdf_lscp=0.0 147 ! []172 REAL, SAVE, PROTECTED :: kappa_pdf_lscp=0.0236 ! [] factor for the PDF fit of water vapor in UTLS 173 173 !$OMP THREADPRIVATE(kappa_pdf_lscp) 174 174 175 REAL, SAVE, PROTECTED :: rhl0_pdf_lscp=8 1.5 ! [%]175 REAL, SAVE, PROTECTED :: rhl0_pdf_lscp=88.7 ! [%] factor for the PDF fit of water vapor in UTLS 176 176 !$OMP THREADPRIVATE(rhl0_pdf_lscp) 177 177 178 REAL, SAVE, PROTECTED :: cond_thresh_pdf_lscp=1.E- 7 ! [-]178 REAL, SAVE, PROTECTED :: cond_thresh_pdf_lscp=1.E-10 ! [-] threshold for the formation of new cloud 179 179 !$OMP THREADPRIVATE(cond_thresh_pdf_lscp) 180 180 181 REAL, SAVE, PROTECTED :: a_homofreez=2.349 ! [-] 181 REAL, SAVE, PROTECTED :: a_homofreez=2.349 ! [-] factor for the Koop homogeneous freezing fit 182 182 !$OMP THREADPRIVATE(a_homofreez) 183 183 184 REAL, SAVE, PROTECTED :: b_homofreez=259. ! [K] 184 REAL, SAVE, PROTECTED :: b_homofreez=259. ! [K] factor for the Koop homogeneous freezing fit 185 185 !$OMP THREADPRIVATE(b_homofreez) 186 186 … … 188 188 !$OMP THREADPRIVATE(delta_hetfreez) 189 189 190 REAL, SAVE, PROTECTED :: coef_mixing_lscp=1e-7 ! [-] 190 REAL, SAVE, PROTECTED :: coef_mixing_lscp=1e-7 ! [-] tuning coefficient for the mixing process 191 191 !$OMP THREADPRIVATE(coef_mixing_lscp) 192 192 193 REAL, SAVE, PROTECTED :: coef_shear_lscp=0.1 ! [-] 193 REAL, SAVE, PROTECTED :: coef_shear_lscp=0.1 ! [-] additional coefficient for the shearing process (subprocess of the mixing process) 194 194 !$OMP THREADPRIVATE(coef_shear_lscp) 195 195 196 REAL, SAVE, PROTECTED :: chi_mixing_lscp=1.1 ! [-] 196 REAL, SAVE, PROTECTED :: chi_mixing_lscp=1.1 ! [-] factor for the macro distribution of ISSRs wrt clouds in a gridbox 197 197 !$OMP THREADPRIVATE(chi_mixing_lscp) 198 198
Note: See TracChangeset
for help on using the changeset viewer.