C*--------------------------------------------------------------------------- C* Set the BUFR WND (Wind) parameters. C* C* C* Define the WND parameters that will be used. C* CHARACTER*(*) CWNDST PARAMETER ( CWNDST = + 'WDIR WSPD DDWD DDWS' ) C* C* Set the total number of WND parameters that will be used. C* PARAMETER ( NCWND = 4 ) C* C* List the relative location within CWNDST of each WND parameter. C* PARAMETER + ( LCWDIR = 1, LCWSPD = 2, + LCDDWD = 3, LCDDWS = 4 ) C*--------------------------------------------------------------------------- C* Set the BUFR RSH (River stage height) parameters. C* C* Define the RSH parameters that will be used. C* CHARACTER*(*) CRSHST PARAMETER ( CRSHST = + 'RSHM DDRS' ) C* C* Set the total number of RSH parameters that will be used. C* PARAMETER ( NCRSH = 2 ) C* C* List the relative location within CRSHST of each RSH parameter. C* PARAMETER + ( LDRSHM = 1, LDDDRS = 2 ) C*--------------------------------------------------------------------------- C* Set the BUFR DCH (Discharge) parameters. C* C* Define the DCH parameters that will be used. C* CHARACTER*(*) CDCHST PARAMETER ( CDCHST = + 'DCHG DDDC' ) C* C* Set the total number of DCH parameters that will be used. C* PARAMETER ( NCDCH = 2 ) C* C* List the relative location within CDCHST of each DCH parameter. C* PARAMETER + ( LDDCHG = 1, LDDDDC = 2 ) C*--------------------------------------------------------------------------- C* Set the BUFR PCP (precip) parameters. C* C* Define the PCP parameters that will be used. C* CHARACTER*(*) CPCPST PARAMETER ( CPCPST = + 'TOPC DDPC' ) C* C* Set the total number of PCP parameters that will be used. C* PARAMETER ( NCPCP = 2 ) C* C* List the relative location within CPCPST of each PCP parameter. C* PARAMETER + ( LDTOPC = 1, LDDDPC = 2 )