w3fp12.f File Reference

Creates the product definition section. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	w3fp12 (id8, iflag, idpds, icent, iscale, ier)
	Formats the product definition section according to the specifications set by WMO.

Detailed Description

Creates the product definition section.

Author

A.J. McClees

Date

1991-07-30

Definition in file w3fp12.f.

Function/Subroutine Documentation

w3fp12()

subroutine w3fp12	(	integer(8), dimension ( 4)	id8,
		character*1	iflag,
		character*1, dimension (28)	idpds,
		integer	icent,
		integer	iscale,
			ier
	)

Formats the product definition section according to the specifications set by WMO.

Using o.n. 84 id's (1st 8 words) as the input data. New subroutine corresponds to the revision #1 of the WMO GRIB standards made march 15, 1991.

Program History Log:

Date	Programmer	Comments
1991-07-30	A.J. McClees	New subroutine which formats the pds section from the o.n. 84 id's from the GRIB edition 1 dated march 15, 1991.
1992-01-06	A.J. McClees	Delete paramater 202 (accumulated evap) and make parameter 57 (evaporation) the equivalent of o.n.84 117.
1992-11-02	Ralph Jones	Correction at same level as w3fp12() in v77w3lib on hds
1993-03-29	Ralph Jones	Add save statement
1993-04-16	Ralph Jones	Add 176, 177 lat, lon to tables
1993-08-03	Ralph Jones	Add 156 (cin), 204 (dswrf), 205 (dlwrf) 211 (uswrf), 212 (ulwrf) to tables
1995-02-07	Ralph Jones	Change pds byte 4, version number to 2.
1995-07-14	Ralph Jones	Correction for sfc lft x
1998-03-10	Boi Vuong	Remove the cdir$ integer=64 directive
1998-12-21	Stephen Gilbert	Replaced Function ICHAR with mova2i().
1999-02-15	B. Facey	Replace w3fs04 with w3movdat().
1999-03-15	Stephen Gilbert	Specified 8-byte integer array explicitly for ID8
1999-03-22	B. Facey	Remove the date recalculation for mean charts. this includes the previous change to w3movdat.

Parameters

[in]	ID8	First 8 id workds (o.n.84) integer*4
[in]	ICENT	Century, 2 digits, for 1991 it is 20.
[in]	IFLAG	Indication of inclusion or omission of grid definition and/or bit map code character*1
[in]	ISCALE	10 scaler integer*4
[out]	IDPDS	GRIB product definition section character*1 (28)
[out]	IER	= 0 completed smoothly = 1 Indicator parameter N.A. to GRIB = 2 Level indicator N.A. to GRIB = 3 Time range N.A. to GRIB notation = 4 Layers or levels N.A. to GRIB

Author

A.J. McClees

Date

1991-07-30

Definition at line 40 of file w3fp12.f.