da_reflectivity_adj.inc

1 subroutine da_reflectivity_adj(rf, qrn, qrn9)
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: TBD
5    !-----------------------------------------------------------------------
6 
7    implicit none
8 
9 !   real, intent(inout)  :: rho
10    real, intent(inout)  :: qrn
11    real, intent(in)     :: qrn9
12    real, intent(inout)  :: rf
13 
14    real, parameter   :: leh1=43.1
15    real, parameter   :: leh2=17.5
16 
17    ! temp = leh2 / (rho9*qrn9*alog(10.))
18 
19    ! rho = rho + temp * qrn9 * rf
20    ! qrn = qrn + temp * rho9 * rf
21    qrn = qrn + leh2/(qrn9*alog(10.)) * rf
22 
23 end subroutine da_reflectivity_adj
24 
25