NCEPLIBS-bufr  11.6.0
 All Data Structures Files Functions Variables Pages
dumpbf.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine dumpbf (LUNIT, JDATE, JDUMP)
 THIS SUBROUTINE RETURNS THE SECTION 1 DATE IN THE FIRST TWO NON-DICTIONARY BUFR MESSAGES IN LOGICAL UNIT LUNIT WHICH CONTAIN ZERO SUBSETS. More...
 

Detailed Description

Author
WOOLLEN
Date
1996-12-11

Definition in file dumpbf.f.

Function/Subroutine Documentation

subroutine dumpbf (   LUNIT,
dimension(5)  JDATE,
dimension(5)  JDUMP 
)

THIS SUBROUTINE RETURNS THE SECTION 1 DATE IN THE FIRST TWO NON-DICTIONARY BUFR MESSAGES IN LOGICAL UNIT LUNIT WHICH CONTAIN ZERO SUBSETS.

NORMALLY, THESE "DUMMY" MESSAGES APPEAR ONLY IN DATA DUMP FILES AND ARE IMMEDIATELY AFTER THE DICTIONARY MESSAGES. THEY CONTAIN A DUMP "CENTER TIME" AND A DUMP FILE "PROCESSING TIME", RESPECTIVELY. LUNIT SHOULD NOT BE PREVIOUSLY OPENED TO THE BUFR INTERFACE.

PROGRAM HISTORY LOG: 1996-12-11 J. WOOLLEN – ORIGINAL AUTHOR 1996-12-17 J. WOOLLEN – CORRECTED ERROR IN DUMP DATE READER 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 2003-05-19 M. SHIREY – REPLACED CALLS TO FORTRAN INSRINSIC FUNCTION ICHAR WITH THE NCEP W3LIB C- FUNCTION MOVA2I BECAUSE ICHAR DOES NOT WORK PROPERLY ON SOME MACHINES (E.G., IBM FROST/ SNOW) (NOTE: ON 2003-??-??, MOVA2I WAS ADDED TO THE BUFRLIB AS A FORTRAN FUNCTION) 2003-11-04 S. BENDER – ADDED REMARKS/BUFRLIB ROUTINE INTERDEPENDENCIES 2003-11-04 D. KEYSER – MODIFIED DATE CALCULATIONS TO NO LONGER USE FLOATING POINT ARITHMETIC SINCE THIS CAN LEAD TO ROUND OFF ERROR AND AN IMPROPER RESULTING DATE ON SOME MACHINES (E.G., NCEP IBM FROST/SNOW), INCREASES PORTABILITY; UNIFIED/PORTABLE FOR WRF; ADDED DOCUMENTATION (INCLUDING HISTORY); OUTPUTS MORE COMPLETE DIAGNOSTIC INFO WHEN ROUTINE TERMINATES ABNORMALLY OR UNUSUAL THINGS HAPPEN 2004-08-18 J. ATOR – MODIFIED 'BUFR' STRING TEST FOR PORTABILITY TO EBCDIC MACHINES 2004-12-20 D. KEYSER – CALLS WRDLEN TO INITIALIZE LOCAL MACHINE INFORMATION (IN CASE IT HAS NOT YET BEEN CALLED), THIS ROUTINE DOES NOT REQUIRE IT BUT 2004-08-18 CHANGE CALLS OTHER ROUTINES THAT DO REQUIRE IT 2005-11-29 J. ATOR – USE IUPBS01, IGETDATE, GETLENS AND RDMSGW 2009-03-23 J. ATOR – USE IDXMSG, IUPBS3 AND ERRWRT 2012-09-15 J. WOOLLEN – MODIFIED FOR C/I/O/BUFR INTERFACE; USE NEW OPENBF TYPE 'INX' TO OPEN AND CLOSE THE C FILE WITHOUT CLOSING THE FORTRAN FILE 2014-12-10 J. ATOR – USE MODULES INSTEAD OF COMMON BLOCKS

USAGE: CALL DUMPBF (LUNIT, JDATE, JDUMP) INPUT ARGUMENT LIST: LUNIT - INTEGER: FORTRAN LOGICAL UNIT NUMBER FOR BUFR FILE

OUTPUT ARGUMENT LIST: JDATE - INTEGER: 5-WORD ARRAY CONTAINING THE YEAR (YYYY OR YY, DEPENDING ON DATELEN() VALUE), MONTH, DAY, HOUR AND MINUTE FROM SECTION 1 OF THE FIRST NON-DICTIONARY BUFR MESSAGE WITH ZERO SUBSETS (NORMALLY THE DATA DUMP CENTER TIME IN A DATA DUMP FILE); OR 5*-1 IF THIS COULD NOT BE LOCATED JDUMP - INTEGER: 5-WORD ARRAY CONTAINING THE YEAR (YYYY OR YY, DEPENDING ON DATELEN() VALUE), MONTH, DAY, HOUR AND MINUTE FROM SECTION 1 OF THE SECOND NON-DICTIONARY BUFR MESSAGE WITH ZERO SUBSETS (NORMALLY THE FILE PROCESSING TIME IN A DATA DUMP FILE); OR 5*-1 IF THIS COULD NOT BE LOCATED

INPUT FILES: UNIT "LUNIT" - BUFR FILE

REMARKS: THIS ROUTINE CALLS: BORT ERRWRT IDXMSG IGETDATE IUPBS01 IUPBS3 RDMSGW STATUS WRDLEN THIS ROUTINE IS CALLED BY: None Normally called only by application programs.

Definition at line 80 of file dumpbf.f.

References bort(), closbf(), errwrt(), idxmsg(), igetdate(), iupbs01(), iupbs3(), openbf(), rdmsgw(), status(), and wrdlen().