[ 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: 2-June-19 0154Z

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.