c-----------------------------------------------------------------------
c --- COMMON BLOCK /CTRL/ --- Control Variables               POSTUTIL
c-----------------------------------------------------------------------
      real specwt(mxspec,mxspec),bcknh3(12),bcktnh3(12)
      real ascale(mxspec,mxfile),bscale(mxspec,mxfile)
      integer ispecwt(mxspec),ispecno3(7)
      integer ispeci(mxspec,mxfile),ispeco(mxspec,mxfile)
      integer inunit(mxfile),nskip(mxfile)
      integer NH3TYP
      character*12 aspeci(mxspec),aspeco(mxspec)
      character*80 ctitle(3)
      character*3 a3layer
      logical lvisib
      integer metfm
      common/ctrl/isyr,ismo,isdy,jsday,ishr,issec,isdathr,iedathr,iesec,
     &            nper,nspecinp,nspecout,nspeccmp,specwt,ispecwt,nfiles,
     &            inunit,mduplct,nscaled,ascale,bscale,mnitrate,bcknh3,
     &            ispecno3,lvisib,ispeci,ispeco,nmet,imetdat,ncommout,
     &            nskip,aspeci,aspeco,ctitle,metfm,imetrhu,imettmp,imetrho
     &            ,nh3typ,bcktnh3,meqphase,ilayer,a3layer
c-----------------------------------------------------------------------
c     DEFINITIONS   [i]=integer   [r]=real   [a]=array   [L]=logical
c-----------------------------------------------------------------------
c isyr,ismo,isdy Processing start time: year, month, day, hour, sec  [i]
c ishr,issec     (ishr follows (0-23) time convention)
c jsday          Julian day (computed)                               [i]
c isdathr        start year, Julian day, hour (YYYYJJJHH)            [i]
c iedathr        end year, Julian day, hour (YYYYJJJHH)              [i]
c iesec          end time seconds                                    [i]
c nper           Number of periods to process                        [i]
c nspecinp       Number of species needed in input data files        [i]
c nspecout       Number of species written to output data file       [i]
c nspeccmp       Number of species computed from species input       [i]
c specwt         Species weighting factors for computed species     [ra]
c                [actual working area is SPECWT(nspecinp,nspeccmp)]
c ispecwt        Pointer to output species list for computed species[ia]
c                 - aspeco(ispecwt(2)) is the name of the second
c                   computed species
c nfiles         Number of CALPUFF data files processed              [i]
c inunit         Unit numbers for input data files                  [ia]
c mduplct        Species duplication flag                            [i]
c                0 = sum species found in more than 1 file
c                1 = STOP run and warn user
c nscaled        Number of CALPUFF data files that are scaled        [i]
c [a,b]scale     Scale factors (A,B where x'=Ax+B)                  [ra]
c                   ascale(mxspec,mxfile) = A
c                   bscale(mxspec,mxfile) = B
c mnitrate       Nitrate partition flag                              [i]
c                0 = do not recalculate HNO3/NO3 concentrations
c                1 = recalculate HNO3/NO3 concentration partition
c bcknh3         Default background ammonia concentration (ppb)     [ra]
c                specified by month (1-12)
c ispecno3       Pointer to input species list for species needed   [ia]
c                in the Nitrate partition module
c                   ispecno3(1) = SO4     index
c                   ispecno3(2) = HNO3    index
c                   ispecno3(3) = NO3     index
c                   ispecno3(4) = NH3     index
c                   ispecno3(5) = HNO3ALL index
c                   ispecno3(6) = NO3ALL  index
c lvisib         Process VISB.DAT file when true                     [L]
c ispeci         Pointer to location in aspeci species list         [ia]
c                 - aspeci(ispeci(2,3)) is the name of the second
c                   species read from data file number 3
c ispeco         Pointer to location in aspeco species list         [ia]
c                 - aspeco(ispeco(2,3)) is the name of the second
c                   species read from data file number 3
c nmet           Number of met data files                            [i]
c imetdat        Index for the 'current' met data file               [i]
c ncommout       Number of comment records saved for header of output[i]
c nskip          Number of data periods to skip in each file to get [ia]
c                to the processing start time
c aspeci         Names of species used from input data files        [ca]
c aspeco         Names of species written to output data file       [ca]
c ctitle         3 title lines from control file                     [c]
c metfm          Use met data output of CALPUFF instead of CALMET.DAT
c                if metfm=2 or 1D met. data file if metfm=1. 
c                Default METFM=0. (use CALMET.DAT)                   [i]
c imetrhu        Index for the 'current' relative humidity file      [i]
c imettmp        Index for the 'current' temperature file            [i]
c imetrho        Index for the 'current' rhoair file                 [i]
c nh3typ         Parameter for the choice of NH3 to use for NO3/HNO3
c                repartitioning when MNITRATE=1 or MNITRATE=3        [i]
c meqphase       Method for calculating HNO3/NO3 phase partition     [i]
c                  1 = CHEMEQ
c                  2 = ISORROPIA
c ilayer         Model layer to process - both read and written      [i]
c a3layer        C*3 version of ilayer                               [c]
