Go to the documentation of this file.
34 subroutine readgrib(filename, datrtn, year, month, day, hour)
38 character*(*) filename
43 integer ipdsl, lenkgds, nwords
44 integer year, month, day, hour
59 open(9, err=998, file=filename, type=
'unknown',
64 read (9) ipdsl, lenkgds, nwords
65 read (9) (pds(jj),jj=1,ipdsl)
66 IF (lenkgds.ne.0)
read (9) (kgds(jj),jj=1,lenkgds)
67 read (9) (datarr(j),j=1,nwords)
71 month = ichar(pds(14))
92 998
print *,
'error opening file'
void print(std::ostream &stream, const char *format)
int readgrib(char *file, int npix, int nlin, float *data, int *year, int *month, int *day, int *hour)