c-----------------------------------------------------------------------
c  PARAMETERS -- Array dimensions and I/O units                 POSTUTIL
c-----------------------------------------------------------------------
c --- Specify model version
      character*12 mver, mlevel
      parameter(mver='1.641',mlevel='110225')
c --- Specify application size
      PARAMETER(mxtpd=24)
      PARAMETER(mxssg=10)
      PARAMETER(mxgx=160)
      PARAMETER(mxgy=180)
      PARAMETER(mxgrec=mxgx*mxgy)
      PARAMETER(mxnx=mxgx,mxny=mxgy,mxnxy=mxgrec)
      PARAMETER(mxdrec=4000)
      PARAMETER(mxctrec=1000)
      PARAMETER(mxnz=12)
c --- Number of species in control file arrays (MXSPEC) is also set
c --- in the code and must match!
      PARAMETER(mxspec=40,mxspec_in=40)
c --- Only 1 level of output is expected from CALPUFF application
c --- PARAMETER(mxsplv=mxnz*mxspec,mxsplv_in=mxnz*mxspec_in)
      PARAMETER(mxsplv=mxspec,mxsplv_in=mxspec_in)
      PARAMETER(mxnzp1=mxnz+1)
      PARAMETER(mxss=250,mxus=99,mxps=300,mxprfz=50)
      PARAMETER(mxfile=24,mxsrc=1000)
      PARAMETER(icols=25)
      PARAMETER(in1=100,in2=5,in3=9,in4=4,in5=21,in6=22,in7=23)
      PARAMETER(in8=24)
      PARAMETER(io7=in4)
      PARAMETER(io1=7,io2=8,io6=6)
      PARAMETER(iox=99)
      parameter(mxsg=3)

c-----------------------------------------------------------------------
c     DEFINITIONS       [i]=integer     [r]=real        [a]=array
c-----------------------------------------------------------------------
c mxtpd          maximum number of time periods (CALPUFF files)      [i]
c                (NOT ACTIVE)
c mxssg          maximum number of source-species groups             [i]
c                in CALPUFF output files
c                (NOT ACTIVE)
c mxgx           maximum number gridded receptors along "x"          [i]
c mxgy           maximum number gridded receptors along "y"          [i]
c mxgrec         product mxgx*mxgy                                   [i]
c mxnx           maximum number of met grid cells along "x"          [i]
c mxny           maximum number of met grid cells along "y"          [i]
c mxnxy          product mxnx*mxny                                   [i]
c mxdrec         maximum number of discrete receptors                [i]
c mxctrec        maximum number of complex terrain (CTSG) receptors  [i]
c mxnz           maximum number of levels                            [i]
c mxnzp1         maximum number of levels + 1                        [i]
c mxspec         maximum number of species used                      [i]
c mxsplv         max number of species used * max number levels      [i]
c mxspec_in      maximum number of species read                      [i]
c mxsplv_in      max number of species read * max number levels      [i]
c mxss           maximum number of surface met stations              [i]
c mxus           maximum number of upper air met stations            [i]
c mxps           maximum number of precipitation stations            [i]
c mxprfz         maximum number of levels in vertical profile        [i]
c mxfile         max number of CALPUFF data files processed          [i]
c mxsrc          max number of sources of any 1 source type          [i]
c icols          number of columns in gridded integer output         [i]
c in1            unit number for input data file (CALPUFF.DAT)       [i]
c                - this is for the first file in the list, the
c                - subsequent files are incremented from in1
c                - MAKE CERTAIN NO OTHER UNIT #s EXCEED in1
c in2            unit number for control file input (POSTUTIL.INP)   [i]
c in3            unit number for input file of RH data (CALPUFF.VIS) [i]
c in4 (io7)      unit number for complete met. input file (MET.DAT)  [i]
c in5            unit number for input file of RH when metfm=2       [i]
c in6            unit number for input file of TEMP when metfm=2     [i]
c in7            unit number for input file of RHOAIR when metfm=2   [i]
c in8            unit number for background pollutant for ALM -
c                file BCKGALM.DAT                                    [i]
c io1            unit number for output list file (POSTUTIL.LST)     [i]
c io2            unit number for output data file (MODEL.DAT)        [i]
c io6            unit number for screen output (error messages)      [i]
c iox            unit number for control file images (scratch)       [i]
c-----------------------------------------------------------------------
c
c --- CONTROL FILE READER definitions:
c          MXSG - Maximum number of input groups in control file
 