42 COMMON /maxcmp/ maxcmb,maxrow,maxcol,ncmsgs,ncsubs,ncbyts
43 COMMON /dxtab / maxdx,idxv,nxstr(10),ldxa(10),ldxb(10),ldxd(10),
53 IF((maxo.EQ.0).OR.(maxo.GT.mxmsgl))
THEN
60 IF(maxbyt.NE.newsiz)
THEN
61 CALL
errwrt(
'++++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++++')
62 WRITE ( unit=errstr, fmt=
'(A,A,I7,A,I7)' )
63 .
'BUFRLIB: MAXOUT - THE RECORD LENGTH OF ALL BUFR MESSAGES ',
64 .
'CREATED FROM THIS POINT ON IS BEING CHANGED FROM ', maxbyt,
67 CALL
errwrt(
'++++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++++')
subroutine errwrt(STR)
This subroutine allows the user to specify a custom location for the logging of error and diagnostic ...
This module contains array and variable declarations used to store BUFR messages internally for multi...
subroutine maxout(MAXO)
This subroutine allows the user to define the maximum length of a BUFR message that can be written to...