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