PARAMETER ( MXPRWE = MXWLYR * 4 ) C* Maximum number of present weather C* values within a BUFR message C* PARAMETER ( GPGRAV = 9.8 ) C* Acceleration due to gravity C*---------------------------------------------------------------------- C* Set the BUFR TRB parameters. C* C* Define the TRB parameters that will be used. C* CHARACTER*(*) CTRBST PARAMETER ( CTRBST = + 'DGOT HBOT HTOT' ) C* C* Set the total number of TRB parameters that will be used. C* PARAMETER ( NCTRB = 3 ) C* C* List the relative location within CTRBST of each TRB parameter. C* PARAMETER + ( LUDGOT = 1, LUHBOT = 2, LUHTOT = 3 ) C*---------------------------------------------------------------------- C* Set the BUFR ICG parameters. C* C* Define the ICG parameters that will be used. C* CHARACTER*(*) CICGST PARAMETER ( CICGST = + 'AFIC HBOI HTOI' ) C* C* Set the total number of ICG parameters that will be used. C* PARAMETER ( NCICG = 3 ) C* C* List the relative location within CICGST of each ICG parameter. C* PARAMETER + ( LIAFIC = 1, LIHBOI = 2, LIHTOI = 3 ) C*---------------------------------------------------------------------- C* Set the BUFR PWX parameters. C* C* Define the PWX parameters that will be used. C* CHARACTER*(*) CPWXST PARAMETER ( CPWXST = + 'PRWE HBWX HTWX' ) C* C* Set the total number of PWX parameters that will be used. C* PARAMETER ( NCPWX = 3 ) C* C* List the relative location within CPWXST of each PWX parameter. C* PARAMETER + ( LXPRWE = 1, LXHBWX = 2, LXHTWX = 3 ) C*---------------------------------------------------------------------- C* Set the BUFR CLD parameters. C* C* Define the CLD parameters that will be used. C* CHARACTER*(*) CCLDST PARAMETER ( CCLDST = + 'CLAM CLTP HOCB ' // + 'HOCT' ) 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 + ( LCCLAM = 1, LCCLTP = 2, LCHOCB = 3, + LCHOCT = 4 )