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 |
|
) |
| |