sinv.F90 File Reference

Produces a BUFR file inventory by satellite type. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	satcode (lunit, icode, csad, jcode, csid)
	This subroutine looks in the master BUFR tables for meaning strings associated with specified code figures for the satellite platform and instrument. More...
program	sinv
	Usage: sinv satbufrfile <tabledir> will print an inventory of satellites in the satbufrfile by platform and instrument. More...

Detailed Description

Produces a BUFR file inventory by satellite type.

Author

J Woollen

Date

2010

Definition in file sinv.F90.

Function/Subroutine Documentation

satcode()

subroutine satcode	(		lunit,
			icode,
		character(16)	csad,
			jcode,
		character(80)	csid
	)

This subroutine looks in the master BUFR tables for meaning strings associated with specified code figures for the satellite platform and instrument.

Parameters

[in]	lunit	- integer: Fortran logical unit number for BUFR file
[in]	icode	- integer: satellite platform code
[out]	csad	- character*16: meaning string associated with icode
[in]	jcode	- integer: satellite instrument code
[out]	csid	- character*80: meaning string associated with jcode

Author

J Woollen

Date

2010

Definition at line 123 of file sinv.F90.

References getcfmng().

Referenced by sinv().

sinv()

program sinv

Usage: sinv satbufrfile <tabledir> will print an inventory of satellites in the satbufrfile by platform and instrument.

The optional tabledir argument can be used to specify a custom directory for the master BUFR tables.

Use of part mode of subroutine ufbtab has been implemented in this utility to ensure all data from the target file is obtained via successive calls to ufbrep. See operational details of using ufbtab part mode in the docblock of bufrlib subroutine setpart.

Returns

0 for success, error message otherwise.

Author

J Woollen

Date

2010

Definition at line 18 of file sinv.F90.

References bort(), codflg(), mtinfo(), openbf(), readmg(), satcode(), setpart(), and ufbtab().