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