pdsens.f File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	pdsens (KENS, KPROB, XPROB, KCLUST, KMEMBR, ILAST, MSGA)
	Packs brib pds extension starting on byte 41 for ensemble forecast products. More...

Detailed Description

Packs grib pds extension 41- for ensemble.

Author

Zoltan Toth & Mark Iredell

Date

1995-03-14

Definition in file pdsens.f.

Function/Subroutine Documentation

pdsens()

subroutine pdsens	(	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
	)

Packs brib 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 entry, blank all unused fields.
• Mark Iredell 2001-06-05 Apply linux port by Ebisuzaki.

Parameters

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

Note

Use pdseup() for unpacking pds ensemble extension. subprogram can be called from a multiprocessing environment.

Author

Zoltan Toth & Mark Iredell

Date

1995-03-14

Definition at line 27 of file pdsens.f.