maxout.f

Go to the documentation of this file.

C> @file
C> @brief Define a customized maximum length for output BUFR messages.

C> This subroutine allows the user to define the maximum length of a
C> BUFR message that can be written to an output file by the BUFRLIB
C> software.
C>
C> This subroutine can be called from within an application program at
C> any time after the initial call to subroutine openbf(), and the
C> specified value MAXO will then be used for all future BUFR messages
C> written by the software to all output files for the remainder of
C> the program, unless another call is made to this same subroutine
C> to reset the value of MAXO again.  Otherwise, if this subroutine
C> is never called, a default maximum message length is used for all
C> output files, as set via an initial internal call to subroutine
C> bfrini().
C>
C> @authors J. Woollen
C> @authors J. Ator
C> @date 2002-05-14
C>
C> @param[in] MAXO --  integer: New maximum length (in bytes) for
C>                     all BUFR messages written to all output files
C>                     - 0 = Set MAXO to the maximum value allowed
C>                           by the BUFRLIB software
C>
C> <b>Program history log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 2002-05-14 | J. Woollen | Original author |
C> | 2004-08-09 | J. Ator    | Maximum message length increased from 20,000 to 50,000 bytes |
C> | 2006-04-14 | J. Ator    | Added MAXO=0 option and overflow check |
C> | 2009-03-23 | D. Keyser  | No longer print record length change diagnostic if requested record length is the same as the previous value |
C> | 2009-04-21 | J. Ator    | Use errwrt() |
C> | 2014-12-10 | J. Ator    | Use modules instead of COMMON blocks |
C> | 2015-09-24 | D. Stokes  | Correct typos in docblock |
C>
      SUBROUTINE maxout(MAXO)

      USE moda_bitbuf

      COMMON /maxcmp/ maxcmb,maxrow,maxcol,ncmsgs,ncsubs,ncbyts
      COMMON /dxtab / maxdx,idxv,nxstr(10),ldxa(10),ldxb(10),ldxd(10),
     .                ld30(10),dxstr(10)
      COMMON /quiet / iprt

      CHARACTER*128   errstr
      CHARACTER*56    dxstr

C-----------------------------------------------------------------------
C-----------------------------------------------------------------------

      IF((maxo.EQ.0).OR.(maxo.GT.mxmsgl)) THEN
         newsiz = mxmsgl
      ELSE
         newsiz = maxo
      ENDIF

      IF(iprt.GE.0) THEN
         IF(maxbyt.NE.newsiz) THEN
      CALL errwrt('++++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++++')
      WRITE ( unit=errstr, fmt='(A,A,I7,A,I7)' )
     . 'BUFRLIB: MAXOUT - THE RECORD LENGTH OF ALL BUFR MESSAGES ',
     . 'CREATED FROM THIS POINT ON IS BEING CHANGED FROM ', maxbyt,
     . ' TO ', newsiz
      CALL errwrt(errstr)
      CALL errwrt('++++++++++++++BUFR ARCHIVE LIBRARY+++++++++++++++++')
      CALL errwrt(' ')
         ENDIF
      ENDIF

      maxbyt = newsiz
      maxcmb = newsiz
      maxdx  = newsiz

      RETURN
      END