misspack.f File Reference

Pack up a data field using a GRIB2 algorithm with missing value management. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	misspack (fld, ndpts, idrsnum, idrstmpl, cpack, lcpack)
	Pack up a data field using a GRIB2 algorithm with missing value management. More...

Detailed Description

Pack up a data field using a GRIB2 algorithm with missing value management.

Author

Stephen Gilbert

Date

2000-06-21

Definition in file misspack.f.

Function/Subroutine Documentation

misspack()

subroutine misspack	(	real, dimension(ndpts), intent(in)	fld,
		integer, intent(in)	ndpts,
		integer, intent(in)	idrsnum,
		integer, dimension(*), intent(inout)	idrstmpl,
		character(len=1), dimension(*), intent(out)	cpack,
		integer, intent(out)	lcpack
	)

Pack up a data field using a GRIB2 algorithm with missing value management.

This subroutine packs up a data field using a complex packing algorithm as defined in the GRIB2 documention. It supports GRIB2 complex packing templates with or without spatial differences (i.e. Data Representation Tables 5.2 and 5.3).

This subroutine also fills in GRIB2 Data Representation Template 5.2 or 5.3 with the appropriate values. It assumes that Missing Value Management is being used and that 1 or 2 missing values appear in the data.

Parameters

[in]	fld	Contains the data values to pack.
[in]	ndpts	The number of data values in array fld.
[in]	idrsnum	Data Representation Template number. Must equal 2 or 3.
[in,out]	idrstmpl	Contains the array of values for Data Representation Template 5.2 or 5.3 idrstmpl(1) Reference value - ignored on input set by compack routine. idrstmpl(2) Binary Scale Factor. idrstmpl(3) Decimal Scale Factor. idrstmpl(4) number of bits for each data value - ignored on input. idrstmpl(5) Original field type, currently ignored on input, set = 0 on !output, Data values assumed to be reals. idrstmpl(6) = 0 use lossless compression or = 1 use lossy compression. idrstmpl(7) Missing value management. idrstmpl(8) Primary missing value. idrstmpl(9) Secondary missing value. idrstmpl(17) Order of Spatial Differencing (1 or 2).
[out]	cpack	The packed data field (character*1 array).
[out]	lcpack	length of packed field cpack. -1 is returned if idrstmpl(7) is not set correctly.

Author

Stephen Gilbert

Date

2000-06-21

Definition at line 44 of file misspack.f.

References g2_sbytec(), g2_sbytesc(), mkieee(), pack_gp(), and rdieee().

Referenced by cmplxpack().