c----CAMx v7.40 260801
c  
c     PTEMISS.COM contains all information regarding elevated point sources
c                            
c      Copyright Ramboll
c            
c     Modifications:  
c        none
c 
c-----------------------------------------------------------------------
c     Variables for point source parameters:
c
c     nptsrc       -- number of point source stacks
c     xstk         -- stack x-location (km or degrees)
c     ystk         -- stack y-location (km or degrees)
c     lpiglet      -- flag indicating a PiG point source
c     hstk         -- stack height (meters)
c     dstk         -- stack diameter (meters)
c     tstk         -- stack exit temperature (K)
c     vstk         -- stack exit velocity (meters/s)
c     flowrat      -- stack flow rate (m3/hr)
c                     if positive, used to re-calculate hour-specific vstk
c                     if negative, used as plume base for plume distribution
c                             override
c     effph        -- effective plume height (meters)
c                     if negative, bypass internal plume rise calculation
c                             used as plume top for plume distirbuiton
c                             override
c                     otherwise, ignored
c     ptemis       -- point source emission rates (mol/s)
c     xloc         -- temporary array for stack locations
c     yloc         -- temporary array for stack locations
c     idx_last_found -- index of last source found
c
c-----------------------------------------------------------------------
c
      real,         allocatable, dimension(:,:) :: xstk
      real,         allocatable, dimension(:,:) :: ystk
      real,         allocatable, dimension(:)   :: hstk
      real,         allocatable, dimension(:)   :: dstk
      real,         allocatable, dimension(:)   :: tstk
      real,         allocatable, dimension(:)   :: vstk
      real,         allocatable, dimension(:)   :: flowrat
      real,         allocatable, dimension(:)   :: effph
      real,         allocatable, dimension(:,:) :: ptemis
      logical,      allocatable, dimension(:)   :: lpiglet
      real,         allocatable, dimension(:)   :: xloc
      real,         allocatable, dimension(:)   :: yloc
c
      integer ::  nptsrc
      integer ::  idx_last_found
c
      common /ptesdat/ nptsrc, idx_last_found
