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    Speed = sqrt(U*U + V*V)
13 
14 end subroutine da_transform_xtospeed
15 
16