source: trunk/WRF.COMMON/WRFV2/external/io_grib2/g2lib/params.F

Last change on this file was 11, checked in by aslmd, 14 years ago

spiga@svn-planeto:ajoute le modele meso-echelle martien

File size: 50.0 KB
Line 
1      module params
2!$$$  SUBPROGRAM DOCUMENTATION BLOCK
3!                .      .    .                                       .
4! MODULE:    params
5!   PRGMMR: Gilbert         ORG: W/NP11    DATE: 2001-06-05
6!
7! ABSTRACT: This Fortran Module contains info on all the available
8!           GRIB Parameters.
9!
10! PROGRAM HISTORY LOG:
11! 2000-05-11  Gilbert
12! 2003-08-07  Gilbert  -  Added more parameters
13! 2003-09-26  Gilbert  -  Added more parameters
14!
15! USAGE:    use params
16!
17! ATTRIBUTES:
18!   LANGUAGE: Fortran 90
19!   MACHINE:  IBM SP
20!
21!$$$
22
23      integer,parameter :: MAXPARAM=212
24
25      type gribparam
26          integer :: g1tblver
27          integer :: grib1val
28          integer :: grib2dsc
29          integer :: grib2cat
30          integer :: grib2num
31          character(len=8) :: abbrev
32      end type gribparam
33
34      type(gribparam),dimension(MAXPARAM) :: paramlist
35
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  '/
798!
799!  GRIB1 parameters in NCEP Local Table version 2
800!  Added 8/07/2003
801!
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  '/
1078! Added 9/26/2003
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    ')/
1118
1119
1120      contains
1121
1122
1123         subroutine param_g1_to_g2(g1val,g1ver,g2disc,g2cat,g2num)
1124!$$$  SUBPROGRAM DOCUMENTATION BLOCK
1125!                .      .    .                                       .
1126! SUBPROGRAM:    param_g1_to_g2
1127!   PRGMMR: Gilbert         ORG: W/NP11    DATE: 2001-06-05
1128!
1129! ABSTRACT: This subroutine returns the corresponding GRIB2 Discipline
1130!   Category and Number for a given GRIB1 parameter value and table version.
1131!
1132! PROGRAM HISTORY LOG:
1133! 2000-05-11  Gilbert
1134!
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
1139!
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
1144!
1145! ATTRIBUTES:
1146!   LANGUAGE: Fortran 90
1147!   MACHINE:  IBM SP
1148!
1149!$$$
1150           integer,intent(in) :: g1val,g1ver
1151           integer,intent(out) :: g2disc,g2cat,g2num
1152
1153           g2disc=255
1154           g2cat=255
1155           g2num=255
1156! for testing
1157!           g2num=g1val
1158! for testing
1159
1160           do n=1,MAXPARAM
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
1166                 return
1167              endif
1168           enddo
1169
1170           print *,'param_g1_to_g2:GRIB1 param ',g1val,' not found.',
1171     &             ' for table version ',g1ver
1172           return
1173         end subroutine
1174
1175         character(len=8) function param_get_abbrev(g2disc,g2cat,g2num)
1176!$$$  SUBPROGRAM DOCUMENTATION BLOCK
1177!                .      .    .                                       .
1178! SUBPROGRAM:    param_get_abbrev
1179!   PRGMMR: Gilbert         ORG: W/NP11    DATE: 2002-01-04
1180!
1181! ABSTRACT: This function returns the parameter abbreviation for
1182!   a given GRIB2 Discipline, Category and Parameter number.
1183!
1184! PROGRAM HISTORY LOG:
1185! 2001-06-05  Gilbert
1186!
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
1192!
1193! RETURNS:  ASCII Paramter Abbreviation
1194!
1195! REMARKS: None
1196!
1197! ATTRIBUTES:
1198!   LANGUAGE: Fortran 90
1199!   MACHINE:  IBM SP
1200!
1201!$$$
1202           integer,intent(in) :: g2disc,g2cat,g2num
1203
1204           param_get_abbrev='UNKNOWN '
1205
1206           do n=1,MAXPARAM
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
1211                 return
1212              endif
1213           enddo
1214
1215!           print *,'param_get_abbrev:GRIB2 param ',g2disc,g2cat,
1216!     &              g2num,' not found.'
1217           return
1218         end function
1219
1220
1221         subroutine param_g2_to_g1(g2disc,g2cat,g2num,g1val,g1ver)
1222!$$$  SUBPROGRAM DOCUMENTATION BLOCK
1223!                .      .    .                                       .
1224! SUBPROGRAM:    param_g2_to_g1
1225!   PRGMMR: Gilbert         ORG: W/NP11    DATE: 2002-01-04
1226!
1227! ABSTRACT: This function returns the GRIB 1 parameter number for
1228!   a given GRIB2 Discipline, Category and Parameter number.
1229!
1230! PROGRAM HISTORY LOG:
1231! 2001-06-05  Gilbert
1232!
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
1238!
1239!   OUTPUT ARGUMENT LIST:     
1240!     g1val    - GRIB1 parameter number for which discipline is requested
1241!     g1ver    - GRIB1 parameter table version number
1242!
1243! REMARKS: None
1244!
1245! ATTRIBUTES:
1246!   LANGUAGE: Fortran 90
1247!   MACHINE:  IBM SP
1248!
1249!$$$
1250           integer,intent(in) :: g2disc,g2cat,g2num
1251           integer,intent(out) :: g1val,g1ver
1252
1253           g1val=255
1254           g1ver=255
1255
1256! for testing
1257!           if ( g2disc.eq.255.and.g2cat.eq.255 ) then
1258!             g1val=g2num
1259!             g1ver=2
1260!             return
1261!           endif
1262! for testing
1263
1264           do n=1,MAXPARAM
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
1270                 return
1271              endif
1272           enddo
1273
1274           print *,'param_g2_to_g1:GRIB2 param ',g2disc,g2cat,
1275     &              g2num,' not found.'
1276           return
1277         end subroutine
1278
1279
1280      end module
1281
Note: See TracBrowser for help on using the repository browser.