NCEPLIBS-g2  3.4.5
params.f
Go to the documentation of this file.
1 
6 
36 
37  module params
38 
39  integer,parameter :: maxparam=2000
40 
41  type gribparam
42  integer :: g1tblver
43  integer :: grib1val
44  integer :: grib2dsc
45  integer :: grib2cat
46  integer :: grib2num
47  character(len=8) :: abbrev
48  end type gribparam
49 
50  type(gribparam),dimension(MAXPARAM) :: paramlist
51 
52  data paramlist(1) /gribparam(2,1,0,3,0,'PRES')/
53  data paramlist(2) /gribparam(2,2,0,3,1,'PRMSL')/
54  data paramlist(3) /gribparam(2,3,0,3,2,'PTEND')/
55  data paramlist(4) /gribparam(2,4,0,2,14,'PVORT')/
56  data paramlist(5) /gribparam(2,5,0,3,3,'ICAHT')/
57  data paramlist(6) /gribparam(2,6,0,3,4,'GP')/
58  data paramlist(7) /gribparam(2,7,0,3,5,'HGT')/
59  data paramlist(8) /gribparam(2,8,0,3,6,'DIST')/
60  data paramlist(9) /gribparam(2,9,0,3,7,'HSTDV')/
61  data paramlist(10) /gribparam(2,10,0,14,0,'TOZNE')/
62  data paramlist(11) /gribparam(2,11,0,0,0,'TMP')/
63  data paramlist(12) /gribparam(2,12,0,0,1,'VTMP')/
64  data paramlist(13) /gribparam(2,13,0,0,2,'POT')/
65  data paramlist(14) /gribparam(2,14,0,0,3,'EPOT')/
66  data paramlist(15) /gribparam(2,15,0,0,4,'TMAX')/
67  data paramlist(16) /gribparam(2,16,0,0,5,'TMIN')/
68  data paramlist(17) /gribparam(2,17,0,0,6,'DPT')/
69  data paramlist(18) /gribparam(2,18,0,0,7,'DEPR')/
70  data paramlist(19) /gribparam(2,19,0,0,8,'LAPR')/
71  data paramlist(20) /gribparam(2,20,0,19,0,'VIS')/
72  data paramlist(21) /gribparam(2,21,0,15,6,'RDSP1')/
73  data paramlist(22) /gribparam(2,22,0,15,7,'RDSP2')/
74  data paramlist(23) /gribparam(2,23,0,15,8,'RDSP3')/
75  data paramlist(24) /gribparam(2,24,0,7,0,'PLI')/
76  data paramlist(25) /gribparam(2,25,0,0,9,'TMPA')/
77  data paramlist(26) /gribparam(2,26,0,3,8,'PRESA')/
78  data paramlist(27) /gribparam(2,27,0,3,9,'GPA')/
79  data paramlist(28) /gribparam(2,28,10,0,0,'WVSP1')/
80  data paramlist(29) /gribparam(2,29,10,0,1,'WVSP2')/
81  data paramlist(30) /gribparam(2,30,10,0,2,'WVSP3')/
82  data paramlist(31) /gribparam(2,31,0,2,0,'WDIR')/
83  data paramlist(32) /gribparam(2,32,0,2,1,'WIND')/
84  data paramlist(33) /gribparam(2,33,0,2,2,'UGRD')/
85  data paramlist(34) /gribparam(2,34,0,2,3,'VGRD')/
86  data paramlist(35) /gribparam(2,35,0,2,4,'STRM')/
87  data paramlist(36) /gribparam(2,36,0,2,5,'VPOT')/
88  data paramlist(37) /gribparam(2,37,0,2,6,'MNTSF')/
89  data paramlist(38) /gribparam(2,38,0,2,7,'SGCVV')/
90  data paramlist(39) /gribparam(2,39,0,2,8,'VVEL')/
91  data paramlist(40) /gribparam(2,40,0,2,9,'DZDT')/
92  data paramlist(41) /gribparam(2,41,0,2,10,'ABSV')/
93  data paramlist(42) /gribparam(2,42,0,2,11,'ABSD')/
94  data paramlist(43) /gribparam(2,43,0,2,12,'RELV')/
95  data paramlist(44) /gribparam(2,44,0,2,13,'RELD')/
96  data paramlist(45) /gribparam(2,45,0,2,15,'VUCSH')/
97  data paramlist(46) /gribparam(2,46,0,2,16,'VVCSH')/
98  data paramlist(47) /gribparam(2,47,10,1,0,'DIRC')/
99  data paramlist(48) /gribparam(2,48,10,1,1,'SPC')/
100  data paramlist(49) /gribparam(2,49,10,1,2,'UOGRD')/
101  data paramlist(50) /gribparam(2,50,10,1,3,'VOGRD')/
102  data paramlist(51) /gribparam(2,51,0,1,0,'SPFH')/
103  data paramlist(52) /gribparam(2,52,0,1,1,'RH')/
104  data paramlist(53) /gribparam(2,53,0,1,2,'MIXR')/
105  data paramlist(54) /gribparam(2,54,0,1,3,'PWAT')/
106  data paramlist(55) /gribparam(2,55,0,1,4,'VAPP')/
107  data paramlist(56) /gribparam(2,56,0,1,5,'SATD')/
108  data paramlist(57) /gribparam(2,57,0,1,6,'EVP')/
109  data paramlist(58) /gribparam(2,58,0,6,0,'CICE')/
110  data paramlist(59) /gribparam(2,59,0,1,7,'PRATE')/
111  data paramlist(60) /gribparam(2,60,0,19,2,'TSTM')/
112  data paramlist(61) /gribparam(2,61,0,1,8,'APCP')/
113  data paramlist(62) /gribparam(2,62,0,1,9,'NCPCP')/
114  data paramlist(63) /gribparam(2,63,0,1,10,'ACPCP')/
115  data paramlist(64) /gribparam(2,64,0,1,12,'SRWEQ')/
116  data paramlist(65) /gribparam(2,65,0,1,13,'WEASD')/
117  data paramlist(66) /gribparam(2,66,0,1,11,'SNOD')/
118  data paramlist(67) /gribparam(2,67,0,19,3,'MIXHT')/
119  data paramlist(68) /gribparam(2,68,10,4,2,'TTHDP')/
120  data paramlist(69) /gribparam(2,69,10,4,0,'MTHD')/
121  data paramlist(70) /gribparam(2,70,10,4,1,'MTHA')/
122  data paramlist(71) /gribparam(2,71,0,6,1,'TCDC')/
123  data paramlist(72) /gribparam(2,72,0,6,2,'CDCON')/
124  data paramlist(73) /gribparam(2,73,0,6,3,'LCDC')/
125  data paramlist(74) /gribparam(2,74,0,6,4,'MCDC')/
126  data paramlist(75) /gribparam(2,75,0,6,5,'HCDC')/
127  data paramlist(76) /gribparam(2,76,0,6,6,'CWAT')/
128  data paramlist(77) /gribparam(2,77,0,7,1,'BLI')/
129  data paramlist(78) /gribparam(2,78,0,1,14,'SNOC')/
130  data paramlist(79) /gribparam(2,79,0,1,15,'SNOL')/
131  data paramlist(80) /gribparam(2,80,10,3,0,'WTMP')/
132  data paramlist(81) /gribparam(2,81,2,0,0,'LAND')/
133  data paramlist(82) /gribparam(2,82,10,3,1,'DSLM')/
134  data paramlist(83) /gribparam(2,83,2,0,1,'SFCR')/
135  data paramlist(84) /gribparam(2,84,0,19,1,'ALBDO')/
136  data paramlist(85) /gribparam(2,85,2,0,2,'TSOIL')/
137  data paramlist(86) /gribparam(2,86,2,0,3,'SOILM')/
138  data paramlist(87) /gribparam(2,87,2,0,4,'VEG')/
139  data paramlist(88) /gribparam(2,88,10,4,3,'SALTY')/
140  data paramlist(89) /gribparam(2,89,0,3,10,'DEN')/
141  data paramlist(90) /gribparam(2,90,2,0,5,'WATR')/
142  data paramlist(91) /gribparam(2,91,10,2,0,'ICEC')/
143  data paramlist(92) /gribparam(2,92,10,2,1,'ICETK')/
144  data paramlist(93) /gribparam(2,93,10,2,2,'DICED')/
145  data paramlist(94) /gribparam(2,94,10,2,3,'SICED')/
146  data paramlist(95) /gribparam(2,95,10,2,4,'UICE')/
147  data paramlist(96) /gribparam(2,96,10,2,5,'VICE')/
148  data paramlist(97) /gribparam(2,97,10,2,6,'ICEG')/
149  data paramlist(98) /gribparam(2,98,10,2,7,'ICED')/
150  data paramlist(99) /gribparam(2,99,0,1,16,'SNOM')/
151  data paramlist(100) /gribparam(2,100,10,0,3,'HTSGW')/
152  data paramlist(101) /gribparam(2,101,10,0,4,'WVDIR')/
153  data paramlist(102) /gribparam(2,102,10,0,5,'WVHGT')/
154  data paramlist(103) /gribparam(2,103,10,0,6,'WVPER')/
155  data paramlist(104) /gribparam(2,104,10,0,7,'SWDIR')/
156  data paramlist(105) /gribparam(2,105,10,0,8,'SWELL')/
157  data paramlist(106) /gribparam(2,106,10,0,9,'SWPER')/
158  data paramlist(107) /gribparam(2,107,10,0,10,'DIRPW')/
159  data paramlist(108) /gribparam(2,108,10,0,11,'PERPW')/
160  data paramlist(109) /gribparam(2,109,10,0,12,'DIRSW')/
161  data paramlist(110) /gribparam(2,110,10,0,13,'PERSW')/
162  data paramlist(111) /gribparam(2,111,0,4,0,'NSWRS')/
163  data paramlist(112) /gribparam(2,112,0,5,0,'NLWRS')/
164  data paramlist(113) /gribparam(2,113,0,4,1,'NSWRT')/
165  data paramlist(114) /gribparam(2,114,0,5,1,'NLWRT')/
166  data paramlist(115) /gribparam(2,115,0,5,2,'LWAVR')/
167  data paramlist(116) /gribparam(2,116,0,4,2,'SWAVR')/
168  data paramlist(117) /gribparam(2,117,0,4,3,'GRAD')/
169  data paramlist(118) /gribparam(2,118,0,4,4,'BRTMP')/
170  data paramlist(119) /gribparam(2,119,0,4,5,'LWRAD')/
171  data paramlist(120) /gribparam(2,120,0,4,6,'SWRAD')/
172  data paramlist(121) /gribparam(2,121,0,0,10,'LHTFL')/
173  data paramlist(122) /gribparam(2,122,0,0,11,'SHTFL')/
174  data paramlist(123) /gribparam(2,123,0,2,20,'BLYDP')/
175  data paramlist(124) /gribparam(2,124,0,2,17,'UFLX')/
176  data paramlist(125) /gribparam(2,125,0,2,18,'VFLX')/
177  data paramlist(126) /gribparam(2,126,0,2,19,'WMIXE')/
178  data paramlist(127) /gribparam(2,127,255,255,255,'IMGD')/
179 !
180 ! GRIB1 parameters in NCEP Local Table version 2
181 ! Added 8/07/2003
182 !
183  data paramlist(128) /gribparam(2,229,0,0,192,'SNOHF')/
184  data paramlist(129) /gribparam(2,153,0,1,22,'CLWMR')/
185  data paramlist(130) /gribparam(2,140,0,1,192,'CRAIN')/
186  data paramlist(131) /gribparam(2,141,0,1,193,'CFRZR')/
187  data paramlist(132) /gribparam(2,142,0,1,194,'CICEP')/
188  data paramlist(133) /gribparam(2,143,0,1,195,'CSNOW')/
189  data paramlist(134) /gribparam(2,214,0,1,196,'CPRAT')/
190  data paramlist(135) /gribparam(2,135,0,1,197,'MCONV')/
191  data paramlist(136) /gribparam(2,194,1,1,193,'CPOFP')/
192  data paramlist(137) /gribparam(2,228,0,1,199,'PEVAP')/
193  data paramlist(138) /gribparam(2,136,0,2,192,'VWSH')/
194  data paramlist(139) /gribparam(2,172,0,2,193,'MFLX')/
195  data paramlist(140) /gribparam(2,196,0,2,194,'USTM')/
196  data paramlist(141) /gribparam(2,197,0,2,195,'VSTM')/
197  data paramlist(142) /gribparam(2,252,0,2,196,'CD')/
198  data paramlist(143) /gribparam(2,253,0,2,197,'FRICV')/
199  data paramlist(144) /gribparam(2,130,0,3,192,'MSLET')/
200  data paramlist(145) /gribparam(2,204,0,4,192,'DSWRF')/
201  data paramlist(146) /gribparam(2,211,0,4,193,'USWRF')/
202  data paramlist(147) /gribparam(2,205,0,5,192,'DLWRF')/
203  data paramlist(148) /gribparam(2,212,0,5,193,'ULWRF')/
204  data paramlist(149) /gribparam(2,213,0,6,192,'CDLYR')/
205  data paramlist(150) /gribparam(2,132,0,7,193,'4LFTX')/
206  data paramlist(151) /gribparam(2,157,0,7,6,'CAPE')/
207  data paramlist(152) /gribparam(2,156,0,7,7,'CIN')/
208  data paramlist(153) /gribparam(2,190,0,7,8,'HLCY')/
209  data paramlist(154) /gribparam(2,131,0,7,192,'LFTX')/
210  data paramlist(155) /gribparam(2,158,0,19,11,'TKE')/
211  data paramlist(156) /gribparam(2,176,0,191,192,'NLAT')/
212  data paramlist(157) /gribparam(2,177,0,191,193,'ELON')/
213  data paramlist(158) /gribparam(2,234,1,0,192,'BGRUN')/
214  data paramlist(159) /gribparam(2,235,1,0,193,'SSRUN')/
215  data paramlist(160) /gribparam(2,144,2,0,192,'SOILW')/
216  data paramlist(161) /gribparam(2,155,2,0,193,'GFLUX')/
217  data paramlist(162) /gribparam(2,207,2,0,194,'MSTAV')/
218  data paramlist(163) /gribparam(2,208,2,0,195,'SFEXC')/
219  data paramlist(164) /gribparam(2,223,2,0,196,'CNWAT')/
220  data paramlist(165) /gribparam(2,226,2,0,197,'BMIXL')/
221  data paramlist(166) /gribparam(2,154,0,14,192,'O3MR')/
222  data paramlist(167) /gribparam(2,222,0,3,193,'5WAVH')/
223  data paramlist(168) /gribparam(2,145,0,1,200,'PEVPR')/
224  data paramlist(169) /gribparam(2,146,0,6,193,'CWORK')/
225  data paramlist(170) /gribparam(2,147,0,3,194,'U-GWD')/
226  data paramlist(171) /gribparam(2,148,0,3,195,'V-GWD')/
227  data paramlist(172) /gribparam(2,221,0,3,196,'HPBL')/
228  data paramlist(173) /gribparam(2,230,0,3,197,'5WAVA')/
229 ! Added 9/26/2003
230  data paramlist(174) /gribparam(130,160,2,3,192,'SOILL')/
231  data paramlist(175) /gribparam(130,171,2,3,193,'RLYRS')/
232  data paramlist(176) /gribparam(130,219,2,0,201,'WILT')/
233  data paramlist(177) /gribparam(130,222,2,3,194,'SLTYP')/
234  data paramlist(178) /gribparam(2,224,2,3,0,'SOTYP')/
235  data paramlist(179) /gribparam(2,225,2,0,198,'VGTYP')/
236  data paramlist(180) /gribparam(130,230,2,3,195,'SMREF')/
237  data paramlist(181) /gribparam(130,231,2,3,196,'SMDRY')/
238  data paramlist(182) /gribparam(2,238,0,1,201,'SNOWC')/
239  data paramlist(183) /gribparam(130,240,2,3,197,'POROS')/
240  data paramlist(184) /gribparam(129,131,0,1,202,'FRAIN')/
241  data paramlist(185) /gribparam(129,132,0,6,199,'FICE')/
242  data paramlist(186) /gribparam(129,133,0,1,203,'RIME')/
243  data paramlist(187) /gribparam(129,134,0,6,194,'CUEFI')/
244  data paramlist(188) /gribparam(129,135,0,6,195,'TCOND')/
245  data paramlist(189) /gribparam(129,136,0,6,196,'TCOLW')/
246  data paramlist(190) /gribparam(129,137,0,6,197,'TCOLI')/
247  data paramlist(191) /gribparam(129,138,0,1,204,'TCOLR')/
248  data paramlist(192) /gribparam(129,139,0,1,205,'TCOLS')/
249  data paramlist(193) /gribparam(129,140,0,6,198,'TCOLC')/
250  data paramlist(194) /gribparam(130,159,0,19,192,'MXSALB')/
251  data paramlist(195) /gribparam(130,170,0,19,193,'SNFALB')/
252  data paramlist(196) /gribparam(2,170,0,1,24,'RWMR')/
253  data paramlist(197) /gribparam(2,171,0,1,25,'SNMR')/
254  data paramlist(198) /gribparam(130,181,2,0,199,'CCOND')/
255  data paramlist(199) /gribparam(130,203,2,0,200,'RSMIN')/
256  data paramlist(200) /gribparam(130,246,2,0,202,'RCS')/
257  data paramlist(201) /gribparam(130,247,2,0,203,'RCT')/
258  data paramlist(202) /gribparam(130,248,2,0,204,'RCQ')/
259  data paramlist(203) /gribparam(130,249,2,0,205,'RCSOL')/
260  data paramlist(204) /gribparam(2,254,0,7,194,'RI')/
261  data paramlist(205) /gribparam(129,190,3,1,192,'USCT')/
262  data paramlist(206) /gribparam(129,191,3,1,193,'VSCT')/
263  data paramlist(207) /gribparam(129,171,0,191,194,'TSEC')/
264  data paramlist(208) /gribparam(129,180,0,14,193,'OZCON')/
265  data paramlist(209) /gribparam(129,181,0,14,194,'OZCAT')/
266  data paramlist(210) /gribparam(2,193,1,1,2,'POP')/
267  data paramlist(211) /gribparam(2,195,1,1,192,'CPOZP')/
268  data paramlist(212) /gribparam(2,180,0,2,22,'GUST')/
269 ! Added 11/17/2005 - for wave models
270  data paramlist(213) /gribparam(0,31,0,2,0,'WDIR')/
271  data paramlist(214) /gribparam(0,32,0,2,1,'WIND')/
272  data paramlist(215) /gribparam(0,33,0,2,2,'UGRD')/
273  data paramlist(216) /gribparam(0,34,0,2,3,'VGRD')/
274  data paramlist(217) /gribparam(0,100,10,0,3,'HTSGW')/
275  data paramlist(218) /gribparam(0,101,10,0,4,'WVDIR')/
276  data paramlist(219) /gribparam(0,103,10,0,6,'WVPER')/
277  data paramlist(220) /gribparam(0,107,10,0,10,'DIRPW')/
278  data paramlist(221) /gribparam(0,108,10,0,11,'PERPW')/
279  data paramlist(222) /gribparam(0,109,10,0,12,'DIRSW')/
280  data paramlist(223) /gribparam(0,110,10,0,13,'PERSW')/
281 ! Added 1/26/2006 -
282  data paramlist(224) /gribparam(129,156,0,13,192,'PMTC')/
283  data paramlist(225) /gribparam(129,157,0,13,193,'PMTF')/
284  data paramlist(226) /gribparam(3,11,0,0,0,'TMP')/
285  data paramlist(227) /gribparam(2,129,0,3,198,'MSLMA')/
286  data paramlist(228) /gribparam(129,163,0,13,194,'LPMTF')/
287  data paramlist(229) /gribparam(129,164,0,13,195,'LIPMF')/
288 ! Added 3/6/2006 - For missing GRIB1 to GRIB2 conversions
289  data paramlist(230) /gribparam(2,178,0,1,23,'ICMR')/
290  data paramlist(231) /gribparam(2,179,0,1,32,'GRMR')/
291  data paramlist(232) /gribparam(2,186,0,1,206,'TIPD')/
292  data paramlist(233) /gribparam(2,187,0,17,192,'LTNG')/
293  data paramlist(234) /gribparam(2,188,2,0,206,'RDRIP')/
294  data paramlist(235) /gribparam(2,189,0,0,15,'VPTMP')/
295  data paramlist(236) /gribparam(2,198,0,1,207,'NCIP')/
296  data paramlist(237) /gribparam(2,239,0,1,208,'SNOT')/
297  data paramlist(238) /gribparam(2,128,0,3,1,'MSLSA')/
298  data paramlist(239) /gribparam(2,137,0,3,199,'TSLSA')/
299  data paramlist(240) /gribparam(129,141,0,3,200,'PLPL')/
300  data paramlist(241) /gribparam(129,200,0,4,194,'DUVB')/
301  data paramlist(242) /gribparam(129,201,0,4,195,'CDUVB')/
302  data paramlist(243) /gribparam(2,201,2,0,207,'ICWAT')/
303  data paramlist(244) /gribparam(2,209,0,19,204,'MIXLY')/
304  data paramlist(245) /gribparam(2,216,0,0,193,'TTRAD')/
305  data paramlist(246) /gribparam(129,211,0,16,195,'REFD')/
306  data paramlist(247) /gribparam(129,212,0,16,196,'REFC')/
307  data paramlist(248) /gribparam(2,161,0,4,196,'CSDSF')/
308  data paramlist(249) /gribparam(129,168,0,1,209,'TCLSW')/
309  data paramlist(250) /gribparam(129,169,0,1,210,'TCOLM')/
310  data paramlist(251) /gribparam(2,181,0,3,201,'LPSX')/
311  data paramlist(252) /gribparam(2,182,0,3,202,'LPSY')/
312  data paramlist(253) /gribparam(2,183,0,3,203,'HGTX')/
313  data paramlist(254) /gribparam(2,184,0,3,204,'HGTY')/
314  data paramlist(255) /gribparam(128,254,0,0,194,'REV')/
315 ! Added 4/20/2007 - For missing GRIB1 to GRIB2 conversions
316  data paramlist(256) /gribparam(1,91,10,2,0,'ICEC')/
317  data paramlist(257) /gribparam(0,49,10,1,2,'UOGRD')/
318  data paramlist(258) /gribparam(0,50,10,1,3,'VOGRD')/
319  data paramlist(259) /gribparam(0,80,10,3,0,'WTMP')/
320  data paramlist(260) /gribparam(0,82,10,3,1,'DSLM')/
321  data paramlist(261) /gribparam(0,88,10,4,3,'SALTY')/
322  data paramlist(262) /gribparam(1,49,10,1,2,'UOGRD')/
323  data paramlist(263) /gribparam(1,50,10,1,3,'VOGRD')/
324  data paramlist(264) /gribparam(1,80,10,3,0,'WTMP')/
325  data paramlist(265) /gribparam(1,88,10,4,3,'SALTY')/
326  data paramlist(266) /gribparam(1,40,0,2,9,'DZDT')/
327  data paramlist(267) /gribparam(1,67,0,19,3,'MIXHT')/
328  data paramlist(268) /gribparam(3,2,0,3,1,'PRMSL')/
329  data paramlist(269) /gribparam(3,7,0,3,5,'HGT')/
330  data paramlist(270) /gribparam(128,130,10,3,194,'ELEV')/
331  data paramlist(271) /gribparam(129,217,0,1,198,'MINRH')/
332  data paramlist(272) /gribparam(129,218,0,1,27,'MAXRH')/
333  data paramlist(273) /gribparam(130,161,0,1,29,'ASNOW')/
334  data paramlist(274) /gribparam(129,165,0,16,192,'REFZR')/
335  data paramlist(275) /gribparam(129,166,0,16,193,'REFZI')/
336  data paramlist(276) /gribparam(129,167,0,16,194,'REFZC')/
337  data paramlist(277) /gribparam(129,192,0,2,198,'LAUV')/
338  data paramlist(278) /gribparam(129,193,0,2,199,'LOUV')/
339  data paramlist(279) /gribparam(129,188,0,2,200,'LAVV')/
340  data paramlist(280) /gribparam(129,189,0,2,201,'LOVV')/
341  data paramlist(281) /gribparam(129,207,0,2,202,'LAPP')/
342  data paramlist(282) /gribparam(129,208,0,2,203,'LOPP')/
343  data paramlist(283) /gribparam(129,198,10,3,195,'SSHG')/
344  data paramlist(284) /gribparam(1,33,0,2,2,'UGRD')/
345  data paramlist(285) /gribparam(1,34,0,2,3,'VGRD')/
346  data paramlist(286) /gribparam(1,2,0,3,1,'PRMSL')/
347  data paramlist(287) /gribparam(1,7,0,3,5,'HGT')/
348  data paramlist(288) /gribparam(128,186,10,4,192,'WTMPC')/
349  data paramlist(289) /gribparam(128,187,10,4,193,'SALIN')/
350  data paramlist(290) /gribparam(128,177,10,3,196,'P2OMLT')/
351  data paramlist(291) /gribparam(128,178,10,1,192,'OMLU')/
352  data paramlist(292) /gribparam(128,179,10,1,193,'OMLV')/
353  data paramlist(293) /gribparam(128,183,10,1,194,'UBARO')/
354  data paramlist(294) /gribparam(128,184,10,1,195,'VBARO')/
355  data paramlist(295) /gribparam(129,179,0,19,205,'FLGHT')/
356  data paramlist(296) /gribparam(129,185,0,19,206,'CICEL')/
357  data paramlist(297) /gribparam(129,186,0,19,207,'CIVIS')/
358  data paramlist(298) /gribparam(129,187,0,19,208,'CIFLT')/
359  data paramlist(299) /gribparam(129,177,0,19,209,'LAVNI')/
360  data paramlist(300) /gribparam(129,178,0,19,210,'HAVNI')/
361  data paramlist(301) /gribparam(130,189,0,19,211,'SBSALB')/
362  data paramlist(302) /gribparam(130,190,0,19,212,'SWSALB')/
363  data paramlist(303) /gribparam(130,191,0,19,213,'NBSALB')/
364  data paramlist(304) /gribparam(130,192,0,19,214,'NWSALB')/
365  data paramlist(305) /gribparam(129,149,10,0,192,'WSTP')/
366  data paramlist(306) /gribparam(128,188,0,1,211,'EMNP')/
367  data paramlist(307) /gribparam(128,192,0,3,205,'LAYTH')/
368  data paramlist(308) /gribparam(129,219,0,6,13,'CEIL')/
369  data paramlist(309) /gribparam(129,220,0,19,12,'PBLREG')/
370  data paramlist(310) /gribparam(130,179,2,0,228,'ACOND')/
371  data paramlist(311) /gribparam(130,198,0,1,212,'SBSNO')/
372  data paramlist(312) /gribparam(2,199,2,3,198,'EVBS')/
373  data paramlist(313) /gribparam(2,200,2,0,229,'EVCW')/
374  data paramlist(314) /gribparam(2,210,2,0,230,'TRANS')/
375  data paramlist(315) /gribparam(129,182,0,2,204,'VEDH')/
376  data paramlist(320) /gribparam(2,241,0,0,195,'LRGHR')/
377  data paramlist(321) /gribparam(2,242,0,0,196,'CNVHR')/
378  data paramlist(322) /gribparam(140,168,0,19,20,'ICIP')/
379  data paramlist(323) /gribparam(140,169,0,19,20,'ICIP')/
380  data paramlist(324) /gribparam(140,170,0,19,21,'CTP')/
381  data paramlist(325) /gribparam(140,171,0,19,21,'CTP')/
382  data paramlist(326) /gribparam(140,172,0,19,22,'CAT')/
383  data paramlist(327) /gribparam(140,173,0,19,22,'CAT')/
384  data paramlist(328) /gribparam(140,174,0,6,25,'CBHE')/
385  data paramlist(329) /gribparam(140,175,255,255,255,'IMGD')/
386  data paramlist(330) /gribparam(140,176,255,255,255,'IMGD')/
387  data paramlist(331) /gribparam(140,177,255,255,255,'IMGD')/
388  data paramlist(332) /gribparam(140,178,255,255,255,'IMGD')/
389  data paramlist(333) /gribparam(140,179,0,3,3,'ICAHT')/
390  data paramlist(334) /gribparam(140,180,0,3,3,'ICAHT')/
391  data paramlist(335) /gribparam(140,181,255,255,255,'IMGD')/
392  data paramlist(336) /gribparam(140,182,255,255,255,'IMGD')/
393  data paramlist(337) /gribparam(129,76,0,6,6,'CWAT')/
394 ! Added 8/24/2007
395  data paramlist(338) /gribparam(0,104,10,0,7,'SWDIR')/
396  data paramlist(339) /gribparam(0,105,10,0,8,'SWELL')/
397  data paramlist(340) /gribparam(0,106,10,0,9,'SWPER')/
398  data paramlist(341) /gribparam(0,102,10,0,5,'WVHGT')/
399  data paramlist(342) /gribparam(129,213,3,192,0,'SBT122')/
400  data paramlist(343) /gribparam(129,214,3,192,1,'SBT123')/
401  data paramlist(344) /gribparam(129,215,3,192,2,'SBT124')/
402  data paramlist(345) /gribparam(129,216,3,192,3,'SBT126')/
403  data paramlist(346) /gribparam(129,221,3,192,4,'SBC123')/
404  data paramlist(347) /gribparam(129,222,3,192,5,'SBC124')/
405  data paramlist(348) /gribparam(129,228,10,3,192,'SURGE')/
406  data paramlist(349) /gribparam(129,229,10,3,193,'ETSRG')/
407  data paramlist(350) /gribparam(2,149,0,2,14,'PVORT')/
408  data paramlist(351) /gribparam(2,150,0,192,1,'COVMZ')/
409  data paramlist(352) /gribparam(2,151,0,192,2,'COVTZ')/
410  data paramlist(353) /gribparam(2,152,0,192,3,'COVTM')/
411  data paramlist(354) /gribparam(129,202,0,0,197,'THFLX')/
412  data paramlist(355) /gribparam(3,33,0,2,2,'UGRD')/
413  data paramlist(356) /gribparam(3,34,0,2,3,'VGRD')/
414  data paramlist(357) /gribparam(3,40,0,2,9,'DZDT')/
415  data paramlist(358) /gribparam(3,124,0,2,17,'UFLX')/
416  data paramlist(359) /gribparam(3,125,0,2,18,'VFLX')/
417  data paramlist(360) /gribparam(3,8,0,3,6,'DIST')/
418  data paramlist(361) /gribparam(3,13,0,0,2,'POT')/
419  data paramlist(362) /gribparam(3,88,10,4,3,'SALTY')/
420  data paramlist(363) /gribparam(3,49,10,1,2,'UOGRD')/
421  data paramlist(364) /gribparam(3,50,10,1,3,'VOGRD')/
422  data paramlist(365) /gribparam(2,215,0,0,198,'TTDIA')/
423  data paramlist(366) /gribparam(2,217,0,0,199,'TTPHY')/
424  data paramlist(367) /gribparam(130,154,2,3,199,'LSPA')/
425  data paramlist(368) /gribparam(2,250,0,4,197,'SWHR')/
426  data paramlist(369) /gribparam(2,251,0,5,194,'LWHR')/
427  data paramlist(370) /gribparam(2,160,0,4,198,'CSUSF')/
428  data paramlist(371) /gribparam(2,162,0,5,195,'CSULF')/
429  data paramlist(372) /gribparam(2,163,0,5,196,'CSDLF')/
430  data paramlist(373) /gribparam(2,164,0,4,199,'CFNSF')/
431  data paramlist(374) /gribparam(2,165,0,5,197,'CFNLF')/
432  data paramlist(375) /gribparam(2,166,0,4,200,'VBDSF')/
433  data paramlist(376) /gribparam(2,167,0,4,201,'VDDSF')/
434  data paramlist(377) /gribparam(2,168,0,4,202,'NBDSF')/
435  data paramlist(378) /gribparam(2,169,0,4,203,'NDDSF')/
436  data paramlist(379) /gribparam(2,206,0,7,196,'UVI')/
437  data paramlist(380) /gribparam(2,219,0,0,200,'TSD1D')/
438  data paramlist(381) /gribparam(2,220,0,3,206,'NLGSP')/
439  data paramlist(382) /gribparam(2,244,0,0,201,'SHAHR')/
440  data paramlist(383) /gribparam(2,246,0,0,202,'VDFHR')/
441  data paramlist(384) /gribparam(2,243,0,1,213,'CNVMR')/
442  data paramlist(385) /gribparam(2,245,0,1,214,'SHAMR')/
443  data paramlist(386) /gribparam(2,249,0,1,215,'VDFMR')/
444  data paramlist(387) /gribparam(2,247,0,2,208,'VDFUA')/
445  data paramlist(388) /gribparam(2,248,0,2,209,'VDFVA')/
446  data paramlist(389) /gribparam(3,202,0,7,195,'CWDI')/
447  data paramlist(390) /gribparam(2,232,0,4,204,'DTRF')/
448  data paramlist(391) /gribparam(2,233,0,4,205,'UTRF')/
449  data paramlist(392) /gribparam(2,231,0,6,200,'MFLUX')/
450  data paramlist(393) /gribparam(2,202,0,7,195,'CWDI')/
451  data paramlist(394) /gribparam(2,203,0,19,232,'VAFTD')/
452  data paramlist(395) /gribparam(3,238,0,1,201,'SNOWC')/
453  data paramlist(396) /gribparam(3,66,0,1,11,'SNOD')/
454  data paramlist(397) /gribparam(2,133,0,7,2,'KX')/
455  data paramlist(398) /gribparam(2,134,0,7,5,'SX')/
456  data paramlist(399) /gribparam(128,191,10,4,194,'BKENG')/
457  data paramlist(400) /gribparam(129,195,10,4,195,'DBSS')/
458  data paramlist(401) /gribparam(128,171,10,3,197,'AOHFLX')/
459  data paramlist(402) /gribparam(128,180,10,3,198,'ASHFL')/
460  data paramlist(403) /gribparam(128,193,10,3,199,'SSTT')/
461  data paramlist(404) /gribparam(128,194,10,3,200,'SSST')/
462  data paramlist(405) /gribparam(128,190,10,3,201,'KENG')/
463  data paramlist(406) /gribparam(128,185,10,4,196,'INTFD')/
464  data paramlist(407) /gribparam(129,199,10,3,202,'SLTFL')/
465  data paramlist(408) /gribparam(129,197,10,4,197,'OHC')/
466  data paramlist(409) /gribparam(2,159,0,1,216,'CONP')/
467  data paramlist(410) /gribparam(2,175,0,191,195,'MLYNO')/
468  data paramlist(411) /gribparam(129,223,0,1,65,'RPRATE')/
469  data paramlist(412) /gribparam(129,224,0,1,66,'SPRATE')/
470  data paramlist(413) /gribparam(129,225,0,1,67,'FPRATE')/
471  data paramlist(414) /gribparam(129,226,0,1,68,'IPRATE')/
472  data paramlist(415) /gribparam(129,227,0,7,197,'UPHL')/
473  data paramlist(416) /gribparam(3,87,2,0,4,'VEG')/
474  data paramlist(417) /gribparam(129,130,1,1,195,'CWR')/
475  data paramlist(418) /gribparam(2,240,0,192,4,'COVTW')/
476  data paramlist(419) /gribparam(133,164,0,192,5,'COVZZ')/
477  data paramlist(420) /gribparam(133,165,0,192,6,'COVMM')/
478  data paramlist(421) /gribparam(133,166,0,192,7,'COVQZ')/
479  data paramlist(422) /gribparam(133,167,0,192,8,'COVQM')/
480  data paramlist(423) /gribparam(133,168,0,192,9,'COVTVV')/
481  data paramlist(424) /gribparam(133,169,0,192,10,'COVQVV')/
482  data paramlist(425) /gribparam(133,203,0,192,11,'COVPSPS')/
483  data paramlist(426) /gribparam(133,206,0,192,12,'COVQQ')/
484  data paramlist(427) /gribparam(133,220,0,192,13,'COVVVVV')/
485  data paramlist(428) /gribparam(133,234,0,192,14,'COVTT')/
486  data paramlist(429) /gribparam(133,201,0,0,203,'THZ0')/
487  data paramlist(430) /gribparam(133,195,0,1,218,'QZ0')/
488  data paramlist(431) /gribparam(133,204,0,1,219,'QMAX')/
489  data paramlist(432) /gribparam(133,205,0,1,220,'QMIN')/
490  data paramlist(433) /gribparam(133,181,0,2,210,'GWDU')/
491  data paramlist(434) /gribparam(133,182,0,2,211,'GWDV')/
492  data paramlist(435) /gribparam(133,183,0,2,212,'CNVU')/
493  data paramlist(436) /gribparam(133,184,0,2,213,'CNVV')/
494  data paramlist(437) /gribparam(133,236,0,2,214,'WTEND')/
495  data paramlist(438) /gribparam(133,154,0,2,215,'OMGALF')/
496  data paramlist(439) /gribparam(133,196,0,2,216,'CNGWDU')/
497  data paramlist(440) /gribparam(133,197,0,2,217,'CNGWDV')/
498  data paramlist(441) /gribparam(133,202,0,3,207,'CNVUMF')/
499  data paramlist(442) /gribparam(133,209,0,3,208,'CNVDMF')/
500  data paramlist(443) /gribparam(133,219,0,3,209,'CNVDEMF')/
501  data paramlist(444) /gribparam(133,173,0,1,217,'LRGMR')/
502  data paramlist(445) /gribparam(133,174,0,14,195,'VDFOZ')/
503  data paramlist(446) /gribparam(133,175,0,14,196,'POZ')/
504  data paramlist(447) /gribparam(133,188,0,14,197,'TOZ')/
505  data paramlist(448) /gribparam(133,139,0,14,198,'POZT')/
506  data paramlist(449) /gribparam(133,239,0,14,199,'POZO')/
507  data paramlist(450) /gribparam(133,185,2,0,208,'AKHS')/
508  data paramlist(451) /gribparam(133,186,2,0,209,'AKMS')/
509  data paramlist(452) /gribparam(133,193,0,19,218,'EPSR')/
510  data paramlist(453) /gribparam(130,229,0,0,192,'SNOHF')/
511  data paramlist(454) /gribparam(129,194,0,0,204,'TCHP')/
512 ! Added 5/29/2008
513  data paramlist(455) /gribparam(2,185,0,19,219,'TPFI')/
514  data paramlist(456) /gribparam(130,182,0,7,198,'LAI')/
515  data paramlist(457) /gribparam(2,173,0,3,210,'LMH')/
516  data paramlist(458) /gribparam(2,174,0,2,218,'LMV')/
517 ! Added 6/30/2008 Add GRIB1 parameters in Table version 131
518  data paramlist(459) /gribparam(131,1,0,3,0,'PRES')/
519  data paramlist(460) /gribparam(131,2,0,3,1,'PRMSL')/
520  data paramlist(461) /gribparam(131,3,0,3,2,'PTEND')/
521  data paramlist(462) /gribparam(131,4,0,2,14,'PVORT')/
522  data paramlist(463) /gribparam(131,5,0,3,3,'ICAHT')/
523  data paramlist(464) /gribparam(131,6,0,3,4,'GP')/
524  data paramlist(465) /gribparam(131,7,0,3,5,'HGT')/
525  data paramlist(466) /gribparam(131,8,0,3,6,'DIST')/
526  data paramlist(467) /gribparam(131,9,0,3,7,'HSTDV')/
527  data paramlist(468) /gribparam(131,10,0,14,0,'TOZNE')/
528  data paramlist(469) /gribparam(131,11,0,0,0,'TMP')/
529  data paramlist(470) /gribparam(131,12,0,0,1,'VTMP')/
530  data paramlist(471) /gribparam(131,13,0,0,2,'POT')/
531  data paramlist(472) /gribparam(131,14,0,0,3,'EPOT')/
532  data paramlist(473) /gribparam(131,15,0,0,4,'TMAX')/
533  data paramlist(474) /gribparam(131,16,0,0,5,'TMIN')/
534  data paramlist(475) /gribparam(131,17,0,0,6,'DPT')/
535  data paramlist(476) /gribparam(131,18,0,0,7,'DEPR')/
536  data paramlist(477) /gribparam(131,19,0,0,8,'LAPR')/
537  data paramlist(478) /gribparam(131,20,0,19,0,'VIS')/
538  data paramlist(479) /gribparam(131,21,0,15,6,'RDSP1')/
539  data paramlist(480) /gribparam(131,22,0,15,7,'RDSP2')/
540  data paramlist(481) /gribparam(131,23,0,15,8,'RDSP3')/
541  data paramlist(482) /gribparam(131,24,0,7,0,'PLI')/
542  data paramlist(483) /gribparam(131,25,0,0,9,'TMPA')/
543  data paramlist(484) /gribparam(131,26,0,3,8,'PRESA')/
544  data paramlist(485) /gribparam(131,27,0,3,9,'GPA')/
545  data paramlist(486) /gribparam(131,28,10,0,0,'WVSP1')/
546  data paramlist(487) /gribparam(131,29,10,0,1,'WVSP2')/
547  data paramlist(488) /gribparam(131,30,10,0,2,'WVSP3')/
548  data paramlist(489) /gribparam(131,31,0,2,0,'WDIR')/
549  data paramlist(490) /gribparam(131,32,0,2,1,'WIND')/
550  data paramlist(491) /gribparam(131,33,0,2,2,'UGRD')/
551  data paramlist(492) /gribparam(131,34,0,2,3,'VGRD')/
552  data paramlist(493) /gribparam(131,35,0,2,4,'STRM')/
553  data paramlist(494) /gribparam(131,36,0,2,5,'VPOT')/
554  data paramlist(495) /gribparam(131,37,0,2,6,'MNTSF')/
555  data paramlist(496) /gribparam(131,38,0,2,7,'SGCVV')/
556  data paramlist(497) /gribparam(131,39,0,2,8,'VVEL')/
557  data paramlist(498) /gribparam(131,40,0,2,9,'DZDT')/
558  data paramlist(499) /gribparam(131,41,0,2,10,'ABSV')/
559  data paramlist(500) /gribparam(131,42,0,2,11,'ABSD')/
560  data paramlist(501) /gribparam(131,43,0,2,12,'RELV')/
561  data paramlist(502) /gribparam(131,44,0,2,13,'RELD')/
562  data paramlist(503) /gribparam(131,45,0,2,15,'VUCSH')/
563  data paramlist(504) /gribparam(131,46,0,2,16,'VVCSH')/
564  data paramlist(505) /gribparam(131,47,10,1,0,'DIRC')/
565  data paramlist(506) /gribparam(131,48,10,1,1,'SPC')/
566  data paramlist(507) /gribparam(131,49,10,1,2,'UOGRD')/
567  data paramlist(508) /gribparam(131,50,10,1,3,'VOGRD')/
568  data paramlist(509) /gribparam(131,51,0,1,0,'SPFH')/
569  data paramlist(510) /gribparam(131,52,0,1,1,'RH')/
570  data paramlist(511) /gribparam(131,53,0,1,2,'MIXR')/
571  data paramlist(512) /gribparam(131,54,0,1,3,'PWAT')/
572  data paramlist(513) /gribparam(131,55,0,1,4,'VAPP')/
573  data paramlist(514) /gribparam(131,56,0,1,5,'SATD')/
574  data paramlist(515) /gribparam(131,57,0,1,6,'EVP')/
575  data paramlist(516) /gribparam(131,58,0,6,0,'CICE')/
576  data paramlist(517) /gribparam(131,59,0,1,7,'PRATE')/
577  data paramlist(518) /gribparam(131,60,0,19,2,'TSTM')/
578  data paramlist(519) /gribparam(131,61,0,1,8,'APCP')/
579  data paramlist(520) /gribparam(131,62,0,1,9,'NCPCP')/
580  data paramlist(521) /gribparam(131,63,0,1,10,'ACPCP')/
581  data paramlist(522) /gribparam(131,64,0,1,12,'SRWEQ')/
582  data paramlist(523) /gribparam(131,65,0,1,13,'WEASD')/
583  data paramlist(524) /gribparam(131,66,0,1,11,'SNOD')/
584  data paramlist(525) /gribparam(131,67,0,19,3,'MIXHT')/
585  data paramlist(526) /gribparam(131,68,10,4,2,'TTHDP')/
586  data paramlist(527) /gribparam(131,69,10,4,0,'MTHD')/
587  data paramlist(528) /gribparam(131,70,10,4,1,'MTHA')/
588  data paramlist(529) /gribparam(131,71,0,6,1,'TCDC')/
589  data paramlist(530) /gribparam(131,72,0,6,2,'CDCON')/
590  data paramlist(531) /gribparam(131,73,0,6,3,'LCDC')/
591  data paramlist(532) /gribparam(131,74,0,6,4,'MCDC')/
592  data paramlist(533) /gribparam(131,75,0,6,5,'HCDC')/
593  data paramlist(534) /gribparam(131,76,0,6,6,'CWAT')/
594  data paramlist(535) /gribparam(131,77,0,7,1,'BLI')/
595  data paramlist(536) /gribparam(131,78,0,1,14,'SNOC')/
596  data paramlist(537) /gribparam(131,79,0,1,15,'SNOL')/
597  data paramlist(538) /gribparam(131,80,10,3,0,'WTMP')/
598  data paramlist(539) /gribparam(131,81,2,0,0,'LAND')/
599  data paramlist(540) /gribparam(131,82,10,3,1,'DSLM')/
600  data paramlist(541) /gribparam(131,83,2,0,1,'SFCR')/
601  data paramlist(542) /gribparam(131,84,0,19,1,'ALBDO')/
602  data paramlist(543) /gribparam(131,85,2,0,2,'TSOIL')/
603  data paramlist(544) /gribparam(131,86,2,0,3,'SOILM')/
604  data paramlist(545) /gribparam(131,87,2,0,4,'VEG')/
605  data paramlist(546) /gribparam(131,88,10,4,3,'SALTY')/
606  data paramlist(547) /gribparam(131,89,0,3,10,'DEN')/
607  data paramlist(548) /gribparam(131,90,2,0,5,'WATR')/
608  data paramlist(549) /gribparam(131,91,10,2,0,'ICEC')/
609  data paramlist(550) /gribparam(131,92,10,2,1,'ICETK')/
610  data paramlist(551) /gribparam(131,93,10,2,2,'DICED')/
611  data paramlist(552) /gribparam(131,94,10,2,3,'SICED')/
612  data paramlist(553) /gribparam(131,95,10,2,4,'UICE')/
613  data paramlist(554) /gribparam(131,96,10,2,5,'VICE')/
614  data paramlist(555) /gribparam(131,97,10,2,6,'ICEG')/
615  data paramlist(556) /gribparam(131,98,10,2,7,'ICED')/
616  data paramlist(557) /gribparam(131,99,0,1,16,'SNOM')/
617  data paramlist(558) /gribparam(131,100,10,0,3,'HTSGW')/
618  data paramlist(559) /gribparam(131,101,10,0,4,'WVDIR')/
619  data paramlist(560) /gribparam(131,102,10,0,5,'WVHGT')/
620  data paramlist(561) /gribparam(131,103,10,0,6,'WVPER')/
621  data paramlist(562) /gribparam(131,104,10,0,7,'SWDIR')/
622  data paramlist(563) /gribparam(131,105,10,0,8,'SWELL')/
623  data paramlist(564) /gribparam(131,106,10,0,9,'SWPER')/
624  data paramlist(565) /gribparam(131,107,10,0,10,'DIRPW')/
625  data paramlist(566) /gribparam(131,108,10,0,11,'PERPW')/
626  data paramlist(567) /gribparam(131,109,10,0,12,'DIRSW')/
627  data paramlist(568) /gribparam(131,110,10,0,13,'PERSW')/
628  data paramlist(569) /gribparam(131,111,0,4,0,'NSWRS')/
629  data paramlist(570) /gribparam(131,112,0,5,0,'NLWRS')/
630  data paramlist(571) /gribparam(131,113,0,4,1,'NSWRT')/
631  data paramlist(572) /gribparam(131,114,0,5,1,'NLWRT')/
632  data paramlist(573) /gribparam(131,115,0,5,2,'LWAVR')/
633  data paramlist(574) /gribparam(131,116,0,4,2,'SWAVR')/
634  data paramlist(575) /gribparam(131,117,0,4,3,'GRAD')/
635  data paramlist(576) /gribparam(131,118,0,4,4,'BRTMP')/
636  data paramlist(577) /gribparam(131,119,0,4,5,'LWRAD')/
637  data paramlist(578) /gribparam(131,120,0,4,6,'SWRAD')/
638  data paramlist(579) /gribparam(131,121,0,0,10,'LHTFL')/
639  data paramlist(580) /gribparam(131,122,0,0,11,'SHTFL')/
640  data paramlist(581) /gribparam(131,123,0,2,20,'BLYDP')/
641  data paramlist(582) /gribparam(131,124,0,2,17,'UFLX')/
642  data paramlist(583) /gribparam(131,125,0,2,18,'VFLX')/
643  data paramlist(584) /gribparam(131,126,0,2,19,'WMIXE')/
644  data paramlist(585) /gribparam(131,127,255,255,255,'IMGD')/
645  data paramlist(586) /gribparam(131,128,0,3,1,'MSLSA')/
646  data paramlist(587) /gribparam(131,130,0,3,192,'MSLET')/
647  data paramlist(588) /gribparam(131,131,0,7,192,'LFTX')/
648  data paramlist(589) /gribparam(131,132,0,7,193,'4LFTX')/
649  data paramlist(590) /gribparam(131,134,0,3,212,'PRESN')/
650  data paramlist(591) /gribparam(131,135,0,1,197,'MCONV')/
651  data paramlist(592) /gribparam(131,136,0,2,192,'VWSH')/
652  data paramlist(593) /gribparam(131,137,0,2,219,'PVMWW')/
653  data paramlist(594) /gribparam(131,140,0,1,192,'CRAIN')/
654  data paramlist(595) /gribparam(131,141,0,1,193,'CFRZR')/
655  data paramlist(596) /gribparam(131,142,0,1,194,'CICEP')/
656  data paramlist(597) /gribparam(131,143,0,1,195,'CSNOW')/
657  data paramlist(598) /gribparam(131,144,2,0,192,'SOILW')/
658  data paramlist(599) /gribparam(131,145,0,1,200,'PEVPR')/
659  data paramlist(600) /gribparam(131,146,2,0,210,'VEGT')/
660  data paramlist(601) /gribparam(131,147,2,3,200,'BARET')/
661  data paramlist(602) /gribparam(131,148,2,3,201,'AVSFT')/
662  data paramlist(603) /gribparam(131,149,2,3,202,'RADT')/
663  data paramlist(604) /gribparam(131,150,2,0,211,'SSTOR')/
664  data paramlist(605) /gribparam(131,151,2,0,212,'LSOIL')/
665  data paramlist(606) /gribparam(131,152,2,0,213,'EWATR')/
666  data paramlist(607) /gribparam(131,153,0,1,22,'CLWMR')/
667  data paramlist(608) /gribparam(131,155,2,0,193,'GFLUX')/
668  data paramlist(609) /gribparam(131,156,0,7,7,'CIN')/
669  data paramlist(610) /gribparam(131,157,0,7,6,'CAPE')/
670  data paramlist(611) /gribparam(131,158,0,19,11,'TKE')/
671  data paramlist(612) /gribparam(131,159,0,19,192,'MXSALB')/
672  data paramlist(613) /gribparam(131,160,2,3,192,'SOILL')/
673  data paramlist(614) /gribparam(131,161,0,1,29,'ASNOW')/
674  data paramlist(615) /gribparam(131,162,0,1,221,'ARAIN')/
675  data paramlist(616) /gribparam(131,163,2,0,214,'GWREC')/
676  data paramlist(617) /gribparam(131,164,2,0,215,'QREC')/
677  data paramlist(618) /gribparam(131,165,0,1,222,'SNOWT')/
678  data paramlist(619) /gribparam(131,166,0,4,200,'VBDSF')/
679  data paramlist(620) /gribparam(131,167,0,4,201,'VDDSF')/
680  data paramlist(621) /gribparam(131,168,0,4,202,'NBDSF')/
681  data paramlist(622) /gribparam(131,169,0,4,203,'NDDSF')/
682  data paramlist(623) /gribparam(131,170,0,19,193,'SNFALB')/
683  data paramlist(624) /gribparam(131,171,2,3,193,'RLYRS')/
684  data paramlist(625) /gribparam(131,172,0,2,193,'MFLX')/
685  data paramlist(626) /gribparam(131,173,0,3,210,'LMH')/
686  data paramlist(627) /gribparam(131,174,0,2,218,'LMV')/
687  data paramlist(628) /gribparam(131,175,0,191,195,'MLYNO')/
688  data paramlist(629) /gribparam(131,176,0,191,192,'NLAT')/
689  data paramlist(630) /gribparam(131,177,0,191,193,'ELON')/
690  data paramlist(631) /gribparam(131,178,0,1,23,'ICMR')/
691  data paramlist(632) /gribparam(131,179,2,0,228,'ACOND')/
692  data paramlist(633) /gribparam(131,180,0,1,17,'SNOAG')/
693  data paramlist(634) /gribparam(131,181,2,0,199,'CCOND')/
694  data paramlist(635) /gribparam(131,182,0,7,198,'LAI')/
695  data paramlist(636) /gribparam(131,183,2,0,216,'SFCRH')/
696  data paramlist(637) /gribparam(131,184,0,19,19,'SALBD')/
697  data paramlist(638) /gribparam(131,187,2,0,217,'NDVI')/
698  data paramlist(639) /gribparam(131,188,2,0,206,'RDRIP')/
699  data paramlist(640) /gribparam(131,189,2,0,218,'LANDN')/
700  data paramlist(641) /gribparam(131,190,0,7,8,'HLCY')/
701  data paramlist(642) /gribparam(131,191,0,191,196,'NLATN')/
702  data paramlist(643) /gribparam(131,192,0,191,197,'ELONN')/
703  data paramlist(644) /gribparam(131,194,1,1,193,'CPOFP')/
704  data paramlist(645) /gribparam(131,196,0,2,194,'USTM')/
705  data paramlist(646) /gribparam(131,197,0,2,195,'VSTM')/
706  data paramlist(647) /gribparam(131,198,0,1,212,'SBSNO')/
707  data paramlist(648) /gribparam(131,199,2,3,198,'EVBS')/
708  data paramlist(649) /gribparam(131,200,2,0,229,'EVCW')/
709  data paramlist(650) /gribparam(131,202,0,1,223,'APCPN')/
710  data paramlist(651) /gribparam(131,203,2,0,200,'RSMIN')/
711  data paramlist(652) /gribparam(131,204,0,4,192,'DSWRF')/
712  data paramlist(653) /gribparam(131,205,0,5,192,'DLWRF')/
713  data paramlist(654) /gribparam(131,206,0,1,224,'ACPCPN')/
714  data paramlist(655) /gribparam(131,207,2,0,194,'MSTAV')/
715  data paramlist(656) /gribparam(131,208,2,0,195,'SFEXC')/
716  data paramlist(657) /gribparam(131,210,2,0,230,'TRANS')/
717  data paramlist(658) /gribparam(131,211,0,4,193,'USWRF')/
718  data paramlist(659) /gribparam(131,212,0,5,193,'ULWRF')/
719  data paramlist(660) /gribparam(131,213,0,6,192,'CDLYR')/
720  data paramlist(661) /gribparam(131,214,0,1,196,'CPRAT')/
721  data paramlist(662) /gribparam(131,216,0,0,193,'TTRAD')/
722  data paramlist(663) /gribparam(131,218,0,3,211,'HGTN')/
723  data paramlist(664) /gribparam(131,219,2,0,201,'WILT')/
724  data paramlist(665) /gribparam(130,220,2,3,203,'FLDCP')/
725  data paramlist(666) /gribparam(131,221,0,3,196,'HPBL')/
726  data paramlist(667) /gribparam(131,222,2,3,194,'SLTYP')/
727  data paramlist(668) /gribparam(131,223,2,0,196,'CNWAT')/
728  data paramlist(669) /gribparam(131,224,2,3,0,'SOTYP')/
729  data paramlist(670) /gribparam(131,225,2,0,198,'VGTYP')/
730  data paramlist(671) /gribparam(131,226,2,0,197,'BMIXL')/
731  data paramlist(672) /gribparam(131,227,2,0,219,'AMIXL')/
732  data paramlist(673) /gribparam(131,228,0,1,199,'PEVAP')/
733  data paramlist(674) /gribparam(131,229,0,0,192,'SNOHF')/
734  data paramlist(675) /gribparam(131,230,2,3,195,'SMREF')/
735  data paramlist(676) /gribparam(131,231,2,3,196,'SMDRY')/
736  data paramlist(677) /gribparam(131,232,2,0,220,'WVINC')/
737  data paramlist(678) /gribparam(131,233,2,0,221,'WCINC')/
738  data paramlist(679) /gribparam(131,234,1,0,192,'BGRUN')/
739  data paramlist(680) /gribparam(131,235,1,0,193,'SSRUN')/
740  data paramlist(681) /gribparam(131,237,2,0,222,'WVCONV')/
741  data paramlist(682) /gribparam(131,238,0,1,201,'SNOWC')/
742  data paramlist(683) /gribparam(131,239,0,1,208,'SNOT')/
743  data paramlist(684) /gribparam(131,240,2,3,197,'POROS')/
744  data paramlist(685) /gribparam(131,241,2,0,223,'WCCONV')/
745  data paramlist(686) /gribparam(131,242,2,0,224,'WVUFLX')/
746  data paramlist(687) /gribparam(131,243,2,0,225,'WVVFLX')/
747  data paramlist(688) /gribparam(131,244,2,0,226,'WCUFLX')/
748  data paramlist(689) /gribparam(131,245,2,0,227,'WCVFLX')/
749  data paramlist(690) /gribparam(131,246,2,0,202,'RCS')/
750  data paramlist(691) /gribparam(131,247,2,0,203,'RCT')/
751  data paramlist(692) /gribparam(131,248,2,0,204,'RCQ')/
752  data paramlist(693) /gribparam(131,249,2,0,205,'RCSOL')/
753  data paramlist(694) /gribparam(131,250,0,4,197,'SWHR')/
754  data paramlist(695) /gribparam(131,251,0,5,194,'LWHR')/
755  data paramlist(696) /gribparam(131,252,0,2,196,'CD')/
756  data paramlist(697) /gribparam(131,253,0,2,197,'FRICV')/
757  data paramlist(698) /gribparam(131,254,0,7,194,'RI')/
758  data paramlist(699) /gribparam(129,62,0,1,9,'NCPCP')/
759  data paramlist(700) /gribparam(129,63,0,1,10,'ACPCP')/
760  data paramlist(701) /gribparam(131,220,2,3,203,'FLDCP')/
761  data paramlist(702) /gribparam(129,231,0,14,200,'OZMAX1')/
762  data paramlist(703) /gribparam(129,232,0,14,201,'OZMAX8')/
763  data paramlist(704) /gribparam(129,240,0,16,197,'RETOP')/
764  data paramlist(705) /gribparam(133,191,0,6,201,'SUNSD')/
765  data paramlist(706) /gribparam(129,233,0,14,202,'PDMAX1')/
766  data paramlist(707) /gribparam(129,234,0,14,203,'PDMAX24')/
767  data paramlist(708) /gribparam(129,242,10,3,242,'TCSRG20')/
768  data paramlist(709) /gribparam(129,243,10,3,243,'TCSRG30')/
769  data paramlist(710) /gribparam(129,244,10,3,244,'TCSRG40')/
770  data paramlist(711) /gribparam(129,245,10,3,245,'TCSRG50')/
771  data paramlist(712) /gribparam(129,246,10,3,246,'TCSRG60')/
772  data paramlist(713) /gribparam(129,247,10,3,247,'TCSRG70')/
773  data paramlist(714) /gribparam(129,248,10,3,248,'TCSRG80')/
774  data paramlist(715) /gribparam(129,249,10,3,249,'TCSRG90')/
775  data paramlist(716) /gribparam(3,1,0,3,0,'PRES')/
776  data paramlist(717) /gribparam(3,52,0,1,1,'RH')/
777  data paramlist(718) /gribparam(3,63,0,1,10,'ACPCP')/
778  data paramlist(719) /gribparam(3,61,0,1,8,'APCP')/
779  data paramlist(720) /gribparam(3,41,0,2,10,'ABSV')/
780  data paramlist(721) /gribparam(3,100,10,0,3,'HTSGW')/
781  data paramlist(722) /gribparam(3,101,10,0,4,'WVDIR')/
782  data paramlist(723) /gribparam(3,103,10,0,6,'WVPER')/
783  data paramlist(724) /gribparam(3,104,10,0,7,'SWDIR')/
784  data paramlist(725) /gribparam(3,105,10,0,8,'SWELL')/
785  data paramlist(726) /gribparam(3,107,10,0,10,'DIRPW')/
786  data paramlist(727) /gribparam(3,108,10,0,11,'PERPW')/
787  data paramlist(728) /gribparam(3,109,10,0,12,'DIRSW')/
788  data paramlist(729) /gribparam(3,110,10,0,13,'PERSW')/
789  data paramlist(730) /gribparam(133,192,10,191,1,'MOSF')/
790  data paramlist(731) /gribparam(130,193,0,1,225,'FRZR')/
791  data paramlist(732) /gribparam(130,194,0,1,227,'FROZR')/
792  data paramlist(733) /gribparam(130,195,0,1,241,'TSNOW')/
793  data paramlist(734) /gribparam(130,196,2,0,7,'MTERH')/
794 ! Added 12/06/2010
795  data paramlist(735) /gribparam(128,195,10,4,4,'OVHD')/
796  data paramlist(736) /gribparam(128,196,10,4,5,'OVSD')/
797  data paramlist(737) /gribparam(128,197,10,4,6,'OVMD')/
798  data paramlist(738) /gribparam(130,64,0,1,12,'SRWEQ')/
799  data paramlist(739) /gribparam(130,241,3,192,6,'SBT112')/
800  data paramlist(740) /gribparam(130,242,3,192,7,'SBT113')/
801  data paramlist(741) /gribparam(130,243,3,192,8,'SBT114')/
802  data paramlist(742) /gribparam(130,244,3,192,9,'SBT115')/
803  data paramlist(743) /gribparam(129,235,0,16,198,'MAXREF')/
804  data paramlist(744) /gribparam(129,236,0,7,199,'MXUPHL')/
805  data paramlist(745) /gribparam(129,237,0,2,220,'MAXUVV')/
806  data paramlist(746) /gribparam(129,238,0,2,221,'MAXDVV')/
807  data paramlist(747) /gribparam(129,253,0,2,222,'MAXUW')/
808  data paramlist(748) /gribparam(129,254,0,2,223,'MAXVW')/
809  data paramlist(749) /gribparam(129,241,0,2,224,'VRATE')/
810  data paramlist(750) /gribparam(129,250,2,4,2,'HINDEX')/
811  data paramlist(751) /gribparam(129,175,0,19,234,'ICSEV')/
812  data paramlist(752) /gribparam(129,176,0,19,233,'ICPRB')/
813  data paramlist(753) /gribparam(2,236,0,19,217,'SIPD')/
814  data paramlist(754) /gribparam(129,230,0,1,242,'RHPW')/
815  data paramlist(755) /gribparam(130,206,0,15,3,'VIL')/
816  data paramlist(756) /gribparam(255,255,0,0,255,'MISSING')/
817  data paramlist(757) /gribparam(255,255,0,20,102,'AOTK')/
818  data paramlist(758) /gribparam(255,255,0,20,103,'SSALBK')/
819  data paramlist(759) /gribparam(255,255,0,20,104,'ASYSFK')/
820  data paramlist(760) /gribparam(255,255,0,20,105,'AECOEF')/
821  data paramlist(761) /gribparam(255,255,0,20,106,'AACOEF')/
822  data paramlist(762) /gribparam(255,255,0,20,107,'ALBSAT')/
823  data paramlist(763) /gribparam(255,255,0,20,108,'ALBGRD')/
824  data paramlist(764) /gribparam(255,255,0,20,109,'ALESAT')/
825  data paramlist(765) /gribparam(255,255,0,20,110,'ALEGRD')/
826  data paramlist(766) /gribparam(255,255,0,20,9,'WLSMFLX')/
827  data paramlist(767) /gribparam(255,255,0,20,10,'WDCPMFLX')/
828  data paramlist(768) /gribparam(255,255,0,20,11,'SEDMFLX')/
829  data paramlist(769) /gribparam(255,255,0,20,12,'DDMFLX')/
830  data paramlist(770) /gribparam(255,255,0,20,13,'TRANHH')/
831  data paramlist(771) /gribparam(255,255,0,20,14,'TRSDS')/
832  data paramlist(772) /gribparam(255,255,0,20,59,'ANCON')/
833 ! Added 08/08/2013
834  data paramlist(773) /gribparam(131,193,0,0,21,'APTMP')/
835  data paramlist(774) /gribparam(131,137,0,17,0,'LTNGSD')/
836  data paramlist(775) /gribparam(131,194,0,1,39,'CPOFP')/
837 ! Added 03/10/2020 changed local CH --> LCH
838  data paramlist(776) /gribparam(128,144,10,3,203,'LCH')/
839 ! Added 03/04/2020
840  data paramlist(777) /gribparam(255,255,0,20,101,'ATMTK')/
841  data paramlist(778) /gribparam(131,214,0,1,37,'CPRAT')/
842  data paramlist(779) /gribparam(255,255,10,2,8,'ICETMP')/
843  data paramlist(780) /gribparam(255,255,0,0,28,'UCTMP')/
844  data paramlist(781) /gribparam(255,255,0,0,29,'TMPADV')/
845  data paramlist(782) /gribparam(255,255,0,1,129,'EFRCWAT')/
846  data paramlist(783) /gribparam(255,255,0,1,130,'EFRRAIN')/
847  data paramlist(784) /gribparam(255,255,0,1,131,'EFRCICE')/
848  data paramlist(785) /gribparam(255,255,0,1,132,'EFRSNOW')/
849  data paramlist(786) /gribparam(255,255,0,1,133,'EFRGRL')/
850  data paramlist(787) /gribparam(255,255,0,1,134,'EFRHAIL')/
851  data paramlist(788) /gribparam(255,255,0,1,135,'EFRSLC')/
852  data paramlist(789) /gribparam(255,255,0,1,136,'EFRSICEC')/
853  data paramlist(790) /gribparam(255,255,0,1,137,'EFARRAIN')/
854  data paramlist(791) /gribparam(255,255,0,1,138,'EFARCICE')/
855  data paramlist(792) /gribparam(255,255,0,1,139,'EFARSNOW')/
856  data paramlist(793) /gribparam(255,255,0,1,140,'EFARGRL')/
857  data paramlist(794) /gribparam(255,255,0,1,141,'EFARHAIL')/
858  data paramlist(795) /gribparam(255,255,0,1,142,'EFARSIC')/
859  data paramlist(796) /gribparam(255,255,0,1,231,'PPINDX')/
860  data paramlist(797) /gribparam(255,255,0,1,232,'PROBCIP')/
861  data paramlist(798) /gribparam(255,255,0,1,233,'SNOWLR')/
862  data paramlist(799) /gribparam(255,255,0,1,234,'PCPDUR')/
863  data paramlist(800) /gribparam(255,255,0,1,235,'CLLMR')/
864  data paramlist(801) /gribparam(255,255,0,2,231,'TPWDIR')/
865  data paramlist(802) /gribparam(255,255,0,2,232,'TPWSPD')/
866  data paramlist(803) /gribparam(255,255,0,2,36,'AFRWE')/
867  data paramlist(804) /gribparam(255,255,0,3,20,'SDSGSO')/
868  data paramlist(805) /gribparam(255,255,0,3,21,'AOSGSO')/
869  data paramlist(806) /gribparam(255,255,0,3,22,'SSGSO')/
870  data paramlist(807) /gribparam(255,255,0,3,23,'GWD')/
871  data paramlist(808) /gribparam(255,255,0,3,24,'ASGSO')/
872  data paramlist(809) /gribparam(255,255,0,3,25,'NLPRES')/
873  data paramlist(810) /gribparam(255,255,0,3,26,'EXPRES')/
874  data paramlist(811) /gribparam(255,255,0,3,27,'UMFLX')/
875  data paramlist(812) /gribparam(255,255,0,3,28,'DMFLX')/
876  data paramlist(813) /gribparam(255,255,0,3,29,'UDRATE')/
877  data paramlist(814) /gribparam(255,255,0,3,30,'DDRATE')/
878  data paramlist(815) /gribparam(255,255,0,3,31,'UCLSPRS')/
879  data paramlist(816) /gribparam(255,255,0,4,50,'UVIUCS')/
880  data paramlist(817) /gribparam(255,255,0,4,52,'DSWRFCS')/
881  data paramlist(818) /gribparam(255,255,0,4,53,'USWRFCS')/
882  data paramlist(819) /gribparam(255,255,0,5,5,'NLWRF')/
883  data paramlist(820) /gribparam(255,255,0,5,6,'NLWRCS')/
884  data paramlist(821) /gribparam(255,255,0,5,7,'BRTEMP')/
885  data paramlist(822) /gribparam(255,255,0,5,8,'DLWRFCS')/
886  data paramlist(823) /gribparam(255,255,0,6,34,'SLWTC')/
887  data paramlist(824) /gribparam(255,255,0,6,35,'SSWTC')/
888  data paramlist(825) /gribparam(255,255,0,6,36,'FSTRPC')/
889  data paramlist(826) /gribparam(255,255,0,6,37,'FCONPC')/
890  data paramlist(827) /gribparam(255,255,0,6,38,'MASSDCD')/
891  data paramlist(828) /gribparam(255,255,0,6,39,'MASSDCI')/
892  data paramlist(829) /gribparam(255,255,0,6,40,'MDCCWD')/
893  data paramlist(830) /gribparam(255,255,0,6,47,'VFRCWD')/
894  data paramlist(831) /gribparam(255,255,0,6,48,'VFRCICE')/
895  data paramlist(832) /gribparam(255,255,0,6,49,'VFRCIW')/
896  data paramlist(833) /gribparam(255,255,0,7,19,'CONAPES')/
897  data paramlist(834) /gribparam(255,255,0,7,203,'DCAPE')/
898  data paramlist(835) /gribparam(255,255,0,7,204,'EFHL')/
899  data paramlist(836) /gribparam(255,255,0,7,205,'ESP')/
900  data paramlist(837) /gribparam(255,255,0,7,206,'CANGLE')/
901  data paramlist(838) /gribparam(255,255,0,7,206,'CANGLE')/
902  data paramlist(839) /gribparam(255,255,0,15,9,'RFCD')/
903  data paramlist(840) /gribparam(255,255,0,15,10,'RFCI')/
904  data paramlist(841) /gribparam(255,255,0,15,11,'RFSNOW')/
905  data paramlist(842) /gribparam(255,255,0,15,12,'RFRAIN')/
906  data paramlist(843) /gribparam(255,255,0,15,13,'RFGRPL')/
907  data paramlist(844) /gribparam(255,255,0,15,14,'RFHAIL')/
908  data paramlist(845) /gribparam(255,255,0,15,15,'HSR')/
909  data paramlist(846) /gribparam(255,255,0,15,16,'HSRHT')/
910  data paramlist(847) /gribparam(255,255,0,17,1,'LTPINX')/
911  data paramlist(848) /gribparam(255,255,0,17,2,'CDGDLTFD')/
912  data paramlist(849) /gribparam(255,255,0,17,3,'CDCDLTFD')/
913  data paramlist(850) /gribparam(255,255,0,17,4,'TLGTFD')/
914  data paramlist(851) /gribparam(255,255,0,18,0,'ACCES')/
915  data paramlist(852) /gribparam(255,255,0,18,1,'ACIOD')/
916  data paramlist(853) /gribparam(255,255,0,18,2,'ACRADP')/
917  data paramlist(854) /gribparam(255,255,0,19,28,'MWTURB')/
918  data paramlist(855) /gribparam(255,255,0,19,29,'CATEDR')/
919  data paramlist(856) /gribparam(255,255,0,19,30,'EDPARM')/
920  data paramlist(857) /gribparam(255,255,0,19,31,'MXEDPRM')/
921  data paramlist(858) /gribparam(255,255,0,19,32,'HIFREL')/
922  data paramlist(859) /gribparam(255,255,0,19,33,'VISLFOG')/
923  data paramlist(860) /gribparam(255,255,0,19,34,'VISIFOG')/
924  data paramlist(861) /gribparam(255,255,0,19,35,'VISBSN')/
925  data paramlist(862) /gribparam(255,255,0,19,36,'PSNOWS')/
926  data paramlist(863) /gribparam(255,255,0,19,37,'ICESEV')/
927  data paramlist(864) /gribparam(255,255,0,19,238,'ELLINX')/
928  data paramlist(865) /gribparam(255,255,1,0,7,'DISRS')/
929  data paramlist(866) /gribparam(255,255,1,0,8,'GWUPS')/
930  data paramlist(867) /gribparam(255,255,1,0,9,'GWLOWS')/
931  data paramlist(868) /gribparam(255,255,1,0,10,'SFLORC')/
932  data paramlist(869) /gribparam(255,255,1,0,11,'RVERSW')/
933  data paramlist(870) /gribparam(255,255,1,0,12,'FLDPSW')/
934  data paramlist(871) /gribparam(255,255,1,0,13,'DEPWSS')/
935  data paramlist(872) /gribparam(255,255,1,0,14,'UPAPCP')/
936  data paramlist(873) /gribparam(255,255,1,0,15,'UPASM')/
937  data paramlist(874) /gribparam(255,255,1,0,16,'PERRATE')/
938  data paramlist(875) /gribparam(255,255,1,2,0,'WDPTHIL')/
939  data paramlist(876) /gribparam(255,255,1,2,1,'WTMPIL')/
940  data paramlist(877) /gribparam(255,255,1,2,2,'WFRACT')/
941  data paramlist(878) /gribparam(255,255,1,2,3,'SEDTK')/
942  data paramlist(879) /gribparam(255,255,1,2,4,'SEDTMP')/
943  data paramlist(880) /gribparam(255,255,1,2,5,'ICTKIL')/
944  data paramlist(881) /gribparam(255,255,1,2,6,'ICETIL')/
945  data paramlist(882) /gribparam(255,255,1,2,7,'ICECIL')/
946  data paramlist(883) /gribparam(255,255,1,2,8,'LANDIL')/
947  data paramlist(884) /gribparam(255,255,1,2,9,'SFSAL')/
948  data paramlist(885) /gribparam(255,255,1,2,10,'SFTMP')/
949  data paramlist(886) /gribparam(255,255,1,2,11,'ACWSR')/
950  data paramlist(887) /gribparam(255,255,1,2,12,'SALTIL')/
951  data paramlist(888) /gribparam(255,255,1,2,13,'CSAFC')/
952  data paramlist(889) /gribparam(255,255,2,0,35,'TCLASS')/
953  data paramlist(890) /gribparam(255,255,2,0,36,'TFRCT')/
954  data paramlist(891) /gribparam(255,255,2,0,37,'TPERCT')/
955  data paramlist(892) /gribparam(255,255,2,0,38,'SOILVIC')/
956  data paramlist(893) /gribparam(255,255,2,0,39,'EVAPTRAT')/
957  data paramlist(894) /gribparam(255,255,2,1,192,'CANL')/
958  data paramlist(895) /gribparam(255,255,2,3,18,'SOILTMP')/
959  data paramlist(896) /gribparam(255,255,2,3,19,'SOILMOI')/
960  data paramlist(897) /gribparam(255,255,2,3,20,'CISOILM')/
961  data paramlist(898) /gribparam(255,255,2,3,21,'SOILICE')/
962  data paramlist(899) /gribparam(255,255,2,3,22,'CISICE')/
963  data paramlist(900) /gribparam(255,255,2,3,23,'LWSNWP')/
964  data paramlist(901) /gribparam(255,255,2,3,23,'FRSTINX')/
965  data paramlist(902) /gribparam(255,255,2,3,23,'SNWDEB')/
966  data paramlist(903) /gribparam(255,255,2,3,23,'SHFLX')/
967  data paramlist(904) /gribparam(255,255,2,3,23,'SOILDEP')/
968  data paramlist(905) /gribparam(255,255,2,4,0,'FIREOLK')/
969  data paramlist(906) /gribparam(255,255,2,4,1,'FIREODT')/
970  data paramlist(907) /gribparam(255,255,2,4,3,'FBAREA')/
971  data paramlist(908) /gribparam(255,255,2,4,4,'FOSINDX')/
972  data paramlist(909) /gribparam(255,255,2,4,5,'FWINX')/
973  data paramlist(910) /gribparam(255,255,2,4,6,'FFMCODE')/
974  data paramlist(911) /gribparam(255,255,2,4,7,'DUFMCODE')/
975  data paramlist(912) /gribparam(255,255,2,4,8,'DRTCODE')/
976  data paramlist(913) /gribparam(255,255,2,4,9,'INFSINX')/
977  data paramlist(914) /gribparam(255,255,2,4,10,'FBUPINX')/
978  data paramlist(915) /gribparam(255,255,2,4,11,'FDSRTE')/
979  data paramlist(916) /gribparam(255,255,2,5,1,'GLACTMP')/
980  data paramlist(917) /gribparam(255,255,3,0,0,'SRAD')/
981  data paramlist(918) /gribparam(255,255,3,0,1,'SALBEDO')/
982  data paramlist(919) /gribparam(255,255,3,0,2,'SBTMP')/
983  data paramlist(920) /gribparam(255,255,3,0,3,'SPWAT')/
984  data paramlist(921) /gribparam(255,255,3,0,4,'SLFTI')/
985  data paramlist(922) /gribparam(255,255,3,0,5,'SCTPRES')/
986  data paramlist(923) /gribparam(255,255,3,0,6,'SSTMP')/
987  data paramlist(924) /gribparam(255,255,3,0,7,'CLOUDM')/
988  data paramlist(925) /gribparam(255,255,3,0,8,'PIXST')/
989  data paramlist(926) /gribparam(255,255,3,0,9,'FIREDI')/
990  data paramlist(927) /gribparam(255,255,3,1,194,'SWQI')/
991  data paramlist(928) /gribparam(255,255,3,2,0,'CSKPROB')/
992  data paramlist(929) /gribparam(255,255,3,192,53,'SBTAGR8')/
993  data paramlist(930) /gribparam(255,255,3,192,54,'SBTAGR9')/
994  data paramlist(931) /gribparam(255,255,3,192,55,'SBTAGR10')/
995  data paramlist(932) /gribparam(255,255,3,192,56,'SBTAGR11')/
996  data paramlist(933) /gribparam(255,255,3,192,57,'SBTAGR12')/
997  data paramlist(934) /gribparam(255,255,3,192,58,'SBTAGR13')/
998  data paramlist(935) /gribparam(255,255,3,192,59,'SBTAGR14')/
999  data paramlist(936) /gribparam(255,255,3,192,60,'SBTAGR15')/
1000  data paramlist(937) /gribparam(255,255,3,192,61,'SBTAGR16')/
1001  data paramlist(938) /gribparam(255,255,10,0,14,'WWSDIR')/
1002  data paramlist(939) /gribparam(255,255,10,0,15,'MWSPER')/
1003  data paramlist(940) /gribparam(255,255,10,0,16,'CDWW')/
1004  data paramlist(941) /gribparam(255,255,10,0,17,'FRICV')/
1005  data paramlist(942) /gribparam(255,255,10,0,18,'WSTR')/
1006  data paramlist(943) /gribparam(255,255,10,0,19,'NWSTR')/
1007  data paramlist(944) /gribparam(255,255,10,0,20,'MSSW')/
1008  data paramlist(945) /gribparam(255,255,10,0,21,'USSD')/
1009  data paramlist(946) /gribparam(255,255,10,0,22,'VSSD')/
1010  data paramlist(947) /gribparam(255,255,10,0,23,'PMAXWH')/
1011  data paramlist(948) /gribparam(255,255,10,0,24,'MAXWH')/
1012  data paramlist(949) /gribparam(255,255,10,0,25,'IMWF')/
1013  data paramlist(950) /gribparam(255,255,10,0,26,'IMFWW')/
1014  data paramlist(951) /gribparam(255,255,10,0,27,'IMFTSW')/
1015  data paramlist(952) /gribparam(255,255,10,0,28,'MZWPER')/
1016  data paramlist(953) /gribparam(255,255,10,0,29,'MZPWW')/
1017  data paramlist(954) /gribparam(255,255,10,0,30,'MZPTSW')/
1018  data paramlist(955) /gribparam(255,255,10,0,31,'WDIRW')/
1019  data paramlist(956) /gribparam(255,255,10,0,32,'DIRWWW')/
1020  data paramlist(957) /gribparam(255,255,10,0,33,'DIRWTS')/
1021  data paramlist(958) /gribparam(255,255,10,0,34,'PWPER')/
1022  data paramlist(959) /gribparam(255,255,10,0,35,'PPERWW')/
1023  data paramlist(960) /gribparam(255,255,10,0,36,'PPERTS')/
1024  data paramlist(961) /gribparam(255,255,10,0,37,'ALTWH')/
1025  data paramlist(962) /gribparam(255,255,10,0,38,'ALCWH')/
1026  data paramlist(963) /gribparam(255,255,10,0,39,'ALRRC')/
1027  data paramlist(964) /gribparam(255,255,10,0,40,'MNWSOW')/
1028  data paramlist(965) /gribparam(255,255,10,0,41,'MWDIRW')/
1029  data paramlist(966) /gribparam(255,255,10,0,42,'WESP')/
1030  data paramlist(967) /gribparam(255,255,10,0,43,'KSSEW')/
1031  data paramlist(968) /gribparam(255,255,10,0,44,'BENINX')/
1032  data paramlist(969) /gribparam(255,255,10,0,45,'SPFTR')/
1033  data paramlist(970) /gribparam(255,255,10,0,46,'PWAVEDIR')/
1034  data paramlist(971) /gribparam(255,255,10,0,47,'SWHFSWEL')/
1035  data paramlist(972) /gribparam(255,255,10,0,48,'SWHSSWEL')/
1036  data paramlist(973) /gribparam(255,255,10,0,49,'SWHTSWEL')/
1037  data paramlist(974) /gribparam(255,255,10,0,50,'MWPFSWEL')/
1038  data paramlist(975) /gribparam(255,255,10,0,51,'MWPSSWEL')/
1039  data paramlist(976) /gribparam(255,255,10,0,52,'MWPTSWEL')/
1040  data paramlist(977) /gribparam(255,255,10,0,53,'MWDFSWEL')/
1041  data paramlist(978) /gribparam(255,255,10,0,54,'MWDSSWEL')/
1042  data paramlist(979) /gribparam(255,255,10,0,55,'MWDTSWEL')/
1043  data paramlist(980) /gribparam(255,255,10,0,56,'WDWFSWEL')/
1044  data paramlist(981) /gribparam(255,255,10,0,57,'WDWSSWEL')/
1045  data paramlist(982) /gribparam(255,255,10,0,58,'WDWTSWEL')/
1046  data paramlist(983) /gribparam(255,255,10,0,59,'WFWFSWEL')/
1047  data paramlist(984) /gribparam(255,255,10,0,60,'WFWSSWEL')/
1048  data paramlist(985) /gribparam(255,255,10,0,61,'WFWTSWEL')/
1049  data paramlist(986) /gribparam(255,255,10,0,62,'WAVEFREW')/
1050  data paramlist(987) /gribparam(255,255,10,0,63,'FREWWW')/
1051  data paramlist(988) /gribparam(255,255,10,0,64,'FREWTSW')/
1052  data paramlist(989) /gribparam(255,255,10,1,4,'RIPCOP')/
1053  data paramlist(990) /gribparam(255,255,10,2,9,'ICEPRS')/
1054  data paramlist(991) /gribparam(255,255,10,2,10,'ZVCICEP')/
1055  data paramlist(992) /gribparam(255,255,10,2,11,'MVCICEP')/
1056  data paramlist(993) /gribparam(255,255,10,2,12,'CICES')/
1057  data paramlist(994) /gribparam(255,255,10,3,2,'CH')/
1058  data paramlist(995) /gribparam(255,255,10,3,3,'PRACTSAL')/
1059  data paramlist(996) /gribparam(255,255,10,3,204,'FRZSPR')/
1060  data paramlist(997) /gribparam(255,255,10,4,13,'ACWSRD')/
1061  data paramlist(998) /gribparam(255,255,10,3,205,'TWLWAV')/
1062  data paramlist(999) /gribparam(255,255,10,3,206,'RUNUP')/
1063  data paramlist(1000) /gribparam(255,255,10,3,207,'SETUP')/
1064  data paramlist(1001) /gribparam(255,255,10,3,208,'SWASH')/
1065  data paramlist(1002) /gribparam(255,255,10,3,200,'TWLDT')/
1066  data paramlist(1003) /gribparam(255,255,10,3,210,'TWLDC')/
1067  data paramlist(1004) /gribparam(255,255,10,3,250,'ETCWL')/
1068  data paramlist(1005) /gribparam(255,255,10,3,251,'TIDE')/
1069  data paramlist(1006) /gribparam(255,255,10,3,252,'EROSNP')/
1070  data paramlist(1007) /gribparam(255,255,10,3,253,'OWASHP')/
1071  data paramlist(1008) /gribparam(255,255,10,4,14,'WDEPTH')/
1072  data paramlist(1009) /gribparam(255,255,10,4,15,'WTMPSS')/
1073  data paramlist(1010) /gribparam(255,255,10,4,16,'WATERDEN')/
1074  data paramlist(1011) /gribparam(255,255,10,4,17,'WATDENA')/
1075  data paramlist(1012) /gribparam(255,255,10,4,18,'WATPTEMP')/
1076  data paramlist(1013) /gribparam(255,255,10,4,19,'WATPDEN')/
1077  data paramlist(1014) /gribparam(255,255,10,4,20,'WATPDENA')/
1078  data paramlist(1015) /gribparam(255,255,10,4,21,'PRTSAL')/
1079 ! Added 05/21/2020
1080  data paramlist(1016) /gribparam(129,240,0,16,3,'RETOP')/
1081  data paramlist(1017) /gribparam(2,234,1,0,5,'BGRUN')/
1082  data paramlist(1018) /gribparam(2,235,1,0,6,'SSRUN')/
1083 ! Added 06/12/2020
1084  data paramlist(1019) /gribparam(130,160,2,3,5,'SOILL')/
1085 
1086  contains
1087 
1101 
1102  subroutine param_g1_to_g2(g1val,g1ver,g2disc,g2cat,g2num)
1103 
1104  integer,intent(in) :: g1val,g1ver
1105  integer,intent(out) :: g2disc,g2cat,g2num
1106 
1107  g2disc=255
1108  g2cat=255
1109  g2num=255
1110 ! for testing
1111 ! g2num=g1val
1112 ! for testing
1113 
1114  do n=1,maxparam
1115  if (paramlist(n)%grib1val.eq.g1val .AND.
1116  & paramlist(n)%g1tblver.eq.g1ver ) then
1117  g2disc=paramlist(n)%grib2dsc
1118  g2cat=paramlist(n)%grib2cat
1119  g2num=paramlist(n)%grib2num
1120  return
1121  endif
1122  enddo
1123 
1124  print *,'param_g1_to_g2:GRIB1 param ',g1val,' not found.',
1125  & ' for table version ',g1ver
1126  return
1127  end subroutine
1128 
1139 
1140  character(len=8) function param_get_abbrev(g2disc,g2cat,g2num)
1141 
1142  integer,intent(in) :: g2disc,g2cat,g2num
1143 
1144  param_get_abbrev='UNKNOWN '
1145 
1146  do n=1,maxparam
1147  if (paramlist(n)%grib2dsc.eq.g2disc.AND.
1148  & paramlist(n)%grib2cat.eq.g2cat.AND.
1149  & paramlist(n)%grib2num.eq.g2num) then
1150  param_get_abbrev=paramlist(n)%abbrev
1151  return
1152  endif
1153  enddo
1154 
1155 ! print *,'param_get_abbrev:GRIB2 param ',g2disc,g2cat,
1156 ! & g2num,' not found.'
1157  return
1158  end function
1159 
1172 
1173  subroutine param_g2_to_g1(g2disc,g2cat,g2num,g1val,g1ver)
1174 
1175  integer,intent(in) :: g2disc,g2cat,g2num
1176  integer,intent(out) :: g1val,g1ver
1177 
1178  g1val=255
1179  g1ver=255
1180 
1181 ! for testing
1182 ! if ( g2disc.eq.255.and.g2cat.eq.255 ) then
1183 ! g1val=g2num
1184 ! g1ver=2
1185 ! return
1186 ! endif
1187 ! for testing
1188 
1189  do n=1,maxparam
1190  if (paramlist(n)%grib2dsc.eq.g2disc.AND.
1191  & paramlist(n)%grib2cat.eq.g2cat.AND.
1192  & paramlist(n)%grib2num.eq.g2num) then
1193  g1val=paramlist(n)%grib1val
1194  g1ver=paramlist(n)%g1tblver
1195  return
1196  endif
1197  enddo
1198 
1199  print *,'param_g2_to_g1:GRIB2 param ',g2disc,g2cat,
1200  & g2num,' not found.'
1201  return
1202  end subroutine
1203 
1204  end module
params
This Fortran Module contains info on all the available GRIB Parameters.
Definition: params.f:37
params::param_get_abbrev
character(len=8) function param_get_abbrev(g2disc, g2cat, g2num)
This function returns the parameter abbreviation for a given GRIB2 Discipline, Category and Parameter...
Definition: params.f:1141
params::param_g2_to_g1
subroutine param_g2_to_g1(g2disc, g2cat, g2num, g1val, g1ver)
This subroutine returns the GRIB 1 parameter number for a given GRIB2 Discipline, Category and Parame...
Definition: params.f:1174
params::gribparam
Definition: params.f:41
params::maxparam
integer, parameter maxparam
maximum number of GRIB parameters.
Definition: params.f:39
params::param_g1_to_g2
subroutine param_g1_to_g2(g1val, g1ver, g2disc, g2cat, g2num)
This subroutine returns the corresponding GRIB2 Discipline Category and Number for a given GRIB1 para...
Definition: params.f:1103
params::paramlist
type(gribparam), dimension(maxparam) paramlist
list of GRIB parameters.
Definition: params.f:50