stntbi.f

Go to the documentation of this file.

C> @file
C> @brief Store a new entry within the internal BUFR Table B or D.
C> @author Ator @date 2009-03-23
 
C> Store a new entry within the internal BUFR Table B or D.
C>
C> This subroutine stores a new entry within internal BUFR
C> Table B or D, depending on the value of NUMB.
C>
C> @param[in] N - integer: storage index into internal Table B or D.
C> @param[in] LUN - integer: File ID.
C> @param[in] NUMB - character*6: FXY number for new Table B or D entry
C> (in format FXXYYY).
C> @param[in] NEMO - character*8: mnemonic corresponding to NUMB.
C> @param[in] CELSQ - character*55: element or sequence description
C> corresponding to NUMB.
C>
C> @author Ator @date 2009-03-23
        SUBROUTINE stntbi ( N, LUN, NUMB, NEMO, CELSQ )
 
        USE moda_tababd
 
        CHARACTER*(*) NUMB, NEMO, CELSQ
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
        CALL nenubd ( nemo, numb, lun )
 
        IF ( numb(1:1) .EQ. '0') THEN
            idnb(n,lun) = ifxy(numb)
            tabb(n,lun)( 1: 6) = numb(1:6)
            tabb(n,lun)( 7:14) = nemo(1:8)
            tabb(n,lun)(16:70) = celsq(1:55)
            ntbb(lun) = n
        ELSE IF ( numb(1:1) .EQ. '3') THEN
            idnd(n,lun) = ifxy(numb)
            tabd(n,lun)( 1: 6) = numb(1:6)
            tabd(n,lun)( 7:14) = nemo(1:8)
            tabd(n,lun)(16:70) = celsq(1:55)
            ntbd(lun) = n
        ENDIF
 
        RETURN
        END