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 )