C RCS file, release, date & time of last delta, author, state, [and locker]
C $Header: /project/air5/sjr/CMAS4.5/rel/models/include/ICL/src/fixed/emctrl/EMISPRM.chem.EXT,v 1.1.1.1 2005/09/09 19:03:10 sjr Exp $ 

C what(1) key, module and SID; SCCS file; date and time of last delta:
C @(#)EMISPRM.chem.EXT  2.1 /project/mod3/ICL/src/fixed/emctrl/SCCS/s.EMISPRM.chem.EXT 07 Jun 1997 09:17:08

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.......................................................................