var/da/da_radar/da_radzicevar_prepare_zmm_adj.inc

   1   subroutine da_radzicevar_prepare_zmm_adj(tlopt,gropt,zmm,zmm_ref)
   2
   3    !----------------------------------------------------------------
   4    ! purpose: calculate the adj of the logarithmic reflectivity
   5    !----------------------------------------------------------------
   6     implicit none
   7     integer :: tlopt,gropt
   8     real    :: zmm,zmm_ref
   9     if(tlopt>=1.and.gropt==2) then
  10       if(zmm>3.16e-2) then
  11          zmm_ref=10./(zmm*log(10.0))*zmm_ref
  12       else
  13          zmm_ref=0.0
  14       endif
  15     endif
  16
  17   end subroutine da_radzicevar_prepare_zmm_adj