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