C.......................................................................
C Include File  EMISPR.vdif.EXT

C Contains:  Gas chemistry emissions processing control parameters

C Dependent Upon:  HGRD.EXT, GC_EMIS.EXT, EMIS_LYRS.EXT

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 = .TRUE.)
c      INTEGER    NC_VD               ! col dimension for emis in vert. diff
c      PARAMETER (NC_VD = NCOLS)
c      INTEGER    NR_VD               ! row dimension for emis in vert. diff
c      PARAMETER (NR_VD = NROWS)
c      INTEGER    NL_VD               ! lev dimension for emis in vert. diff
c      PARAMETER (NL_VD = EMISLYRS)
c      INTEGER    NS_VD               ! spc dimension for emis in vert. diff
c      PARAMETER (NS_VD = N_GC_EMIS)
      INTEGER    NEMIS               ! no. of gas chem emis species for vdiff
      PARAMETER (NEMIS = N_GC_EMIS)
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 = .FALSE.)
      INTEGER    NC_CH               ! col dimension for emis in gas chem
      PARAMETER (NC_CH = 1)
      INTEGER    NR_CH               ! row dimension for emis in gas chem
      PARAMETER (NR_CH = 1)
      INTEGER    NL_CH               ! lev dimension for emis in gas chem
      PARAMETER (NL_CH = 1)
      INTEGER    NS_CH               ! spc dimension for emis in gas chem
      PARAMETER (NS_CH = 1)
c      INTEGER    NECLS   ! no. of cells with emissions sources in gas chem
c      PARAMETER (NECLS = 0)

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