closbf.F

Go to the documentation of this file.

C> @file
C> @brief Close a previously opened system file and disconnect it from
C> the BUFRLIB software.

C> This subroutine closes the connection between logical unit
C> LUNIT and the BUFRLIB software.
C>
C> @authors J. Woollen
C> @authors J. Ator
C> @date 1994-01-06
C>
C> @param[in] LUNIT    - integer: Fortran logical unit number for BUFR file
C>
C> @remarks
C> - This subroutine will execute a Fortran "CLOSE" on logical unit LUNIT,
C> even though subroutine openbf() didn't previously handle the corresponding
C> Fortran "OPEN" of the same file.
C> - It's a good idea to call this subroutine for every LUNIT that was
C> opened to the software via openbf(); however, it's especially
C> important to do so when writing/encoding a BUFR file, in order to
C> ensure that all output is properly flushed to LUNIT.
C>
C> <b>Program history log:</b>
C> - 1994-01-06  J. Woollen -- Original author
C> - 2003-11-04  J. Ator    -- Don't close lunit if opened as a NULL file
C>                             by openbf()
C> - 2003-11-04  S. Bender  -- Added remarks and routine interdependencies
C> - 2003-11-04  D. Keyser  -- Unified/portable for WRF; added history
C>                             documentation
C> - 2012-09-15  J. Woollen -- Modified for C/I/O/BUFR interface;
C>                             added call to closfb() to close C files
C> - 2014-12-10  J. Ator    -- Use modules instead of COMMON blocks
C> - 2020-07-16  J. Ator    -- Add sanity check to ensure that openbf()
C>                             was previously called (needed for GSI)
C> 
      SUBROUTINE closbf(LUNIT)

      USE moda_nulbfr

      CHARACTER*128 errstr

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

#ifdef DYNAMIC_ALLOCATION
      IF ( .NOT. ALLOCATED(null) ) THEN
        CALL errwrt('++++++++++++++++++++WARNING++++++++++++++++++++++')
        errstr = 'BUFRLIB: CLOSBF WAS CALLED WITHOUT HAVING ' //
     .           'PREVIOUSLY CALLED OPENBF'
        CALL errwrt(errstr)
        CALL errwrt('++++++++++++++++++++WARNING++++++++++++++++++++++')
        RETURN
      ENDIF
#endif

      CALL status(lunit,lun,il,im)
      IF(il.GT.0 .AND. im.NE.0) CALL closmg(lunit)
      IF(il.NE.0 .AND. null(lun).EQ.0) CALL closfb(lun)
      CALL wtstat(lunit,lun,0,0)

C  CLOSE fortran UNIT IF NULL(LUN) = 0
C  -----------------------------------

      IF(null(lun).EQ.0) CLOSE(lunit)

      RETURN
      END