subroutine fixrda | ( | integer | lugb, |
character*500 | fngrib, | ||
integer | kpds5, | ||
real (kind=kind_io8), dimension(len) | slmask, | ||
integer | iy, | ||
integer | im, | ||
integer | id, | ||
integer | ih, | ||
real (kind=kind_io8) | fh, | ||
real (kind=kind_io8), dimension(len) | gdata, | ||
integer | len, | ||
integer | iret, | ||
integer | imsk, | ||
integer | jmsk, | ||
real (kind=kind_io8), dimension(imsk,jmsk) | slmskh, | ||
logical | gaus, | ||
real (kind=kind_io8) | blno, | ||
real (kind=kind_io8) | blto, | ||
real (kind=kind_io8), dimension(len) | outlat, | ||
real (kind=kind_io8), dimension(len) | outlon, | ||
integer | me | ||
) |