chem/moduleHETDATA.F

   1       MODULE HETDATA
   2
   3       INTEGER, PARAMETER :: NRXNAERO = 1   ! # of heterogeneous gas-aerosol
   4                                            ! reactions. can be expanded later
   5
   6 ! Constants
   7 ! gas constant in SI units (J/mol-K) (same as RGASUNIV in CONST.EXT)
   8      REAL, PARAMETER :: RSI = 8.314510
   9
  10 ! gas constant in J/kmol-K
  11      REAL, PARAMETER :: RG = RSI * 1.0E3
  12
  13 ! Standard temperature and pressure
  14       REAL, PARAMETER :: TEMP0 = 273.15      ! standard temperature, in degK
  15       REAL, PARAMETER :: PRESS0 = 101325.0        ! standard pressure, in Pa
  16
  17       END MODULE HETDATA
  18 !.......................................................................