w3fp13.f File Reference

Convert GRIB PDS edition 1 to O.N. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	w3fp13 (grib, pds, id8, ierr)
	Converts GRIB version 1 formatted product definition section to an office note 84 id label.

Detailed Description

Convert GRIB PDS edition 1 to O.N.

84 ID.

Author

A.J. McClees

Date

1991-10-07

Definition in file w3fp13.f.

Function/Subroutine Documentation

w3fp13()

subroutine w3fp13	(	character * 8	grib,
		character * 1, dimension ( *)	pds,
		integer, dimension (12)	id8,
			ierr
	)

Converts GRIB version 1 formatted product definition section to an office note 84 id label.

Formats all that is appli- cable in the first 8 words of O.N. 84. (caution ****see remarks)

Program History Log:

Date	Programmer	Comments
1991-10-07	A.J. McClees	Initial
1992-01-06	Ralph Jones	Convert to silicongraphics 3.3 fortran 77
1993-03-29	Ralph Jones	Add save statement
1994-04-17	Ralph Jones	Complete rewrite to use sbyte, make code portable, upgrade to on388
1994-05-05	Ralph Jones	Correction in two tables
1996-08-02	Ralph Jones	Error using T marker
1996-09-03	Ralph Jones	Add mercator grids 8 and 53 to tables
1999-02-15	B. Facey	Replace w3fs04 with w3movdat().
2002-10-15	Boi Vuong	Replaced function ichar with mova2i()

Parameters

[in]	GRIB	GRIB section 0 read as character*8
[in]	PDS	GRIB PDS section 1 read as character*1 PDS(*)
[out]	ID8	12 Integer*4 formatted O.N. 84 ID. 6 integer 64 bit words on cray
[out]	IERR	0 - Completed satisfactorily 1 - Grib block 0 not correct 2 - Length of pds not correct 3 - Could not match type indicator 4 - Grid type not in tables 5 - Could not match type level 6 - Could not interpret originator of code

Note

Some of the id's will not be exact to the o.n. 84 for locating field on the dataset. These differences are mainly due to truncation errors with layers. For example: .18019 sig .47191 sig r h for 36.o hrs will convert to: .18000 sig .47000 sig r h for 36.0 hrs !!!!!!!the above id's now forced to be exact!!!!!!!!! If j the word count is greater then 32743, j is stored in the 12th id word. Bits 16-31 of the 8th id word are set to zero.

Author

A.J. McClees

Date

1991-10-07

Definition at line 45 of file w3fp13.f.