!
!##################################################################
!##################################################################
!######                                                      ######
!######                 SUBROUTINE REMAPVOL                  ######
!######                                                      ######
!######                     Developed by                     ######
!######     Center for Analysis and Prediction of Storms     ######
!######                University of Oklahoma                ######
!######                                                      ######
!##################################################################
!##################################################################
!

  SUBROUTINE wrttilts(rfname,maxgatevel,maxgateref,maxazim,maxelev,       &
                      rngvvol,azmvvol,elvvvol,velvol,                     &
                      rngrvol,azmrvol,elvrvol,refvol,                     &
                      radar_alt,radar_lat,radar_lon,                      &
                      iyear,imon,iday,ihour,imin,isec )
!
!-----------------------------------------------------------------------
!
!  PURPOSE:
!
!  write out radar observation in  radar coordinate
!
!-----------------------------------------------------------------------
!
!  AUTHOR: Ming Hu, CAPS
!
!  MODIFICATION HISTORY:
!
!-----------------------------------------------------------------------
!
!  INPUT :
!
!    maxgate   Maximum gates in a radial
!    maxazim   Maximum radials per tilt
!    maxelev   Maximum number of tilts
!
  IMPLICIT NONE
! 
  INTEGER, INTENT(IN) :: maxgatevel
  INTEGER, INTENT(IN) :: maxgateref
  INTEGER, INTENT(IN) :: maxazim
  INTEGER, INTENT(IN) :: maxelev

  REAL, INTENT(IN)    :: rngvvol(maxgatevel,maxelev)
  REAL, INTENT(IN)    :: azmvvol(maxazim,maxelev)
  REAL, INTENT(IN)    :: elvvvol(maxazim,maxelev)
  REAL, INTENT(IN)    :: velvol(maxgatevel,maxazim,maxelev)

  REAL, INTENT(IN)    :: rngrvol(maxgateref,maxelev)
  REAL, INTENT(IN)    :: azmrvol(maxazim,maxelev)
  REAL, INTENT(IN)    :: elvrvol(maxazim,maxelev)
  REAL, INTENT(IN)    :: refvol(maxgateref,maxazim,maxelev)

  INTEGER, INTENT(IN)  :: iyear,imon,iday,ihour,imin,isec
  REAL, INTENT(IN)     :: radar_alt
  REAL, INTENT(IN)     :: radar_lat
  REAL, INTENT(IN)     :: radar_lon

  CHARACTER (LEN=100) :: rfname
  CHARACTER (LEN=100) :: rfnametilt
  integer :: ilen

!
!-----------------------------------------------------------------------
!  
!  Open file for output
!
!-----------------------------------------------------------------------
! 
  ilen=len(trim(rfname))
  rfnametilt=rfname(1:ilen-1)//'.tilts'
  write(*,*) rfnametilt
  OPEN(13,FILE=trim(rfnametilt),STATUS='unknown',                          &
       FORM='unformatted')
  write(13) maxgatevel,maxgateref,maxazim,maxelev
  write(13) radar_alt,radar_lat,radar_lon
  write(13) iyear,imon,iday,ihour,imin,isec
  write(13) rngrvol
  write(13) azmrvol
  write(13) elvrvol
  write(13) refvol

  write(13) rngvvol
  write(13) azmvvol
  write(13) elvvvol
  write(13) velvol

  close(13)

  RETURN
  END SUBROUTINE wrttilts