C NCLFORTSTART
      subroutine dpthresh(ns,nm,nl,nlat,nlon,h,s,cl0,cl1,dwin,thr,p,mval)
      integer ns,nm,nl,nlat,nlon
      integer dwin 
      integer s(ns) 
      integer cl0,cl1 
      real   p,mval 
      real  h(nlon,nlat,nm,nl,ns)
      real  thr(nlon,nlat,nl) 
C NCLEND