33 SUBROUTINE rtrcpt(LUNIT,IYR,IMO,IDY,IHR,IMI,IRET)
42 CALL
status(lunit,lun,il,im)
49 CALL
rtrcptb(mbay(1,lun),iyr,imo,idy,ihr,imi,iret)
55 900 CALL
bort(
'BUFRLIB: RTRCPT - INPUT BUFR FILE IS CLOSED; IT '//
56 .
'MUST BE OPEN FOR INPUT')
57 901 CALL
bort(
'BUFRLIB: RTRCPT - INPUT BUFR FILE IS OPEN FOR '//
58 .
'OUTPUT; IT MUST BE OPEN FOR INPUT')
59 902 CALL
bort(
'BUFRLIB: RTRCPT - A MESSAGE MUST BE OPEN IN INPUT '//
60 .
'BUFR FILE; NONE ARE')
subroutine rtrcptb(MBAY, IYR, IMO, IDY, IHR, IMI, IRET)
This subroutine reads the tank receipt time (if one exists) from Section 1 of a BUFR message...
subroutine status(LUNIT, LUN, IL, IM)
This subroutine checks whether a specified Fortran logical unit number is currently connected to the ...
subroutine rtrcpt(LUNIT, IYR, IMO, IDY, IHR, IMI, IRET)
This subroutine reads the tank receipt time (if one exists) from Section 1 of a BUFR message...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
This module contains array and variable declarations used to store BUFR messages internally for multi...