<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_TRANSFORM_XTOSPEED'><A href='../../html_code/ssmi/da_transform_xtospeed.inc.html#DA_TRANSFORM_XTOSPEED' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine da_transform_xtospeed(Speed,U,V),2
!----------------------------------------------------------------------------
! Purpose: Convert (U-V in m/s) components into wind speed (Speed in m/s)
!----------------------------------------------------------------------------
implicit none
real, intent (out) :: Speed
real, intent (in) :: U, V
if (trace_use) call da_trace_entry
("da_transform_xtospeed")
Speed = sqrt(U*U + V*V)
if (trace_use) call da_trace_exit("da_transform_xtospeed")
end subroutine da_transform_xtospeed