C.......................................................................
C Include File  EMIPRS.chem.EXT
C
C Contains:  Gas chemistry emissions processing control parameters
C
C Dependent Upon:  HGRD.EXT, GC_EMIS.EXT, EMIS_LYRS.EXT
C
C Revision History:  prototype
C                    Jeff JAN,FEB,MAR,APR,MAY,JUN,JUL,... 96, 97
C.......................................................................

      LOGICAL    EMISVD              ! gas chem emis processing in vert. diff
      PARAMETER (EMISVD = .FALSE.)
c      INTEGER    NC_VD               ! col dimension for emis in vert. diff
c      PARAMETER (NC_VD = 1)
c      INTEGER    NR_VD               ! row dimension for emis in vert. diff
c      PARAMETER (NR_VD = 1)
c      INTEGER    NL_VD               ! lev dimension for emis in vert. diff
c      PARAMETER (NL_VD = 1)
c      INTEGER    NS_VD               ! spc dimension for emis in vert. diff
c      PARAMETER (NS_VD = 0)
      INTEGER    NEMIS               ! no. of gas chem emis species for vdiff
      PARAMETER (NEMIS = 0 )
c      INTEGER    NEMVD               ! no. of emis species in vdiff for pointer
c      PARAMETER (NEMVD = NEMIS+1)

      LOGICAL    EMISCH              ! gas chem emis processing in gas chem
      PARAMETER (EMISCH = .TRUE.)
      INTEGER    NC_CH               ! col dimension for emis in gas chem
      PARAMETER (NC_CH = NCOLS)
      INTEGER    NR_CH               ! row dimension for emis in gas chem
      PARAMETER (NR_CH = NROWS)
c      INTEGER    NL_CH               ! lev dimension for emis in gas chem
c      PARAMETER (NL_CH = EMISLYRS)
      INTEGER    NL_CH               ! lev dimension for emis in gas chem
      PARAMETER (NL_CH = NLAYS)
      INTEGER    NS_CH               ! spc dimension for emis in gas chem
      PARAMETER (NS_CH = N_GC_EMIS)
c      INTEGER    NECLS   ! no. of cells with emissions sources in gas chem
c      PARAMETER (NECLS = NC_CH * NR_CH * NL_CH)

C.......................................................................
