55 CHARACTER*128 bort_str
62 CALL
status(lunit,lun,il,im)
65 CALL
nemtab(lun,nemo,idn,tab,iret)
66 IF(tab.NE.
'D') goto 901
69 IF(fxy(2:3).NE.
'63') goto 902
70 READ(fxy(4:6),
'(F3.0)',err=903) qcd
76 900 CALL
bort(
'BUFRLIB: UFBQCD - BUFR FILE IS CLOSED, IT MUST BE'//
78 901
WRITE(bort_str,
'("BUFRLIB: UFBQCD - INPUT MNEMONIC ",A," NOT '//
79 .
'DEFINED AS A SEQUENCE DESCRIPTOR IN BUFR TABLE")') nemo
81 902
WRITE(bort_str,
'("BUFRLIB: UFBQCD - BUFR TABLE SEQ. DESCRIPTOR '//
82 .
'ASSOC. WITH INPUT MNEMONIC ",A," HAS INVALID CATEGORY ",A," -'//
83 .
' CATEGORY MUST BE 63")') nemo,fxy(2:3)
85 903
WRITE(bort_str,
'("BUFRLIB: UFBQCD - ERROR READING ENTRY '//
86 .
'(PROGRAM CODE) FROM BUFR TBL SEQ. DESCRIPTOR ",A," ASSOC. '//
87 .
'WITH INPUT MNEM. ",A)') fxy,nemo
character *(*) function adn30(IDN, L30)
This function converts an FXY value from its bit-wise (integer) representation to its 5 or 6 characte...
subroutine ufbqcd(LUNIT, NEMO, QCD)
THIS SUBROUTINE READS IN A MNEMONIC KNOWN TO BE IN THE BUFR TABLE ASSOCIATED WITH THE BUFR FILE IN LO...
subroutine status(LUNIT, LUN, IL, IM)
This subroutine checks whether a specified Fortran logical unit number is currently connected to the ...
subroutine nemtab(LUN, NEMO, IDN, TAB, IRET)
This subroutine returns information about a descriptor from the internal DX BUFR tables, based on the mnemonic associated with that descriptor.
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...