getgb1r.f File Reference

Reads and unpacks a grib message. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	getgb1r (lugb, lskip, lgrib, kf, kpds, kgds, kens, lb, f, nbitss, iret)
	Program history log:

Detailed Description

Reads and unpacks a grib message.

Author

Mark Iredell

Date

1995-10-31

Definition in file getgb1r.f.

Function/Subroutine Documentation

getgb1r()

subroutine getgb1r	(		lugb,
			lskip,
			lgrib,
			kf,
		integer, dimension(200)	kpds,
		integer, dimension(200)	kgds,
		integer, dimension(200)	kens,
		logical*1, dimension(*)	lb,
		real, dimension(*)	f,
			nbitss,
			iret
	)

Program history log:

• Mark Iredell 1995-10-31
• Chuang 2004-07-22 Add packing bit number nbitss in the argument list because eta grib files need it to repack grib file.

  Parameters

  [in]	LUGB	Integer unit of the unblocked grib data file.
  [in]	LSKIP	Integer number of bytes to skip.
  [in]	LGRIB	Integer number of bytes to read.
  [out]	KF	Integer number of data points unpacked.
  [out]	KPDS	Integer (200) unpacked pds parameters.
  [out]	KGDS	Integer (200) unpacked gds parameters.
  [out]	KENS	Integer (200) unpacked ensemble pds parms.
  [out]	LB	Logical*1 (kf) unpacked bitmap if present.
  [out]	F	Real (kf) unpacked data.
  [out]	NBITSS	Packaging bit number. Used by GRIB file to repack.
  [out]	IRET	Integer return code.

• 0 All ok.
• 97 Error reading grib file.
• other w3fi63 grib unpacker return code.

Note

There is no protection against unpacking too much data. Subprogram can be called from a multiprocessing environment. Do not engage the same logical unit from more than one processor. This subprogram is intended for private use by getgb routines only.

Author

Mark Iredell

Date

1995-10-31

Definition at line 32 of file getgb1r.f.