da_transform_xtospeed.inc

References to this file elsewhere.
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