! ! Lookup table parameters ! Variables beginning with "f" are real versions of the ! integer variables, they must match the value of the ! corresponding integer value. ! This is for the benefit of the Cray, which doesn't ! allow a reference to function "float" in a parameter statement. ! INTEGER :: nrnglut,nazmlut,nelvlut REAL :: fnrnglut,fnazmlut PARAMETER (nrnglut=250, & fnrnglut=250., & nazmlut=360, & fnazmlut=360., & nelvlut=6) ! nelvlut=15) REAL :: farange,topelv,rnglutint,azmlutint PARAMETER (farange=250000., & topelv=20., & rnglutint=(farange/fnrnglut), & azmlutint=(360./fnazmlut)) ! ! List of elevations ! This is list is appropriate for the WSR-88D programmed ! scan stretegies. ! REAL :: elvlut(nelvlut) ! DATA elvlut /0.0, 0.5, 1.5, 2.5, 3.5, 4.5,5.5,6.5,7.5, & ! 8.5,10.0,12.0,14.0,16.0,19.5/ DATA elvlut /0.0, 0.5, 1.5, 2.5, 3.5, 4.5/ ! REAL :: radri(0:nrnglut,0:nazmlut,nelvlut) REAL :: radrj(0:nrnglut,0:nazmlut,nelvlut) REAL :: radrk(0:nrnglut,0:nazmlut,nelvlut) COMMON /lookup_rad/ radri,radrj,radrk ! ! Lookup arrays at gridpoints ! REAL :: gridazm(nx,ny) REAL :: gridrng(nx,ny)