da_transform_xtoseasfcwind.inc
References to this file elsewhere.
1 subroutine da_transform_xtoseasfcwind(U,V,Speed,zhmkz)
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, zhmkz
11 real :: usfc, vsfc
12
13 if (trace_use) call da_trace_entry("da_transform_xtoseasfcwind")
14
15 usfc = U*log(10./0.0001)/log(zhmkz/0.0001) ! roughness = 0.0001
16 vsfc = V*log(10./0.0001)/log(zhmkz/0.0001) ! roughness = 0.0001
17 speed = sqrt(usfc*usfc + vsfc*vsfc)
18
19 if (trace_use) call da_trace_exit("da_transform_xtoseasfcwind")
20
21 end subroutine da_transform_xtoseasfcwind
22
23