ufbmem.f File Reference

Connect a new system file to the BUFRLIB software, and read the entire file contents into internal arrays. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	ufbmem (LUNIT, INEW, IRET, IUNIT)
	This subroutine connects a new system file to the BUFRLIB software for input operations, then reads the entire file contents into internal arrays so that any of the individual BUFR messages can later be accessed from memory, instead of having to read them one at a time sequentially from the system file. More...

Detailed Description

Connect a new system file to the BUFRLIB software, and read the entire file contents into internal arrays.

Definition in file ufbmem.f.

Function/Subroutine Documentation

ufbmem()

subroutine ufbmem	(		LUNIT,
			INEW,
			IRET,
			IUNIT
	)

This subroutine connects a new system file to the BUFRLIB software for input operations, then reads the entire file contents into internal arrays so that any of the individual BUFR messages can later be accessed from memory, instead of having to read them one at a time sequentially from the system file.

Any embedded DX BUFR tables contained within the file are also read and processed into separate internal arrays for later use.

Author

J. Woollen

Date

1994-01-06

Parameters

[in]	LUNIT	– integer: Fortran logical unit number for BUFR file
[in]	INEW	– integer: Processing option 0 = Initialize the internal arrays, then read all BUFR messages from LUNIT into internal arrays Otherwise, read all BUFR messages from LUNIT and append them to the existing messages within the internal arrays
[out]	IRET	– integer: Number of BUFR messages that were read from LUNIT and stored into internal arrays
[out]	IUNIT	– integer: File status 0 = LUNIT was empty, so no messages were read Otherwise, the Fortran logical unit number to use for later access to any of the messages from the internal arrays

Logical unit number LUNIT must already be associated with an actual filename on the local system, typically via a Fortran "OPEN" statement.

When INEW = 0, the output value IUNIT will be set equal to the input value LUNIT. Otherwise, the output value IUNIT will be set to the value of LUNIT that was input when this subroutine was previously called with INEW = 0, and the system file connected to LUNIT will be closed via an internal call to subroutine closbf() before exiting this subroutine. In either case, IUNIT can now be used to access all BUFR messages that were read and stored by all previous calls to this subroutine.

Program history log:

Date	Programmer	Comments
1994-01-06	J. Woollen	Original author
1998-07-08	J. Woollen	Replaced call to Cray library routine ABORT with call to new internal routine bort()
1999-11-18	J. Woollen	Increased MAXMEM from 4 Mb to 8 Mb
2000-09-19	J. Woollen	Maximum message length increased from 10,000 to 20,000 bytes
2001-08-15	D. Keyser	Increased MAXMEM from 8 Mb to 16 Mb
2003-11-04	S. Bender	Added remarks and routine interdependencies
2003-11-04	D. Keyser	Unified/portable for WRF; added documentation; outputs more complete diagnostic info when routine terminates abnormally; increased MAXMSG from 50000 to 200000
2004-08-09	J. Ator	Maximum message length increased from 20,000 to 50,000 bytes
2004-11-15	D. Keyser	Don't abort when there are either MAXMSG or MAXMEM is exceeded; instead, just store up to MAXMSG messages or MAXMEM bytes and print a diagnostic
2005-11-29	J. Ator	Use rdmsgw() and nmwrd()
2009-03-23	J. Ator	Modified to handle embedded DX tables
2012-09-15	J. Woollen	Modified for C/I/O/BUFR interface; call status() to get LUN; replace Fortran REWIND and BACKSPACE with C routines cewind() and backbufr()
2014-12-10	J. Ator	Use modules instead of COMMON blocks
2015-09-24	D. Stokes	Fix missing declaration of COMMON /QUIET/

Definition at line 65 of file ufbmem.f.

References backbufr(), bort(), cewind(), closbf(), cpdxmm(), errwrt(), idxmsg(), moda_msgmem::ldxm, moda_msgmem::ldxts, modv_maxmem::maxmem, modv_maxmsg::maxmsg, moda_msgmem::mlast, moda_msgmem::msgp, moda_msgmem::msgs, moda_msgmem::munit, moda_msgmem::ndxm, moda_msgmem::ndxts, nmwrd(), openbf(), rdmsgw(), and status().