SUBROUTINE P3_DCOD  ( cldt, bufrtb, nhours, iret )
C************************************************************************
C* P3_DCOD                                                              *
C*                                                                      *
C* This routine decodes tail doppler radar bulletins into BUFR format.  *
C*                                                                      *
C* P3_DCOD  ( CLDT, BUFRTB, NHOURS, IRET )                              *
C*                                                                      *
C* Input parameters:                                                    *
C*      CLDT            CHAR*           Date-time from command line     *
C*      BUFRTB          CHAR*           BUFR tables file                *
C*      NHOURS          INTEGER         Max # of hours before run time  *
C*                                      for creating BUFR output        *
C*                                                                      *
C* Output parameters:                                                   *
C*      IRET            INTEGER         Return code:                    *
C*                                      0 = normal return.              *
C*                                                                      *
C**                                                                     *
C* Log:                                                                 *
C* S. Guan/NCEP         09/10   Initial version                         *
C************************************************************************
        INCLUDE         'GEMPRM.PRM'
        INCLUDE         'BRIDGE.PRM'
C*
        CHARACTER       logmsg*200
        CHARACTER*(*)   cldt, bufrtb
C*
        CHARACTER       bull*(5000000), 
     +                  seqnum*8, buhd*8, cborg*8, bulldt*8, bbb*8,
     +                  rundt*12, sysdt*12
C*
        INTEGER         irundt (5), ibuldt (5), irptdt (5)
C*
        LOGICAL         bullok, rptok
C-----------------------------------------------------------------------
        iret = 0
C
C*      Open the BUFR tables file.
C
        CALL FL_SOPN  ( bufrtb, iunbft, ierspn )
        IF  ( ierspn .ne. 0 )  THEN
            CALL DC_WLOG  ( 0, 'FL', ierspn, bufrtb, ierwlg )
            RETURN
        END IF
C
C*	Open the BUFR output file.
C
	CALL FL_GLUN  ( iunbfo, iergln )
	IF  ( iergln .ne. 0 )  THEN
	    CALL DC_WLOG  ( 0, 'FL', iergln, ' ', ierwlg )
	    RETURN
	END IF
C
C*	Connect the BUFR tables and output files to the
C*	BUFR interface.
C
	CALL OPENBF  ( iunbfo, 'NUL', iunbft )
C
C*	Close the BUFR tables file.
C
        CALL FL_CLOS  ( iunbft, iercls )
        IF  ( iercls .ne. 0 )  THEN
            CALL DC_WLOG  ( 0, 'FL', iercls, ' ', ierwlg )
        END IF
C
	DO WHILE  ( .true. )
C
C*	    Get a new bulletin from the input pipe.
C
	    CALL DC_GBUL  ( bull, lenb, ifdtyp, iergbl )
	    IF  ( iergbl .ne. 0 )  THEN
C
C*		A time-out occurred while waiting for a new bulletin
C*		on the input pipe.  Shut down the decoder and exit.
C
		CALL DC_WLOG  ( 0, 'DC', iergbl, ' ', ierwlg )
		CALL CLOSBF  ( iunbfo )
		CALL FL_CLAL  ( iercal )
		RETURN
	    END IF
	    bullok = .true.
C
C*	    Decode the header information from this bulletin.
C
	    IF  ( ifdtyp .eq. 0 )  THEN
C
C*		Decode WMO products.
C
	        CALL DC_GHDR  ( bull, lenb, seqnum, buhd, cborg,
     +				bulldt, bbb, ibptr, ierghd )
		IF  ( ierghd .ne. 0 )  THEN
		    CALL DC_WLOG  ( 2, 'DC', ierghd, ' ', ierwlg )
		    bullok = .false.
		ELSE
C
C*		    Start an entry for this bulletin in the decoder log.
C
		    logmsg = '####################' //
     +			     '####################'
		    CALL DC_WLOG  ( 2, 'P3', 1, logmsg, ierwlg )
		    logmsg = seqnum // buhd // cborg // bulldt // bbb
		    CALL DC_WLOG  ( 2, 'P3', 1, logmsg, ierwlg )
		END IF
	    ELSE
C
C*		Do not decode this products.
C
		bullok = .false.
	    END IF
            IF  ( bullok )  THEN
C
C*              Is this bulletin P3 radar data?
C
                IF  (( buhd (1:6) .eq. 'URNT16' ) .and.
     +              ( cborg (1:4) .eq. 'KWBC' )) THEN
                     bullok = .true.
                ELSE
                     bullok = .false.
                END IF
             END IF
            

	    IF  ( bullok )  THEN
C
C*		Get the system time.
C
		itype = 1
		CALL CSS_GTIM  ( itype, sysdt, iergtm )
		IF  ( iergtm .ne. 0 )  THEN
		    CALL DC_WLOG  ( 2, 'SS', iergtm, ' ', ierwlg )
		    bullok = .false.
		END IF
	    END IF
	    IF  ( bullok )  THEN
C
C*		If a date-time was entered on the command line, then
C*		use it as the run date-time.  Otherwise, use the
C*		system time as the run date-time.
C
		IF  ( cldt .eq. 'SYSTEM' )  THEN
		    rundt = sysdt
		ELSE
		    CALL TI_STAN  ( cldt, sysdt, rundt, ierstn )
		    IF  ( ierstn .ne. 0 )  THEN
			CALL DC_WLOG  ( 2, 'TI', ierstn, ' ', ierwlg )
			bullok = .false.
		    END IF
		END IF
	    END IF
	    IF  ( bullok )  THEN
C
C*		Convert the run date-time to integer.
C
		CALL TI_CTOI  ( rundt, irundt, iercto )
		IF  ( iercto .ne. 0 )  THEN
		    CALL DC_WLOG  ( 2, 'TI', iercto, ' ', ierwlg )
		    bullok = .false.
		END IF
	    END IF
            CALL p3_read(bull, lenb, ibptr, iunbfo, iret)
            IF  ( iret .ne. 0 )  THEN
C
C*                  There are no more reports in this bulletin.
C
                bullok = .false.
C
C*                  Make sure that all BUFR output for this bulletin
C*                  has been written out before going back to DC_GBUL
C*                  and waiting for a new bulletin on the input pipe.
C
                CALL UT_WBFR  ( iunbfo, 'radarp3', 1, ierwbf )
            END IF
C
	END DO
C*
	RETURN
	END