modd_chs_aerosol.F90 File Reference

Go to the source code of this file.

Modules
module	modd_chs_aerosol

Variables
logical	modd_chs_aerosol::lch_aero_flux = .FALSE.
logical	modd_chs_aerosol::lco2pm = .FALSE.
logical	modd_chs_aerosol::lvarsigi = .FALSE.
logical	modd_chs_aerosol::lvarsigj = .FALSE.
integer, parameter	modd_chs_aerosol::jpmode =2
integer, parameter	modd_chs_aerosol::jpin =JPMODE*3
integer, dimension(jpmode), save	modd_chs_aerosol::nm0
integer, dimension(jpmode), save	modd_chs_aerosol::nm3
integer, dimension(jpmode), save	modd_chs_aerosol::nm6
integer, parameter	modd_chs_aerosol::nsp =4
integer, parameter	modd_chs_aerosol::jp_aer_so4 = 1
integer, parameter	modd_chs_aerosol::jp_aer_no3 = 2
integer, parameter	modd_chs_aerosol::jp_aer_nh3 = 3
integer, parameter	modd_chs_aerosol::jp_aer_h2o = 4
integer, parameter	modd_chs_aerosol::jp_aer_so4g = JP_AER_SO4
integer, parameter	modd_chs_aerosol::jp_aer_no3g = JP_AER_NO3
integer, parameter	modd_chs_aerosol::jp_aer_nh3g = JP_AER_NH3
integer, parameter	modd_chs_aerosol::ncarb =3
integer, parameter	modd_chs_aerosol::jp_aer_oc = 5
integer, parameter	modd_chs_aerosol::jp_aer_bc = 6
integer, parameter	modd_chs_aerosol::jp_aer_dst = 7
integer	modd_chs_aerosol::nsoa = 10
integer	modd_chs_aerosol::nm6_aer = 2
integer	modd_chs_aerosol::jp_aer_soa1 = 8
integer	modd_chs_aerosol::jp_aer_soa2 = 9
integer	modd_chs_aerosol::jp_aer_soa3 = 10
integer	modd_chs_aerosol::jp_aer_soa4 = 11
integer	modd_chs_aerosol::jp_aer_soa5 = 12
integer	modd_chs_aerosol::jp_aer_soa6 = 13
integer	modd_chs_aerosol::jp_aer_soa7 = 14
integer	modd_chs_aerosol::jp_aer_soa8 = 15
integer	modd_chs_aerosol::jp_aer_soa9 = 16
integer	modd_chs_aerosol::jp_aer_soa10 = 17
character(len=32), dimension(:), allocatable	modd_chs_aerosol::caeronames
integer	modd_chs_aerosol::jp_ch_so4i = 1
integer	modd_chs_aerosol::jp_ch_so4j = 2
integer	modd_chs_aerosol::jp_ch_no3i = 3
integer	modd_chs_aerosol::jp_ch_no3j = 4
integer	modd_chs_aerosol::jp_ch_nh3i = 5
integer	modd_chs_aerosol::jp_ch_nh3j = 6
integer	modd_chs_aerosol::jp_ch_h2oi = 7
integer	modd_chs_aerosol::jp_ch_h2oj = 8
integer	modd_chs_aerosol::jp_ch_oci = 9
integer	modd_chs_aerosol::jp_ch_ocj = 10
integer	modd_chs_aerosol::jp_ch_bci = 11
integer	modd_chs_aerosol::jp_ch_bcj = 12
integer	modd_chs_aerosol::jp_ch_dsti = 13
integer	modd_chs_aerosol::jp_ch_dstj = 14
integer	modd_chs_aerosol::jp_ch_soa1i = 15
integer	modd_chs_aerosol::jp_ch_soa1j = 16
integer	modd_chs_aerosol::jp_ch_soa2i = 17
integer	modd_chs_aerosol::jp_ch_soa2j = 18
integer	modd_chs_aerosol::jp_ch_soa3i = 19
integer	modd_chs_aerosol::jp_ch_soa3j = 20
integer	modd_chs_aerosol::jp_ch_soa4i = 21
integer	modd_chs_aerosol::jp_ch_soa4j = 22
integer	modd_chs_aerosol::jp_ch_soa5i = 23
integer	modd_chs_aerosol::jp_ch_soa5j = 24
integer	modd_chs_aerosol::jp_ch_soa6i = 25
integer	modd_chs_aerosol::jp_ch_soa6j = 26
integer	modd_chs_aerosol::jp_ch_soa7i = 27
integer	modd_chs_aerosol::jp_ch_soa7j = 28
integer	modd_chs_aerosol::jp_ch_soa8i = 29
integer	modd_chs_aerosol::jp_ch_soa8j = 30
integer	modd_chs_aerosol::jp_ch_soa9i = 31
integer	modd_chs_aerosol::jp_ch_soa9j = 32
integer	modd_chs_aerosol::jp_ch_soa10i = 33
integer	modd_chs_aerosol::jp_ch_soa10j = 34
integer	modd_chs_aerosol::jp_ch_m0i = 35
integer	modd_chs_aerosol::jp_ch_m0j = 36
integer	modd_chs_aerosol::jp_ch_m6i = 37
integer	modd_chs_aerosol::jp_ch_m6j = 38
integer	modd_chs_aerosol::jp_ch_hno3
integer	modd_chs_aerosol::jp_ch_h2so4
integer	modd_chs_aerosol::jp_ch_nh3
integer	modd_chs_aerosol::jp_ch_o3
integer	modd_chs_aerosol::jp_ch_co
integer	modd_chs_aerosol::jp_ch_urg1
integer	modd_chs_aerosol::jp_ch_urg2
integer	modd_chs_aerosol::jp_ch_rpg2
integer	modd_chs_aerosol::jp_ch_rp18
integer	modd_chs_aerosol::jp_ch_ur26
integer	modd_chs_aerosol::jp_ch_rpg3
integer	modd_chs_aerosol::jp_ch_urg4
integer	modd_chs_aerosol::jp_ch_ur8
integer	modd_chs_aerosol::jp_ch_ur17
integer	modd_chs_aerosol::jp_ch_ur7
integer	modd_chs_aerosol::jp_ch_urg6
integer	modd_chs_aerosol::jp_ch_arac
integer	modd_chs_aerosol::jp_ch_urg7
integer	modd_chs_aerosol::jp_ch_rpg7
integer	modd_chs_aerosol::jp_ch_rpr7
integer	modd_chs_aerosol::jp_ch_urg8
integer	modd_chs_aerosol::jp_ch_ur19
integer	modd_chs_aerosol::jp_ch_urg9
integer	modd_chs_aerosol::jp_ch_urg10
integer	modd_chs_aerosol::jp_ch_pan8
integer	modd_chs_aerosol::jp_ch_ur22
integer	modd_chs_aerosol::jp_ch_rpr4
integer	modd_chs_aerosol::jp_ch_ap7
integer	modd_chs_aerosol::jp_ch_rpr3
integer	modd_chs_aerosol::jp_ch_ur21
integer	modd_chs_aerosol::jp_ch_ur28
integer	modd_chs_aerosol::jp_ch_ur29
integer	modd_chs_aerosol::jp_ch_ur30
integer	modd_chs_aerosol::jp_ch_rpr9
integer	modd_chs_aerosol::jp_ch_rp12
integer	modd_chs_aerosol::jp_ch_ur3
integer	modd_chs_aerosol::jp_ch_ur23
integer	modd_chs_aerosol::jp_ch_ur31
integer	modd_chs_aerosol::jp_ch_ap1
integer	modd_chs_aerosol::jp_ch_ap6
integer	modd_chs_aerosol::jp_ch_adac
integer	modd_chs_aerosol::jp_ch_ur2
integer	modd_chs_aerosol::jp_ch_ur14
integer	modd_chs_aerosol::jp_ch_ur27
integer	modd_chs_aerosol::jp_ch_rp14
integer	modd_chs_aerosol::jp_ch_rp19
integer	modd_chs_aerosol::jp_ch_ur11
integer	modd_chs_aerosol::jp_ch_ur15
integer	modd_chs_aerosol::jp_ch_ap10
integer	modd_chs_aerosol::jp_ch_ur20
integer	modd_chs_aerosol::jp_ch_ur34
integer	modd_chs_aerosol::jp_ch_ap11
integer	modd_chs_aerosol::jp_ch_ap12
integer	modd_chs_aerosol::jp_ch_ur5
integer	modd_chs_aerosol::jp_ch_ur6
integer	modd_chs_aerosol::jp_ch_ap8
integer	modd_chs_aerosol::jp_ch_h2o2
integer	modd_chs_aerosol::jp_ch_so2
integer	modd_chs_aerosol::jp_ch_so42m
real, parameter	modd_chs_aerosol::xhno3 =63.01287
real, parameter	modd_chs_aerosol::xnh3 =17.03061
real, parameter	modd_chs_aerosol::xurg1 =88.
real, parameter	modd_chs_aerosol::xurg2 =1.76981E+02
real, parameter	modd_chs_aerosol::xrpg2 =1.68000E+02
real, parameter	modd_chs_aerosol::xrp18 =1.84000E+02
real, parameter	modd_chs_aerosol::xrpg3 =1.53772E+02
real, parameter	modd_chs_aerosol::xurg4 =1.95867E+02
real, parameter	modd_chs_aerosol::xur17 =1.72000E+02
real, parameter	modd_chs_aerosol::xrpr3 =1.86000E+02
real, parameter	modd_chs_aerosol::xap7 =2.33000E+02
real, parameter	modd_chs_aerosol::xurg6 =1.89153E+02
real, parameter	modd_chs_aerosol::xur22 =2.12000E+02
real, parameter	modd_chs_aerosol::xurg7 =1.56781E+02
real, parameter	modd_chs_aerosol::xrpr4 =1.67000E+02
real, parameter	modd_chs_aerosol::xrpr7 =1.50000E+02
real, parameter	modd_chs_aerosol::xrpg7 =1.96059E+02
real, parameter	modd_chs_aerosol::xurg8 =1.73777E+02
real, parameter	modd_chs_aerosol::xurg9 =2.61676E+02
real, parameter	modd_chs_aerosol::xur26 =1.68000E+02
real, parameter	modd_chs_aerosol::xurg10 =2.14834E+02
real, parameter	modd_chs_aerosol::xur7 =1.68000E+02
real, parameter	modd_chs_aerosol::xur8 =1.84000E+02
real, parameter	modd_chs_aerosol::xpan8 =2.63000E+02
real, parameter	modd_chs_aerosol::xarac =1.32000E+02
real, parameter	modd_chs_aerosol::xur19 =1.70000E+02
real	modd_chs_aerosol::xemisradiusi = 0.036
real	modd_chs_aerosol::xemisradiusj = 0.385
real	modd_chs_aerosol::xemissigi = 1.86
real	modd_chs_aerosol::xemissigj = 1.29
character *4	modd_chs_aerosol::crgunit = 'NUMB'
real, parameter	modd_chs_aerosol::xpboltz =1.380658e-23
real, parameter	modd_chs_aerosol::xavogadro =6.0221367E+23
real, parameter	modd_chs_aerosol::xmd = 28.9644E-3