C NCLFORTSTART
      SUBROUTINE radar_write_qpv(yr,mt,dy,hr,mn,dbz,zdr,cc,kdp,hgt,nz)
      IMPLICIT NONE
      INTEGER nz
      real dbz(nz),zdr(nz),cc(nz),kdp(nz),hgt(nz)
      integer yr,mt,dy,hr,mn
C NCLEND
      character * 70  output_f
      data output_f/'qvp_output.201610280000.csv'/
      integer i
      write (output_f(12:23),'(i4.4,i2.2,i2.2,i2.2,i2.2)'),
     &  yr,mt,dy,hr,mn
      open(10,file=output_f,form='formatted')
      write(10,99)
99    format(' ','hgt, ','dbz, ','zdr, ','cc, ','kdp, ')
      do i = 1,nz
!     print*,'hgt(i) = ',hgt(i)
!     print*,'dbz(i) = ',dbz(i)
       write(10,100)hgt(i),dbz(i),zdr(i),cc(i),kdp(i)
      end do
100   format(' ',11(f7.2,', '))


      return
      end