C NCLFORTSTART
      SUBROUTINE hbfilter (input,output,nmax,
     &                  start_z,end_z,delta_z,   ! add new (end_z-start_z) to function call
     &                  ids,ide,
     &                  jds,jde, 
     &                  ims,ime,imd,        !  add new (ime-ims) to function call
     &                  jms,jme,jmd)        !  add new (jme-ims) to function call
      INTEGER ids,ide,jds,jde,ims,ime,imd, jms,jme,jmd
      INTEGER start_z,end_z,nmax, delta_z
      REAL dx
      REAL INPUT(imd,jmd,delta_z)
      REAL OUTPUT(imd,jmd,delta_z)
C NCLEND