minimg.f

Go to the documentation of this file.

C> @file
C> @brief Write a minutes value into Section 1 of a BUFR message.

C> This subroutine writes a minutes value into Section 1 of the BUFR
C> message that was most recently opened for writing via a call to
C> one of the [message-writing subroutines](@ref hierarchy) for a
C> specified Fortran logical unit.
C>
C> @author J. Woollen
C> @date 1994-01-06
C>
C> @param[in] LUNIT  - integer: Fortran logical unit number for
C>                              BUFR file
C> @param[in] MINI   - integer: Minutes value
C>
C> <b>Program history log:</b>
C> - 1994-01-06  J. Woollen -- Original author
C> - 1998-07-08  J. Woollen -- Replaced call to Cray library routine ABORT
C>                             with call to new internal routine bort()
C> - 1999-11-18  J. Woollen -- The number of BUFR files which can be
C>                             opened at one time increased from 10 to 32
C>                             (necessary in order to process multiple
C>                             BUFR files under the MPI)
C> - 2000-09-19  J. Woollen -- Maximum message length increased from
C>                             10,000 to 20,000 bytes
C> - 2002-05-14  J. Woollen -- Changed from an entry point to increase
C>                             portability to other platforms
C> - 2003-11-04  J. Ator    -- Added documentation
C> - 2004-08-09  J. Ator    -- Maximum message length increased from
C>                             20,000 to 50,000 bytes
C> - 2005-11-29  J. Ator    -- Use pkbs1()
C> - 2014-12-10  J. Ator    -- Use modules instead of COMMON blocks
C>
      SUBROUTINE minimg(LUNIT,MINI)

      USE moda_bitbuf

      CALL status(lunit,lun,il,im)
      IF(il.EQ.0) goto 900
      IF(il.LT.0) goto 901
      IF(im.EQ.0) goto 902

      CALL pkbs1(mini,mbay(1,lun),'MINU')

C  EXITS
C  -----

      RETURN
900   CALL bort('BUFRLIB: MINIMG - OUTPUT BUFR FILE IS CLOSED, IT '//
     . 'MUST BE OPEN FOR OUTPUT')
901   CALL bort('BUFRLIB: MINIMG - OUTPUT BUFR FILE IS OPEN FOR '//
     . 'INPUT, IT MUST BE OPEN FOR OUTPUT')
902   CALL bort('BUFRLIB: MINIMG - A MESSAGE MUST BE OPEN IN OUTPUT '//
     . 'BUFR FILE, NONE ARE')
      END