da_reflectivity_lin.inc

1 subroutine da_reflectivity_lin(rf, qrn, qrn9)
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: TBD
5    !-----------------------------------------------------------------------
6 
7    implicit none
8 
9    real, intent(in)  :: qrn
10    real, intent(in)  :: qrn9
11    real, intent(out) :: rf
12 
13    real, parameter   :: leh1=43.1
14    real, parameter   :: leh2=17.5
15 
16    rf = leh2 * qrn /(qrn9*alog(10.)) 
17 
18 end subroutine da_reflectivity_lin
19 
20