C
        COMMON /BUFRBL/  iunbfo,   istyp,   r8ary
C
        REAL*8   R8ARY(15,50)
C---------------------------------------------------------------------------
C*      Set the BUFR TEL (Tidal elevation) parameters.
C*
C*      Define the TEL parameters that will be used.
C*
        CHARACTER*(*)   CTELST
        PARAMETER       (  CTELST =
     +          'TERC  TIDER'  )
C*
C*      Set the total number of TEL parameters that will be used.
C*
        PARAMETER       ( NCTEL = 2 )
C*
C*      List the relative location within CTELST of each TEL parameter.
C*
        PARAMETER
     +       (  LTTERC  =  1,  LTMRTE  =  2  )

C