SUBROUTINE UG_IFPT  ( loglev, rimnem, cimnem, iret )
C************************************************************************
C* UG_IFPT								*
C*									*
C* This subroutine prints the interface values arrays to the decoder	*
C* log if the verbosity level is LOGLEV or higher.			*
C*									*
C* UG_IFPT  ( LOGLEV, RIMNEM, CIMNEM, IRET )				*
C*                                                                      *
C* Input parameters:                                                    *
C*	LOGLEV          INTEGER         Indicator for log printing	*
C*	RIMNEM (*)	CHAR*		Real interface mnemonics	*
C*	CIMNEM (*)	CHAR*		Char interface mnemonics        *
C*									*
C* Output parameters:							*
C*	IRET		INTEGER		Return code 			*
C*					  0 = normal return 		*
C*									*
C**									*
C* Log:									*
C* C. Caruso Magee/NCEP 05/05	*
C************************************************************************
	INCLUDE		'GEMPRM.PRM'
	INCLUDE		'ugcmn.cmn'
C*
	CHARACTER*(*)	rimnem (*), cimnem (*)
C
        INTEGER loglev, loglvl
C-----------------------------------------------------------------------
	iret = 0
        loglvl = loglev
C
C*      Print all of the single-level character interface values
C*      that are not missing.
C
        CALL DC_IFPC ( loglvl, cimnem, civals, NCIMN, ierf )
C
C*      Print all of the single-level real interface values
C*      that are not missing.
C
	CALL DC_IFPR  ( loglvl, rimnem, rivals, NRSLMN, ierfpr )
C
C*      Print all of the multi-level interface values.
C
C*      Print the wind data.
C
        IF  ( rivals ( irnwnd ) .gt. 0 )  THEN
C        
            WRITE ( UNIT = logmsg, FMT = '( 5A10 )' )
     +          rimnem ( irnwnd ),
     +          rimnem ( irwdir (1) ), rimnem ( irwspd (1) ),
     +          rimnem ( irddwd (1) ), rimnem ( irddws (1) )
            CALL DC_WLOG  ( loglvl, 'DC', 2, logmsg (1:60), ierwlg )
            WRITE ( UNIT = logmsg, FMT = '( 5F10.2 )' )
     +          rivals ( irnwnd ),
     +          rivals ( irwdir (1) ), rivals ( irwspd (1) ),
     +          rivals ( irddwd (1) ), rivals ( irddws (1) )
C               
            CALL DC_WLOG  ( loglvl, 'DC', 2, logmsg (1:60), ierwlg )
C        
            IF  ( rivals ( irnwnd ) .gt. 1 )  THEN
                DO jj = 2, rivals ( irnwnd )
                     WRITE ( UNIT = logmsg,
     +                      FMT = '( 10X, 4F10.2 )' )
     +               rivals ( irwdir ( jj ) ), rivals ( irwspd ( jj ) ),
     +               rivals ( irddwd ( jj ) ), rivals ( irddws ( jj ) ) 
                     CALL DC_WLOG  ( loglvl, 'DC', 2, logmsg (1:60),
     +                               ierwlg )
                 END DO
            END IF
        END IF
C
C*      Print the river stage height data.
C
        IF  ( rivals ( irnrsh ) .gt. 0 )  THEN
C        
            WRITE ( UNIT = logmsg, FMT = '( 3A10 )' )
     +          rimnem ( irnrsh ),
     +          rimnem ( irrshm (1) ), rimnem ( irddrs (1) ) 
            CALL DC_WLOG  ( loglvl, 'DC', 2, logmsg (1:60), ierwlg )
            WRITE ( UNIT = logmsg, FMT = '( 3F10.2 )' )
     +          rivals ( irnrsh ),
     +          rivals ( irrshm (1) ), rivals ( irddrs (1) ) 
C               
            CALL DC_WLOG  ( loglvl, 'DC', 2, logmsg (1:60), ierwlg )
C        
            IF  ( rivals ( irnrsh ) .gt. 1 )  THEN
                DO jj = 2, rivals ( irnrsh )
                     WRITE ( UNIT = logmsg,
     +                      FMT = '( 10X, 2F10.2 )' )
     +               rivals ( irrshm ( jj ) ), rivals ( irddrs ( jj ) ) 
                     CALL DC_WLOG  ( loglvl, 'DC', 2, logmsg (1:60),
     +                               ierwlg )
                 END DO
            END IF
        END IF
C
C*      Print the river discharge data.
C
        IF  ( rivals ( irndch ) .gt. 0 )  THEN
C        
            WRITE ( UNIT = logmsg, FMT = '( 3A10 )' )
     +          rimnem ( irndch ),
     +          rimnem ( irdchg (1) ), rimnem ( irdddc (1) ) 
            CALL DC_WLOG  ( loglvl, 'DC', 2, logmsg (1:60), ierwlg )
            WRITE ( UNIT = logmsg, FMT = '( 3F10.2 )' )
     +          rivals ( irndch ),
     +          rivals ( irdchg (1) ), rivals ( irdddc (1) ) 
C               
            CALL DC_WLOG  ( loglvl, 'DC', 2, logmsg (1:60), ierwlg )
C        
            IF  ( rivals ( irndch ) .gt. 1 )  THEN
                DO jj = 2, rivals ( irndch )
                     WRITE ( UNIT = logmsg,
     +                      FMT = '( 10X, 2F10.2 )' )
     +               rivals ( irdchg ( jj ) ), rivals ( irdddc ( jj ) ) 
                     CALL DC_WLOG  ( loglvl, 'DC', 2, logmsg (1:60),
     +                               ierwlg )
                 END DO
            END IF
        END IF
C
C*      Print the precipitation data.
C
        IF  ( rivals ( irnpcp ) .gt. 0 )  THEN
C        
            WRITE ( UNIT = logmsg, FMT = '( 3A10 )' )
     +          rimnem ( irnpcp ),
     +          rimnem ( irprec (1) ), rimnem ( irddpc (1) ) 
            CALL DC_WLOG  ( loglvl, 'DC', 2, logmsg (1:60), ierwlg )
            WRITE ( UNIT = logmsg, FMT = '( 3F10.2 )' )
     +          rivals ( irnpcp ),
     +          rivals ( irprec (1) ), rivals ( irddpc (1) ) 
C               
            CALL DC_WLOG  ( loglvl, 'DC', 2, logmsg (1:60), ierwlg )
C        
            IF  ( rivals ( irnpcp ) .gt. 1 )  THEN
                DO jj = 2, rivals ( irnpcp )
                     WRITE ( UNIT = logmsg,
     +                      FMT = '( 10X, 2F10.2 )' )
     +               rivals ( irprec ( jj ) ), rivals ( irddpc ( jj ) ) 
                     CALL DC_WLOG  ( loglvl, 'DC', 2, logmsg (1:60),
     +                               ierwlg )
                 END DO
            END IF
        END IF
C*
	RETURN
	END