var/da/da_radar/da_radzicevar_virtual.inc

   1   subroutine da_radzicevar_virtual(virtual,temp,ratmix)
   2 !-----------------------------------------------------------------------
   3 !   This function returns virtual temperature in K, given temperature
   4 !      in K and mixing ratio in kg/kg.
   5 !-----------------------------------------------------------------------
   6   implicit none
   7   real,parameter :: eps=0.622
   8   real :: virtual
   9   real :: temp
  10   real :: ratmix
  11
  12   virtual=temp*(1+0.61*ratmix)
  13   return
  14   end subroutine da_radzicevar_virtual