var/da/da_ssmi/da_transform_xtospeed.inc

   1 subroutine da_transform_xtospeed(Speed,U,V)
   2
   3    !----------------------------------------------------------------------------
   4    ! Purpose: Convert (U-V in m/s) components into wind speed (Speed in m/s)
   5    !----------------------------------------------------------------------------
   6
   7    implicit none
   8
   9    real, intent (out) :: Speed
  10    real, intent (in)  :: U, V
  11
  12    if (trace_use) call da_trace_entry("da_transform_xtospeed")
  13
  14    Speed = sqrt(U*U + V*V)
  15
  16    if (trace_use) call da_trace_exit("da_transform_xtospeed")
  17
  18 end subroutine da_transform_xtospeed
  19
  20