chem/moduleHETAERO.F

   1       MODULE HETAERO
   2
   3       USE HETDATA
   4
   5 ! Flag to turn on/off heterogeneous reactions on the surface of
   6 ! particles
   7       INTEGER, PARAMETER :: IAERORATE = 1
   8
   9 ! Assign species indices for gas-phase species that participate in
  10 ! heterogeneous reactions on aerosol surface,can be expanded
  11       INTEGER, PARAMETER :: ISO2     = 1
  12
  13 ! Molecular weights of gas species for each reaction
  14       REAL :: XMOLWEI( NRXNAERO )
  15       DATA XMOLWEI/ 64.0 /
  16
  17 ! Assign gas-phase diffusivity [cm^2/s] at 273.15 K
  18       REAL :: DG0( NRXNAERO )
  19       DATA DG0 / 0.1151 /
  20
  21 ! Species uptake coefficients for gas-aerosol reactions
  22 ! Assign the reaction probability according to
  23 ! Jacob, 2000, Atmos. Environ, 34, 2131-2159
  24 ! NGAMMA = 1 Using the recommended median value
  25 ! NGAMMA = 2 Using the low bound value
  26 ! NGAMMA = 3 Using the high bound value
  27       INTEGER, PARAMETER :: NGAMMA = 2
  28
  29       END MODULE HETAERO
  30 !.......................................................................