|
integer, parameter | ndust = 5 |
|
integer, parameter | ndcls = 3 |
|
integer, parameter | ndsrc = 1 |
|
integer, parameter | maxstypes = 100 |
|
integer, parameter | nsalt = 9 |
|
real(kind_phys), parameter | dyn_visc = 1.5E-5 |
|
real(kind_phys), dimension(ndust), parameter | den_dust = (/ 2500., 2650., 2650., 2650., 2650. /) |
|
real(kind_phys), dimension(ndust), parameter | reff_dust = (/ 0.73D-6, 1.4D-6, 2.4D-6, 4.5D-6, 8.0D-6 /) |
|
real(kind_phys), dimension(ndust), parameter | frac_s = (/ 0.1, 0.25, 0.25, 0.25, 0.25 /) |
|
real(kind_phys), dimension(ndust), parameter | lo_dust = (/ 0.1D-6, 1.0D-6, 1.8D-6, 3.0D-6, 6.0D-6 /) |
|
real(kind_phys), dimension(ndust), parameter | up_dust = (/ 1.0D-6, 1.8D-6, 3.0D-6, 6.0D-6,10.0D-6 /) |
|
integer, parameter | fengsha_maxstypes = 13 |
|
real(kind_phys), dimension(fengsha_maxstypes), parameter | dust_uthres = (/ 0.065, 0.18, 0.27, 0.30, 0.35, 0.38, 0.35, 0.41, 0.41, 0.45, 0.50, 0.45, 9999.0 /) |
|
integer, parameter | dust_calcdrag = 1 |
|
integer | dust_moist_opt = 1 |
|
real(kind_phys) | dust_alpha = 1.0 |
|
real(kind_phys) | dust_gamma = 1.0 |
|
real(kind_phys) | dust_moist_correction = 1.0 |
|
real(kind_phys) | dust_drylimit_factor = 1.0 |
|
integer, dimension(nsalt), parameter | spoint = (/ 1, 2, 2, 2, 2, 2, 3, 3, 3 /) |
|
real(kind_phys), dimension(nsalt), parameter | reff_salt = (/ 0.71D-6, 1.37D-6, 2.63D-6, 5.00D-6, 9.50D-6, 18.1D-6, 34.5D-6, 65.5D-6, 125.D-6 /) |
|
real(kind_phys), dimension(nsalt), parameter | den_salt = (/ 2500., 2650., 2650., 2650., 2650., 2650., 2650., 2650., 2650. /) |
|
real(kind_phys), dimension(nsalt), parameter | frac_salt = (/ 1., 0.2, 0.2, 0.2, 0.2, 0.2, 0.333, 0.333, 0.333 /) |
|
integer, parameter | max_soiltyp = 30 |
|
real(kind_phys), dimension(max_soiltyp), parameter | maxsmc = (/ 0.421, 0.464, 0.468, 0.434, 0.406, 0.465, 0.404, 0.439, 0.421, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000 /) |
|