C*	Allocate array to hold list of WMO Resolution 40 bulletin headers.
C*
	PARAMETER	( MXR40B = 800 )
C*	
	CHARACTER	cr40b ( MXR40B )*11
C*
        COMMON /BUFRBL/  iunbfo, nr40b, cr40b
C*
C*      Acceleration due to gravity
C*
        PARAMETER       (  GPGRAV = 9.8  )
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
     +	     (	LWDOSW  =  1,  LWPOSW  =  2,  LWHOSW  =  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  CTDS  HOCT'  )
C*
C*	Set the total number of CLD parameters that will be used.
C*
	PARAMETER	( NCCLD = 6 )
C*
C*	List the relative location within CCLDST of each CLD parameter.
C*
	PARAMETER
     +	     (	LCVSSO  =  1,  LCCLAM  =  2,  LCCLTP  =  3  ,
     +          LCHOCB  =  4,  LCCTDS  =  5,  LCHOCT  =  6  )