readns.f File Reference

Read the next data subset from a BUFR file that was previously opened for reading. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	readns (LUNIT, SUBSET, JDATE, IRET)
	This subroutine provides a handy way to combine the functionality of subroutines readmg() and readsb() within a single subroutine call. More...

Detailed Description

Read the next data subset from a BUFR file that was previously opened for reading.

Definition in file readns.f.

Function/Subroutine Documentation

subroutine readns	(		LUNIT,
		character*8	SUBSET,
			JDATE,
			IRET
	)

This subroutine provides a handy way to combine the functionality of subroutines readmg() and readsb() within a single subroutine call.

Author

J. Woollen

Date

1994-01-06

Parameters

[in]	LUNIT	- integer: Fortran logical unit number for BUFR file
[out]	SUBSET	- character*8: Table A mnemonic for type of data subset that was read (see DX BUFR Tables for further information about Table A mnemonics)
[out]	JDATE	- integer: Date-time stored within Section 1 of BUFR message containing data subset that was read, in format of either YYMMDDHH or YYYYMMDDHH, depending on the most recent call to subroutine datelen()
[out]	IRET	- integer: return code 0 = new BUFR data subset was successfully read into internal arrays -1 = there are no more BUFR data subsets in the file connected to logical unit LUNIT

Logical unit LUNIT should have already been opened for input operations via a previous call to subroutine openbf(). But once that is done, the application program can immediately call this subroutine to read each new data subset from the associated BUFR file, and the subroutine will automatically open and close each new BUFR message internally as needed, so that subsequent calls can immediately be made to any of the various values-reading subroutines.

Program history log:

• 1994-01-06 J. Woollen – Original author
• 1998-07-08 J. Woollen – Replaced call to Cray library routine "ABORT" with call to new internal BUFRLIB routine "BORT"; modified to make Y2K compliant
• 1999-11-18 J. Woollen – The number of BUFR files which can be opened at one time increased from 10 to 32 (necessary in order to process multiple BUFR files under the MPI)
• 2003-11-04 D. Keyser – MAXJL (maximum number of jump/link entries) increased from 15000 to 16000 (was in verification version)
• 2014-12-10 J. Ator – Use modules instead of COMMON blocks

Definition at line 54 of file readns.f.

References bort(), readmg(), readsb(), and status().

Referenced by ireadns().