nemtbax.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	nemtbax (LUN, NEMO, MTYP, MSBT, INOD)
	THIS SUBROUTINE SEARCHES FOR MNEMONIC NEMO WITHIN THE INTERNAL TABLE A ARRAYS HOLDING THE DICTIONARY TABLE (ARRAYS IN MODULE TABABD) AND, IF FOUND, RETURNS INFORMATION ABOUT THAT MNEMONIC FROM WITHIN THESE ARRAYS. More...

Detailed Description

Author

WOOLLEN

Date

1999-11-18

Definition in file nemtbax.f.

Function/Subroutine Documentation

subroutine nemtbax	(		LUN,
		character*(*)	NEMO,
			MTYP,
			MSBT,
			INOD
	)

THIS SUBROUTINE SEARCHES FOR MNEMONIC NEMO WITHIN THE INTERNAL TABLE A ARRAYS HOLDING THE DICTIONARY TABLE (ARRAYS IN MODULE TABABD) AND, IF FOUND, RETURNS INFORMATION ABOUT THAT MNEMONIC FROM WITHIN THESE ARRAYS.

IT IS IDENTICAL TO BUFR ARCHIVE LIBRARY SUBROUTINE NEMTBA EXCEPT THAT, IF NEMO IS NOT FOUND, THIS SUBROUTINE RETURNS WITH INOD EQUAL TO ZERO, WHEREAS NEMTBA CALLS BUFR ARCHIVE LIBRARY SUBROUTINE BORT IN SUCH CASES.

PROGRAM HISTORY LOG: 1999-11-18 J. WOOLLEN – ORIGINAL AUTHOR 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 2014-12-10 J. ATOR – USE MODULES INSTEAD OF COMMON BLOCKS

USAGE: CALL NEMTBAX (LUN, NEMO, MTYP, MSBT, INOD) INPUT ARGUMENT LIST: LUN - INTEGER: I/O STREAM INDEX INTO INTERNAL MEMORY ARRAYS NEMO - CHARACTER*(*): TABLE A MNEMONIC TO SEARCH FOR

OUTPUT ARGUMENT LIST: MTYP - INTEGER: MESSAGE TYPE CORRESPONDING TO NEMO MSBT - INTEGER: MESSAGE SUBTYPE CORRESPONDING TO NEMO INOD - INTEGER: POSITIONAL INDEX OF NEMO WITHIN INTERNAL JUMP/LINK TABLE IF NEMO FOUND 0 = NEMO not found

REMARKS: THIS ROUTINE CALLS: BORT THIS ROUTINE IS CALLED BY: CKTABA IOK2CPY NEMTBA STNDRD Normally not called by any application programs.

Definition at line 40 of file nemtbax.f.

References bort().

Referenced by cktaba(), iok2cpy(), nemtba(), and stndrd().