putgbex.f File Reference

Packs and writes a grib message. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	putgbex (LUGB, KF, KPDS, KGDS, KENS, KPROB, XPROB, KCLUST, KMEMBR, LB, F, IRET)
	This subprogram is nearly the inverse of getgbe. More...

Detailed Description

Packs and writes a grib message.

Author

Mark Iredell

Date

1994-04-01

Definition in file putgbex.f.

Function/Subroutine Documentation

putgbex()

subroutine putgbex	(		LUGB,
			KF,
		integer, dimension(200)	KPDS,
		integer, dimension(200)	KGDS,
		integer, dimension(200)	KENS,
		integer, dimension(2)	KPROB,
		real, dimension(2)	XPROB,
		integer, dimension(16)	KCLUST,
		integer, dimension(80)	KMEMBR,
		logical*1, dimension(kf)	LB,
		real, dimension(kf)	F,
			IRET
	)

This subprogram is nearly the inverse of getgbe.

Program history log:

• Mark Iredell 1994-04-01
• Mark Iredell 1995-10-31 Removed saves and prints.
• Y. Zhu 1997-02-11 Included probability and cluster arguments.

Parameters

[in]	lugb	integer unit of the unblocked grib data file.
[in]	kf	integer number of data points.
[in]	kpds	integer (200) pds parameters. 1): id of center. 2): generating process id number. 3): grid definition. 4): gds/bms flag (right adj copy of octet 8). 5): indicator of parameter. 6): type of level. 7): height/pressure , etc of level. 8): year including (century-1). 9): month of year. 10: day of month. 11: hour of day. 12: minute of hour. 13: indicator of forecast time unit. 14: time range 1. 15: time range 2. 16: time range flag. 17: number included in average. 18: version nr of grib specification. 19: version nr of parameter table. 20: nr missing from average/accumulation. 21: century of reference time of data. 22: units decimal scale factor. 23: subcenter number. 24: pds byte 29, for nmc ensemble products. 128 if forecast field error. 64 if bias corrected fcst field. 32 if smoothed field. warning: can be combination of more than 1. 25: pds byte 30, not used.
[in]	kgds	Integer (200) gds parameters. 1): data representation type. 19: number of vertical coordinate parameters. 20: octet number of the list of vertical coordinate parameters or octet number of the list of numbers of points in each row or 255 if neither are present. 21: for grids with pl, number of points in grid. 22: number of words in each row. Latitude/longitude grids. 2): n(i) nr points on latitude circle. 3): n(j) nr points on longitude meridian. 4): la(1) latitude of origin. 5): lo(1) longitude of origin. 6): resolution flag (right adj copy of octet 17). 7): la(2) latitude of extreme point. 8): lo(2) longitude of extreme point. 9): di longitudinal direction of increment. 10: dj latitudinal direction increment. 11: scanning mode flag (right adj copy of octet 28). Gaussian grids. 2): n(i) nr points on latitude circle. 3): n(j) nr points on longitude meridian. 4): la(1) latitude of origin. 5): lo(1) longitude of origin. 6): resolution flag (right adj copy of octet 17). 7): la(2) latitude of extreme point. 8): lo(2) longitude of extreme point. 9): di longitudinal direction of increment. 10: n - nr of circles pole to equator. 11: scanning mode flag (right adj copy of octet 28). 12: nv - nr of vert coord parameters. 13: pv - octet nr of list of vert coord parameters or pl - location of the list of numbers of points in each row (if no vert coord parameters are present or 255 if neither are present Polar stereographic grids. 2): n(i) nr points along lat circle. 3): n(j) nr points along lon circle. 4): la(1) latitude of origin. 5): lo(1) longitude of origin. 6): resolution flag (right adj copy of octet 17). 7): lov grid orientation. 8): dx - x direction increment. 9): dy - y direction increment. 10: projection center flag. 11: scanning mode (right adj copy of octet 28). Spherical harmonic coefficients. 2): j pentagonal resolution parameter. 3): k pentagonal resolution parameter. 4): m pentagonal resolution parameter. 5): representation type. 6): coefficient storage mode. Mercator grids. 2): n(i) nr points on latitude circle. 3): n(j) nr points on longitude meridian. 4): la(1) latitude of origin. 5): lo(1) longitude of origin. 6): resolution flag (right adj copy of octet 17). 7): la(2) latitude of last grid point. 8): lo(2) longitude of last grid point. 9): latit - latitude of projection intersection. 10: reserved. 11: scanning mode flag (right adj copy of octet 28). 12: longitudinal dir grid length. 13: latitudinal dir grid length. Lambert conformal grids. 2): nx nr points along x-axis. 3): ny nr points along y-axis. 4): la1 lat of origin (lower left). 5): lo1 lon of origin (lower left). 6): resolution (right adj copy of octet 17). 7): lov - orientation of grid. 8): dx - x-dir increment. 9): dy - y-dir increment. 10: projection center flag. 11: scanning mode flag (right adj copy of octet 28). 12: latin 1 - first lat from pole of secant cone inter. 13: latin 2 - second lat from pole of secant cone inter.
[in]	kens	integer (200) ensemble pds parms. 1): application identifier. 2): ensemble type. 3): ensemble identifier. 4): product identifier. 5): smoothing flag.
[in]	kprob	integer (2) probability ensemble parms.
[in]	xprob	real (2) probability ensemble parms.
[in]	kclust	integer (16) cluster ensemble parms.
[in]	kmembr	integer (8) cluster ensemble parms.
[in]	lb	logical*1 (kf) bitmap if present.
[in]	f	real (kf) data.
[out]	iret	integer return code. 0 all ok. other w3fi72 grib packer return code.

Note

Subprogram can be called from a multiprocessing environment. Do not engage the same logical unit from more than one processor.

Author

Mark Iredell

Date

1994-04-01

Definition at line 143 of file putgbex.f.