readdx.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	readdx (LUNIT, LUN, LUNDX)
	THIS SUBROUTINE GENERATES INTERNAL ARRAYS CONTAINING BUFR DICTIONARY TABLES WHICH ARE NEEDED TO READ, WRITE, INITIALIZE OR APPEND A BUFR FILE. More...

Detailed Description

Author

WOOLLEN

Date

1994-01-06

Definition in file readdx.f.

Function/Subroutine Documentation

subroutine readdx	(		LUNIT,
			LUN,
			LUNDX
	)

THIS SUBROUTINE GENERATES INTERNAL ARRAYS CONTAINING BUFR DICTIONARY TABLES WHICH ARE NEEDED TO READ, WRITE, INITIALIZE OR APPEND A BUFR FILE.

THE INFORMATION USED TO CREATE THE INTERNAL DICTIONARY TABLE ARRAYS (IN MODULE TABABD) AND THE DICTIONARY MESSAGE CONTROL WORD PARTITION ARRAYS (IN MODULE MSGCWD) (WHICH ARE ALWAYS THEN ASSOCIATED WITH THE BUFR FILE IN LUNIT) MAY COME FROM AN EXTERNAL, USER-SUPPLIED, BUFR DICTIONARY TABLE FILE IN CHARACTER FORMAT (I.E., A BUFR MNEMONIC TABLE), FROM THE BUFR FILE BEING ACTED UPON (IN WHICH CASE THE FILE MUST BE OPENED FOR INPUT PROCESSING AND POSITIONED AT A DICTIONARY TABLE MESSAGE SOMEWHERE IN THE FILE), OR FROM ANOTHER CURRENTLY OPENED AND DEFINED BUFR FILE. IN THIS LATTER CASE, THE BUFR FILE WOULD MOST LIKELY BE OPENED FOR INPUT, HOWEVER THERE IS NOTHING PREVENTING THE USE OF A FILE OPEN FOR OUTPUT AS LONG AS IT IS ASSOCIATED WITH INTERNAL DICTIONARY ARRAYS THAT CAN BE USED.

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" 2003-11-04 S. BENDER – ADDED REMARKS/BUFRLIB ROUTINE INTERDEPENDENCIES 2003-11-04 D. KEYSER – UNIFIED/PORTABLE FOR WRF; ADDED DOCUMENTATION (INCLUDING HISTORY); OUTPUTS MORE COMPLETE DIAGNOSTIC INFO WHEN ROUTINE TERMINATES ABNORMALLY OR FOR INFORMATIONAL PURPOSES 2009-04-21 J. ATOR – USE ERRWRT

USAGE: CALL READDX (LUNIT, LUN, LUNDX) INPUT ARGUMENT LIST: LUNIT - INTEGER: FORTRAN LOGICAL UNIT NUMBER FOR BUFR FILE BEING READ, WRITTEN, INITIALIZED OR APPENDED LUN - INTEGER: I/O STREAM INDEX INTO INTERNAL MEMORY ARRAYS (ASSOCIATED WITH FILE CONNECTED TO LOGICAL UNIT LUNIT) LUNDX - INTEGER: FORTRAN LOGICAL UNIT NUMBER CONTAINING DICTIONARY TABLE INFORMATION TO BE USED IN READING/ WRITING FROM/TO LUNIT (DEPENDING ON THE CASE); MAY BE SET EQUAL TO LUNIT IF DICTIONARY TABLE INFORMATION IS ALREADY EMBEDDED IN LUNIT (BUT ONLY IF LUNIT IS BEING READ)

REMARKS: THIS ROUTINE CALLS: BORT CPBFDX ERRWRT MAKESTAB RDBFDX RDUSDX STATUS THIS ROUTINE IS CALLED BY: OPENBF WRITDX Normally not called by any application programs.

Definition at line 54 of file readdx.f.

References bort(), cpbfdx(), errwrt(), makestab(), rdbfdx(), rdusdx(), and status().

Referenced by openbf(), and writdx().