pdseup.f File Reference

Unpacks grib pds extension 41- for ensemble. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	pdseup (kens, kprob, xprob, kclust, kmembr, ilast, msga)
	Unpacks grib pds extension starting on byte 41 for ensemble forecast products.

Detailed Description

Unpacks grib pds extension 41- for ensemble.

Author

Zoltan Toth and Mark Iredell

Date

DATE: 1995-03-14

Definition in file pdseup.f.

Function/Subroutine Documentation

pdseup()

subroutine pdseup	(	integer, dimension(5)	kens,
		integer, dimension(2)	kprob,
		dimension(2)	xprob,
		integer, dimension(16)	kclust,
		integer, dimension(80)	kmembr,
			ilast,
		character*1, dimension(100)	msga
	)

Unpacks grib pds extension starting on byte 41 for ensemble forecast products.

for format of pds extension, see nmc office note 38

Program history log:

• Zoltan Toth and Mark Iredell 1995-03-14
• Mark Iredell 1995-10-31 Removed saves and prints.
• Richard Wobus 1998-09-28 Corrected member extraction.
• Mark Iredell 2001-06-05 Apply linux port by ebisuzaki.

Parameters

[out]	KENS	(5) Bytes 41-45 (general section, always present.).
[out]	KPROB	(2) Bytes 46-47 (probability section, present only if neede.
[out]	XPROB	(2) Bytes 48-51&52-55 (probability section, if needed.).
[out]	KCLUST	(16) Bytes 61-76 (clustering section, if needed.).
[out]	KMEMBR	(80) Bytes 77-86 (cluster membership section, if needed.).
[in]	ILAST	Last byte to be unpacked (if greater/equal to first byte in any of four sections below, whole section is packed).
[in]	MSGA	Full pds section, including new ensemble extension.

Note

Use pdsens() for packing pds ensemble extension. Subprogram can be called from a multiprocessing environment.

Author

Zoltan Toth and Mark Iredell

Date

DATE: 1995-03-14

Definition at line 27 of file pdseup.f.