!
! reference time
!
  INTEGER :: ireftim
  COMMON /ref_time/ ireftim
!
! Thresholding parameters
!
  REAL :: gcrej,wgtthr,refpct,velpct,rvarthr,vvarthr
  REAL :: refmis,velmis,timmis

  PARAMETER (gcrej=1.6,        & ! ground clutter vel threshold
             wgtthr=1.0E-04,   & ! tot weight threshold for averaging
             refpct=0.25,      & ! coverage ratio limit
             velpct=0.25,      & ! coverage ratio limit
             rvarthr=225.,     & ! dBZ**2
             vvarthr=49.,      & ! m/s**2
             refmis=-999999.,  &
             velmis=-999999.,  &
             timmis=-999999.)