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