var/da/da_radar/da_radzicevar_prepare_interceptpara.inc

   1   subroutine da_radzicevar_prepare_interceptpara(in0s,in0g,in0r,rn0_s,rn0_g,rn0_r,sonv,gonv,ronv)
   2    !----------------------------------------------------------------------
   3    ! purpose: assigne the intercept parameter value and convert the unit
   4    !----------------------------------------------------------------------
   5     implicit none
   6     integer :: in0s,in0g,in0r
   7     real    :: rn0_s,rn0_g,rn0_r
   8     real    :: sonv,gonv,ronv
   9
  10     if (in0s.eq.1) then
  11        sonv = rn0_s  ! for diagnosing n0 from number concentration, not yet completed
  12     else
  13        sonv = rn0_s
  14     endif
  15
  16     if (in0g.eq.1) then
  17       gonv = rn0_g  ! for diagnosing n0 from number concentration, not yet completed
  18     else
  19       gonv = rn0_g
  20     endif
  21
  22     if (in0r.eq.1) then
  23       ronv = rn0_r  ! for diagnosing n0 from number concentration, not yet completed
  24     else
  25       ronv = rn0_r
  26     endif
  27
  28     ronv=ronv*1.e-12   ! convert unit
  29     gonv=gonv*1.e-12   ! convert unit
  30     sonv=sonv*1.e-12   ! convert unit
  31   end subroutine da_radzicevar_prepare_interceptpara
  32