ufbpos.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	ufbpos (LUNIT, IREC, ISUB, SUBSET, JDATE)
	THIS SUBROUTINE SHOULD ONLY BE CALLED WHEN LOGICAL UNIT LUNIT HAS BEEN OPENED FOR INPUT OPERATIONS. More...

Detailed Description

Author

WOOLLEN

Date

1995-11-22

Definition in file ufbpos.f.

Function/Subroutine Documentation

subroutine ufbpos	(		LUNIT,
			IREC,
			ISUB,
		character*8	SUBSET,
			JDATE
	)

THIS SUBROUTINE SHOULD ONLY BE CALLED WHEN LOGICAL UNIT LUNIT HAS BEEN OPENED FOR INPUT OPERATIONS.

IT POSITIONS THE MESSAGE POINTER TO A USER-SPECIFIED BUFR MESSAGE NUMBER IN THE FILE CONNECTED TO LUNIT AND THEN CALLS BUFR ARCHIVE LIBRARY SUBROUTINE READMG TO READ THIS BUFR MESSAGE INTO A MESSAGE BUFFER (ARRAY MBAY IN MODULE BITBUF). IT THEN POSITIONS THE SUBSET POINTER TO A USER-SPECIFIED SUBSET NUMBER WITHIN THE BUFR MESSAGE AND CALLS BUFR ARCHIVE LIBRARY SUBROUTINE READSB TO READ THIS SUBSET INTO INTERNAL SUBSET ARRAYS. THE BUFR MESSAGE HERE MAY BE EITHER COMPRESSED OR UNCOMPRESSED. THE USER-SPECIFIED MESSAGE NUMBER DOES NOT INCLUDE ANY DICTIONARY MESSAGES THAT MAY BE AT THE TOP OF THE FILE).

PROGRAM HISTORY LOG: 1995-11-22 J. WOOLLEN – ORIGINAL AUTHOR (WAS IN-LINED IN PROGRAM NAM_STNMLIST) 2005-03-04 D. KEYSER – ADDED TO BUFR ARCHIVE LIBRARY; ADDED DOCUMENTATION 2005-11-29 J. ATOR – USE IUPBS01 AND RDMSGW 2006-04-14 J. ATOR – REMOVE UNNECESSARY MOIN INITIALIZATION 2009-03-23 J. ATOR – MODIFIED TO HANDLE EMBEDDED BUFR TABLE (DICTIONARY) MESSAGES 2014-12-10 J. ATOR – USE MODULES INSTEAD OF COMMON BLOCKS

USAGE: CALL UFBPOS( LUNIT, IREC, ISUB, SUBSET, JDATE ) INPUT ARGUMENT LIST: LUNIT - INTEGER: FORTRAN LOGICAL UNIT NUMBER FOR BUFR FILE IREC - INTEGER: POINTER TO BUFR MESSAGE NUMBER (RECORD) IN FILE (DOES NOT INCLUDE ANY DICTIONARY MESSSAGES THAT MAY BE AT THE TOP OF THE FILE) ISUB - INTEGER: POINTER TO SUBSET NUMBER TO READ IN BUFR MESSAGE

OUTPUT ARGUMENT LIST: SUBSET - CHARACTER*8: TABLE A MNEMONIC FOR TYPE OF BUFR MESSAGE BEING READ JDATE - INTEGER: DATE-TIME STORED WITHIN SECTION 1 OF BUFR MESSAGE BEING READ, IN FORMAT OF EITHER YYMMDDHH OR YYYYMMDDHH, DEPENDING ON DATELEN() VALUE

REMARKS: THIS ROUTINE CALLS: BORT CEWIND NMSUB READMG READSB STATUS UFBCNT UPB THIS ROUTINE IS CALLED BY: None Normally called only by application programs.

Definition at line 51 of file ufbpos.f.

References bort(), cewind(), nmsub(), readmg(), readsb(), status(), ufbcnt(), and upb().