subroutine prflec(pteran,pcloud,lprint,grref,clref)
c***********************************************************************
c
c     prflec
c
c     september 2001 by charlie wellemeyer of ssai
c
c     purpose
c        initialize ground reflectivity to 15% and
c        cloud reflectivity to 80%
c
c     calling sequence
c        call prflec
c
c     variables
c       name      type  i/o  description
c       ----      ----  ---  -----------
c      pteran      i*4   i   terrain pressure
c      pcloud      r*4   i   cloud pressure
c      lprint      l*4   i   if = .true., print
c      grref       r*4   o   ground reflectivity
c      clref       r*4   o   cloud reflectivity
c
c     calling routines    reflec, reflm, reflp
c
c***********************************************************************
c
      implicit none
c
c     -- input parameters
c
      real pteran, pcloud
      logical lprint(30)
c
c     -- output parameters
c
      real grref, clref
c
c     -- intialize ground cloud reflectivity
c
      grref  = 0.15
      clref  = 0.80
c
      if (lprint(15)) then
         write (6,1000) pteran, pcloud
         write (6,1100) grref,clref
      endif
c
      return
c
c  format statements
c
1000  format (/'Subroutine prflec'/'Input:   pteran = ',f8.4,
     1 ' pcloud = ',f8.4)
1100  format ('Output:  grref  = ',f8.4,' clref  = ',f8.4)
c
      end