fortran已知5个站点某时刻的风向角和风速，请利用循环和数组计算这5个测站的水平纬向风速U和水平经向风速V。

在Fortran中，你可以通过创建两个一维数组，分别存储风向角（通常以度表示）和风速，然后利用循环结构对每个站点进行处理，将风向角转换为水平纬向风速（如果风向在北半球顺时针测量，0°到90°对应正东，90°到180°对应正南，以此类推）和水平经向风速（0°到90°对应正北，90°到180°对应正西）。这里是一个简单的示例：

! 定义变量和数组
real :: wind_direction(5), wind_speed(5) ! 风向角和风速数组
integer :: i ! 循环计数器

! 假设风向角和风速已经初始化
wind_direction = ... ! 五个站点的风向角
wind_speed = ...   ! 五个站点的风速

! 使用for循环计算U和V
do i = 1, 5
    select case (wind_direction(i)) ! 根据风向计算水平分量
        case (0.0 <= wind_direction(i) &amp;&amp; wind_direction(i) < 90.0)
            U(i) = wind_speed(i) * cos(radians(wind_direction(i))) ! 正东方向
            V(i) = wind_speed(i) * sin(radians(wind_direction(i))) ! 正北方向
        case (90.0 <= wind_direction(i) &amp;&amp; wind_direction(i) < 180.0)
            U(i) = wind_speed(i) * cos(radians(wind_direction(i)-90.0)) ! 正南方向
            V(i) = -wind_speed(i) * sin(radians(wind_direction(i)-90.0)) ! 正西方向
        case default
            write(*, *) "Invalid wind direction!"
    end select
end do

! U 和 V 现在包含每个站点的水平纬向风速和水平经向风速