C*	Allocate array to hold list of WMO bulletins containing restricted
C*	ship data.
C*
	PARAMETER	( MXRSHPB = 200 )
C*
	CHARACTER	crshpb ( MXRSHPB )*11
C*
        COMMON /BUFRBL/  iunbfo, nrshpb, crshpb
C*---------------------------------------------------------------------------
C*      Set the BUFR SWV (Swell wave direction/period/height) parameters.
C*
C*      Define the SWV parameters that will be used.
C*
        CHARACTER*(*)   CSWVST
        PARAMETER       (  CSWVST =
     +          'DOSW  POSW  HOSW'  )
C*
C*      Set the total number of SWV parameters that will be used.
C*
        PARAMETER       ( NCSWV = 3 )
C*
C*      List the relative location within CSWVST of each SWV parameter.
C*
        PARAMETER
     +       (  LSDOSW  =  1,  LSPOSW  =  2,  LSHOSW  =  3  )
C*---------------------------------------------------------------------------
C*      Set the BUFR CLD (Cloud) parameters.
C*
C*      Define the CLD parameters that will be used.
C*
        CHARACTER*(*)   CCLDST
        PARAMETER       (  CCLDST =
     +          'VSSO  CLAM  CLTP  HOCB'  )
C*
C*      Set the total number of CLD parameters that will be used.
C*
        PARAMETER       ( NCCLD = 4 )
C*
C*      List the relative location within CCLDST of each CLD parameter.
C*
        PARAMETER
     +       (  LCVSSO  =  1,  LCCLAM  =  2,  LCCLTP  =  3  ,
     *          LCHOCB  =  4  )
C*---------------------------------------------------------------------------
C*	Set the BUFR DTS (Depth/temperature/salinity) parameters.
C*
C*	Define the DTS parameters that will be used.
C*
	CHARACTER*(*)	CDTSST
	PARAMETER	(  CDTSST =
     +		'DBSS  STMP  SALN'  )
C*
C*	Set the total number of DTS parameters that will be used.
C*
	PARAMETER	( NCDTS = 3 )
C*
C*	List the relative location within CDTSST of each DTS parameter.
C*
	PARAMETER
     +	     (	LDDBSS  =  1,  LDSTMP  =  2,  LDSALN  =  3  )
C*---------------------------------------------------------------------------
C*	Set the BUFR PKW (peak wind) parameters.
C*
C*	Define the PKW parameters that will be used.
C*
	CHARACTER*(*)	CPKWST
	PARAMETER	(  CPKWST =
     +		'YEAR  MNTH  DAYS  HOUR  MINU  PKWDDR  PKWDSP'  )
C*
C*	Set the total number of PKW parameters that will be used.
C*
	PARAMETER	( NCPKW = 7 )
C*
C*	List the relative location within CPKWST of each PKW parameter.
C*
	PARAMETER
     +	     (	LPYEAR  =  1,  LPMNTH  =  2,  LPDAYS  =  3, 
     +          LPHOUR  =  4,  LPMINU  =  5,  LPPKWD  =  6,
     +          LPPKWS  =  7  )
C*---------------------------------------------------------------------------
C*	Set the BUFR CWD (continuous wind) parameters.
C*
C*	Define the CWD parameters that will be used.
C*
	CHARACTER*(*)	CCWDST
	PARAMETER	(  CCWDST =
     +		'TPMI  WDRC  WDSC  '  )
C*
C*	Set the total number of CWD parameters that will be used.
C*
	PARAMETER	( NCCWD = 3 )
C*
C*	List the relative location within CCWDST of each CWD parameter.
C*
	PARAMETER
     +	     (	LWTPMI  =  1,  LWWDRC  =  2,  LWWDSC  =  3  )