getgb1s.f File Reference

Find a grib message. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	getgb1s (cbuf, nlen, nnum, j, jpds, jgds, jens, k, kpds, kgds, kens, lskip, lgrib, iret)
	Find a grib message.

Detailed Description

Find a grib message.

Author

Mark Iredell

Date

1995-10-31

Definition in file getgb1s.f.

Function/Subroutine Documentation

getgb1s()

subroutine getgb1s	(	character, dimension(nlen*nnum)	cbuf,
			nlen,
			nnum,
			j,
		integer, dimension(200)	jpds,
		integer, dimension(200)	jgds,
		integer, dimension(200)	jens,
			k,
		integer, dimension(200)	kpds,
		integer, dimension(200)	kgds,
		integer, dimension(200)	kens,
			lskip,
			lgrib,
			iret
	)

Find a grib message.

Find in the index file a reference to the grib message requested. The grib message request specifies the number of messages to skip and the unpacked pds and gds parameters. (A requested parameter of -1 means to allow any value of this parameter to be found.)

Program history log:

• Mark Iredell 1995-10-31
• Mark Iredell 2001-06-05 Apply linux port by ebisuzaki.

Parameters

[in]	CBUF	Character*1 (nlen*nnum) buffer containing index data.
[in]	NLEN	Integer length of each index record in bytes.
[in]	NNUM	Integer number of index records.
[in]	J	Integer number of messages to skip (=0 to search from beginning).
[in]	JPDS	Integer (200) pds parameters for which to search (=-1 for wildcard).
[in]	JGDS	Integer (200) gds parameters for which to search (only searched if jpds(3)=255) (=-1 for wildcard).
[in]	JENS	Integer (200) ensemble pds parms for which to search (only searched if jpds(23)=2) (=-1 for wildcard).
[out]	K	Integer message number found (can be same as j in calling program in order to facilitate multiple searches).
[out]	KPDS	Integer (200) unpacked pds parameters.
[out]	KGDS	Integer (200) unpacked gds parameters.
[out]	KENS	Integer (200) unpacked ensemble pds parms.
[out]	LSKIP	Integer number of bytes to skip.
[out]	LGRIB	Integer number of bytes to read.
[out]	IRET	Integer return code. 0 All ok. 1 Request not found.

Note

Subprogram can be called from a multiprocessing environment. This subprogram is intended for private use by getgb routines only.

Author

Mark Iredell

Date

1995-10-31

Definition at line 42 of file getgb1s.f.