52 SUBROUTINE openmb(LUNIT,SUBSET,JDATE)
65 CALL
status(lunit,lun,il,im)
73 CALL
nemtba(lun,subset,mtyp,mstb,inod)
74 OPEN = im.EQ.0.OR.inod.NE.inode(lun).OR.
i4dy(jdate).NE.idate(lun)
81 CALL
wtstat(lunit,lun,il, 1)
85 idate(lun) =
i4dy(jdate)
98 900 CALL
bort(
'BUFRLIB: OPENMB - OUTPUT BUFR FILE IS CLOSED, IT '//
99 .
'MUST BE OPEN FOR OUTPUT')
100 901 CALL
bort(
'BUFRLIB: OPENMB - OUTPUT BUFR FILE IS OPEN FOR '//
101 .
'INPUT, IT MUST BE OPEN FOR OUTPUT')
function i4dy(IDATE)
This function converts a date-time with a 2-digit year (YYMMDDHH) to a date-time with a 4-digit year ...
subroutine usrtpl(LUN, INVN, NBMP)
THIS SUBROUTINE STORES THE SUBSET TEMPLATE INTO INTERNAL SUBSET ARRAYS IN MODULE USRINT FOR CASES OF ...
subroutine openmb(LUNIT, SUBSET, JDATE)
This subroutine opens and initializes a new BUFR message within internal arrays, for eventual output ...
subroutine wtstat(LUNIT, LUN, IL, IM)
This subroutine can be used to connect or disconnect a specified Fortran logical unit number to/from ...
subroutine status(LUNIT, LUN, IL, IM)
This subroutine checks whether a specified Fortran logical unit number is currently connected to the ...
subroutine msgini(LUN)
THIS SUBROUTINE INITIALIZES, WITHIN THE INTERNAL ARRAYS, A NEW BUFR MESSAGE FOR OUTPUT.
subroutine closmg(LUNIN)
This subroutine closes the BUFR message that is currently open for writing within internal arrays ass...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
subroutine nemtba(LUN, NEMO, MTYP, MSBT, INOD)
This subroutine searches for a descriptor within Table A of the internal DX BUFR tables.