2 !$$$ SUBPROGRAM DOCUMENTATION BLOCK
5 ! PRGMMR: Gilbert ORG: W/NP11 DATE: 2001-06-05
7 ! ABSTRACT: This Fortran Module contains info on all the available
10 ! PROGRAM HISTORY LOG:
12 ! 2003-08-07 Gilbert - Added more parameters
13 ! 2003-09-26 Gilbert - Added more parameters
18 ! LANGUAGE: Fortran 90
23 integer,parameter :: MAXPARAM=212
31 character(len=8) :: abbrev
34 type(gribparam),dimension(MAXPARAM) :: paramlist
36 data paramlist(1)%g1tblver /2/
37 data paramlist(1)%grib1val /1/
38 data paramlist(1)%grib2dsc /0/
39 data paramlist(1)%grib2cat /3/
40 data paramlist(1)%grib2num /0/
41 data paramlist(1)%abbrev /'PRES '/
42 data paramlist(2)%g1tblver /2/
43 data paramlist(2)%grib1val /2/
44 data paramlist(2)%grib2dsc /0/
45 data paramlist(2)%grib2cat /3/
46 data paramlist(2)%grib2num /1/
47 data paramlist(2)%abbrev /'PRMSL '/
48 data paramlist(3)%g1tblver /2/
49 data paramlist(3)%grib1val /3/
50 data paramlist(3)%grib2dsc /0/
51 data paramlist(3)%grib2cat /3/
52 data paramlist(3)%grib2num /2/
53 data paramlist(3)%abbrev /'PTEND '/
54 data paramlist(4)%g1tblver /2/
55 data paramlist(4)%grib1val /4/
56 data paramlist(4)%grib2dsc /0/
57 data paramlist(4)%grib2cat /2/
58 data paramlist(4)%grib2num /14/
59 data paramlist(4)%abbrev /'PVORT '/
60 data paramlist(5)%g1tblver /2/
61 data paramlist(5)%grib1val /5/
62 data paramlist(5)%grib2dsc /0/
63 data paramlist(5)%grib2cat /3/
64 data paramlist(5)%grib2num /3/
65 data paramlist(5)%abbrev /'ICAHT '/
66 data paramlist(6)%g1tblver /2/
67 data paramlist(6)%grib1val /6/
68 data paramlist(6)%grib2dsc /0/
69 data paramlist(6)%grib2cat /3/
70 data paramlist(6)%grib2num /4/
71 data paramlist(6)%abbrev /'GP '/
72 data paramlist(7)%g1tblver /2/
73 data paramlist(7)%grib1val /7/
74 data paramlist(7)%grib2dsc /0/
75 data paramlist(7)%grib2cat /3/
76 data paramlist(7)%grib2num /5/
77 data paramlist(7)%abbrev /'HGT '/
78 data paramlist(8)%g1tblver /2/
79 data paramlist(8)%grib1val /8/
80 data paramlist(8)%grib2dsc /0/
81 data paramlist(8)%grib2cat /3/
82 data paramlist(8)%grib2num /6/
83 data paramlist(8)%abbrev /'DIST '/
84 data paramlist(9)%g1tblver /2/
85 data paramlist(9)%grib1val /9/
86 data paramlist(9)%grib2dsc /0/
87 data paramlist(9)%grib2cat /3/
88 data paramlist(9)%grib2num /7/
89 data paramlist(9)%abbrev /'HSTDV '/
90 data paramlist(10)%g1tblver /2/
91 data paramlist(10)%grib1val /10/
92 data paramlist(10)%grib2dsc /0/
93 data paramlist(10)%grib2cat /14/
94 data paramlist(10)%grib2num /0/
95 data paramlist(10)%abbrev /'TOZNE '/
96 data paramlist(11)%g1tblver /2/
97 data paramlist(11)%grib1val /11/
98 data paramlist(11)%grib2dsc /0/
99 data paramlist(11)%grib2cat /0/
100 data paramlist(11)%grib2num /0/
101 data paramlist(11)%abbrev /'TMP '/
102 data paramlist(12)%g1tblver /2/
103 data paramlist(12)%grib1val /12/
104 data paramlist(12)%grib2dsc /0/
105 data paramlist(12)%grib2cat /0/
106 data paramlist(12)%grib2num /1/
107 data paramlist(12)%abbrev /'VTMP '/
108 data paramlist(13)%g1tblver /2/
109 data paramlist(13)%grib1val /13/
110 data paramlist(13)%grib2dsc /0/
111 data paramlist(13)%grib2cat /0/
112 data paramlist(13)%grib2num /2/
113 data paramlist(13)%abbrev /'POT '/
114 data paramlist(14)%g1tblver /2/
115 data paramlist(14)%grib1val /14/
116 data paramlist(14)%grib2dsc /0/
117 data paramlist(14)%grib2cat /0/
118 data paramlist(14)%grib2num /3/
119 data paramlist(14)%abbrev /'EPOT '/
120 data paramlist(15)%g1tblver /2/
121 data paramlist(15)%grib1val /15/
122 data paramlist(15)%grib2dsc /0/
123 data paramlist(15)%grib2cat /0/
124 data paramlist(15)%grib2num /4/
125 data paramlist(15)%abbrev /'T MAX '/
126 data paramlist(16)%g1tblver /2/
127 data paramlist(16)%grib1val /16/
128 data paramlist(16)%grib2dsc /0/
129 data paramlist(16)%grib2cat /0/
130 data paramlist(16)%grib2num /5/
131 data paramlist(16)%abbrev /'T MIN '/
132 data paramlist(17)%g1tblver /2/
133 data paramlist(17)%grib1val /17/
134 data paramlist(17)%grib2dsc /0/
135 data paramlist(17)%grib2cat /0/
136 data paramlist(17)%grib2num /6/
137 data paramlist(17)%abbrev /'DPT '/
138 data paramlist(18)%g1tblver /2/
139 data paramlist(18)%grib1val /18/
140 data paramlist(18)%grib2dsc /0/
141 data paramlist(18)%grib2cat /0/
142 data paramlist(18)%grib2num /7/
143 data paramlist(18)%abbrev /'DEPR '/
144 data paramlist(19)%g1tblver /2/
145 data paramlist(19)%grib1val /19/
146 data paramlist(19)%grib2dsc /0/
147 data paramlist(19)%grib2cat /0/
148 data paramlist(19)%grib2num /8/
149 data paramlist(19)%abbrev /'LAPR '/
150 data paramlist(20)%g1tblver /2/
151 data paramlist(20)%grib1val /20/
152 data paramlist(20)%grib2dsc /0/
153 data paramlist(20)%grib2cat /19/
154 data paramlist(20)%grib2num /0/
155 data paramlist(20)%abbrev /'VIS '/
156 data paramlist(21)%g1tblver /2/
157 data paramlist(21)%grib1val /21/
158 data paramlist(21)%grib2dsc /0/
159 data paramlist(21)%grib2cat /15/
160 data paramlist(21)%grib2num /6/
161 data paramlist(21)%abbrev /'RDSP1 '/
162 data paramlist(22)%g1tblver /2/
163 data paramlist(22)%grib1val /22/
164 data paramlist(22)%grib2dsc /0/
165 data paramlist(22)%grib2cat /15/
166 data paramlist(22)%grib2num /7/
167 data paramlist(22)%abbrev /'RDSP2 '/
168 data paramlist(23)%g1tblver /2/
169 data paramlist(23)%grib1val /23/
170 data paramlist(23)%grib2dsc /0/
171 data paramlist(23)%grib2cat /15/
172 data paramlist(23)%grib2num /8/
173 data paramlist(23)%abbrev /'RDSP3 '/
174 data paramlist(24)%g1tblver /2/
175 data paramlist(24)%grib1val /24/
176 data paramlist(24)%grib2dsc /0/
177 data paramlist(24)%grib2cat /7/
178 data paramlist(24)%grib2num /0/
179 data paramlist(24)%abbrev /'PLI '/
180 data paramlist(25)%g1tblver /2/
181 data paramlist(25)%grib1val /25/
182 data paramlist(25)%grib2dsc /0/
183 data paramlist(25)%grib2cat /0/
184 data paramlist(25)%grib2num /9/
185 data paramlist(25)%abbrev /'TMP A '/
186 data paramlist(26)%g1tblver /2/
187 data paramlist(26)%grib1val /26/
188 data paramlist(26)%grib2dsc /0/
189 data paramlist(26)%grib2cat /3/
190 data paramlist(26)%grib2num /8/
191 data paramlist(26)%abbrev /'PRESA '/
192 data paramlist(27)%g1tblver /2/
193 data paramlist(27)%grib1val /27/
194 data paramlist(27)%grib2dsc /0/
195 data paramlist(27)%grib2cat /3/
196 data paramlist(27)%grib2num /9/
197 data paramlist(27)%abbrev /'GP A '/
198 data paramlist(28)%g1tblver /2/
199 data paramlist(28)%grib1val /28/
200 data paramlist(28)%grib2dsc /10/
201 data paramlist(28)%grib2cat /0/
202 data paramlist(28)%grib2num /0/
203 data paramlist(28)%abbrev /'WVSP1 '/
204 data paramlist(29)%g1tblver /2/
205 data paramlist(29)%grib1val /29/
206 data paramlist(29)%grib2dsc /10/
207 data paramlist(29)%grib2cat /0/
208 data paramlist(29)%grib2num /1/
209 data paramlist(29)%abbrev /'WVSP2 '/
210 data paramlist(30)%g1tblver /2/
211 data paramlist(30)%grib1val /30/
212 data paramlist(30)%grib2dsc /10/
213 data paramlist(30)%grib2cat /0/
214 data paramlist(30)%grib2num /2/
215 data paramlist(30)%abbrev /'WVSP3 '/
216 data paramlist(31)%g1tblver /2/
217 data paramlist(31)%grib1val /31/
218 data paramlist(31)%grib2dsc /0/
219 data paramlist(31)%grib2cat /2/
220 data paramlist(31)%grib2num /0/
221 data paramlist(31)%abbrev /'WDIR '/
222 data paramlist(32)%g1tblver /2/
223 data paramlist(32)%grib1val /32/
224 data paramlist(32)%grib2dsc /0/
225 data paramlist(32)%grib2cat /2/
226 data paramlist(32)%grib2num /1/
227 data paramlist(32)%abbrev /'WIND '/
228 data paramlist(33)%g1tblver /2/
229 data paramlist(33)%grib1val /33/
230 data paramlist(33)%grib2dsc /0/
231 data paramlist(33)%grib2cat /2/
232 data paramlist(33)%grib2num /2/
233 data paramlist(33)%abbrev /'U GRD '/
234 data paramlist(34)%g1tblver /2/
235 data paramlist(34)%grib1val /34/
236 data paramlist(34)%grib2dsc /0/
237 data paramlist(34)%grib2cat /2/
238 data paramlist(34)%grib2num /3/
239 data paramlist(34)%abbrev /'V GRD '/
240 data paramlist(35)%g1tblver /2/
241 data paramlist(35)%grib1val /35/
242 data paramlist(35)%grib2dsc /0/
243 data paramlist(35)%grib2cat /2/
244 data paramlist(35)%grib2num /4/
245 data paramlist(35)%abbrev /'STRM '/
246 data paramlist(36)%g1tblver /2/
247 data paramlist(36)%grib1val /36/
248 data paramlist(36)%grib2dsc /0/
249 data paramlist(36)%grib2cat /2/
250 data paramlist(36)%grib2num /5/
251 data paramlist(36)%abbrev /'V POT '/
252 data paramlist(37)%g1tblver /2/
253 data paramlist(37)%grib1val /37/
254 data paramlist(37)%grib2dsc /0/
255 data paramlist(37)%grib2cat /2/
256 data paramlist(37)%grib2num /6/
257 data paramlist(37)%abbrev /'MNTSF '/
258 data paramlist(38)%g1tblver /2/
259 data paramlist(38)%grib1val /38/
260 data paramlist(38)%grib2dsc /0/
261 data paramlist(38)%grib2cat /2/
262 data paramlist(38)%grib2num /7/
263 data paramlist(38)%abbrev /'SGCVV '/
264 data paramlist(39)%g1tblver /2/
265 data paramlist(39)%grib1val /39/
266 data paramlist(39)%grib2dsc /0/
267 data paramlist(39)%grib2cat /2/
268 data paramlist(39)%grib2num /8/
269 data paramlist(39)%abbrev /'V VEL '/
270 data paramlist(40)%g1tblver /2/
271 data paramlist(40)%grib1val /40/
272 data paramlist(40)%grib2dsc /0/
273 data paramlist(40)%grib2cat /2/
274 data paramlist(40)%grib2num /9/
275 data paramlist(40)%abbrev /'DZDT '/
276 data paramlist(41)%g1tblver /2/
277 data paramlist(41)%grib1val /41/
278 data paramlist(41)%grib2dsc /0/
279 data paramlist(41)%grib2cat /2/
280 data paramlist(41)%grib2num /10/
281 data paramlist(41)%abbrev /'ABS V '/
282 data paramlist(42)%g1tblver /2/
283 data paramlist(42)%grib1val /42/
284 data paramlist(42)%grib2dsc /0/
285 data paramlist(42)%grib2cat /2/
286 data paramlist(42)%grib2num /11/
287 data paramlist(42)%abbrev /'ABS D '/
288 data paramlist(43)%g1tblver /2/
289 data paramlist(43)%grib1val /43/
290 data paramlist(43)%grib2dsc /0/
291 data paramlist(43)%grib2cat /2/
292 data paramlist(43)%grib2num /12/
293 data paramlist(43)%abbrev /'REL V '/
294 data paramlist(44)%g1tblver /2/
295 data paramlist(44)%grib1val /44/
296 data paramlist(44)%grib2dsc /0/
297 data paramlist(44)%grib2cat /2/
298 data paramlist(44)%grib2num /13/
299 data paramlist(44)%abbrev /'REL D '/
300 data paramlist(45)%g1tblver /2/
301 data paramlist(45)%grib1val /45/
302 data paramlist(45)%grib2dsc /0/
303 data paramlist(45)%grib2cat /2/
304 data paramlist(45)%grib2num /15/
305 data paramlist(45)%abbrev /'VUCSH '/
306 data paramlist(46)%g1tblver /2/
307 data paramlist(46)%grib1val /46/
308 data paramlist(46)%grib2dsc /0/
309 data paramlist(46)%grib2cat /2/
310 data paramlist(46)%grib2num /16/
311 data paramlist(46)%abbrev /'VVCSH '/
312 data paramlist(47)%g1tblver /2/
313 data paramlist(47)%grib1val /47/
314 data paramlist(47)%grib2dsc /10/
315 data paramlist(47)%grib2cat /1/
316 data paramlist(47)%grib2num /0/
317 data paramlist(47)%abbrev /'DIR C '/
318 data paramlist(48)%g1tblver /2/
319 data paramlist(48)%grib1val /48/
320 data paramlist(48)%grib2dsc /10/
321 data paramlist(48)%grib2cat /1/
322 data paramlist(48)%grib2num /1/
323 data paramlist(48)%abbrev /'SP C '/
324 data paramlist(49)%g1tblver /2/
325 data paramlist(49)%grib1val /49/
326 data paramlist(49)%grib2dsc /10/
327 data paramlist(49)%grib2cat /1/
328 data paramlist(49)%grib2num /2/
329 data paramlist(49)%abbrev /'UOGRD '/
330 data paramlist(50)%g1tblver /2/
331 data paramlist(50)%grib1val /50/
332 data paramlist(50)%grib2dsc /10/
333 data paramlist(50)%grib2cat /1/
334 data paramlist(50)%grib2num /3/
335 data paramlist(50)%abbrev /'VOGRD '/
336 data paramlist(51)%g1tblver /2/
337 data paramlist(51)%grib1val /51/
338 data paramlist(51)%grib2dsc /0/
339 data paramlist(51)%grib2cat /1/
340 data paramlist(51)%grib2num /0/
341 data paramlist(51)%abbrev /'SPF H '/
342 data paramlist(52)%g1tblver /2/
343 data paramlist(52)%grib1val /52/
344 data paramlist(52)%grib2dsc /0/
345 data paramlist(52)%grib2cat /1/
346 data paramlist(52)%grib2num /1/
347 data paramlist(52)%abbrev /'R H '/
348 data paramlist(53)%g1tblver /2/
349 data paramlist(53)%grib1val /53/
350 data paramlist(53)%grib2dsc /0/
351 data paramlist(53)%grib2cat /1/
352 data paramlist(53)%grib2num /2/
353 data paramlist(53)%abbrev /'MIXR '/
354 data paramlist(54)%g1tblver /2/
355 data paramlist(54)%grib1val /54/
356 data paramlist(54)%grib2dsc /0/
357 data paramlist(54)%grib2cat /1/
358 data paramlist(54)%grib2num /3/
359 data paramlist(54)%abbrev /'P WAT '/
360 data paramlist(55)%g1tblver /2/
361 data paramlist(55)%grib1val /55/
362 data paramlist(55)%grib2dsc /0/
363 data paramlist(55)%grib2cat /1/
364 data paramlist(55)%grib2num /4/
365 data paramlist(55)%abbrev /'VAPP '/
366 data paramlist(56)%g1tblver /2/
367 data paramlist(56)%grib1val /56/
368 data paramlist(56)%grib2dsc /0/
369 data paramlist(56)%grib2cat /1/
370 data paramlist(56)%grib2num /5/
371 data paramlist(56)%abbrev /'SAT D '/
372 data paramlist(57)%g1tblver /2/
373 data paramlist(57)%grib1val /57/
374 data paramlist(57)%grib2dsc /0/
375 data paramlist(57)%grib2cat /1/
376 data paramlist(57)%grib2num /6/
377 data paramlist(57)%abbrev /'EVP '/
378 data paramlist(58)%g1tblver /2/
379 data paramlist(58)%grib1val /58/
380 data paramlist(58)%grib2dsc /0/
381 data paramlist(58)%grib2cat /6/
382 data paramlist(58)%grib2num /0/
383 data paramlist(58)%abbrev /'C ICE '/
384 data paramlist(59)%g1tblver /2/
385 data paramlist(59)%grib1val /59/
386 data paramlist(59)%grib2dsc /0/
387 data paramlist(59)%grib2cat /1/
388 data paramlist(59)%grib2num /7/
389 data paramlist(59)%abbrev /'PRATE '/
390 data paramlist(60)%g1tblver /2/
391 data paramlist(60)%grib1val /60/
392 data paramlist(60)%grib2dsc /0/
393 data paramlist(60)%grib2cat /19/
394 data paramlist(60)%grib2num /2/
395 data paramlist(60)%abbrev /'TSTM '/
396 data paramlist(61)%g1tblver /2/
397 data paramlist(61)%grib1val /61/
398 data paramlist(61)%grib2dsc /0/
399 data paramlist(61)%grib2cat /1/
400 data paramlist(61)%grib2num /8/
401 data paramlist(61)%abbrev /'A PCP '/
402 data paramlist(62)%g1tblver /2/
403 data paramlist(62)%grib1val /62/
404 data paramlist(62)%grib2dsc /0/
405 data paramlist(62)%grib2cat /1/
406 data paramlist(62)%grib2num /9/
407 data paramlist(62)%abbrev /'NCPCP '/
408 data paramlist(63)%g1tblver /2/
409 data paramlist(63)%grib1val /63/
410 data paramlist(63)%grib2dsc /0/
411 data paramlist(63)%grib2cat /1/
412 data paramlist(63)%grib2num /10/
413 data paramlist(63)%abbrev /'ACPCP '/
414 data paramlist(64)%g1tblver /2/
415 data paramlist(64)%grib1val /64/
416 data paramlist(64)%grib2dsc /0/
417 data paramlist(64)%grib2cat /1/
418 data paramlist(64)%grib2num /12/
419 data paramlist(64)%abbrev /'SRWEQ '/
420 data paramlist(65)%g1tblver /2/
421 data paramlist(65)%grib1val /65/
422 data paramlist(65)%grib2dsc /0/
423 data paramlist(65)%grib2cat /1/
424 data paramlist(65)%grib2num /13/
425 data paramlist(65)%abbrev /'WEASD '/
426 data paramlist(66)%g1tblver /2/
427 data paramlist(66)%grib1val /66/
428 data paramlist(66)%grib2dsc /0/
429 data paramlist(66)%grib2cat /1/
430 data paramlist(66)%grib2num /11/
431 data paramlist(66)%abbrev /'SNO D '/
432 data paramlist(67)%g1tblver /2/
433 data paramlist(67)%grib1val /67/
434 data paramlist(67)%grib2dsc /0/
435 data paramlist(67)%grib2cat /19/
436 data paramlist(67)%grib2num /3/
437 data paramlist(67)%abbrev /'MIXHT '/
438 data paramlist(68)%g1tblver /2/
439 data paramlist(68)%grib1val /68/
440 data paramlist(68)%grib2dsc /10/
441 data paramlist(68)%grib2cat /5/
442 data paramlist(68)%grib2num /2/
443 data paramlist(68)%abbrev /'TTHDP '/
444 data paramlist(69)%g1tblver /2/
445 data paramlist(69)%grib1val /69/
446 data paramlist(69)%grib2dsc /10/
447 data paramlist(69)%grib2cat /5/
448 data paramlist(69)%grib2num /0/
449 data paramlist(69)%abbrev /'MTHD '/
450 data paramlist(70)%g1tblver /2/
451 data paramlist(70)%grib1val /70/
452 data paramlist(70)%grib2dsc /10/
453 data paramlist(70)%grib2cat /5/
454 data paramlist(70)%grib2num /1/
455 data paramlist(70)%abbrev /'MTH A '/
456 data paramlist(71)%g1tblver /2/
457 data paramlist(71)%grib1val /71/
458 data paramlist(71)%grib2dsc /0/
459 data paramlist(71)%grib2cat /6/
460 data paramlist(71)%grib2num /1/
461 data paramlist(71)%abbrev /'T CDC '/
462 data paramlist(72)%g1tblver /2/
463 data paramlist(72)%grib1val /72/
464 data paramlist(72)%grib2dsc /0/
465 data paramlist(72)%grib2cat /6/
466 data paramlist(72)%grib2num /2/
467 data paramlist(72)%abbrev /'CDCON '/
468 data paramlist(73)%g1tblver /2/
469 data paramlist(73)%grib1val /73/
470 data paramlist(73)%grib2dsc /0/
471 data paramlist(73)%grib2cat /6/
472 data paramlist(73)%grib2num /3/
473 data paramlist(73)%abbrev /'L CDC '/
474 data paramlist(74)%g1tblver /2/
475 data paramlist(74)%grib1val /74/
476 data paramlist(74)%grib2dsc /0/
477 data paramlist(74)%grib2cat /6/
478 data paramlist(74)%grib2num /4/
479 data paramlist(74)%abbrev /'M CDC '/
480 data paramlist(75)%g1tblver /2/
481 data paramlist(75)%grib1val /75/
482 data paramlist(75)%grib2dsc /0/
483 data paramlist(75)%grib2cat /6/
484 data paramlist(75)%grib2num /5/
485 data paramlist(75)%abbrev /'H CDC '/
486 data paramlist(76)%g1tblver /2/
487 data paramlist(76)%grib1val /76/
488 data paramlist(76)%grib2dsc /0/
489 data paramlist(76)%grib2cat /6/
490 data paramlist(76)%grib2num /6/
491 data paramlist(76)%abbrev /'C WAT '/
492 data paramlist(77)%g1tblver /2/
493 data paramlist(77)%grib1val /77/
494 data paramlist(77)%grib2dsc /0/
495 data paramlist(77)%grib2cat /7/
496 data paramlist(77)%grib2num /1/
497 data paramlist(77)%abbrev /'BLI '/
498 data paramlist(78)%g1tblver /2/
499 data paramlist(78)%grib1val /78/
500 data paramlist(78)%grib2dsc /0/
501 data paramlist(78)%grib2cat /1/
502 data paramlist(78)%grib2num /14/
503 data paramlist(78)%abbrev /'SNO C '/
504 data paramlist(79)%g1tblver /2/
505 data paramlist(79)%grib1val /79/
506 data paramlist(79)%grib2dsc /0/
507 data paramlist(79)%grib2cat /1/
508 data paramlist(79)%grib2num /15/
509 data paramlist(79)%abbrev /'SNO L '/
510 data paramlist(80)%g1tblver /2/
511 data paramlist(80)%grib1val /80/
512 data paramlist(80)%grib2dsc /10/
513 data paramlist(80)%grib2cat /4/
514 data paramlist(80)%grib2num /0/
515 data paramlist(80)%abbrev /'WTMP '/
516 data paramlist(81)%g1tblver /2/
517 data paramlist(81)%grib1val /81/
518 data paramlist(81)%grib2dsc /2/
519 data paramlist(81)%grib2cat /0/
520 data paramlist(81)%grib2num /0/
521 data paramlist(81)%abbrev /'LAND '/
522 data paramlist(82)%g1tblver /2/
523 data paramlist(82)%grib1val /82/
524 data paramlist(82)%grib2dsc /10/
525 data paramlist(82)%grib2cat /4/
526 data paramlist(82)%grib2num /1/
527 data paramlist(82)%abbrev /'DSL M '/
528 data paramlist(83)%g1tblver /2/
529 data paramlist(83)%grib1val /83/
530 data paramlist(83)%grib2dsc /2/
531 data paramlist(83)%grib2cat /0/
532 data paramlist(83)%grib2num /1/
533 data paramlist(83)%abbrev /'SFC R '/
534 data paramlist(84)%g1tblver /2/
535 data paramlist(84)%grib1val /84/
536 data paramlist(84)%grib2dsc /0/
537 data paramlist(84)%grib2cat /19/
538 data paramlist(84)%grib2num /1/
539 data paramlist(84)%abbrev /'ALBDO '/
540 data paramlist(85)%g1tblver /2/
541 data paramlist(85)%grib1val /85/
542 data paramlist(85)%grib2dsc /2/
543 data paramlist(85)%grib2cat /0/
544 data paramlist(85)%grib2num /2/
545 data paramlist(85)%abbrev /'TSOIL '/
546 data paramlist(86)%g1tblver /2/
547 data paramlist(86)%grib1val /86/
548 data paramlist(86)%grib2dsc /2/
549 data paramlist(86)%grib2cat /0/
550 data paramlist(86)%grib2num /3/
551 data paramlist(86)%abbrev /'SOIL M '/
552 data paramlist(87)%g1tblver /2/
553 data paramlist(87)%grib1val /87/
554 data paramlist(87)%grib2dsc /2/
555 data paramlist(87)%grib2cat /0/
556 data paramlist(87)%grib2num /4/
557 data paramlist(87)%abbrev /'VEG '/
558 data paramlist(88)%g1tblver /2/
559 data paramlist(88)%grib1val /88/
560 data paramlist(88)%grib2dsc /10/
561 data paramlist(88)%grib2cat /5/
562 data paramlist(88)%grib2num /3/
563 data paramlist(88)%abbrev /'SALTY '/
564 data paramlist(89)%g1tblver /2/
565 data paramlist(89)%grib1val /89/
566 data paramlist(89)%grib2dsc /0/
567 data paramlist(89)%grib2cat /3/
568 data paramlist(89)%grib2num /10/
569 data paramlist(89)%abbrev /'DEN '/
570 data paramlist(90)%g1tblver /2/
571 data paramlist(90)%grib1val /90/
572 data paramlist(90)%grib2dsc /2/
573 data paramlist(90)%grib2cat /0/
574 data paramlist(90)%grib2num /5/
575 data paramlist(90)%abbrev /'WATR '/
576 data paramlist(91)%g1tblver /2/
577 data paramlist(91)%grib1val /91/
578 data paramlist(91)%grib2dsc /10/
579 data paramlist(91)%grib2cat /2/
580 data paramlist(91)%grib2num /0/
581 data paramlist(91)%abbrev /'ICE C '/
582 data paramlist(92)%g1tblver /2/
583 data paramlist(92)%grib1val /92/
584 data paramlist(92)%grib2dsc /10/
585 data paramlist(92)%grib2cat /2/
586 data paramlist(92)%grib2num /1/
587 data paramlist(92)%abbrev /'ICETK '/
588 data paramlist(93)%g1tblver /2/
589 data paramlist(93)%grib1val /93/
590 data paramlist(93)%grib2dsc /10/
591 data paramlist(93)%grib2cat /2/
592 data paramlist(93)%grib2num /2/
593 data paramlist(93)%abbrev /'DICED '/
594 data paramlist(94)%g1tblver /2/
595 data paramlist(94)%grib1val /94/
596 data paramlist(94)%grib2dsc /10/
597 data paramlist(94)%grib2cat /2/
598 data paramlist(94)%grib2num /3/
599 data paramlist(94)%abbrev /'SICED '/
600 data paramlist(95)%g1tblver /2/
601 data paramlist(95)%grib1val /95/
602 data paramlist(95)%grib2dsc /10/
603 data paramlist(95)%grib2cat /2/
604 data paramlist(95)%grib2num /4/
605 data paramlist(95)%abbrev /'U ICE '/
606 data paramlist(96)%g1tblver /2/
607 data paramlist(96)%grib1val /96/
608 data paramlist(96)%grib2dsc /10/
609 data paramlist(96)%grib2cat /2/
610 data paramlist(96)%grib2num /5/
611 data paramlist(96)%abbrev /'V ICE '/
612 data paramlist(97)%g1tblver /2/
613 data paramlist(97)%grib1val /97/
614 data paramlist(97)%grib2dsc /10/
615 data paramlist(97)%grib2cat /2/
616 data paramlist(97)%grib2num /6/
617 data paramlist(97)%abbrev /'ICE G '/
618 data paramlist(98)%g1tblver /2/
619 data paramlist(98)%grib1val /98/
620 data paramlist(98)%grib2dsc /10/
621 data paramlist(98)%grib2cat /2/
622 data paramlist(98)%grib2num /7/
623 data paramlist(98)%abbrev /'ICE D '/
624 data paramlist(99)%g1tblver /2/
625 data paramlist(99)%grib1val /99/
626 data paramlist(99)%grib2dsc /0/
627 data paramlist(99)%grib2cat /1/
628 data paramlist(99)%grib2num /16/
629 data paramlist(99)%abbrev /'SNO M '/
630 data paramlist(100)%g1tblver /2/
631 data paramlist(100)%grib1val /100/
632 data paramlist(100)%grib2dsc /10/
633 data paramlist(100)%grib2cat /0/
634 data paramlist(100)%grib2num /3/
635 data paramlist(100)%abbrev /'HTSGW '/
636 data paramlist(101)%g1tblver /2/
637 data paramlist(101)%grib1val /101/
638 data paramlist(101)%grib2dsc /10/
639 data paramlist(101)%grib2cat /0/
640 data paramlist(101)%grib2num /4/
641 data paramlist(101)%abbrev /'WVDIR '/
642 data paramlist(102)%g1tblver /2/
643 data paramlist(102)%grib1val /102/
644 data paramlist(102)%grib2dsc /10/
645 data paramlist(102)%grib2cat /0/
646 data paramlist(102)%grib2num /5/
647 data paramlist(102)%abbrev /'WVHGT '/
648 data paramlist(103)%g1tblver /2/
649 data paramlist(103)%grib1val /103/
650 data paramlist(103)%grib2dsc /10/
651 data paramlist(103)%grib2cat /0/
652 data paramlist(103)%grib2num /6/
653 data paramlist(103)%abbrev /'WVPER '/
654 data paramlist(104)%g1tblver /2/
655 data paramlist(104)%grib1val /104/
656 data paramlist(104)%grib2dsc /10/
657 data paramlist(104)%grib2cat /0/
658 data paramlist(104)%grib2num /7/
659 data paramlist(104)%abbrev /'SWDIR '/
660 data paramlist(105)%g1tblver /2/
661 data paramlist(105)%grib1val /105/
662 data paramlist(105)%grib2dsc /10/
663 data paramlist(105)%grib2cat /0/
664 data paramlist(105)%grib2num /8/
665 data paramlist(105)%abbrev /'SWELL '/
666 data paramlist(106)%g1tblver /2/
667 data paramlist(106)%grib1val /106/
668 data paramlist(106)%grib2dsc /10/
669 data paramlist(106)%grib2cat /0/
670 data paramlist(106)%grib2num /9/
671 data paramlist(106)%abbrev /'SWPER '/
672 data paramlist(107)%g1tblver /2/
673 data paramlist(107)%grib1val /107/
674 data paramlist(107)%grib2dsc /10/
675 data paramlist(107)%grib2cat /0/
676 data paramlist(107)%grib2num /10/
677 data paramlist(107)%abbrev /'DIRPW '/
678 data paramlist(108)%g1tblver /2/
679 data paramlist(108)%grib1val /108/
680 data paramlist(108)%grib2dsc /10/
681 data paramlist(108)%grib2cat /0/
682 data paramlist(108)%grib2num /11/
683 data paramlist(108)%abbrev /'PERPW '/
684 data paramlist(109)%g1tblver /2/
685 data paramlist(109)%grib1val /109/
686 data paramlist(109)%grib2dsc /10/
687 data paramlist(109)%grib2cat /0/
688 data paramlist(109)%grib2num /12/
689 data paramlist(109)%abbrev /'DIRSW '/
690 data paramlist(110)%g1tblver /2/
691 data paramlist(110)%grib1val /110/
692 data paramlist(110)%grib2dsc /10/
693 data paramlist(110)%grib2cat /0/
694 data paramlist(110)%grib2num /13/
695 data paramlist(110)%abbrev /'PERSW '/
696 data paramlist(111)%g1tblver /2/
697 data paramlist(111)%grib1val /111/
698 data paramlist(111)%grib2dsc /0/
699 data paramlist(111)%grib2cat /4/
700 data paramlist(111)%grib2num /0/
701 data paramlist(111)%abbrev /'NSWRS '/
702 data paramlist(112)%g1tblver /2/
703 data paramlist(112)%grib1val /112/
704 data paramlist(112)%grib2dsc /0/
705 data paramlist(112)%grib2cat /5/
706 data paramlist(112)%grib2num /0/
707 data paramlist(112)%abbrev /'NLWRS '/
708 data paramlist(113)%g1tblver /2/
709 data paramlist(113)%grib1val /113/
710 data paramlist(113)%grib2dsc /0/
711 data paramlist(113)%grib2cat /4/
712 data paramlist(113)%grib2num /1/
713 data paramlist(113)%abbrev /'NSWRT '/
714 data paramlist(114)%g1tblver /2/
715 data paramlist(114)%grib1val /114/
716 data paramlist(114)%grib2dsc /0/
717 data paramlist(114)%grib2cat /5/
718 data paramlist(114)%grib2num /1/
719 data paramlist(114)%abbrev /'NLWRT '/
720 data paramlist(115)%g1tblver /2/
721 data paramlist(115)%grib1val /115/
722 data paramlist(115)%grib2dsc /0/
723 data paramlist(115)%grib2cat /5/
724 data paramlist(115)%grib2num /2/
725 data paramlist(115)%abbrev /'LWAVR '/
726 data paramlist(116)%g1tblver /2/
727 data paramlist(116)%grib1val /116/
728 data paramlist(116)%grib2dsc /0/
729 data paramlist(116)%grib2cat /4/
730 data paramlist(116)%grib2num /2/
731 data paramlist(116)%abbrev /'SWAVR '/
732 data paramlist(117)%g1tblver /2/
733 data paramlist(117)%grib1val /117/
734 data paramlist(117)%grib2dsc /0/
735 data paramlist(117)%grib2cat /4/
736 data paramlist(117)%grib2num /3/
737 data paramlist(117)%abbrev /'G RAD '/
738 data paramlist(118)%g1tblver /2/
739 data paramlist(118)%grib1val /118/
740 data paramlist(118)%grib2dsc /0/
741 data paramlist(118)%grib2cat /4/
742 data paramlist(118)%grib2num /4/
743 data paramlist(118)%abbrev /'BRTMP '/
744 data paramlist(119)%g1tblver /2/
745 data paramlist(119)%grib1val /119/
746 data paramlist(119)%grib2dsc /0/
747 data paramlist(119)%grib2cat /4/
748 data paramlist(119)%grib2num /5/
749 data paramlist(119)%abbrev /'LWRAD '/
750 data paramlist(120)%g1tblver /2/
751 data paramlist(120)%grib1val /120/
752 data paramlist(120)%grib2dsc /0/
753 data paramlist(120)%grib2cat /4/
754 data paramlist(120)%grib2num /6/
755 data paramlist(120)%abbrev /'SWRAD '/
756 data paramlist(121)%g1tblver /2/
757 data paramlist(121)%grib1val /121/
758 data paramlist(121)%grib2dsc /0/
759 data paramlist(121)%grib2cat /0/
760 data paramlist(121)%grib2num /10/
761 data paramlist(121)%abbrev /'LHTFL '/
762 data paramlist(122)%g1tblver /2/
763 data paramlist(122)%grib1val /122/
764 data paramlist(122)%grib2dsc /0/
765 data paramlist(122)%grib2cat /0/
766 data paramlist(122)%grib2num /11/
767 data paramlist(122)%abbrev /'SHTFL '/
768 data paramlist(123)%g1tblver /2/
769 data paramlist(123)%grib1val /123/
770 data paramlist(123)%grib2dsc /0/
771 data paramlist(123)%grib2cat /2/
772 data paramlist(123)%grib2num /20/
773 data paramlist(123)%abbrev /'BLYDP '/
774 data paramlist(124)%g1tblver /2/
775 data paramlist(124)%grib1val /124/
776 data paramlist(124)%grib2dsc /0/
777 data paramlist(124)%grib2cat /2/
778 data paramlist(124)%grib2num /17/
779 data paramlist(124)%abbrev /'U FLX '/
780 data paramlist(125)%g1tblver /2/
781 data paramlist(125)%grib1val /125/
782 data paramlist(125)%grib2dsc /0/
783 data paramlist(125)%grib2cat /2/
784 data paramlist(125)%grib2num /18/
785 data paramlist(125)%abbrev /'V FLX '/
786 data paramlist(126)%g1tblver /2/
787 data paramlist(126)%grib1val /126/
788 data paramlist(126)%grib2dsc /0/
789 data paramlist(126)%grib2cat /2/
790 data paramlist(126)%grib2num /19/
791 data paramlist(126)%abbrev /'WMIXE '/
792 data paramlist(127)%g1tblver /2/
793 data paramlist(127)%grib1val /127/
794 data paramlist(127)%grib2dsc /255/
795 data paramlist(127)%grib2cat /255/
796 data paramlist(127)%grib2num /255/
797 data paramlist(127)%abbrev /'IMG D '/
799 ! GRIB1 parameters in NCEP Local Table version 2
802 data paramlist(128)%g1tblver /2/
803 data paramlist(128)%grib1val /229/
804 data paramlist(128)%grib2dsc /0/
805 data paramlist(128)%grib2cat /0/
806 data paramlist(128)%grib2num /192/
807 data paramlist(128)%abbrev /'SNOHF '/
808 data paramlist(129)%g1tblver /2/
809 data paramlist(129)%grib1val /153/
810 data paramlist(129)%grib2dsc /0/
811 data paramlist(129)%grib2cat /1/
812 data paramlist(129)%grib2num /22/
813 data paramlist(129)%abbrev /'CLWMR '/
814 data paramlist(130)%g1tblver /2/
815 data paramlist(130)%grib1val /140/
816 data paramlist(130)%grib2dsc /0/
817 data paramlist(130)%grib2cat /1/
818 data paramlist(130)%grib2num /192/
819 data paramlist(130)%abbrev /'CRAIN '/
820 data paramlist(131)%g1tblver /2/
821 data paramlist(131)%grib1val /141/
822 data paramlist(131)%grib2dsc /0/
823 data paramlist(131)%grib2cat /1/
824 data paramlist(131)%grib2num /193/
825 data paramlist(131)%abbrev /'CFRZR '/
826 data paramlist(132)%g1tblver /2/
827 data paramlist(132)%grib1val /142/
828 data paramlist(132)%grib2dsc /0/
829 data paramlist(132)%grib2cat /1/
830 data paramlist(132)%grib2num /194/
831 data paramlist(132)%abbrev /'CICEP '/
832 data paramlist(133)%g1tblver /2/
833 data paramlist(133)%grib1val /143/
834 data paramlist(133)%grib2dsc /0/
835 data paramlist(133)%grib2cat /1/
836 data paramlist(133)%grib2num /195/
837 data paramlist(133)%abbrev /'CSNOW '/
838 data paramlist(134)%g1tblver /2/
839 data paramlist(134)%grib1val /214/
840 data paramlist(134)%grib2dsc /0/
841 data paramlist(134)%grib2cat /1/
842 data paramlist(134)%grib2num /196/
843 data paramlist(134)%abbrev /'CPRAT '/
844 data paramlist(135)%g1tblver /2/
845 data paramlist(135)%grib1val /135/
846 data paramlist(135)%grib2dsc /0/
847 data paramlist(135)%grib2cat /1/
848 data paramlist(135)%grib2num /197/
849 data paramlist(135)%abbrev /'MCONV '/
850 data paramlist(136)%g1tblver /2/
851 data paramlist(136)%grib1val /194/
852 data paramlist(136)%grib2dsc /1/
853 data paramlist(136)%grib2cat /1/
854 data paramlist(136)%grib2num /193/
855 data paramlist(136)%abbrev /'CPOFP '/
856 data paramlist(137)%g1tblver /2/
857 data paramlist(137)%grib1val /228/
858 data paramlist(137)%grib2dsc /0/
859 data paramlist(137)%grib2cat /1/
860 data paramlist(137)%grib2num /199/
861 data paramlist(137)%abbrev /'PEVAP '/
862 data paramlist(138)%g1tblver /2/
863 data paramlist(138)%grib1val /136/
864 data paramlist(138)%grib2dsc /0/
865 data paramlist(138)%grib2cat /2/
866 data paramlist(138)%grib2num /192/
867 data paramlist(138)%abbrev /'VW SH '/
868 data paramlist(139)%g1tblver /2/
869 data paramlist(139)%grib1val /172/
870 data paramlist(139)%grib2dsc /0/
871 data paramlist(139)%grib2cat /2/
872 data paramlist(139)%grib2num /193/
873 data paramlist(139)%abbrev /'M FLX '/
874 data paramlist(140)%g1tblver /2/
875 data paramlist(140)%grib1val /196/
876 data paramlist(140)%grib2dsc /0/
877 data paramlist(140)%grib2cat /2/
878 data paramlist(140)%grib2num /194/
879 data paramlist(140)%abbrev /'USTM '/
880 data paramlist(141)%g1tblver /2/
881 data paramlist(141)%grib1val /197/
882 data paramlist(141)%grib2dsc /0/
883 data paramlist(141)%grib2cat /2/
884 data paramlist(141)%grib2num /195/
885 data paramlist(141)%abbrev /'VSTM '/
886 data paramlist(142)%g1tblver /2/
887 data paramlist(142)%grib1val /252/
888 data paramlist(142)%grib2dsc /0/
889 data paramlist(142)%grib2cat /2/
890 data paramlist(142)%grib2num /196/
891 data paramlist(142)%abbrev /'CD '/
892 data paramlist(143)%g1tblver /2/
893 data paramlist(143)%grib1val /253/
894 data paramlist(143)%grib2dsc /0/
895 data paramlist(143)%grib2cat /2/
896 data paramlist(143)%grib2num /197/
897 data paramlist(143)%abbrev /'FRICV '/
898 data paramlist(144)%g1tblver /2/
899 data paramlist(144)%grib1val /130/
900 data paramlist(144)%grib2dsc /0/
901 data paramlist(144)%grib2cat /3/
902 data paramlist(144)%grib2num /192/
903 data paramlist(144)%abbrev /'MSLET '/
904 data paramlist(145)%g1tblver /2/
905 data paramlist(145)%grib1val /204/
906 data paramlist(145)%grib2dsc /0/
907 data paramlist(145)%grib2cat /4/
908 data paramlist(145)%grib2num /192/
909 data paramlist(145)%abbrev /'DSWRF '/
910 data paramlist(146)%g1tblver /2/
911 data paramlist(146)%grib1val /211/
912 data paramlist(146)%grib2dsc /0/
913 data paramlist(146)%grib2cat /4/
914 data paramlist(146)%grib2num /193/
915 data paramlist(146)%abbrev /'USWRF '/
916 data paramlist(147)%g1tblver /2/
917 data paramlist(147)%grib1val /205/
918 data paramlist(147)%grib2dsc /0/
919 data paramlist(147)%grib2cat /5/
920 data paramlist(147)%grib2num /192/
921 data paramlist(147)%abbrev /'DLWRF '/
922 data paramlist(148)%g1tblver /2/
923 data paramlist(148)%grib1val /212/
924 data paramlist(148)%grib2dsc /0/
925 data paramlist(148)%grib2cat /5/
926 data paramlist(148)%grib2num /193/
927 data paramlist(148)%abbrev /'ULWRF '/
928 data paramlist(149)%g1tblver /2/
929 data paramlist(149)%grib1val /213/
930 data paramlist(149)%grib2dsc /0/
931 data paramlist(149)%grib2cat /6/
932 data paramlist(149)%grib2num /192/
933 data paramlist(149)%abbrev /'CDLYR '/
934 data paramlist(150)%g1tblver /2/
935 data paramlist(150)%grib1val /132/
936 data paramlist(150)%grib2dsc /0/
937 data paramlist(150)%grib2cat /7/
938 data paramlist(150)%grib2num /193/
939 data paramlist(150)%abbrev /'4LFTX '/
940 data paramlist(151)%g1tblver /2/
941 data paramlist(151)%grib1val /157/
942 data paramlist(151)%grib2dsc /0/
943 data paramlist(151)%grib2cat /7/
944 data paramlist(151)%grib2num /6/
945 data paramlist(151)%abbrev /'CAPE '/
946 data paramlist(152)%g1tblver /2/
947 data paramlist(152)%grib1val /156/
948 data paramlist(152)%grib2dsc /0/
949 data paramlist(152)%grib2cat /7/
950 data paramlist(152)%grib2num /7/
951 data paramlist(152)%abbrev /'CIN '/
952 data paramlist(153)%g1tblver /2/
953 data paramlist(153)%grib1val /190/
954 data paramlist(153)%grib2dsc /0/
955 data paramlist(153)%grib2cat /7/
956 data paramlist(153)%grib2num /8/
957 data paramlist(153)%abbrev /'HLCY '/
958 data paramlist(154)%g1tblver /2/
959 data paramlist(154)%grib1val /131/
960 data paramlist(154)%grib2dsc /0/
961 data paramlist(154)%grib2cat /7/
962 data paramlist(154)%grib2num /192/
963 data paramlist(154)%abbrev /'LFT X '/
964 data paramlist(155)%g1tblver /2/
965 data paramlist(155)%grib1val /158/
966 data paramlist(155)%grib2dsc /0/
967 data paramlist(155)%grib2cat /19/
968 data paramlist(155)%grib2num /11/
969 data paramlist(155)%abbrev /'TKE '/
970 data paramlist(156)%g1tblver /2/
971 data paramlist(156)%grib1val /176/
972 data paramlist(156)%grib2dsc /0/
973 data paramlist(156)%grib2cat /191/
974 data paramlist(156)%grib2num /192/
975 data paramlist(156)%abbrev /'NLAT '/
976 data paramlist(157)%g1tblver /2/
977 data paramlist(157)%grib1val /177/
978 data paramlist(157)%grib2dsc /0/
979 data paramlist(157)%grib2cat /191/
980 data paramlist(157)%grib2num /193/
981 data paramlist(157)%abbrev /'ELON '/
982 data paramlist(158)%g1tblver /2/
983 data paramlist(158)%grib1val /234/
984 data paramlist(158)%grib2dsc /1/
985 data paramlist(158)%grib2cat /0/
986 data paramlist(158)%grib2num /192/
987 data paramlist(158)%abbrev /'BGRUN '/
988 data paramlist(159)%g1tblver /2/
989 data paramlist(159)%grib1val /235/
990 data paramlist(159)%grib2dsc /1/
991 data paramlist(159)%grib2cat /0/
992 data paramlist(159)%grib2num /193/
993 data paramlist(159)%abbrev /'SSRUN '/
994 data paramlist(160)%g1tblver /2/
995 data paramlist(160)%grib1val /144/
996 data paramlist(160)%grib2dsc /2/
997 data paramlist(160)%grib2cat /0/
998 data paramlist(160)%grib2num /192/
999 data paramlist(160)%abbrev /'SOILW '/
1000 data paramlist(161)%g1tblver /2/
1001 data paramlist(161)%grib1val /155/
1002 data paramlist(161)%grib2dsc /2/
1003 data paramlist(161)%grib2cat /0/
1004 data paramlist(161)%grib2num /193/
1005 data paramlist(161)%abbrev /'GFLUX '/
1006 data paramlist(162)%g1tblver /2/
1007 data paramlist(162)%grib1val /207/
1008 data paramlist(162)%grib2dsc /2/
1009 data paramlist(162)%grib2cat /0/
1010 data paramlist(162)%grib2num /194/
1011 data paramlist(162)%abbrev /'MSTAV '/
1012 data paramlist(163)%g1tblver /2/
1013 data paramlist(163)%grib1val /208/
1014 data paramlist(163)%grib2dsc /2/
1015 data paramlist(163)%grib2cat /0/
1016 data paramlist(163)%grib2num /195/
1017 data paramlist(163)%abbrev /'SFEXC '/
1018 data paramlist(164)%g1tblver /2/
1019 data paramlist(164)%grib1val /223/
1020 data paramlist(164)%grib2dsc /2/
1021 data paramlist(164)%grib2cat /0/
1022 data paramlist(164)%grib2num /196/
1023 data paramlist(164)%abbrev /'CNWAT '/
1024 data paramlist(165)%g1tblver /2/
1025 data paramlist(165)%grib1val /226/
1026 data paramlist(165)%grib2dsc /2/
1027 data paramlist(165)%grib2cat /0/
1028 data paramlist(165)%grib2num /197/
1029 data paramlist(165)%abbrev /'BMIXL '/
1030 data paramlist(166)%g1tblver /2/
1031 data paramlist(166)%grib1val /154/
1032 data paramlist(166)%grib2dsc /0/
1033 data paramlist(166)%grib2cat /14/
1034 data paramlist(166)%grib2num /192/
1035 data paramlist(166)%abbrev /'O3MR '/
1036 data paramlist(167)%g1tblver /2/
1037 data paramlist(167)%grib1val /222/
1038 data paramlist(167)%grib2dsc /0/
1039 data paramlist(167)%grib2cat /3/
1040 data paramlist(167)%grib2num /193/
1041 data paramlist(167)%abbrev /'5WAVH '/
1042 data paramlist(168)%g1tblver /2/
1043 data paramlist(168)%grib1val /145/
1044 data paramlist(168)%grib2dsc /0/
1045 data paramlist(168)%grib2cat /1/
1046 data paramlist(168)%grib2num /200/
1047 data paramlist(168)%abbrev /'PEVPR '/
1048 data paramlist(169)%g1tblver /2/
1049 data paramlist(169)%grib1val /146/
1050 data paramlist(169)%grib2dsc /0/
1051 data paramlist(169)%grib2cat /6/
1052 data paramlist(169)%grib2num /193/
1053 data paramlist(169)%abbrev /'CWORK '/
1054 data paramlist(170)%g1tblver /2/
1055 data paramlist(170)%grib1val /147/
1056 data paramlist(170)%grib2dsc /0/
1057 data paramlist(170)%grib2cat /3/
1058 data paramlist(170)%grib2num /194/
1059 data paramlist(170)%abbrev /'U-GWD '/
1060 data paramlist(171)%g1tblver /2/
1061 data paramlist(171)%grib1val /148/
1062 data paramlist(171)%grib2dsc /0/
1063 data paramlist(171)%grib2cat /3/
1064 data paramlist(171)%grib2num /195/
1065 data paramlist(171)%abbrev /'V-GWD '/
1066 data paramlist(172)%g1tblver /2/
1067 data paramlist(172)%grib1val /221/
1068 data paramlist(172)%grib2dsc /0/
1069 data paramlist(172)%grib2cat /3/
1070 data paramlist(172)%grib2num /196/
1071 data paramlist(172)%abbrev /'HPBL '/
1072 data paramlist(173)%g1tblver /2/
1073 data paramlist(173)%grib1val /230/
1074 data paramlist(173)%grib2dsc /0/
1075 data paramlist(173)%grib2cat /3/
1076 data paramlist(173)%grib2num /197/
1077 data paramlist(173)%abbrev /'5WAVA '/
1079 data paramlist(174) /gribparam(130,160,2,3,192,'SOILL ')/
1080 data paramlist(175) /gribparam(130,171,2,3,193,'UNKNOWN ')/
1081 data paramlist(176) /gribparam(130,219,2,0,201,'WILT ')/
1082 data paramlist(177) /gribparam(130,222,2,3,194,'SLTYP ')/
1083 data paramlist(178) /gribparam(2,224,2,3,0,'SOTYP ')/
1084 data paramlist(179) /gribparam(2,225,2,0,198,'VGTYP ')/
1085 data paramlist(180) /gribparam(130,230,2,3,195,'SMREF ')/
1086 data paramlist(181) /gribparam(130,231,2,3,196,'SMDRY ')/
1087 data paramlist(182) /gribparam(2,238,0,1,201,'SNOWC ')/
1088 data paramlist(183) /gribparam(130,240,2,3,197,'POROS ')/
1089 data paramlist(184) /gribparam(129,131,0,1,202,'FRAIN ')/
1090 data paramlist(185) /gribparam(129,132,0,6,199,'FICE ')/
1091 data paramlist(186) /gribparam(129,133,0,1,203,'FRIME ')/
1092 data paramlist(187) /gribparam(129,134,0,6,194,'CUEFI ')/
1093 data paramlist(188) /gribparam(129,135,0,6,195,'TCOND ')/
1094 data paramlist(189) /gribparam(129,136,0,6,196,'TCOLW ')/
1095 data paramlist(190) /gribparam(129,137,0,6,197,'TCOLI ')/
1096 data paramlist(191) /gribparam(129,138,0,1,204,'TCOLR ')/
1097 data paramlist(192) /gribparam(129,139,0,1,205,'TCOLS ')/
1098 data paramlist(193) /gribparam(129,140,0,6,198,'TCOLC ')/
1099 data paramlist(194) /gribparam(130,159,0,19,192,'MXSALB ')/
1100 data paramlist(195) /gribparam(130,170,0,19,193,'SNFALB ')/
1101 data paramlist(196) /gribparam(2,170,0,1,24,'RWMR ')/
1102 data paramlist(197) /gribparam(2,171,0,1,25,'SNMR ')/
1103 data paramlist(198) /gribparam(130,181,2,0,199,'CCOND ')/
1104 data paramlist(199) /gribparam(130,203,2,0,200,'RSMIN ')/
1105 data paramlist(200) /gribparam(130,246,2,0,202,'RCS ')/
1106 data paramlist(201) /gribparam(130,247,2,0,203,'RCT ')/
1107 data paramlist(202) /gribparam(130,248,2,0,204,'RCQ ')/
1108 data paramlist(203) /gribparam(130,249,2,0,205,'RCSOL ')/
1109 data paramlist(204) /gribparam(2,254,0,7,194,'RI ')/
1110 data paramlist(205) /gribparam(129,190,3,1,192,'USCT ')/
1111 data paramlist(206) /gribparam(129,191,3,1,193,'VSCT ')/
1112 data paramlist(207) /gribparam(129,171,0,191,194,'TSEC ')/
1113 data paramlist(208) /gribparam(129,180,0,14,193,'OZCON ')/
1114 data paramlist(209) /gribparam(129,181,0,14,194,'OZCAT ')/
1115 data paramlist(210) /gribparam(2,193,1,1,2,'POP ')/
1116 data paramlist(211) /gribparam(2,195,1,1,192,'CPOZP ')/
1117 data paramlist(212) /gribparam(2,180,0,2,22,'GUST ')/
1123 subroutine param_g1_to_g2(g1val,g1ver,g2disc,g2cat,g2num)
1124 !$$$ SUBPROGRAM DOCUMENTATION BLOCK
1126 ! SUBPROGRAM: param_g1_to_g2
1127 ! PRGMMR: Gilbert ORG: W/NP11 DATE: 2001-06-05
1129 ! ABSTRACT: This subroutine returns the corresponding GRIB2 Discipline
1130 ! Category and Number for a given GRIB1 parameter value and table version.
1132 ! PROGRAM HISTORY LOG:
1133 ! 2000-05-11 Gilbert
1135 ! USAGE: CALL param_g1_to_g2(g1val,g1ver,g2disc,g2cat,g2num)
1136 ! INPUT ARGUMENT LIST:
1137 ! g1val - GRIB1 parameter number for which discipline is requested
1138 ! g1ver - GRIB1 parameter table version number
1140 ! OUTPUT ARGUMENT LIST:
1141 ! g2disc - corresponding GRIB2 Discipline number
1142 ! g2cat - corresponding GRIB2 Category number
1143 ! g2num - corresponding GRIB2 Parameter number within Category g2cat
1146 ! LANGUAGE: Fortran 90
1150 integer,intent(in) :: g1val,g1ver
1151 integer,intent(out) :: g2disc,g2cat,g2num
1161 if (paramlist(n)%grib1val.eq.g1val .AND.
1162 & paramlist(n)%g1tblver.eq.g1ver ) then
1163 g2disc=paramlist(n)%grib2dsc
1164 g2cat=paramlist(n)%grib2cat
1165 g2num=paramlist(n)%grib2num
1170 print *,'param_g1_to_g2:GRIB1 param ',g1val,' not found.',
1171 & ' for table version ',g1ver
1175 character(len=8) function param_get_abbrev(g2disc,g2cat,g2num)
1176 !$$$ SUBPROGRAM DOCUMENTATION BLOCK
1178 ! SUBPROGRAM: param_get_abbrev
1179 ! PRGMMR: Gilbert ORG: W/NP11 DATE: 2002-01-04
1181 ! ABSTRACT: This function returns the parameter abbreviation for
1182 ! a given GRIB2 Discipline, Category and Parameter number.
1184 ! PROGRAM HISTORY LOG:
1185 ! 2001-06-05 Gilbert
1187 ! USAGE: abrev=param_get_abbrev(g2disc,g2cat,g2num)
1188 ! INPUT ARGUMENT LIST:
1189 ! g2disc - GRIB2 discipline number (See Code Table 0.0)
1190 ! g2cat - corresponding GRIB2 Category number
1191 ! g2num - corresponding GRIB2 Parameter number within Category g2cat
1193 ! RETURNS: ASCII Paramter Abbreviation
1198 ! LANGUAGE: Fortran 90
1202 integer,intent(in) :: g2disc,g2cat,g2num
1204 param_get_abbrev='UNKNOWN '
1207 if (paramlist(n)%grib2dsc.eq.g2disc.AND.
1208 & paramlist(n)%grib2cat.eq.g2cat.AND.
1209 & paramlist(n)%grib2num.eq.g2num) then
1210 param_get_abbrev=paramlist(n)%abbrev
1215 ! print *,'param_get_abbrev:GRIB2 param ',g2disc,g2cat,
1216 ! & g2num,' not found.'
1221 subroutine param_g2_to_g1(g2disc,g2cat,g2num,g1val,g1ver)
1222 !$$$ SUBPROGRAM DOCUMENTATION BLOCK
1224 ! SUBPROGRAM: param_g2_to_g1
1225 ! PRGMMR: Gilbert ORG: W/NP11 DATE: 2002-01-04
1227 ! ABSTRACT: This function returns the GRIB 1 parameter number for
1228 ! a given GRIB2 Discipline, Category and Parameter number.
1230 ! PROGRAM HISTORY LOG:
1231 ! 2001-06-05 Gilbert
1233 ! USAGE: call param_g2_to_g1(g2disc,g2cat,g2num,g1val,g1ver)
1234 ! INPUT ARGUMENT LIST:
1235 ! g2disc - GRIB2 discipline number (See Code Table 0.0)
1236 ! g2cat - corresponding GRIB2 Category number
1237 ! g2num - corresponding GRIB2 Parameter number within Category g2cat
1239 ! OUTPUT ARGUMENT LIST:
1240 ! g1val - GRIB1 parameter number for which discipline is requested
1241 ! g1ver - GRIB1 parameter table version number
1246 ! LANGUAGE: Fortran 90
1250 integer,intent(in) :: g2disc,g2cat,g2num
1251 integer,intent(out) :: g1val,g1ver
1257 ! if ( g2disc.eq.255.and.g2cat.eq.255 ) then
1265 if (paramlist(n)%grib2dsc.eq.g2disc.AND.
1266 & paramlist(n)%grib2cat.eq.g2cat.AND.
1267 & paramlist(n)%grib2num.eq.g2num) then
1268 g1val=paramlist(n)%grib1val
1269 g1ver=paramlist(n)%g1tblver
1274 print *,'param_g2_to_g1:GRIB2 param ',g2disc,g2cat,
1275 & g2num,' not found.'