ungrib/src/ngl/g2/params.f

   1       module params
   2 !$$$  SUBPROGRAM DOCUMENTATION BLOCK
   3 !                .      .    .                                       .
   4 ! MODULE:    params
   5 !   PRGMMR: Gilbert         ORG: W/NP11    DATE: 2001-06-05
   6 !
   7 ! ABSTRACT: This Fortran Module contains info on all the available
   8 !           GRIB Parameters.
   9 !
  10 ! PROGRAM HISTORY LOG:
  11 ! 2000-05-11  Gilbert
  12 ! 2003-08-07  Gilbert  -  Added more parameters
  13 ! 2003-09-26  Gilbert  -  Added more parameters
  14 ! 2005-11-17  Gordon   -  Added more parameters for the Wave & Smoke models
  15 ! 2007-03-28  Vuong    -  Added more parameters
  16 ! 2007-10-10  Vuong    -  Added more parameters
  17 ! 2008-03-12  Vuong    -  Added more parameters
  18 ! 2008-06-30  Vuong    -  Reformat entry paramlist from 1 to 173
  19 !                         Added more parameters and entire table 131
  20 ! 2008-11-21  Vuong    -  Added more parameters
  21 ! 2009-06-02  Vuong    -  Added more parameters
  22 ! 2009-12-14  Vuong    -  Correction VEGT(4.2-0-210)
  23 ! 2010-07-27  Vuong    -  Added more parameters
  24 ! 2010-12-06  Vuong    -  Added more parameters
  25 ! 2011-05-24  Vuong    -  Added more parameters
  26 ! 2011-09-12  Vuong    -  Added more parameters
  27 !
  28 ! USAGE:    use params
  29 !
  30 ! ATTRIBUTES:
  31 !   LANGUAGE: Fortran 90
  32 !   MACHINE:  IBM SP
  33 !
  34 !$$$
  35
  36       integer,parameter :: MAXPARAM=755
  37
  38       type gribparam
  39           integer :: g1tblver
  40           integer :: grib1val
  41           integer :: grib2dsc
  42           integer :: grib2cat
  43           integer :: grib2num
  44           character(len=8) :: abbrev
  45       end type gribparam
  46
  47       type(gribparam),dimension(MAXPARAM) :: paramlist
  48
  49       data paramlist(1) /gribparam(2,1,0,3,0,'PRES')/
  50       data paramlist(2) /gribparam(2,2,0,3,1,'PRMSL')/
  51       data paramlist(3) /gribparam(2,3,0,3,2,'PTEND')/
  52       data paramlist(4) /gribparam(2,4,0,2,14,'PVORT')/
  53       data paramlist(5) /gribparam(2,5,0,3,3,'ICAHT')/
  54       data paramlist(6) /gribparam(2,6,0,3,4,'GP')/
  55       data paramlist(7) /gribparam(2,7,0,3,5,'HGT')/
  56       data paramlist(8) /gribparam(2,8,0,3,6,'DIST')/
  57       data paramlist(9) /gribparam(2,9,0,3,7,'HSTDV')/
  58       data paramlist(10) /gribparam(2,10,0,14,0,'TOZNE')/
  59       data paramlist(11) /gribparam(2,11,0,0,0,'TMP')/
  60       data paramlist(12) /gribparam(2,12,0,0,1,'VTMP')/
  61       data paramlist(13) /gribparam(2,13,0,0,2,'POT')/
  62       data paramlist(14) /gribparam(2,14,0,0,3,'EPOT')/
  63       data paramlist(15) /gribparam(2,15,0,0,4,'TMAX')/
  64       data paramlist(16) /gribparam(2,16,0,0,5,'TMIN')/
  65       data paramlist(17) /gribparam(2,17,0,0,6,'DPT')/
  66       data paramlist(18) /gribparam(2,18,0,0,7,'DEPR')/
  67       data paramlist(19) /gribparam(2,19,0,0,8,'LAPR')/
  68       data paramlist(20) /gribparam(2,20,0,19,0,'VIS')/
  69       data paramlist(21) /gribparam(2,21,0,15,6,'RDSP1')/
  70       data paramlist(22) /gribparam(2,22,0,15,7,'RDSP2')/
  71       data paramlist(23) /gribparam(2,23,0,15,8,'RDSP3')/
  72       data paramlist(24) /gribparam(2,24,0,7,0,'PLI')/
  73       data paramlist(25) /gribparam(2,25,0,0,9,'TMP A')/
  74       data paramlist(26) /gribparam(2,26,0,3,8,'PRESA')/
  75       data paramlist(27) /gribparam(2,27,0,3,9,'GP A')/
  76       data paramlist(28) /gribparam(2,28,10,0,0,'WVSP1')/
  77       data paramlist(29) /gribparam(2,29,10,0,1,'WVSP2')/
  78       data paramlist(30) /gribparam(2,30,10,0,2,'WVSP3')/
  79       data paramlist(31) /gribparam(2,31,0,2,0,'WDIR')/
  80       data paramlist(32) /gribparam(2,32,0,2,1,'WIND')/
  81       data paramlist(33) /gribparam(2,33,0,2,2,'U GRD')/
  82       data paramlist(34) /gribparam(2,34,0,2,3,'V GRD')/
  83       data paramlist(35) /gribparam(2,35,0,2,4,'STRM')/
  84       data paramlist(36) /gribparam(2,36,0,2,5,'VPOT')/
  85       data paramlist(37) /gribparam(2,37,0,2,6,'MNTSF')/
  86       data paramlist(38) /gribparam(2,38,0,2,7,'SGCVV')/
  87       data paramlist(39) /gribparam(2,39,0,2,8,'V VEL')/
  88       data paramlist(40) /gribparam(2,40,0,2,9,'DZDT')/
  89       data paramlist(41) /gribparam(2,41,0,2,10,'ABS V')/
  90       data paramlist(42) /gribparam(2,42,0,2,11,'ABS D')/
  91       data paramlist(43) /gribparam(2,43,0,2,12,'REL V')/
  92       data paramlist(44) /gribparam(2,44,0,2,13,'REL D')/
  93       data paramlist(45) /gribparam(2,45,0,2,15,'VUCSH')/
  94       data paramlist(46) /gribparam(2,46,0,2,16,'VVCSH')/
  95       data paramlist(47) /gribparam(2,47,10,1,0,'DIR C')/
  96       data paramlist(48) /gribparam(2,48,10,1,1,'SP C')/
  97       data paramlist(49) /gribparam(2,49,10,1,2,'UOGRD')/
  98       data paramlist(50) /gribparam(2,50,10,1,3,'VOGRD')/
  99       data paramlist(51) /gribparam(2,51,0,1,0,'SPF H')/
 100       data paramlist(52) /gribparam(2,52,0,1,1,'R H')/
 101       data paramlist(53) /gribparam(2,53,0,1,2,'MIXR')/
 102       data paramlist(54) /gribparam(2,54,0,1,3,'P WAT')/
 103       data paramlist(55) /gribparam(2,55,0,1,4,'VAPP')/
 104       data paramlist(56) /gribparam(2,56,0,1,5,'SAT D')/
 105       data paramlist(57) /gribparam(2,57,0,1,6,'EVP')/
 106       data paramlist(58) /gribparam(2,58,0,6,0,'C ICE')/
 107       data paramlist(59) /gribparam(2,59,0,1,7,'PRATE')/
 108       data paramlist(60) /gribparam(2,60,0,19,2,'TSTM')/
 109       data paramlist(61) /gribparam(2,61,0,1,8,'A PCP')/
 110       data paramlist(62) /gribparam(2,62,0,1,9,'NCPCP')/
 111       data paramlist(63) /gribparam(2,63,0,1,10,'ACPCP')/
 112       data paramlist(64) /gribparam(2,64,0,1,12,'SRWEQ')/
 113       data paramlist(65) /gribparam(2,65,0,1,13,'WEASD')/
 114       data paramlist(66) /gribparam(2,66,0,1,11,'SNO D')/
 115       data paramlist(67) /gribparam(2,67,0,19,3,'MIXHT')/
 116       data paramlist(68) /gribparam(2,68,10,4,2,'TTHDP')/
 117       data paramlist(69) /gribparam(2,69,10,4,0,'MTHD')/
 118       data paramlist(70) /gribparam(2,70,10,4,1,'MTH A')/
 119       data paramlist(71) /gribparam(2,71,0,6,1,'T CDC')/
 120       data paramlist(72) /gribparam(2,72,0,6,2,'CDCON')/
 121       data paramlist(73) /gribparam(2,73,0,6,3,'L CDC')/
 122       data paramlist(74) /gribparam(2,74,0,6,4,'M CDC')/
 123       data paramlist(75) /gribparam(2,75,0,6,5,'H CDC')/
 124       data paramlist(76) /gribparam(2,76,0,6,6,'C WAT')/
 125       data paramlist(77) /gribparam(2,77,0,7,1,'BLI')/
 126       data paramlist(78) /gribparam(2,78,0,1,14,'SNO C')/
 127       data paramlist(79) /gribparam(2,79,0,1,15,'SNO L')/
 128       data paramlist(80) /gribparam(2,80,10,3,0,'WTMP')/
 129       data paramlist(81) /gribparam(2,81,2,0,0,'LAND')/
 130       data paramlist(82) /gribparam(2,82,10,3,1,'DSL M')/
 131       data paramlist(83) /gribparam(2,83,2,0,1,'SFC R')/
 132       data paramlist(84) /gribparam(2,84,0,19,1,'ALBDO')/
 133       data paramlist(85) /gribparam(2,85,2,0,2,'TSOIL')/
 134       data paramlist(86) /gribparam(2,86,2,0,3,'SOIL M')/
 135       data paramlist(87) /gribparam(2,87,2,0,4,'VEG')/
 136       data paramlist(88) /gribparam(2,88,10,4,3,'SALTY')/
 137       data paramlist(89) /gribparam(2,89,0,3,10,'DEN')/
 138       data paramlist(90) /gribparam(2,90,2,0,5,'WATR')/
 139       data paramlist(91) /gribparam(2,91,10,2,0,'ICE C')/
 140       data paramlist(92) /gribparam(2,92,10,2,1,'ICETK')/
 141       data paramlist(93) /gribparam(2,93,10,2,2,'DICED')/
 142       data paramlist(94) /gribparam(2,94,10,2,3,'SICED')/
 143       data paramlist(95) /gribparam(2,95,10,2,4,'U ICE')/
 144       data paramlist(96) /gribparam(2,96,10,2,5,'V ICE')/
 145       data paramlist(97) /gribparam(2,97,10,2,6,'ICE G')/
 146       data paramlist(98) /gribparam(2,98,10,2,7,'ICE D')/
 147       data paramlist(99) /gribparam(2,99,0,1,16,'SNO M')/
 148       data paramlist(100) /gribparam(2,100,10,0,3,'HTSGW')/
 149       data paramlist(101) /gribparam(2,101,10,0,4,'WVDIR')/
 150       data paramlist(102) /gribparam(2,102,10,0,5,'WVHGT')/
 151       data paramlist(103) /gribparam(2,103,10,0,6,'WVPER')/
 152       data paramlist(104) /gribparam(2,104,10,0,7,'SWDIR')/
 153       data paramlist(105) /gribparam(2,105,10,0,8,'SWELL')/
 154       data paramlist(106) /gribparam(2,106,10,0,9,'SWPER')/
 155       data paramlist(107) /gribparam(2,107,10,0,10,'DIRPW')/
 156       data paramlist(108) /gribparam(2,108,10,0,11,'PERPW')/
 157       data paramlist(109) /gribparam(2,109,10,0,12,'DIRSW')/
 158       data paramlist(110) /gribparam(2,110,10,0,13,'PERSW')/
 159       data paramlist(111) /gribparam(2,111,0,4,0,'NSWRS')/
 160       data paramlist(112) /gribparam(2,112,0,5,0,'NLWRS')/
 161       data paramlist(113) /gribparam(2,113,0,4,1,'NSWRT')/
 162       data paramlist(114) /gribparam(2,114,0,5,1,'NLWRT')/
 163       data paramlist(115) /gribparam(2,115,0,5,2,'LWAVR')/
 164       data paramlist(116) /gribparam(2,116,0,4,2,'SWAVR')/
 165       data paramlist(117) /gribparam(2,117,0,4,3,'G RAD')/
 166       data paramlist(118) /gribparam(2,118,0,4,4,'BRTMP')/
 167       data paramlist(119) /gribparam(2,119,0,4,5,'LWRAD')/
 168       data paramlist(120) /gribparam(2,120,0,4,6,'SWRAD')/
 169       data paramlist(121) /gribparam(2,121,0,0,10,'LHTFL')/
 170       data paramlist(122) /gribparam(2,122,0,0,11,'SHTFL')/
 171       data paramlist(123) /gribparam(2,123,0,2,20,'BLYDP')/
 172       data paramlist(124) /gribparam(2,124,0,2,17,'UFLX')/
 173       data paramlist(125) /gribparam(2,125,0,2,18,'VFLX')/
 174       data paramlist(126) /gribparam(2,126,0,2,19,'WMIXE')/
 175       data paramlist(127) /gribparam(2,127,255,255,255,'IMGD')/
 176 !
 177 !  GRIB1 parameters in NCEP Local Table version 2
 178 !  Added 8/07/2003
 179 !
 180       data paramlist(128) /gribparam(2,229,0,0,192,'SNOHF')/
 181       data paramlist(129) /gribparam(2,153,0,1,22,'CLWMR')/
 182       data paramlist(130) /gribparam(2,140,0,1,192,'CRAIN')/
 183       data paramlist(131) /gribparam(2,141,0,1,193,'CFRZR')/
 184       data paramlist(132) /gribparam(2,142,0,1,194,'CICEP')/
 185       data paramlist(133) /gribparam(2,143,0,1,195,'CSNOW')/
 186       data paramlist(134) /gribparam(2,214,0,1,196,'CPRAT')/
 187       data paramlist(135) /gribparam(2,135,0,1,197,'MCONV')/
 188       data paramlist(136) /gribparam(2,194,1,1,193,'CPOFP')/
 189       data paramlist(137) /gribparam(2,228,0,1,199,'PEVAP')/
 190       data paramlist(138) /gribparam(2,136,0,2,192,'VW SH')/
 191       data paramlist(139) /gribparam(2,172,0,2,193,'MFLX')/
 192       data paramlist(140) /gribparam(2,196,0,2,194,'USTM')/
 193       data paramlist(141) /gribparam(2,197,0,2,195,'VSTM')/
 194       data paramlist(142) /gribparam(2,252,0,2,196,'CD')/
 195       data paramlist(143) /gribparam(2,253,0,2,197,'FRICV')/
 196       data paramlist(144) /gribparam(2,130,0,3,192,'MSLET')/
 197       data paramlist(145) /gribparam(2,204,0,4,192,'DSWRF')/
 198       data paramlist(146) /gribparam(2,211,0,4,193,'USWRF')/
 199       data paramlist(147) /gribparam(2,205,0,5,192,'DLWRF')/
 200       data paramlist(148) /gribparam(2,212,0,5,193,'ULWRF')/
 201       data paramlist(149) /gribparam(2,213,0,6,192,'CDLYR')/
 202       data paramlist(150) /gribparam(2,132,0,7,193,'4LFTX')/
 203       data paramlist(151) /gribparam(2,157,0,7,6,'CAPE')/
 204       data paramlist(152) /gribparam(2,156,0,7,7,'CIN')/
 205       data paramlist(153) /gribparam(2,190,0,7,8,'HLCY')/
 206       data paramlist(154) /gribparam(2,131,0,7,192,'LFT X')/
 207       data paramlist(155) /gribparam(2,158,0,19,11,'TKE')/
 208       data paramlist(156) /gribparam(2,176,0,191,192,'NLAT')/
 209       data paramlist(157) /gribparam(2,177,0,191,193,'ELON')/
 210       data paramlist(158) /gribparam(2,234,1,0,192,'BGRUN')/
 211       data paramlist(159) /gribparam(2,235,1,0,193,'SSRUN')/
 212       data paramlist(160) /gribparam(2,144,2,0,192,'SOILW')/
 213       data paramlist(161) /gribparam(2,155,2,0,193,'GFLUX')/
 214       data paramlist(162) /gribparam(2,207,2,0,194,'MSTAV')/
 215       data paramlist(163) /gribparam(2,208,2,0,195,'SFEXC')/
 216       data paramlist(164) /gribparam(2,223,2,0,196,'CNWAT')/
 217       data paramlist(165) /gribparam(2,226,2,0,197,'BMIXL')/
 218       data paramlist(166) /gribparam(2,154,0,14,192,'O3MR')/
 219       data paramlist(167) /gribparam(2,222,0,3,193,'5WAVH')/
 220       data paramlist(168) /gribparam(2,145,0,1,200,'PEVPR')/
 221       data paramlist(169) /gribparam(2,146,0,6,193,'CWORK')/
 222       data paramlist(170) /gribparam(2,147,0,3,194,'U-GWD')/
 223       data paramlist(171) /gribparam(2,148,0,3,195,'V-GWD')/
 224       data paramlist(172) /gribparam(2,221,0,3,196,'HPBL')/
 225       data paramlist(173) /gribparam(2,230,0,3,197,'5WAVA')/
 226 ! Added 9/26/2003
 227       data paramlist(174) /gribparam(130,160,2,3,192,'SOILL   ')/
 228       data paramlist(175) /gribparam(130,171,2,3,193,'RLYRS   ')/
 229       data paramlist(176) /gribparam(130,219,2,0,201,'WILT    ')/
 230       data paramlist(177) /gribparam(130,222,2,3,194,'SLTYP   ')/
 231       data paramlist(178) /gribparam(2,224,2,3,0,'SOTYP   ')/
 232       data paramlist(179) /gribparam(2,225,2,0,198,'VGTYP   ')/
 233       data paramlist(180) /gribparam(130,230,2,3,195,'SMREF   ')/
 234       data paramlist(181) /gribparam(130,231,2,3,196,'SMDRY   ')/
 235       data paramlist(182) /gribparam(2,238,0,1,201,'SNOWC   ')/
 236       data paramlist(183) /gribparam(130,240,2,3,197,'POROS   ')/
 237       data paramlist(184) /gribparam(129,131,0,1,202,'FRAIN   ')/
 238       data paramlist(185) /gribparam(129,132,0,6,199,'FICE    ')/
 239       data paramlist(186) /gribparam(129,133,0,1,203,'FRIME   ')/
 240       data paramlist(187) /gribparam(129,134,0,6,194,'CUEFI   ')/
 241       data paramlist(188) /gribparam(129,135,0,6,195,'TCOND   ')/
 242       data paramlist(189) /gribparam(129,136,0,6,196,'TCOLW   ')/
 243       data paramlist(190) /gribparam(129,137,0,6,197,'TCOLI   ')/
 244       data paramlist(191) /gribparam(129,138,0,1,204,'TCOLR   ')/
 245       data paramlist(192) /gribparam(129,139,0,1,205,'TCOLS   ')/
 246       data paramlist(193) /gribparam(129,140,0,6,198,'TCOLC   ')/
 247       data paramlist(194) /gribparam(130,159,0,19,192,'MXSALB  ')/
 248       data paramlist(195) /gribparam(130,170,0,19,193,'SNFALB  ')/
 249       data paramlist(196) /gribparam(2,170,0,1,24,'RWMR    ')/
 250       data paramlist(197) /gribparam(2,171,0,1,25,'SNMR    ')/
 251       data paramlist(198) /gribparam(130,181,2,0,199,'CCOND   ')/
 252       data paramlist(199) /gribparam(130,203,2,0,200,'RSMIN   ')/
 253       data paramlist(200) /gribparam(130,246,2,0,202,'RCS     ')/
 254       data paramlist(201) /gribparam(130,247,2,0,203,'RCT     ')/
 255       data paramlist(202) /gribparam(130,248,2,0,204,'RCQ     ')/
 256       data paramlist(203) /gribparam(130,249,2,0,205,'RCSOL   ')/
 257       data paramlist(204) /gribparam(2,254,0,7,194,'RI      ')/
 258       data paramlist(205) /gribparam(129,190,3,1,192,'USCT    ')/
 259       data paramlist(206) /gribparam(129,191,3,1,193,'VSCT    ')/
 260       data paramlist(207) /gribparam(129,171,0,191,194,'TSEC    ')/
 261       data paramlist(208) /gribparam(129,180,0,14,193,'OZCON   ')/
 262       data paramlist(209) /gribparam(129,181,0,14,194,'OZCAT   ')/
 263       data paramlist(210) /gribparam(2,193,1,1,2,'POP     ')/
 264       data paramlist(211) /gribparam(2,195,1,1,192,'CPOZP   ')/
 265       data paramlist(212) /gribparam(2,180,0,2,22,'GUST    ')/
 266 ! Added 11/17/2005 - for wave models
 267       data paramlist(213) /gribparam(0,31,0,2,0,'WDIR    ')/
 268       data paramlist(214) /gribparam(0,32,0,2,1,'WIND    ')/
 269       data paramlist(215) /gribparam(0,33,0,2,2,'U GRD   ')/
 270       data paramlist(216) /gribparam(0,34,0,2,3,'V GRD   ')/
 271       data paramlist(217) /gribparam(0,100,10,0,3,'HTSGW   ')/
 272       data paramlist(218) /gribparam(0,101,10,0,4,'WVDIR   ')/
 273       data paramlist(219) /gribparam(0,103,10,0,6,'WVPER   ')/
 274       data paramlist(220) /gribparam(0,107,10,0,10,'DIRPW   ')/
 275       data paramlist(221) /gribparam(0,108,10,0,11,'PERPW   ')/
 276       data paramlist(222) /gribparam(0,109,10,0,12,'DIRSW   ')/
 277       data paramlist(223) /gribparam(0,110,10,0,13,'PERSW   ')/
 278 ! Added 1/26/2006 -
 279       data paramlist(224) /gribparam(129,156,0,13,192,'PMTC    ')/
 280       data paramlist(225) /gribparam(129,157,0,13,193,'PMTF    ')/
 281       data paramlist(226) /gribparam(3,11,0,0,0,'TMP     ')/
 282       data paramlist(227) /gribparam(2,129,0,3,198,'MSLMA   ')/
 283       data paramlist(228) /gribparam(129,163,0,13,194,'LPMTF   ')/
 284       data paramlist(229) /gribparam(129,164,0,13,195,'LIPMF   ')/
 285 ! Added 3/6/2006 - For missing GRIB1 to GRIB2 conversions
 286       data paramlist(230) /gribparam(2,178,0,1,23,'ICMR    ')/
 287       data paramlist(231) /gribparam(2,179,0,1,32,'GRMR    ')/
 288       data paramlist(232) /gribparam(2,186,0,1,206,'TIPD    ')/
 289       data paramlist(233) /gribparam(2,187,0,17,192,'LTNG    ')/
 290       data paramlist(234) /gribparam(2,188,2,0,206,'RDRIP    ')/
 291       data paramlist(235) /gribparam(2,189,0,0,15,'VPTMP   ')/
 292       data paramlist(236) /gribparam(2,198,0,1,207,'NCIP    ')/
 293       data paramlist(237) /gribparam(2,239,0,1,208,'SNOT    ')/
 294       data paramlist(238) /gribparam(2,128,0,3,1,'MSLSA   ')/
 295       data paramlist(239) /gribparam(2,137,0,3,199,'TSLSA   ')/
 296       data paramlist(240) /gribparam(129,141,0,3,200,'PLPL    ')/
 297       data paramlist(241) /gribparam(129,200,0,4,194,'DUVB    ')/
 298       data paramlist(242) /gribparam(129,201,0,4,195,'CDUVB    ')/
 299       data paramlist(243) /gribparam(2,201,2,0,207,'ICWAT    ')/
 300       data paramlist(244) /gribparam(2,209,0,19,204,'MIXLY    ')/
 301       data paramlist(245) /gribparam(2,216,0,0,193,'TTRAD    ')/
 302       data paramlist(246) /gribparam(129,211,0,16,195,'REFD     ')/
 303       data paramlist(247) /gribparam(129,212,0,16,196,'REFC     ')/
 304       data paramlist(248) /gribparam(2,161,0,4,196,'CSDSF    ')/
 305       data paramlist(249) /gribparam(129,168,0,1,209,'TCLSW    ')/
 306       data paramlist(250) /gribparam(129,169,0,1,210,'TCOLM    ')/
 307       data paramlist(251) /gribparam(2,181,0,3,201,'LPS X   ')/
 308       data paramlist(252) /gribparam(2,182,0,3,202,'LPS Y   ')/
 309       data paramlist(253) /gribparam(2,183,0,3,203,'HGT X   ')/
 310       data paramlist(254) /gribparam(2,184,0,3,204,'HGT Y   ')/
 311       data paramlist(255) /gribparam(128,254,0,0,194,'REV     ')/
 312 ! Added 4/20/2007 - For missing GRIB1 to GRIB2 conversions
 313       data paramlist(256) /gribparam(1,91,10,2,0,'ICE C   ')/
 314       data paramlist(257) /gribparam(0,49,10,1,2,'UOGRD   ')/
 315       data paramlist(258) /gribparam(0,50,10,1,3,'VOGRD   ')/
 316       data paramlist(259) /gribparam(0,80,10,3,0,'WTMP    ')/
 317       data paramlist(260) /gribparam(0,82,10,3,1,'DSL M   ')/
 318       data paramlist(261) /gribparam(0,88,10,4,3,'SALTY   ')/
 319       data paramlist(262) /gribparam(1,49,10,1,2,'UOGRD   ')/
 320       data paramlist(263) /gribparam(1,50,10,1,3,'VOGRD   ')/
 321       data paramlist(264) /gribparam(1,80,10,3,0,'WTMP    ')/
 322       data paramlist(265) /gribparam(1,88,10,4,3,'SALTY   ')/
 323       data paramlist(266) /gribparam(1,40,0,2,9,'DZDT    ')/
 324       data paramlist(267) /gribparam(1,67,0,19,3,'MIXHT   ')/
 325       data paramlist(268) /gribparam(3,2,0,3,1,'PRMSL   ')/
 326       data paramlist(269) /gribparam(3,7,0,3,5,'HGT     ')/
 327       data paramlist(270) /gribparam(128,130,10,3,194,'ELEV    ')/
 328       data paramlist(271) /gribparam(129,217,0,1,198,'MINRH   ')/
 329       data paramlist(272) /gribparam(129,218,0,1,27,'MAXRH   ')/
 330       data paramlist(273) /gribparam(130,161,0,1,29,'ASNOW   ')/
 331       data paramlist(274) /gribparam(129,165,0,16,192,'REFZR    ')/
 332       data paramlist(275) /gribparam(129,166,0,16,193,'REFZI    ')/
 333       data paramlist(276) /gribparam(129,167,0,16,194,'REFZC    ')/
 334       data paramlist(277) /gribparam(129,192,0,2,198,'LAUV    ')/
 335       data paramlist(278) /gribparam(129,193,0,2,199,'LOUV    ')/
 336       data paramlist(279) /gribparam(129,188,0,2,200,'LAVV    ')/
 337       data paramlist(280) /gribparam(129,189,0,2,201,'LOVV    ')/
 338       data paramlist(281) /gribparam(129,207,0,2,202,'LAPP    ')/
 339       data paramlist(282) /gribparam(129,208,0,2,203,'LOPP    ')/
 340       data paramlist(283) /gribparam(129,198,10,3,195,'SSHG    ')/
 341       data paramlist(284) /gribparam(1,33,0,2,2,'U GRD   ')/
 342       data paramlist(285) /gribparam(1,34,0,2,3,'V GRD   ')/
 343       data paramlist(286) /gribparam(1,2,0,3,1,'PRMSL   ')/
 344       data paramlist(287) /gribparam(1,7,0,3,5,'HGT     ')/
 345       data paramlist(288) /gribparam(128,186,10,4,192,'WTMPC   ')/
 346       data paramlist(289) /gribparam(128,187,10,4,193,'SALIN   ')/
 347       data paramlist(290) /gribparam(128,177,10,3,196,'P2OMLT  ')/
 348       data paramlist(291) /gribparam(128,178,10,1,192,'OMLU    ')/
 349       data paramlist(292) /gribparam(128,179,10,1,193,'OMLV    ')/
 350       data paramlist(293) /gribparam(128,183,10,1,194,'UBARO   ')/
 351       data paramlist(294) /gribparam(128,184,10,1,195,'VBARO   ')/
 352       data paramlist(295) /gribparam(129,179,0,19,205,'FLGHT   ')/
 353       data paramlist(296) /gribparam(129,185,0,19,206,'CICEL   ')/
 354       data paramlist(297) /gribparam(129,186,0,19,207,'CIVIS   ')/
 355       data paramlist(298) /gribparam(129,187,0,19,208,'CIFLT   ')/
 356       data paramlist(299) /gribparam(129,177,0,19,209,'LAVNI   ')/
 357       data paramlist(300) /gribparam(129,178,0,19,210,'HAVNI   ')/
 358       data paramlist(301) /gribparam(130,189,0,19,211,'SBSALB  ')/
 359       data paramlist(302) /gribparam(130,190,0,19,212,'SWSALB  ')/
 360       data paramlist(303) /gribparam(130,191,0,19,213,'NBSALB  ')/
 361       data paramlist(304) /gribparam(130,192,0,19,214,'NWSALB  ')/
 362       data paramlist(305) /gribparam(129,149,10,0,192,'WSTP    ')/
 363       data paramlist(306) /gribparam(128,188,0,1,211,'EMNP    ')/
 364       data paramlist(307) /gribparam(128,192,0,3,205,'LAYTH   ')/
 365       data paramlist(308) /gribparam(129,219,0,6,13,'CEIL    ')/
 366       data paramlist(309) /gribparam(129,220,0,19,12,'PBLREG ')/
 367       data paramlist(310) /gribparam(130,179,2,0,228,'ACOND  ')/
 368       data paramlist(311) /gribparam(130,198,0,1,212,'SBSNO  ')/
 369       data paramlist(312) /gribparam(2,199,2,3,198,'EVBS    ')/
 370       data paramlist(313) /gribparam(2,200,2,0,229,'EVCW    ')/
 371       data paramlist(314) /gribparam(2,210,2,0,230,'TRANS   ')/
 372       data paramlist(315) /gribparam(129,182,0,2,204,'VEDH    ')/
 373       data paramlist(320) /gribparam(2,241,0,0,195,'LRGHR   ')/
 374       data paramlist(321) /gribparam(2,242,0,0,196,'CNVHR   ')/
 375       data paramlist(322) /gribparam(140,168,0,19,20,'ICIP    ')/
 376       data paramlist(323) /gribparam(140,169,0,19,20,'ICIP    ')/
 377       data paramlist(324) /gribparam(140,170,0,19,21,'CTP     ')/
 378       data paramlist(325) /gribparam(140,171,0,19,21,'CTP     ')/
 379       data paramlist(326) /gribparam(140,172,0,19,22,'CAT     ')/
 380       data paramlist(327) /gribparam(140,173,0,19,22,'CAT     ')/
 381       data paramlist(328) /gribparam(140,174,0,6,25,'CBHE    ')/
 382       data paramlist(329) /gribparam(140,175,255,255,255,'IMGD')/
 383       data paramlist(330) /gribparam(140,176,255,255,255,'IMGD')/
 384       data paramlist(331) /gribparam(140,177,255,255,255,'IMGD')/
 385       data paramlist(332) /gribparam(140,178,255,255,255,'IMGD')/
 386       data paramlist(333) /gribparam(140,179,0,3,3,'ICAHT  ')/
 387       data paramlist(334) /gribparam(140,180,0,3,3,'ICAHT   ')/
 388       data paramlist(335) /gribparam(140,181,255,255,255,'IMGD')/
 389       data paramlist(336) /gribparam(140,182,255,255,255,'IMGD')/
 390       data paramlist(337) /gribparam(129,76,0,6,6,'C WAT   ')/
 391 ! Added 8/24/2007
 392       data paramlist(338) /gribparam(0,104,10,0,7,'SWDIR   ')/
 393       data paramlist(339) /gribparam(0,105,10,0,8,'SWELL   ')/
 394       data paramlist(340) /gribparam(0,106,10,0,9,'SWPER   ')/
 395       data paramlist(341) /gribparam(0,102,10,0,5,'WVHGT   ')/
 396       data paramlist(342) /gribparam(129,213,3,192,0,'SBT122  ')/
 397       data paramlist(343) /gribparam(129,214,3,192,1,'SBT123  ')/
 398       data paramlist(344) /gribparam(129,215,3,192,2,'SBT124  ')/
 399       data paramlist(345) /gribparam(129,216,3,192,3,'SBT126  ')/
 400       data paramlist(346) /gribparam(129,221,3,192,4,'SBC123  ')/
 401       data paramlist(347) /gribparam(129,222,3,192,5,'SBC124  ')/
 402       data paramlist(348) /gribparam(129,228,10,3,192,'SURGE   ')/
 403       data paramlist(349) /gribparam(129,229,10,3,193,'ETSRG   ')/
 404       data paramlist(350) /gribparam(2,149,0,2,14,'PVORT   ')/
 405       data paramlist(351) /gribparam(2,150,0,192,1,'COVMZ   ')/
 406       data paramlist(352) /gribparam(2,151,0,192,2,'COVTZ   ')/
 407       data paramlist(353) /gribparam(2,152,0,192,3,'COVTM   ')/
 408       data paramlist(354) /gribparam(129,202,0,0,197,'THFLX   ')/
 409       data paramlist(355) /gribparam(3,33,0,2,2,'U GRD   ')/
 410       data paramlist(356) /gribparam(3,34,0,2,3,'V GRD   ')/
 411       data paramlist(357) /gribparam(3,40,0,2,9,'DZDT    ')/
 412       data paramlist(358) /gribparam(3,124,0,2,17,'UFLX   ')/
 413       data paramlist(359) /gribparam(3,125,0,2,18,'VFLX   ')/
 414       data paramlist(360) /gribparam(3,8,0,3,6,'DIST    ')/
 415       data paramlist(361) /gribparam(3,13,0,0,2,'POT     ')/
 416       data paramlist(362) /gribparam(3,88,10,4,3,'SALTY   ')/
 417       data paramlist(363) /gribparam(3,49,10,1,2,'UOGRD   ')/
 418       data paramlist(364) /gribparam(3,50,10,1,3,'VOGRD   ')/
 419       data paramlist(365) /gribparam(2,215,0,0,198,'TTDIA    ')/
 420       data paramlist(366) /gribparam(2,217,0,0,199,'TTPHY    ')/
 421       data paramlist(367) /gribparam(130,154,2,3,199,'LSPA    ')/
 422       data paramlist(368) /gribparam(2,250,0,4,197,'SWHR    ')/
 423       data paramlist(369) /gribparam(2,251,0,5,194,'LWHR    ')/
 424       data paramlist(370) /gribparam(2,160,0,4,198,'CSUSF   ')/
 425       data paramlist(371) /gribparam(2,162,0,5,195,'CSULF   ')/
 426       data paramlist(372) /gribparam(2,163,0,5,196,'CSDLF   ')/
 427       data paramlist(373) /gribparam(2,164,0,4,199,'CFNSF   ')/
 428       data paramlist(374) /gribparam(2,165,0,5,197,'CFNLF   ')/
 429       data paramlist(375) /gribparam(2,166,0,4,200,'VBDSF   ')/
 430       data paramlist(376) /gribparam(2,167,0,4,201,'VDDSF   ')/
 431       data paramlist(377) /gribparam(2,168,0,4,202,'NBDSF   ')/
 432       data paramlist(378) /gribparam(2,169,0,4,203,'NDDSF   ')/
 433       data paramlist(379) /gribparam(2,206,0,7,196,'UVI     ')/
 434       data paramlist(380) /gribparam(2,219,0,0,200,'TSD1D   ')/
 435       data paramlist(381) /gribparam(2,220,0,3,206,'NLGSP   ')/
 436       data paramlist(382) /gribparam(2,244,0,0,201,'SHAHR   ')/
 437       data paramlist(383) /gribparam(2,246,0,0,202,'VDFHR   ')/
 438       data paramlist(384) /gribparam(2,243,0,1,213,'CNVMR   ')/
 439       data paramlist(385) /gribparam(2,245,0,1,214,'SHAMR   ')/
 440       data paramlist(386) /gribparam(2,249,0,1,215,'VDFMR   ')/
 441       data paramlist(387) /gribparam(2,247,0,2,208,'VDFUA   ')/
 442       data paramlist(388) /gribparam(2,248,0,2,209,'VDFVA   ')/
 443       data paramlist(389) /gribparam(3,202,0,7,195,'CWDI    ')/
 444       data paramlist(390) /gribparam(2,232,0,4,204,'DTRF    ')/
 445       data paramlist(391) /gribparam(2,233,0,4,205,'UTRF    ')/
 446       data paramlist(392) /gribparam(2,231,0,6,200,'MFLUX   ')/
 447       data paramlist(393) /gribparam(2,202,0,7,195,'CWDI    ')/
 448       data paramlist(394) /gribparam(2,203,0,19,232,'VAFTD   ')/
 449       data paramlist(395) /gribparam(3,238,0,1,201,'SNOWC   ')/
 450       data paramlist(396) /gribparam(3,66,0,1,11,'SNO D   ')/
 451       data paramlist(397) /gribparam(2,133,0,7,2,'KX      ')/
 452       data paramlist(398) /gribparam(2,134,0,7,5,'SX      ')/
 453       data paramlist(399) /gribparam(128,191,10,4,194,'BKENG   ')/
 454       data paramlist(400) /gribparam(129,195,10,4,195,'DBSS    ')/
 455       data paramlist(401) /gribparam(128,171,10,3,197,'AOHFLX  ')/
 456       data paramlist(402) /gribparam(128,180,10,3,198,'ASHFL   ')/
 457       data paramlist(403) /gribparam(128,193,10,3,199,'SSTT    ')/
 458       data paramlist(404) /gribparam(128,194,10,3,200,'SSST    ')/
 459       data paramlist(405) /gribparam(128,190,10,3,201,'KENG    ')/
 460       data paramlist(406) /gribparam(128,185,10,4,196,'INTFD   ')/
 461       data paramlist(407) /gribparam(129,199,10,3,202,'SLTFL   ')/
 462       data paramlist(408) /gribparam(129,197,10,4,197,'OHC     ')/
 463       data paramlist(409) /gribparam(2,159,0,1,216,'CONP    ')/
 464       data paramlist(410) /gribparam(2,175,0,191,195,'MLYNO   ')/
 465       data paramlist(411) /gribparam(129,223,0,1,65,'RPRATE  ')/
 466       data paramlist(412) /gribparam(129,224,0,1,66,'SPRATE  ')/
 467       data paramlist(413) /gribparam(129,225,0,1,67,'FPRATE  ')/
 468       data paramlist(414) /gribparam(129,226,0,1,68,'IPRATE  ')/
 469       data paramlist(415) /gribparam(129,227,0,7,197,'UPHL    ')/
 470       data paramlist(416) /gribparam(3,87,2,0,4,'VEG     ')/
 471       data paramlist(417) /gribparam(129,130,1,1,195,'CWR     ')/
 472       data paramlist(418) /gribparam(2,240,0,192,4,'COVTW   ')/
 473       data paramlist(419) /gribparam(133,164,0,192,5,'COVZZ   ')/
 474       data paramlist(420) /gribparam(133,165,0,192,6,'COVMM   ')/
 475       data paramlist(421) /gribparam(133,166,0,192,7,'COVQZ   ')/
 476       data paramlist(422) /gribparam(133,167,0,192,8,'COVQM   ')/
 477       data paramlist(423) /gribparam(133,168,0,192,9,'COVTVV  ')/
 478       data paramlist(424) /gribparam(133,169,0,192,10,'COVQVV  ')/
 479       data paramlist(425) /gribparam(133,203,0,192,11,'COVPSPS ')/
 480       data paramlist(426) /gribparam(133,206,0,192,12,'COVQQ   ')/
 481       data paramlist(427) /gribparam(133,220,0,192,13,'COVVVVV ')/
 482       data paramlist(428) /gribparam(133,234,0,192,14,'COVTT   ')/
 483       data paramlist(429) /gribparam(133,201,0,0,203,'THZ0    ')/
 484       data paramlist(430) /gribparam(133,195,0,1,218,'QZ0     ')/
 485       data paramlist(431) /gribparam(133,204,0,1,219,'QMAX    ')/
 486       data paramlist(432) /gribparam(133,205,0,1,220,'QMIN    ')/
 487       data paramlist(433) /gribparam(133,181,0,2,210,'GWDU    ')/
 488       data paramlist(434) /gribparam(133,182,0,2,211,'GWDV    ')/
 489       data paramlist(435) /gribparam(133,183,0,2,212,'CNVU    ')/
 490       data paramlist(436) /gribparam(133,184,0,2,213,'CNVV    ')/
 491       data paramlist(437) /gribparam(133,236,0,2,214,'WTEND   ')/
 492       data paramlist(438) /gribparam(133,154,0,2,215,'OMGALF  ')/
 493       data paramlist(439) /gribparam(133,196,0,2,216,'CNGWDU  ')/
 494       data paramlist(440) /gribparam(133,197,0,2,217,'CNGWDV  ')/
 495       data paramlist(441) /gribparam(133,202,0,3,207,'CNVUMF  ')/
 496       data paramlist(442) /gribparam(133,209,0,3,208,'CNVDMF  ')/
 497       data paramlist(443) /gribparam(133,219,0,3,209,'CNVDEMF ')/
 498       data paramlist(444) /gribparam(133,173,0,1,217,'LRGMR   ')/
 499       data paramlist(445) /gribparam(133,174,0,14,195,'VDFOZ   ')/
 500       data paramlist(446) /gribparam(133,175,0,14,196,'POZ     ')/
 501       data paramlist(447) /gribparam(133,188,0,14,197,'TOZ     ')/
 502       data paramlist(448) /gribparam(133,139,0,14,198,'POZT    ')/
 503       data paramlist(449) /gribparam(133,239,0,14,199,'POZO    ')/
 504       data paramlist(450) /gribparam(133,185,2,0,208,'AKHS    ')/
 505       data paramlist(451) /gribparam(133,186,2,0,209,'AKMS    ')/
 506       data paramlist(452) /gribparam(133,193,0,19,218,'EPSR    ')/
 507       data paramlist(453) /gribparam(130,229,0,0,192,'SNOHF   ')/
 508       data paramlist(454) /gribparam(129,194,0,0,204,'TCHP    ')/
 509 ! Added 5/29/2008
 510       data paramlist(455) /gribparam(2,185,0,19,219,'TPFI    ')/
 511       data paramlist(456) /gribparam(130,182,0,7,198,'LAI     ')/
 512       data paramlist(457) /gribparam(2,173,0,3,210,'LMH     ')/
 513       data paramlist(458) /gribparam(2,174,0,2,218,'LMV     ')/
 514 ! Added 6/30/2008   Add GRIB1 parameters in Table version 131
 515        data paramlist(459) /gribparam(131,1,0,3,0,'PRES')/
 516        data paramlist(460) /gribparam(131,2,0,3,1,'PRMSL')/
 517        data paramlist(461) /gribparam(131,3,0,3,2,'PTEND')/
 518        data paramlist(462) /gribparam(131,4,0,2,14,'PVORT')/
 519        data paramlist(463) /gribparam(131,5,0,3,3,'ICAHT')/
 520        data paramlist(464) /gribparam(131,6,0,3,4,'GP')/
 521        data paramlist(465) /gribparam(131,7,0,3,5,'HGT')/
 522        data paramlist(466) /gribparam(131,8,0,3,6,'DIST')/
 523        data paramlist(467) /gribparam(131,9,0,3,7,'HSTDV')/
 524        data paramlist(468) /gribparam(131,10,0,14,0,'TOZNE')/
 525        data paramlist(469) /gribparam(131,11,0,0,0,'TMP')/
 526        data paramlist(470) /gribparam(131,12,0,0,1,'VTMP')/
 527        data paramlist(471) /gribparam(131,13,0,0,2,'POT')/
 528        data paramlist(472) /gribparam(131,14,0,0,3,'EPOT')/
 529        data paramlist(473) /gribparam(131,15,0,0,4,'TMAX')/
 530        data paramlist(474) /gribparam(131,16,0,0,5,'TMIN')/
 531        data paramlist(475) /gribparam(131,17,0,0,6,'DPT')/
 532        data paramlist(476) /gribparam(131,18,0,0,7,'DEPR')/
 533        data paramlist(477) /gribparam(131,19,0,0,8,'LAPR')/
 534        data paramlist(478) /gribparam(131,20,0,19,0,'VIS')/
 535        data paramlist(479) /gribparam(131,21,0,15,6,'RDSP1')/
 536        data paramlist(480) /gribparam(131,22,0,15,7,'RDSP2')/
 537        data paramlist(481) /gribparam(131,23,0,15,8,'RDSP3')/
 538        data paramlist(482) /gribparam(131,24,0,7,0,'PLI')/
 539        data paramlist(483) /gribparam(131,25,0,0,9,'TMPA')/
 540        data paramlist(484) /gribparam(131,26,0,3,8,'PRESA')/
 541        data paramlist(485) /gribparam(131,27,0,3,9,'GPA')/
 542        data paramlist(486) /gribparam(131,28,10,0,0,'WVSP1')/
 543        data paramlist(487) /gribparam(131,29,10,0,1,'WVSP2')/
 544        data paramlist(488) /gribparam(131,30,10,0,2,'WVSP3')/
 545        data paramlist(489) /gribparam(131,31,0,2,0,'WDIR')/
 546        data paramlist(490) /gribparam(131,32,0,2,1,'WIND')/
 547        data paramlist(491) /gribparam(131,33,0,2,2,'UGRD')/
 548        data paramlist(492) /gribparam(131,34,0,2,3,'VGRD')/
 549        data paramlist(493) /gribparam(131,35,0,2,4,'STRM')/
 550        data paramlist(494) /gribparam(131,36,0,2,5,'VPOT')/
 551        data paramlist(495) /gribparam(131,37,0,2,6,'MNTSF')/
 552        data paramlist(496) /gribparam(131,38,0,2,7,'SGCVV')/
 553        data paramlist(497) /gribparam(131,39,0,2,8,'VVEL')/
 554        data paramlist(498) /gribparam(131,40,0,2,9,'DZDT')/
 555        data paramlist(499) /gribparam(131,41,0,2,10,'ABSV')/
 556        data paramlist(500) /gribparam(131,42,0,2,11,'ABSD')/
 557        data paramlist(501) /gribparam(131,43,0,2,12,'RELV')/
 558        data paramlist(502) /gribparam(131,44,0,2,13,'RELD')/
 559        data paramlist(503) /gribparam(131,45,0,2,15,'VUCSH')/
 560        data paramlist(504) /gribparam(131,46,0,2,16,'VVCSH')/
 561        data paramlist(505) /gribparam(131,47,10,1,0,'DIRC')/
 562        data paramlist(506) /gribparam(131,48,10,1,1,'SPC')/
 563        data paramlist(507) /gribparam(131,49,10,1,2,'UOGRD')/
 564        data paramlist(508) /gribparam(131,50,10,1,3,'VOGRD')/
 565        data paramlist(509) /gribparam(131,51,0,1,0,'SPFH')/
 566        data paramlist(510) /gribparam(131,52,0,1,1,'RH')/
 567        data paramlist(511) /gribparam(131,53,0,1,2,'MIXR')/
 568        data paramlist(512) /gribparam(131,54,0,1,3,'PWAT')/
 569        data paramlist(513) /gribparam(131,55,0,1,4,'VAPP')/
 570        data paramlist(514) /gribparam(131,56,0,1,5,'SATD')/
 571        data paramlist(515) /gribparam(131,57,0,1,6,'EVP')/
 572        data paramlist(516) /gribparam(131,58,0,6,0,'CICE')/
 573        data paramlist(517) /gribparam(131,59,0,1,7,'PRATE')/
 574        data paramlist(518) /gribparam(131,60,0,19,2,'TSTM')/
 575        data paramlist(519) /gribparam(131,61,0,1,8,'APCP')/
 576        data paramlist(520) /gribparam(131,62,0,1,9,'NCPCP')/
 577        data paramlist(521) /gribparam(131,63,0,1,10,'ACPCP')/
 578        data paramlist(522) /gribparam(131,64,0,1,12,'SRWEQ')/
 579        data paramlist(523) /gribparam(131,65,0,1,13,'WEASD')/
 580        data paramlist(524) /gribparam(131,66,0,1,11,'SNOD')/
 581        data paramlist(525) /gribparam(131,67,0,19,3,'MIXHT')/
 582        data paramlist(526) /gribparam(131,68,10,4,2,'TTHDP')/
 583        data paramlist(527) /gribparam(131,69,10,4,0,'MTHD')/
 584        data paramlist(528) /gribparam(131,70,10,4,1,'MTHA')/
 585        data paramlist(529) /gribparam(131,71,0,6,1,'TCDC')/
 586        data paramlist(530) /gribparam(131,72,0,6,2,'CDCON')/
 587        data paramlist(531) /gribparam(131,73,0,6,3,'LCDC')/
 588        data paramlist(532) /gribparam(131,74,0,6,4,'MCDC')/
 589        data paramlist(533) /gribparam(131,75,0,6,5,'HCDC')/
 590        data paramlist(534) /gribparam(131,76,0,6,6,'CWAT')/
 591        data paramlist(535) /gribparam(131,77,0,7,1,'BLI')/
 592        data paramlist(536) /gribparam(131,78,0,1,14,'SNOC')/
 593        data paramlist(537) /gribparam(131,79,0,1,15,'SNOL')/
 594        data paramlist(538) /gribparam(131,80,10,3,0,'WTMP')/
 595        data paramlist(539) /gribparam(131,81,2,0,0,'LAND')/
 596        data paramlist(540) /gribparam(131,82,10,3,1,'DSLM')/
 597        data paramlist(541) /gribparam(131,83,2,0,1,'SFCR')/
 598        data paramlist(542) /gribparam(131,84,0,19,1,'ALBDO')/
 599        data paramlist(543) /gribparam(131,85,2,0,2,'TSOIL')/
 600        data paramlist(544) /gribparam(131,86,2,0,3,'SOILM')/
 601        data paramlist(545) /gribparam(131,87,2,0,4,'VEG')/
 602        data paramlist(546) /gribparam(131,88,10,4,3,'SALTY')/
 603        data paramlist(547) /gribparam(131,89,0,3,10,'DEN')/
 604        data paramlist(548) /gribparam(131,90,2,0,5,'WATR')/
 605        data paramlist(549) /gribparam(131,91,10,2,0,'ICEC')/
 606        data paramlist(550) /gribparam(131,92,10,2,1,'ICETK')/
 607        data paramlist(551) /gribparam(131,93,10,2,2,'DICED')/
 608        data paramlist(552) /gribparam(131,94,10,2,3,'SICED')/
 609        data paramlist(553) /gribparam(131,95,10,2,4,'UICE')/
 610        data paramlist(554) /gribparam(131,96,10,2,5,'VICE')/
 611        data paramlist(555) /gribparam(131,97,10,2,6,'ICEG')/
 612        data paramlist(556) /gribparam(131,98,10,2,7,'ICED')/
 613        data paramlist(557) /gribparam(131,99,0,1,16,'SNOM')/
 614        data paramlist(558) /gribparam(131,100,10,0,3,'HTSGW')/
 615        data paramlist(559) /gribparam(131,101,10,0,4,'WVDIR')/
 616        data paramlist(560) /gribparam(131,102,10,0,5,'WVHGT')/
 617        data paramlist(561) /gribparam(131,103,10,0,6,'WVPER')/
 618        data paramlist(562) /gribparam(131,104,10,0,7,'SWDIR')/
 619        data paramlist(563) /gribparam(131,105,10,0,8,'SWELL')/
 620        data paramlist(564) /gribparam(131,106,10,0,9,'SWPER')/
 621        data paramlist(565) /gribparam(131,107,10,0,10,'DIRPW')/
 622        data paramlist(566) /gribparam(131,108,10,0,11,'PERPW')/
 623        data paramlist(567) /gribparam(131,109,10,0,12,'DIRSW')/
 624        data paramlist(568) /gribparam(131,110,10,0,13,'PERSW')/
 625        data paramlist(569) /gribparam(131,111,0,4,0,'NSWRS')/
 626        data paramlist(570) /gribparam(131,112,0,5,0,'NLWRS')/
 627        data paramlist(571) /gribparam(131,113,0,4,1,'NSWRT')/
 628        data paramlist(572) /gribparam(131,114,0,5,1,'NLWRT')/
 629        data paramlist(573) /gribparam(131,115,0,5,2,'LWAVR')/
 630        data paramlist(574) /gribparam(131,116,0,4,2,'SWAVR')/
 631        data paramlist(575) /gribparam(131,117,0,4,3,'GRAD')/
 632        data paramlist(576) /gribparam(131,118,0,4,4,'BRTMP')/
 633        data paramlist(577) /gribparam(131,119,0,4,5,'LWRAD')/
 634        data paramlist(578) /gribparam(131,120,0,4,6,'SWRAD')/
 635        data paramlist(579) /gribparam(131,121,0,0,10,'LHTFL')/
 636        data paramlist(580) /gribparam(131,122,0,0,11,'SHTFL')/
 637        data paramlist(581) /gribparam(131,123,0,2,20,'BLYDP')/
 638        data paramlist(582) /gribparam(131,124,0,2,17,'UFLX')/
 639        data paramlist(583) /gribparam(131,125,0,2,18,'VFLX')/
 640        data paramlist(584) /gribparam(131,126,0,2,19,'WMIXE')/
 641        data paramlist(585) /gribparam(131,127,255,255,255,'IMGD')/
 642        data paramlist(586) /gribparam(131,128,0,3,1,'MSLSA')/
 643        data paramlist(587) /gribparam(131,130,0,3,192,'MSLET')/
 644        data paramlist(588) /gribparam(131,131,0,7,192,'LFTX')/
 645        data paramlist(589) /gribparam(131,132,0,7,193,'4LFTX')/
 646        data paramlist(590) /gribparam(131,134,0,3,212,'PRESN')/
 647        data paramlist(591) /gribparam(131,135,0,1,197,'MCONV')/
 648        data paramlist(592) /gribparam(131,136,0,2,192,'VWSH')/
 649        data paramlist(593) /gribparam(131,137,0,2,219,'PVMWW')/
 650        data paramlist(594) /gribparam(131,140,0,1,192,'CRAIN')/
 651        data paramlist(595) /gribparam(131,141,0,1,193,'CFRZR')/
 652        data paramlist(596) /gribparam(131,142,0,1,194,'CICEP')/
 653        data paramlist(597) /gribparam(131,143,0,1,195,'CSNOW')/
 654        data paramlist(598) /gribparam(131,144,2,0,192,'SOILW')/
 655        data paramlist(599) /gribparam(131,145,0,1,200,'PEVPR')/
 656        data paramlist(600) /gribparam(131,146,2,0,210,'VEGT')/
 657        data paramlist(601) /gribparam(131,147,2,3,200,'BARET')/
 658        data paramlist(602) /gribparam(131,148,2,3,201,'AVSFT')/
 659        data paramlist(603) /gribparam(131,149,2,3,202,'RADT')/
 660        data paramlist(604) /gribparam(131,150,2,0,211,'SSTOR')/
 661        data paramlist(605) /gribparam(131,151,2,0,212,'LSOIL')/
 662        data paramlist(606) /gribparam(131,152,2,0,213,'EWATR')/
 663        data paramlist(607) /gribparam(131,153,0,1,22,'CLWMR')/
 664        data paramlist(608) /gribparam(131,155,2,0,193,'GFLUX')/
 665        data paramlist(609) /gribparam(131,156,0,7,7,'CIN')/
 666        data paramlist(610) /gribparam(131,157,0,7,6,'CAPE')/
 667        data paramlist(611) /gribparam(131,158,0,19,11,'TKE')/
 668        data paramlist(612) /gribparam(131,159,0,19,192,'MXSALB')/
 669        data paramlist(613) /gribparam(131,160,2,3,192,'SOILL')/
 670        data paramlist(614) /gribparam(131,161,0,1,29,'ASNOW')/
 671        data paramlist(615) /gribparam(131,162,0,1,221,'ARAIN')/
 672        data paramlist(616) /gribparam(131,163,2,0,214,'GWREC')/
 673        data paramlist(617) /gribparam(131,164,2,0,215,'QREC')/
 674        data paramlist(618) /gribparam(131,165,0,1,222,'SNOWT')/
 675        data paramlist(619) /gribparam(131,166,0,4,200,'VBDSF')/
 676        data paramlist(620) /gribparam(131,167,0,4,201,'VDDSF')/
 677        data paramlist(621) /gribparam(131,168,0,4,202,'NBDSF')/
 678        data paramlist(622) /gribparam(131,169,0,4,203,'NDDSF')/
 679        data paramlist(623) /gribparam(131,170,0,19,193,'SNFALB')/
 680        data paramlist(624) /gribparam(131,171,2,3,193,'RLYRS')/
 681        data paramlist(625) /gribparam(131,172,0,2,193,'MFLX')/
 682        data paramlist(626) /gribparam(131,173,0,3,210,'LMH')/
 683        data paramlist(627) /gribparam(131,174,0,2,218,'LMV')/
 684        data paramlist(628) /gribparam(131,175,0,191,195,'MLYNO')/
 685        data paramlist(629) /gribparam(131,176,0,191,192,'NLAT')/
 686        data paramlist(630) /gribparam(131,177,0,191,193,'ELON')/
 687        data paramlist(631) /gribparam(131,178,0,1,23,'ICMR')/
 688        data paramlist(632) /gribparam(131,179,2,0,228,'ACOND')/
 689        data paramlist(633) /gribparam(131,180,0,1,17,'SNOAG')/
 690        data paramlist(634) /gribparam(131,181,2,0,199,'CCOND')/
 691        data paramlist(635) /gribparam(131,182,0,7,198,'LAI')/
 692        data paramlist(636) /gribparam(131,183,2,0,216,'SFCRH')/
 693        data paramlist(637) /gribparam(131,184,0,19,19,'SALBD')/
 694        data paramlist(638) /gribparam(131,187,2,0,217,'NDVI')/
 695        data paramlist(639) /gribparam(131,188,2,0,206,'RDRIP')/
 696        data paramlist(640) /gribparam(131,189,2,0,218,'LANDN')/
 697        data paramlist(641) /gribparam(131,190,0,7,8,'HLCY')/
 698        data paramlist(642) /gribparam(131,191,0,191,196,'NLATN')/
 699        data paramlist(643) /gribparam(131,192,0,191,197,'ELONN')/
 700        data paramlist(644) /gribparam(131,194,1,1,193,'CPOFP')/
 701        data paramlist(645) /gribparam(131,196,0,2,194,'USTM')/
 702        data paramlist(646) /gribparam(131,197,0,2,195,'VSTM')/
 703        data paramlist(647) /gribparam(131,198,0,1,212,'SBSNO')/
 704        data paramlist(648) /gribparam(131,199,2,3,198,'EVBS')/
 705        data paramlist(649) /gribparam(131,200,2,0,229,'EVCW')/
 706        data paramlist(650) /gribparam(131,202,0,1,223,'APCPN')/
 707        data paramlist(651) /gribparam(131,203,2,0,200,'RSMIN')/
 708        data paramlist(652) /gribparam(131,204,0,4,192,'DSWRF')/
 709        data paramlist(653) /gribparam(131,205,0,5,192,'DLWRF')/
 710        data paramlist(654) /gribparam(131,206,0,1,224,'ACPCPN')/
 711        data paramlist(655) /gribparam(131,207,2,0,194,'MSTAV')/
 712        data paramlist(656) /gribparam(131,208,2,0,195,'SFEXC')/
 713        data paramlist(657) /gribparam(131,210,2,0,230,'TRANS')/
 714        data paramlist(658) /gribparam(131,211,0,4,193,'USWRF')/
 715        data paramlist(659) /gribparam(131,212,0,5,193,'ULWRF')/
 716        data paramlist(660) /gribparam(131,213,0,6,192,'CDLYR')/
 717        data paramlist(661) /gribparam(131,214,0,1,196,'CPRAT')/
 718        data paramlist(662) /gribparam(131,216,0,0,193,'TTRAD')/
 719        data paramlist(663) /gribparam(131,218,0,3,211,'HGTN')/
 720        data paramlist(664) /gribparam(131,219,2,0,201,'WILT')/
 721        data paramlist(665) /gribparam(130,220,2,3,203,'FLDCP')/
 722        data paramlist(666) /gribparam(131,221,0,3,196,'HPBL')/
 723        data paramlist(667) /gribparam(131,222,2,3,194,'SLTYP')/
 724        data paramlist(668) /gribparam(131,223,2,0,196,'CNWAT')/
 725        data paramlist(669) /gribparam(131,224,2,3,0,'SOTYP')/
 726        data paramlist(670) /gribparam(131,225,2,0,198,'VGTYP')/
 727        data paramlist(671) /gribparam(131,226,2,0,197,'BMIXL')/
 728        data paramlist(672) /gribparam(131,227,2,0,219,'AMIXL')/
 729        data paramlist(673) /gribparam(131,228,0,1,199,'PEVAP')/
 730        data paramlist(674) /gribparam(131,229,0,0,192,'SNOHF')/
 731        data paramlist(675) /gribparam(131,230,2,3,195,'SMREF')/
 732        data paramlist(676) /gribparam(131,231,2,3,196,'SMDRY')/
 733        data paramlist(677) /gribparam(131,232,2,0,220,'WVINC')/
 734        data paramlist(678) /gribparam(131,233,2,0,221,'WCINC')/
 735        data paramlist(679) /gribparam(131,234,1,0,192,'BGRUN')/
 736        data paramlist(680) /gribparam(131,235,1,0,193,'SSRUN')/
 737        data paramlist(681) /gribparam(131,237,2,0,222,'WVCONV')/
 738        data paramlist(682) /gribparam(131,238,0,1,201,'SNOWC')/
 739        data paramlist(683) /gribparam(131,239,0,1,208,'SNOT')/
 740        data paramlist(684) /gribparam(131,240,2,3,197,'POROS')/
 741        data paramlist(685) /gribparam(131,241,2,0,223,'WCCONV')/
 742        data paramlist(686) /gribparam(131,242,2,0,224,'WVUFLX')/
 743        data paramlist(687) /gribparam(131,243,2,0,225,'WVVFLX')/
 744        data paramlist(688) /gribparam(131,244,2,0,226,'WCUFLX')/
 745        data paramlist(689) /gribparam(131,245,2,0,227,'WCVFLX')/
 746        data paramlist(690) /gribparam(131,246,2,0,202,'RCS')/
 747        data paramlist(691) /gribparam(131,247,2,0,203,'RCT')/
 748        data paramlist(692) /gribparam(131,248,2,0,204,'RCQ')/
 749        data paramlist(693) /gribparam(131,249,2,0,205,'RCSOL')/
 750        data paramlist(694) /gribparam(131,250,0,4,197,'SWHR')/
 751        data paramlist(695) /gribparam(131,251,0,5,194,'LWHR')/
 752        data paramlist(696) /gribparam(131,252,0,2,196,'CD')/
 753        data paramlist(697) /gribparam(131,253,0,2,197,'FRICV')/
 754        data paramlist(698) /gribparam(131,254,0,7,194,'RI')/
 755        data paramlist(699) /gribparam(129,62,0,1,9,'NCPCP')/
 756        data paramlist(700) /gribparam(129,63,0,1,10,'ACPCP')/
 757        data paramlist(701) /gribparam(131,220,2,3,203,'FLDCP')/
 758        data paramlist(702) /gribparam(129,231,0,14,200,'OZMAX1')/
 759        data paramlist(703) /gribparam(129,232,0,14,201,'OZMAX8')/
 760        data paramlist(704) /gribparam(129,240,0,16,197,'RETOP')/
 761        data paramlist(705) /gribparam(133,191,0,6,201,'SUNSD')/
 762        data paramlist(706) /gribparam(129,233,0,14,202,'PDMAX1')/
 763        data paramlist(707) /gribparam(129,234,0,14,203,'PDMAX24')/
 764        data paramlist(708) /gribparam(129,242,10,3,242,'TCSRG20')/
 765        data paramlist(709) /gribparam(129,243,10,3,243,'TCSRG30')/
 766        data paramlist(710) /gribparam(129,244,10,3,244,'TCSRG40')/
 767        data paramlist(711) /gribparam(129,245,10,3,245,'TCSRG50')/
 768        data paramlist(712) /gribparam(129,246,10,3,246,'TCSRG60')/
 769        data paramlist(713) /gribparam(129,247,10,3,247,'TCSRG70')/
 770        data paramlist(714) /gribparam(129,248,10,3,248,'TCSRG80')/
 771        data paramlist(715) /gribparam(129,249,10,3,249,'TCSRG90')/
 772        data paramlist(716) /gribparam(3,1,0,3,0,'PRES')/
 773        data paramlist(717) /gribparam(3,52,0,1,1,'R H')/
 774        data paramlist(718) /gribparam(3,63,0,1,10,'ACPCP')/
 775        data paramlist(719) /gribparam(3,61,0,1,8,'A PCP')/
 776        data paramlist(720) /gribparam(3,41,0,2,10,'ABS V')/
 777        data paramlist(721) /gribparam(3,100,10,0,3,'HTSGW')/
 778        data paramlist(722) /gribparam(3,101,10,0,4,'WVDIR')/
 779        data paramlist(723) /gribparam(3,103,10,0,6,'WVPER')/
 780        data paramlist(724) /gribparam(3,104,10,0,7,'SWDIR')/
 781        data paramlist(725) /gribparam(3,105,10,0,8,'SWELL')/
 782        data paramlist(726) /gribparam(3,107,10,0,10,'DIRPW')/
 783        data paramlist(727) /gribparam(3,108,10,0,11,'PERPW')/
 784        data paramlist(728) /gribparam(3,109,10,0,12,'DIRSW')/
 785        data paramlist(729) /gribparam(3,110,10,0,13,'PERSW')/
 786        data paramlist(730) /gribparam(133,192,10,191,1,'MOSF')/
 787        data paramlist(731) /gribparam(130,193,0,1,225,'FRZR')/
 788        data paramlist(732) /gribparam(130,194,0,1,227,'FROZR')/
 789        data paramlist(733) /gribparam(130,195,0,1,241,'TSNOW')/
 790        data paramlist(734) /gribparam(130,196,2,0,7,'MTERH')/
 791 ! Added 12/06/2010
 792        data paramlist(735) /gribparam(128,195,10,4,4,'OVHD')/
 793        data paramlist(736) /gribparam(128,196,10,4,5,'OVSD')/
 794        data paramlist(737) /gribparam(128,197,10,4,6,'OVMD')/
 795        data paramlist(738) /gribparam(130,64,0,1,12,'SRWEQ')/
 796        data paramlist(739) /gribparam(130,241,3,192,6,'SBT112')/
 797        data paramlist(740) /gribparam(130,242,3,192,7,'SBT113')/
 798        data paramlist(741) /gribparam(130,243,3,192,8,'SBT114')/
 799        data paramlist(742) /gribparam(130,244,3,192,9,'SBT115')/
 800        data paramlist(743) /gribparam(129,235,0,16,198,'MAXREF')/
 801        data paramlist(744) /gribparam(129,236,0,7,199,'MXUPHL')/
 802        data paramlist(745) /gribparam(129,237,0,2,220,'MAXUVV')/
 803        data paramlist(746) /gribparam(129,238,0,2,221,'MAXDVV')/
 804        data paramlist(747) /gribparam(129,253,0,2,222,'MAXUW')/
 805        data paramlist(748) /gribparam(129,254,0,2,223,'MAXVW')/
 806        data paramlist(749) /gribparam(129,241,0,2,224,'VRATE')/
 807        data paramlist(750) /gribparam(129,250,2,4,3,'HINDEX')/
 808        data paramlist(751) /gribparam(129,175,0,19,234,'ICSEV')/
 809        data paramlist(752) /gribparam(129,176,0,19,233,'ICPRB')/
 810        data paramlist(753) /gribparam(2,236,0,19,217,'SIPD')/
 811        data paramlist(754) /gribparam(129,230,0,19,242,'RHPW')/
 812        data paramlist(755) /gribparam(130,206,0,15,3,'VIL')/
 813
 814       contains
 815
 816
 817          subroutine param_g1_to_g2(g1val,g1ver,g2disc,g2cat,g2num)
 818 !$$$  SUBPROGRAM DOCUMENTATION BLOCK
 819 !                .      .    .                                       .
 820 ! SUBPROGRAM:    param_g1_to_g2
 821 !   PRGMMR: Gilbert         ORG: W/NP11    DATE: 2001-06-05
 822 !
 823 ! ABSTRACT: This subroutine returns the corresponding GRIB2 Discipline
 824 !   Category and Number for a given GRIB1 parameter value and table version.
 825 !
 826 ! PROGRAM HISTORY LOG:
 827 ! 2000-05-11  Gilbert
 828 !
 829 ! USAGE:    CALL param_g1_to_g2(g1val,g1ver,g2disc,g2cat,g2num)
 830 !   INPUT ARGUMENT LIST:
 831 !     g1val    - GRIB1 parameter number for which discipline is requested
 832 !     g1ver    - GRIB1 parameter table version number
 833 !
 834 !   OUTPUT ARGUMENT LIST:
 835 !     g2disc   - corresponding GRIB2 Discipline number
 836 !     g2cat    - corresponding GRIB2 Category number
 837 !     g2num    - corresponding GRIB2 Parameter number within Category g2cat
 838 !
 839 ! ATTRIBUTES:
 840 !   LANGUAGE: Fortran 90
 841 !   MACHINE:  IBM SP
 842 !
 843 !$$$
 844            integer,intent(in) :: g1val,g1ver
 845            integer,intent(out) :: g2disc,g2cat,g2num
 846
 847            g2disc=255
 848            g2cat=255
 849            g2num=255
 850 ! for testing
 851 !           g2num=g1val
 852 ! for testing
 853
 854            do n=1,MAXPARAM
 855               if (paramlist(n)%grib1val.eq.g1val .AND.
 856      &            paramlist(n)%g1tblver.eq.g1ver ) then
 857                  g2disc=paramlist(n)%grib2dsc
 858                  g2cat=paramlist(n)%grib2cat
 859                  g2num=paramlist(n)%grib2num
 860                  return
 861               endif
 862            enddo
 863
 864            print *,'param_g1_to_g2:GRIB1 param ',g1val,' not found.',
 865      &             ' for table version ',g1ver
 866            return
 867          end subroutine
 868
 869          character(len=8) function param_get_abbrev(g2disc,g2cat,g2num)
 870 !$$$  SUBPROGRAM DOCUMENTATION BLOCK
 871 !                .      .    .                                       .
 872 ! SUBPROGRAM:    param_get_abbrev
 873 !   PRGMMR: Gilbert         ORG: W/NP11    DATE: 2002-01-04
 874 !
 875 ! ABSTRACT: This function returns the parameter abbreviation for
 876 !   a given GRIB2 Discipline, Category and Parameter number.
 877 !
 878 ! PROGRAM HISTORY LOG:
 879 ! 2001-06-05  Gilbert
 880 !
 881 ! USAGE:     abrev=param_get_abbrev(g2disc,g2cat,g2num)
 882 !   INPUT ARGUMENT LIST:
 883 !     g2disc   - GRIB2 discipline number (See Code Table 0.0)
 884 !     g2cat    - corresponding GRIB2 Category number
 885 !     g2num    - corresponding GRIB2 Parameter number within Category g2cat
 886 !
 887 ! RETURNS:  ASCII Paramter Abbreviation
 888 !
 889 ! REMARKS: None
 890 !
 891 ! ATTRIBUTES:
 892 !   LANGUAGE: Fortran 90
 893 !   MACHINE:  IBM SP
 894 !
 895 !$$$
 896            integer,intent(in) :: g2disc,g2cat,g2num
 897
 898            param_get_abbrev='UNKNOWN '
 899
 900            do n=1,MAXPARAM
 901               if (paramlist(n)%grib2dsc.eq.g2disc.AND.
 902      &             paramlist(n)%grib2cat.eq.g2cat.AND.
 903      &             paramlist(n)%grib2num.eq.g2num) then
 904                  param_get_abbrev=paramlist(n)%abbrev
 905                  return
 906               endif
 907            enddo
 908
 909 !           print *,'param_get_abbrev:GRIB2 param ',g2disc,g2cat,
 910 !     &              g2num,' not found.'
 911            return
 912          end function
 913
 914
 915          subroutine param_g2_to_g1(g2disc,g2cat,g2num,g1val,g1ver)
 916 !$$$  SUBPROGRAM DOCUMENTATION BLOCK
 917 !                .      .    .                                       .
 918 ! SUBPROGRAM:    param_g2_to_g1
 919 !   PRGMMR: Gilbert         ORG: W/NP11    DATE: 2002-01-04
 920 !
 921 ! ABSTRACT: This function returns the GRIB 1 parameter number for
 922 !   a given GRIB2 Discipline, Category and Parameter number.
 923 !
 924 ! PROGRAM HISTORY LOG:
 925 ! 2001-06-05  Gilbert
 926 !
 927 ! USAGE:     call param_g2_to_g1(g2disc,g2cat,g2num,g1val,g1ver)
 928 !   INPUT ARGUMENT LIST:
 929 !     g2disc   - GRIB2 discipline number (See Code Table 0.0)
 930 !     g2cat    - corresponding GRIB2 Category number
 931 !     g2num    - corresponding GRIB2 Parameter number within Category g2cat
 932 !
 933 !   OUTPUT ARGUMENT LIST:
 934 !     g1val    - GRIB1 parameter number for which discipline is requested
 935 !     g1ver    - GRIB1 parameter table version number
 936 !
 937 ! REMARKS: None
 938 !
 939 ! ATTRIBUTES:
 940 !   LANGUAGE: Fortran 90
 941 !   MACHINE:  IBM SP
 942 !
 943 !$$$
 944            integer,intent(in) :: g2disc,g2cat,g2num
 945            integer,intent(out) :: g1val,g1ver
 946
 947            g1val=255
 948            g1ver=255
 949
 950 ! for testing
 951 !           if ( g2disc.eq.255.and.g2cat.eq.255 ) then
 952 !             g1val=g2num
 953 !             g1ver=2
 954 !             return
 955 !           endif
 956 ! for testing
 957
 958            do n=1,MAXPARAM
 959               if (paramlist(n)%grib2dsc.eq.g2disc.AND.
 960      &             paramlist(n)%grib2cat.eq.g2cat.AND.
 961      &             paramlist(n)%grib2num.eq.g2num) then
 962                  g1val=paramlist(n)%grib1val
 963                  g1ver=paramlist(n)%g1tblver
 964                  return
 965               endif
 966            enddo
 967
 968            print *,'param_g2_to_g1:GRIB2 param ',g2disc,g2cat,
 969      &              g2num,' not found.'
 970            return
 971          end subroutine
 972
 973       end module