[ Post Response ] [ Return to Index ] [ Read Prev Msg ] [ Read Next Msg ]

Rapid Refresh (RAP) and High-Resolution Rapid Refresh (HRRR) Forum

converting the u and v

Posted By: David Johanson
Date: 5-January-23 0312Z

PARAMETER ( ROTCON_P = 0.422618 )
PARAMETER ( LON_XX_P = -95.0 )
C** ROTCON_P R WIND ROTATION CONSTANT, = 1 FOR POLAR STEREO
C** AND SIN(LAT_TAN_P) FOR LAMBERT CONFORMAL
C** LON_XX_P R MERIDIAN ALIGNED WITH CARTESIAN X-AXIS(DEG)
C** LAT_TAN_P R LATITUDE AT LAMBERT CONFORMAL PROJECTION
C** IS TRUE (DEG)
PARAMETER ( LAT_TAN_P = 25.0 )
do j=1,ny_p
do i=1,nx_p
angle2 = rotcon_p*(olon(i,j)-lon_xx_p)*0.017453
sinx2 = sin(angle2)
cosx2 = cos(angle2)
do k=1,nzp_p
ut = u(i,j,k)
vt = v(i,j,k)
un(i,j,k) = cosx2*ut+sinx2*vt
vn(i,j,k) =-sinx2*ut+cosx2*vt
end if
end do
end do

[ Post Response ] [ Return to Index ] [ Read Prev Msg ] [ Read Next Msg ]

Rapid Refresh (RAP) and High-Resolution Rapid Refresh (HRRR) Forum is maintained by RR/RAP Forum Administrators with WebBBS 5.12.