MODULE chem1_list IMPLICIT NONE CHARACTER(LEN=24),PARAMETER :: chemical_mechanism='VOLCANO' INTEGER,PARAMETER :: maxnspecies= 200 INTEGER,PARAMETER :: nspecies=05 !Name of species CHARACTER(LEN=8),PARAMETER,DIMENSION(nspecies) :: spc_name=(/ & 'SO2 ' & ! ,'CO ' & ! ,'CO2 ' & ! ,'NO ' & ! ,'O3 ' & ! /) !Number of each specie INTEGER,PARAMETER :: SO2 =001 INTEGER,PARAMETER :: CO =002 INTEGER,PARAMETER :: CO2 =003 INTEGER,PARAMETER :: NO =004 INTEGER,PARAMETER :: O3 =005 !for memory allocattion: !This parameters are use for documentation only. !Use them in a program in substitution of numerical terms. INTEGER,PARAMETER :: src = 1 ! source term INTEGER,PARAMETER :: ddp = 2 ! dry deposition INTEGER,PARAMETER :: wdp = 3 ! wet deposition INTEGER,PARAMETER :: fdda = 4! four-dim assimilation INTEGER,PARAMETER :: offline = 5! ! off-line emissions: !=1, emission will be read from file !=0, emission will be calculated during the model simulation (on-line emission) INTEGER,PARAMETER :: transport = 6! ! off-line emissions: !=1, yes !=0, no transport INTEGER,PARAMETER :: on = 1 INTEGER,PARAMETER :: off = 0 ! spaction(specie,[1=source,2=drydep,3=wetdep,4=fdda,5=offline emission,6=transport]) ]) INTEGER,PARAMETER,DIMENSION(6,nspecies) :: spc_alloc=RESHAPE((/ & 1 , 1 , 1 , 0 , 0 , 1 , & ! SO2 - 010 0 , 0 , 0 , 0 , 0 , 0 , & ! CO - 012 0 , 0 , 0 , 0 , 0 , 0 , & ! CO2 - 012 0 , 0 , 0 , 0 , 0 , 0 , & ! NO - 003 0 , 0 , 0 , 0 , 0 , 0 & ! O3 - 001 /),(/6,nspecies/)) INTEGER,PARAMETER,DIMENSION(nspecies) :: spc_uveq=(/ & 00, & ! 00, & ! 00, & ! 00, & ! 00 & ! /) ! HENRYS LAW COEFFICIENTS ! Henrys law coefficient ! [KH298]=mole/(l atm) ! Referencias em R. Sander (1999) ! Compilation of Henry Law Constants ! for Inorganic and Organic Species ! of Potential Importance in ! Environmental Chemistry (Version 3) ! http://www.henrys-law.org ! * indica artigos nao encontrados nesse endereco eletronico REAL,PARAMETER,DIMENSION(nspecies) :: hstar=(/& 1.40E+0 , & ! SO2 - 010 9.90E-4 , & ! CO - 012 3.6E-02 , & ! CO2 - 013 1.90E-3 , & ! NO - 003 1.10E-2 & ! O3 - 001 /) ! [1] Noziere B. et al. The uptake of methyl vinyl ketone, methacrolein, ! and 2-methyl-3-butene-2-olonto sulfuric acid solutions,Journal of Physical ! Chemistry A, Vol.110, No.7, 2387-2395, 2006. ! [2] Abraham M. H. et al. Partition of compounds from gas to water and ! from gas to physiological saline at 310K: Linear free energy relationships, ! elsevier, 2006. REAL,PARAMETER,DIMENSION(nspecies) :: f0=(/& 0.0 , & ! SO2 - 010 0.0 , & ! CO - 012 0.0 , & ! CO2 - 013 0.0 , & ! CO2 - 013 1.0 & ! O3 - 001 /) REAL,PARAMETER,DIMENSION(nspecies) :: difrat=(/& 1.9 , & ! SO2 - 010 1.2 , & ! CO - 012 1.6 , & ! CO2 - 013 1.3 , & ! NO - 003 1.6 & ! O3 - 001 /) ! DIFFUSION COEFFICIENTS ! [DV]=cm2/s (assumed: 1/SQRT(molar mass) when not known) REAL,PARAMETER,DIMENSION(nspecies) :: dvj=(/& 0.1250000 , & ! SO2 - 010 0.1889800 , & ! CO - 012 0.1507600 , & ! CO2 - 013 0.1825700 , & ! NO - 003 0.1443400 & ! O3 - 001 /) ! -DH/R (for temperature correction) ! [-DH/R]=K ! Referencias em R. Sander (1999) ! Compilation of Henry Law Constants ! for Inorganic and Organic Species ! of Potential Importance in ! Environmental Chemistry (Version 3) ! http://www.henrys-law.org REAL,PARAMETER,DIMENSION(nspecies) :: dhr=(/& 2900. , & ! SO2 - 010 1300. , & ! CO - 012 2200. , & ! CO2 - 013 1400. , & ! NO - 003 2400. & ! O3 - 001 /) REAL,PARAMETER,DIMENSION(nspecies) :: weight=(/& 64. , & ! SO2 - 010 28. , & ! CO - 012 44. , & ! CO2 - 013 30. , & ! NO - 003 48. & ! O3 - 001 /) REAL,PARAMETER,DIMENSION(nspecies) :: init_ajust=(/& 1.0 , & ! SO2 - 010 1.0 , & ! CO - 012 1.0 , & ! CO - 012 1.0 , & ! CO - 012 1.0 & ! CO2 - 013 /) REAL,PARAMETER,DIMENSION(nspecies) :: emiss_ajust=(/& 1.0 , & ! SO2 - 010 1.0 , & ! CO - 012 1.0 , & ! CO - 012 1.0 , & ! CO - 012 1.0 & ! CO2 - 013 /) ! ACID DISSOCIATION CONSTANT AT 298K ! [mole/liter of liquid water] ! Referencias: Barth et al. JGR 112, D13310 2007 ! Martell and Smith, 1976, Critical stability ! vol1-4 Plenum Press New York REAL,PARAMETER,DIMENSION(nspecies) :: ak0=(/& 1.30E-02 , & ! SO2 - 010 0.00E+00 , & ! CO - 012 4.50E-07 , & ! CO2 - 013 0.00E+00 , & ! NO - 003 0.00E+00 & ! O3 - 001 /) ! Temperature correction factor for ! acid dissociation constants ! [K] ! Referencias: Barth et al. JGR 112, D13310 2007 REAL,PARAMETER,DIMENSION(nspecies) :: dak=(/& 2000. , & ! SO2 - 010 0. , & ! CO - 012 -1000. , & ! CO2 - 013 0. , & ! NO - 003 0. & ! O3 - 001 /) INTEGER,PARAMETER :: nr =128!Number of gas-phase reactions INTEGER,PARAMETER :: nrt =128!Total Number of reactions INTEGER,PARAMETER :: nrh2o=000!Number of aqueous-phase reactions !------------------------------------------------------------------------------ ! Photolysis Rate Calculation: method used (LUT=look_up_table, FAST-JX= on-line) CHARACTER(LEN=10),PARAMETER :: PhotojMethod= 'LUT' INTEGER,PARAMETER :: maxJcomb= 5, nr_photo= 1 INTEGER,PARAMETER,DIMENSION(nr_photo) :: nfactors=(/ & 0/)! 1 DOUBLE PRECISION,PARAMETER,DIMENSION(maxJcomb,nr_photo) :: factor=RESHAPE((/ & 0.000D+00, 0.000D+00, 0.000D+00, 0.000D+00, 0.000D+00/),(/maxJcomb,nr_photo/)) CHARACTER(LEN=07 ),PARAMETER,DIMENSION(maxJcomb,nr_photo) :: JReactionComp=RESHAPE((/ & "NONE ","NONE ","NONE ","NONE ","NONE "/),(/maxJcomb,nr_photo/)) END MODULE chem1_list