1 |
C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/DIAGNOSTICS.h,v 1.1 2004/12/13 21:43:54 jmc Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
C ====================================================================== |
5 |
C Common blocks for diagnostics package. |
6 |
C - diagarrays contains the master list of diagnostics and parameters |
7 |
C ndiagt :: total number of available diagnostics |
8 |
C cdiag - character names |
9 |
C idiag - slot number in large diagnostic array |
10 |
C kdiag - number of levels associated with the diagnostic |
11 |
C ndiag - counter for number of times diagnostic is added |
12 |
C tdiag - description of field in diagnostic |
13 |
C gdiag - parser field with characteristics of the diagnostics |
14 |
C udiag - physical units of the diagnostic field |
15 |
C - diagnostics contains the large array containing diagnostic fields |
16 |
C qdiag - diagnostic fields array |
17 |
C jdiag - short-list (active diag.) to long-list (available diag.) |
18 |
C pointer |
19 |
C - diag_choices contains the user-chosen list of fields to store |
20 |
C ====================================================================== |
21 |
|
22 |
C diagarrays common |
23 |
|
24 |
integer ndiagt |
25 |
|
26 |
character*8 cdiag(ndiagMax) |
27 |
integer idiag(ndiagMax) |
28 |
integer kdiag(ndiagMax) |
29 |
integer ndiag(ndiagMax) |
30 |
integer mdiag(ndiagMax) |
31 |
character*80 tdiag(ndiagMax) |
32 |
character*16 gdiag(ndiagMax) |
33 |
character*16 udiag(ndiagMax) |
34 |
|
35 |
common /diagarrays/ ndiagt |
36 |
common /diagarrays/ cdiag |
37 |
common /diagarrays/ idiag |
38 |
common /diagarrays/ kdiag |
39 |
common /diagarrays/ ndiag |
40 |
common /diagarrays/ mdiag |
41 |
common /diagarrays/ tdiag |
42 |
common /diagarrays/ gdiag |
43 |
common /diagarrays/ udiag |
44 |
|
45 |
CHARACTER*8 CUFLUX |
46 |
CHARACTER*8 CVFLUX |
47 |
CHARACTER*8 CHFLUX |
48 |
CHARACTER*8 CEFLUX |
49 |
CHARACTER*8 CQICE |
50 |
CHARACTER*8 CRADLWG |
51 |
CHARACTER*8 CRADSWG |
52 |
CHARACTER*8 CRI |
53 |
CHARACTER*8 CCT |
54 |
CHARACTER*8 CCU |
55 |
CHARACTER*8 CKH |
56 |
CHARACTER*8 CKM |
57 |
CHARACTER*8 CTURBU |
58 |
CHARACTER*8 CTURBV |
59 |
CHARACTER*8 CTURBT |
60 |
CHARACTER*8 CTURBQ |
61 |
CHARACTER*8 CMOISTT |
62 |
CHARACTER*8 CMOISTQ |
63 |
CHARACTER*8 CRADLW |
64 |
CHARACTER*8 CRADSW |
65 |
CHARACTER*8 CPREACC |
66 |
CHARACTER*8 CPRECON |
67 |
CHARACTER*8 CTUFLUX |
68 |
CHARACTER*8 CTVFLUX |
69 |
CHARACTER*8 CTTFLUX |
70 |
CHARACTER*8 CTQFLUX |
71 |
CHARACTER*8 CCN |
72 |
CHARACTER*8 CWINDS |
73 |
CHARACTER*8 CDTSRF |
74 |
CHARACTER*8 CTGROUND |
75 |
CHARACTER*8 CTS |
76 |
CHARACTER*8 CDTG |
77 |
CHARACTER*8 CQG |
78 |
CHARACTER*8 CQS |
79 |
CHARACTER*8 CTGRLW |
80 |
CHARACTER*8 CLWGUP |
81 |
CHARACTER*8 COLR |
82 |
CHARACTER*8 COLRCLR |
83 |
CHARACTER*8 CLWGCLR |
84 |
CHARACTER*8 CLWCLR |
85 |
CHARACTER*8 CTLW |
86 |
CHARACTER*8 CSHRAD |
87 |
CHARACTER*8 COZLW |
88 |
CHARACTER*8 CCLDRAS |
89 |
CHARACTER*8 CCLDTOT |
90 |
CHARACTER*8 CLWGDOWN |
91 |
CHARACTER*8 CGWDT |
92 |
CHARACTER*8 CRADSWT |
93 |
CHARACTER*8 CTAUCLD |
94 |
CHARACTER*8 CTAUCLDC |
95 |
CHARACTER*8 CCLDLOW |
96 |
CHARACTER*8 CEVAP |
97 |
CHARACTER*8 CDPDT |
98 |
CHARACTER*8 COMEGA |
99 |
CHARACTER*8 CDUDT |
100 |
CHARACTER*8 CDVDT |
101 |
CHARACTER*8 CDTDT |
102 |
CHARACTER*8 CDQDT |
103 |
CHARACTER*8 CVORT |
104 |
CHARACTER*8 CDTLS |
105 |
CHARACTER*8 CDQLS |
106 |
CHARACTER*8 CUSTAR |
107 |
CHARACTER*8 CZ0 |
108 |
CHARACTER*8 CFRQTRB |
109 |
CHARACTER*8 CPBL |
110 |
CHARACTER*8 CSWCLR |
111 |
CHARACTER*8 COSR |
112 |
CHARACTER*8 COSRCLR |
113 |
CHARACTER*8 CCLDMAS |
114 |
CHARACTER*8 CUWND |
115 |
CHARACTER*8 CVWND |
116 |
CHARACTER*8 CTMPU |
117 |
CHARACTER*8 CSPHU |
118 |
CHARACTER*8 CRFT |
119 |
CHARACTER*8 CPS |
120 |
CHARACTER*8 CTKE |
121 |
CHARACTER*8 CSWGCLR |
122 |
CHARACTER*8 CSDIAG1 |
123 |
CHARACTER*8 CSDIAG2 |
124 |
CHARACTER*8 CUDIAG1 |
125 |
CHARACTER*8 CUDIAG2 |
126 |
CHARACTER*8 CDIABU |
127 |
CHARACTER*8 CDIABV |
128 |
CHARACTER*8 CDIABT |
129 |
CHARACTER*8 CDIABQ |
130 |
CHARACTER*8 CRFU |
131 |
CHARACTER*8 CRFV |
132 |
CHARACTER*8 CGWDU |
133 |
CHARACTER*8 CGWDV |
134 |
CHARACTER*8 CGWDUS |
135 |
CHARACTER*8 CGWDVS |
136 |
CHARACTER*8 CGWDUT |
137 |
CHARACTER*8 CGWDVT |
138 |
CHARACTER*8 CLZRAD |
139 |
CHARACTER*8 CTRBQLIQ |
140 |
CHARACTER*8 CTRBFCC |
141 |
CHARACTER*8 CSLP |
142 |
CHARACTER*8 CVAVEUQ |
143 |
CHARACTER*8 CVAVEVQ |
144 |
CHARACTER*8 CVAVEUT |
145 |
CHARACTER*8 CVAVEVT |
146 |
CHARACTER*8 CCLDFRC |
147 |
CHARACTER*8 CTPW |
148 |
CHARACTER*8 CU2M |
149 |
CHARACTER*8 CV2M |
150 |
CHARACTER*8 CT2M |
151 |
CHARACTER*8 CQ2M |
152 |
CHARACTER*8 CU10M |
153 |
CHARACTER*8 CV10M |
154 |
CHARACTER*8 CT10M |
155 |
CHARACTER*8 CQ10M |
156 |
CHARACTER*8 CDTRAIN |
157 |
CHARACTER*8 CQFILL |
158 |
CHARACTER*8 CVAVEQFIL |
159 |
CHARACTER*8 CSHAPU |
160 |
CHARACTER*8 CSHAPV |
161 |
CHARACTER*8 CSHAPT |
162 |
CHARACTER*8 CSHAPQ |
163 |
CHARACTER*8 CSDIAG3 |
164 |
CHARACTER*8 CSDIAG4 |
165 |
CHARACTER*8 CSDIAG5 |
166 |
CHARACTER*8 CSDIAG6 |
167 |
CHARACTER*8 CSDIAG7 |
168 |
CHARACTER*8 CSDIAG8 |
169 |
CHARACTER*8 CSDIAG9 |
170 |
CHARACTER*8 CSDIAG10 |
171 |
CHARACTER*8 CUDIAG3 |
172 |
CHARACTER*8 CUDIAG4 |
173 |
CHARACTER*8 CUDIAG5 |
174 |
CHARACTER*8 CUDIAG6 |
175 |
CHARACTER*8 CUDIAG7 |
176 |
CHARACTER*8 CUDIAG8 |
177 |
CHARACTER*8 CUDIAG9 |
178 |
CHARACTER*8 CUDIAG10 |
179 |
CHARACTER*8 CCLDMID |
180 |
CHARACTER*8 CCLDHI |
181 |
CHARACTER*8 CTAULOW |
182 |
CHARACTER*8 CTAUMID |
183 |
CHARACTER*8 CTAUHI |
184 |
CHARACTER*8 CCLDNP |
185 |
CHARACTER*8 CCLDPRS |
186 |
CHARACTER*8 CCTPCNT |
187 |
CHARACTER*8 CCLDTMP |
188 |
CHARACTER*8 CCTTCNT |
189 |
CHARACTER*8 CTAULOWC |
190 |
CHARACTER*8 CTAUMIDC |
191 |
CHARACTER*8 CTAUHIC |
192 |
CHARACTER*8 CTCANOPY |
193 |
CHARACTER*8 CTDEEP |
194 |
CHARACTER*8 CQCANOPY |
195 |
CHARACTER*8 CSMSHAL |
196 |
CHARACTER*8 CSMROOT |
197 |
CHARACTER*8 CSMDEEP |
198 |
CHARACTER*8 CCAPACITY |
199 |
CHARACTER*8 CSNOW |
200 |
CHARACTER*8 CRAINCON |
201 |
CHARACTER*8 CRAINLSP |
202 |
CHARACTER*8 CSNOWFALL |
203 |
CHARACTER*8 CRUNOFF |
204 |
CHARACTER*8 CFWSOIL |
205 |
CHARACTER*8 CGDRAIN |
206 |
CHARACTER*8 CSNOWMELT |
207 |
CHARACTER*8 CERESV |
208 |
CHARACTER*8 CESOIL |
209 |
CHARACTER*8 CEVEG |
210 |
CHARACTER*8 CESNOW |
211 |
CHARACTER*8 CPARDF |
212 |
CHARACTER*8 CPARDR |
213 |
CHARACTER*8 CLAI |
214 |
CHARACTER*8 CGREEN |
215 |
CHARACTER*8 CDLWDTC |
216 |
CHARACTER*8 CDHDTC |
217 |
CHARACTER*8 CDEDTC |
218 |
CHARACTER*8 CVDTMOIST |
219 |
CHARACTER*8 CVDTTURB |
220 |
CHARACTER*8 CVDTRADLW |
221 |
CHARACTER*8 CVDTRADSW |
222 |
CHARACTER*8 CPSUBCLD |
223 |
CHARACTER*8 CPSUBCLDC |
224 |
CHARACTER*8 CLCL |
225 |
CHARACTER*8 CSDIAGC |
226 |
CHARACTER*8 CSDIAGCC |
227 |
CHARACTER*8 CEVPOT |
228 |
CHARACTER*8 CRHCHECK |
229 |
CHARACTER*8 CDHDQA |
230 |
CHARACTER*8 CDEDQA |
231 |
CHARACTER*8 CDTC |
232 |
CHARACTER*8 CDQC |
233 |
CHARACTER*8 CTCDTC |
234 |
CHARACTER*8 CRADDTC |
235 |
CHARACTER*8 CSENSDTC |
236 |
CHARACTER*8 CLATDTC |
237 |
CHARACTER*8 CTDDTC |
238 |
CHARACTER*8 CQCDTC |
239 |
CHARACTER*8 CALBEDO |
240 |
CHARACTER*8 CALBVISDR |
241 |
CHARACTER*8 CALBVISDF |
242 |
CHARACTER*8 CALBNIRDR |
243 |
CHARACTER*8 CALBNIRDF |
244 |
CHARACTER*8 CTAUAVE |
245 |
CHARACTER*8 CALBEDOC |
246 |
CHARACTER*8 CRHCHECKT |
247 |
CHARACTER*8 CRHCHECKQ |
248 |
CHARACTER*8 CCLDLSP |
249 |
CHARACTER*8 CLZLOW |
250 |
CHARACTER*8 CLZMID |
251 |
CHARACTER*8 CLZHI |
252 |
CHARACTER*8 CLZTOT |
253 |
CHARACTER*8 CCAPE |
254 |
CHARACTER*8 CHSUBCL |
255 |
CHARACTER*8 CHSTAR |
256 |
CHARACTER*8 CCONT |
257 |
CHARACTER*8 CCONQ |
258 |
CHARACTER*8 CLST |
259 |
CHARACTER*8 CLSQ |
260 |
CHARACTER*8 CCONEVPT |
261 |
CHARACTER*8 CCONEVPQ |
262 |
CHARACTER*8 CLSEVPT |
263 |
CHARACTER*8 CLSEVPQ |
264 |
CHARACTER*8 CGWCUMID |
265 |
CHARACTER*8 CGWCVMID |
266 |
CHARACTER*8 CCLDSTD |
267 |
CHARACTER*8 CGWCUBAR |
268 |
CHARACTER*8 CGWCVBAR |
269 |
CHARACTER*8 CGWCUS |
270 |
CHARACTER*8 CGWCVS |
271 |
CHARACTER*8 CGWCU |
272 |
CHARACTER*8 CGWCV |
273 |
|
274 |
EQUIVALENCE ( CDIAG( 1) , CUFLUX ) |
275 |
EQUIVALENCE ( CDIAG( 2) , CVFLUX ) |
276 |
EQUIVALENCE ( CDIAG( 3) , CHFLUX ) |
277 |
EQUIVALENCE ( CDIAG( 4) , CEFLUX ) |
278 |
EQUIVALENCE ( CDIAG( 5) , CQICE ) |
279 |
EQUIVALENCE ( CDIAG( 6) , CRADLWG ) |
280 |
EQUIVALENCE ( CDIAG( 7) , CRADSWG ) |
281 |
EQUIVALENCE ( CDIAG( 8) , CRI ) |
282 |
EQUIVALENCE ( CDIAG( 9) , CCT ) |
283 |
EQUIVALENCE ( CDIAG(10) , CCU ) |
284 |
EQUIVALENCE ( CDIAG(11) , CKH ) |
285 |
EQUIVALENCE ( CDIAG(12) , CKM ) |
286 |
EQUIVALENCE ( CDIAG(13) , CTURBU ) |
287 |
EQUIVALENCE ( CDIAG(14) , CTURBV ) |
288 |
EQUIVALENCE ( CDIAG(15) , CTURBT ) |
289 |
EQUIVALENCE ( CDIAG(16) , CTURBQ ) |
290 |
EQUIVALENCE ( CDIAG(17) , CMOISTT ) |
291 |
EQUIVALENCE ( CDIAG(18) , CMOISTQ ) |
292 |
EQUIVALENCE ( CDIAG(19) , CRADLW ) |
293 |
EQUIVALENCE ( CDIAG(20) , CRADSW ) |
294 |
EQUIVALENCE ( CDIAG(21) , CPREACC ) |
295 |
EQUIVALENCE ( CDIAG(22) , CPRECON ) |
296 |
EQUIVALENCE ( CDIAG(23) , CTUFLUX ) |
297 |
EQUIVALENCE ( CDIAG(24) , CTVFLUX ) |
298 |
EQUIVALENCE ( CDIAG(25) , CTTFLUX ) |
299 |
EQUIVALENCE ( CDIAG(26) , CTQFLUX ) |
300 |
EQUIVALENCE ( CDIAG(27) , CCN ) |
301 |
EQUIVALENCE ( CDIAG(28) , CWINDS ) |
302 |
EQUIVALENCE ( CDIAG(29) , CDTSRF ) |
303 |
EQUIVALENCE ( CDIAG(30) , CTGROUND) |
304 |
EQUIVALENCE ( CDIAG(31) , CTS ) |
305 |
EQUIVALENCE ( CDIAG(32) , CDTG ) |
306 |
EQUIVALENCE ( CDIAG(33) , CQG ) |
307 |
EQUIVALENCE ( CDIAG(34) , CQS ) |
308 |
EQUIVALENCE ( CDIAG(35) , CTGRLW ) |
309 |
EQUIVALENCE ( CDIAG(36) , CLWGUP ) |
310 |
EQUIVALENCE ( CDIAG(37) , COLR ) |
311 |
EQUIVALENCE ( CDIAG(38) , COLRCLR ) |
312 |
EQUIVALENCE ( CDIAG(39) , CLWGCLR ) |
313 |
EQUIVALENCE ( CDIAG(40) , CLWCLR ) |
314 |
EQUIVALENCE ( CDIAG(41) , CTLW ) |
315 |
EQUIVALENCE ( CDIAG(42) , CSHRAD ) |
316 |
EQUIVALENCE ( CDIAG(43) , COZLW ) |
317 |
EQUIVALENCE ( CDIAG(44) , CCLDRAS ) |
318 |
EQUIVALENCE ( CDIAG(45) , CCLDTOT ) |
319 |
EQUIVALENCE ( CDIAG(46) , CLWGDOWN) |
320 |
EQUIVALENCE ( CDIAG(47) , CGWDT ) |
321 |
EQUIVALENCE ( CDIAG(48) , CRADSWT ) |
322 |
EQUIVALENCE ( CDIAG(49) , CTAUCLD ) |
323 |
EQUIVALENCE ( CDIAG(50) , CTAUCLDC) |
324 |
EQUIVALENCE ( CDIAG(51) , CCLDLOW ) |
325 |
EQUIVALENCE ( CDIAG(52) , CEVAP ) |
326 |
EQUIVALENCE ( CDIAG(53) , CDPDT ) |
327 |
EQUIVALENCE ( CDIAG(58) , COMEGA ) |
328 |
EQUIVALENCE ( CDIAG(59) , CDUDT ) |
329 |
EQUIVALENCE ( CDIAG(60) , CDVDT ) |
330 |
EQUIVALENCE ( CDIAG(61) , CDTDT ) |
331 |
EQUIVALENCE ( CDIAG(62) , CDQDT ) |
332 |
EQUIVALENCE ( CDIAG(63) , CVORT ) |
333 |
EQUIVALENCE ( CDIAG(65) , CDTLS ) |
334 |
EQUIVALENCE ( CDIAG(66) , CDQLS ) |
335 |
EQUIVALENCE ( CDIAG(67) , CUSTAR ) |
336 |
EQUIVALENCE ( CDIAG(68) , CZ0 ) |
337 |
EQUIVALENCE ( CDIAG(69) , CFRQTRB ) |
338 |
EQUIVALENCE ( CDIAG(70) , CPBL ) |
339 |
EQUIVALENCE ( CDIAG(71) , CSWCLR ) |
340 |
EQUIVALENCE ( CDIAG(72) , COSR ) |
341 |
EQUIVALENCE ( CDIAG(73) , COSRCLR ) |
342 |
EQUIVALENCE ( CDIAG(74) , CCLDMAS ) |
343 |
EQUIVALENCE ( CDIAG(75) , CUWND ) |
344 |
EQUIVALENCE ( CDIAG(76) , CVWND ) |
345 |
EQUIVALENCE ( CDIAG(77) , CTMPU ) |
346 |
EQUIVALENCE ( CDIAG(78) , CSPHU ) |
347 |
EQUIVALENCE ( CDIAG(79) , CRFT ) |
348 |
EQUIVALENCE ( CDIAG(80) , CPS ) |
349 |
EQUIVALENCE ( CDIAG(81) , CTKE ) |
350 |
EQUIVALENCE ( CDIAG(82) , CSWGCLR ) |
351 |
EQUIVALENCE ( CDIAG(84) , CSDIAG1 ) |
352 |
EQUIVALENCE ( CDIAG(85) , CSDIAG2 ) |
353 |
EQUIVALENCE ( CDIAG(86) , CUDIAG1 ) |
354 |
EQUIVALENCE ( CDIAG(87) , CUDIAG2 ) |
355 |
EQUIVALENCE ( CDIAG(88) , CDIABU ) |
356 |
EQUIVALENCE ( CDIAG(89) , CDIABV ) |
357 |
EQUIVALENCE ( CDIAG(90) , CDIABT ) |
358 |
EQUIVALENCE ( CDIAG(91) , CDIABQ ) |
359 |
EQUIVALENCE ( CDIAG(92) , CRFU ) |
360 |
EQUIVALENCE ( CDIAG(93) , CRFV ) |
361 |
EQUIVALENCE ( CDIAG(94) , CGWDU ) |
362 |
EQUIVALENCE ( CDIAG(95) , CGWDV ) |
363 |
EQUIVALENCE ( CDIAG(96) , CGWDUS ) |
364 |
EQUIVALENCE ( CDIAG(97) , CGWDVS ) |
365 |
EQUIVALENCE ( CDIAG(98) , CGWDUT ) |
366 |
EQUIVALENCE ( CDIAG(99) , CGWDVT ) |
367 |
EQUIVALENCE ( CDIAG(100), CLZRAD ) |
368 |
EQUIVALENCE ( CDIAG(101), CSLP ) |
369 |
EQUIVALENCE ( CDIAG(102), CVAVEUQ ) |
370 |
EQUIVALENCE ( CDIAG(103), CVAVEVQ ) |
371 |
EQUIVALENCE ( CDIAG(104), CVAVEUT ) |
372 |
EQUIVALENCE ( CDIAG(105), CVAVEVT ) |
373 |
EQUIVALENCE ( CDIAG(106), CCLDFRC ) |
374 |
EQUIVALENCE ( CDIAG(107), CTPW ) |
375 |
EQUIVALENCE ( CDIAG(108), CU2M ) |
376 |
EQUIVALENCE ( CDIAG(109), CV2M ) |
377 |
EQUIVALENCE ( CDIAG(110), CT2M ) |
378 |
EQUIVALENCE ( CDIAG(111), CQ2M ) |
379 |
EQUIVALENCE ( CDIAG(112), CU10M ) |
380 |
EQUIVALENCE ( CDIAG(113), CV10M ) |
381 |
EQUIVALENCE ( CDIAG(114), CT10M ) |
382 |
EQUIVALENCE ( CDIAG(115), CQ10M ) |
383 |
EQUIVALENCE ( CDIAG(116), CDTRAIN ) |
384 |
EQUIVALENCE ( CDIAG(117), CQFILL ) |
385 |
EQUIVALENCE ( CDIAG(119), CVAVEQFIL ) |
386 |
EQUIVALENCE ( CDIAG(120), CSHAPU ) |
387 |
EQUIVALENCE ( CDIAG(121), CSHAPV ) |
388 |
EQUIVALENCE ( CDIAG(122), CSHAPT ) |
389 |
EQUIVALENCE ( CDIAG(123), CSHAPQ ) |
390 |
EQUIVALENCE ( CDIAG(124), CSDIAG3 ) |
391 |
EQUIVALENCE ( CDIAG(125), CSDIAG4 ) |
392 |
EQUIVALENCE ( CDIAG(126), CSDIAG5 ) |
393 |
EQUIVALENCE ( CDIAG(127), CSDIAG6 ) |
394 |
EQUIVALENCE ( CDIAG(128), CSDIAG7 ) |
395 |
EQUIVALENCE ( CDIAG(129), CSDIAG8 ) |
396 |
EQUIVALENCE ( CDIAG(130), CSDIAG9 ) |
397 |
EQUIVALENCE ( CDIAG(131), CSDIAG10) |
398 |
EQUIVALENCE ( CDIAG(132), CUDIAG3 ) |
399 |
EQUIVALENCE ( CDIAG(133), CUDIAG4 ) |
400 |
EQUIVALENCE ( CDIAG(134), CUDIAG5 ) |
401 |
EQUIVALENCE ( CDIAG(135), CUDIAG6 ) |
402 |
EQUIVALENCE ( CDIAG(136), CUDIAG7 ) |
403 |
EQUIVALENCE ( CDIAG(137), CUDIAG8 ) |
404 |
EQUIVALENCE ( CDIAG(138), CUDIAG9 ) |
405 |
EQUIVALENCE ( CDIAG(139), CUDIAG10) |
406 |
EQUIVALENCE ( CDIAG(140), CCLDMID ) |
407 |
EQUIVALENCE ( CDIAG(141), CCLDHI ) |
408 |
EQUIVALENCE ( CDIAG(142), CTAULOW ) |
409 |
EQUIVALENCE ( CDIAG(143), CTAUMID ) |
410 |
EQUIVALENCE ( CDIAG(144), CTAUHI ) |
411 |
EQUIVALENCE ( CDIAG(145), CCLDNP ) |
412 |
EQUIVALENCE ( CDIAG(146), CCLDPRS ) |
413 |
EQUIVALENCE ( CDIAG(147), CCTPCNT ) |
414 |
EQUIVALENCE ( CDIAG(148), CCLDTMP ) |
415 |
EQUIVALENCE ( CDIAG(149), CCTTCNT ) |
416 |
EQUIVALENCE ( CDIAG(150), CTAULOWC) |
417 |
EQUIVALENCE ( CDIAG(151), CTAUMIDC) |
418 |
EQUIVALENCE ( CDIAG(152), CTAUHIC ) |
419 |
EQUIVALENCE ( CDIAG(153), CTCANOPY ) |
420 |
EQUIVALENCE ( CDIAG(154), CTDEEP ) |
421 |
EQUIVALENCE ( CDIAG(155), CQCANOPY ) |
422 |
EQUIVALENCE ( CDIAG(156), CSMSHAL ) |
423 |
EQUIVALENCE ( CDIAG(157), CSMROOT ) |
424 |
EQUIVALENCE ( CDIAG(158), CSMDEEP ) |
425 |
EQUIVALENCE ( CDIAG(159), CCAPACITY ) |
426 |
EQUIVALENCE ( CDIAG(160), CSNOW ) |
427 |
EQUIVALENCE ( CDIAG(161), CRAINCON ) |
428 |
EQUIVALENCE ( CDIAG(162), CRAINLSP ) |
429 |
EQUIVALENCE ( CDIAG(163), CSNOWFALL ) |
430 |
EQUIVALENCE ( CDIAG(164), CRUNOFF ) |
431 |
EQUIVALENCE ( CDIAG(165), CFWSOIL ) |
432 |
EQUIVALENCE ( CDIAG(166), CGDRAIN ) |
433 |
EQUIVALENCE ( CDIAG(167), CSNOWMELT ) |
434 |
EQUIVALENCE ( CDIAG(168), CERESV ) |
435 |
EQUIVALENCE ( CDIAG(169), CESOIL ) |
436 |
EQUIVALENCE ( CDIAG(170), CEVEG ) |
437 |
EQUIVALENCE ( CDIAG(171), CESNOW ) |
438 |
EQUIVALENCE ( CDIAG(172), CPARDF ) |
439 |
EQUIVALENCE ( CDIAG(173), CPARDR ) |
440 |
EQUIVALENCE ( CDIAG(174), CLAI ) |
441 |
EQUIVALENCE ( CDIAG(175), CGREEN ) |
442 |
EQUIVALENCE ( CDIAG(176), CDLWDTC ) |
443 |
EQUIVALENCE ( CDIAG(177), CDHDTC ) |
444 |
EQUIVALENCE ( CDIAG(178), CDEDTC ) |
445 |
EQUIVALENCE ( CDIAG(179), CVDTMOIST ) |
446 |
EQUIVALENCE ( CDIAG(180), CVDTTURB ) |
447 |
EQUIVALENCE ( CDIAG(181), CVDTRADLW ) |
448 |
EQUIVALENCE ( CDIAG(182), CVDTRADSW ) |
449 |
EQUIVALENCE ( CDIAG(184), CPSUBCLD ) |
450 |
EQUIVALENCE ( CDIAG(185), CPSUBCLDC ) |
451 |
EQUIVALENCE ( CDIAG(186), CLCL ) |
452 |
EQUIVALENCE ( CDIAG(187), CSDIAGC ) |
453 |
EQUIVALENCE ( CDIAG(188), CSDIAGCC ) |
454 |
|
455 |
EQUIVALENCE ( CDIAG(190), CEVPOT ) |
456 |
EQUIVALENCE ( CDIAG(191), CRHCHECK ) |
457 |
EQUIVALENCE ( CDIAG(192), CDHDQA ) |
458 |
EQUIVALENCE ( CDIAG(193), CDEDQA ) |
459 |
EQUIVALENCE ( CDIAG(194), CDTC ) |
460 |
EQUIVALENCE ( CDIAG(195), CDQC ) |
461 |
EQUIVALENCE ( CDIAG(196), CTCDTC ) |
462 |
EQUIVALENCE ( CDIAG(197), CRADDTC ) |
463 |
EQUIVALENCE ( CDIAG(198), CSENSDTC ) |
464 |
EQUIVALENCE ( CDIAG(199), CLATDTC ) |
465 |
EQUIVALENCE ( CDIAG(200), CTDDTC ) |
466 |
EQUIVALENCE ( CDIAG(201), CQCDTC ) |
467 |
EQUIVALENCE ( CDIAG(202), CTRBQLIQ ) |
468 |
EQUIVALENCE ( CDIAG(203), CTRBFCC ) |
469 |
EQUIVALENCE ( CDIAG(204), CALBEDO ) |
470 |
EQUIVALENCE ( CDIAG(205), CALBVISDR ) |
471 |
EQUIVALENCE ( CDIAG(206), CALBVISDF ) |
472 |
EQUIVALENCE ( CDIAG(207), CALBNIRDR ) |
473 |
EQUIVALENCE ( CDIAG(208), CALBNIRDF ) |
474 |
EQUIVALENCE ( CDIAG(209), CTAUAVE ) |
475 |
EQUIVALENCE ( CDIAG(210), CALBEDOC ) |
476 |
EQUIVALENCE ( CDIAG(211), CRHCHECKT ) |
477 |
EQUIVALENCE ( CDIAG(212), CRHCHECKQ ) |
478 |
EQUIVALENCE ( CDIAG(213), CCLDLSP ) |
479 |
EQUIVALENCE ( CDIAG(214), CLZLOW ) |
480 |
EQUIVALENCE ( CDIAG(215), CLZMID ) |
481 |
EQUIVALENCE ( CDIAG(216), CLZHI ) |
482 |
EQUIVALENCE ( CDIAG(217), CLZTOT ) |
483 |
EQUIVALENCE ( CDIAG(218), CCAPE ) |
484 |
EQUIVALENCE ( CDIAG(219), CHSUBCL ) |
485 |
EQUIVALENCE ( CDIAG(220), CHSTAR ) |
486 |
EQUIVALENCE ( CDIAG(221), CCONT ) |
487 |
EQUIVALENCE ( CDIAG(222), CCONQ ) |
488 |
EQUIVALENCE ( CDIAG(223), CLST ) |
489 |
EQUIVALENCE ( CDIAG(224), CLSQ ) |
490 |
EQUIVALENCE ( CDIAG(225), CCONEVPT ) |
491 |
EQUIVALENCE ( CDIAG(226), CCONEVPQ ) |
492 |
EQUIVALENCE ( CDIAG(227), CLSEVPT ) |
493 |
EQUIVALENCE ( CDIAG(228), CLSEVPQ ) |
494 |
EQUIVALENCE ( CDIAG(229), CGWCUMID ) |
495 |
EQUIVALENCE ( CDIAG(230), CGWCVMID ) |
496 |
EQUIVALENCE ( CDIAG(231), CCLDSTD ) |
497 |
EQUIVALENCE ( CDIAG(232), CGWCUBAR ) |
498 |
EQUIVALENCE ( CDIAG(233), CGWCVBAR ) |
499 |
EQUIVALENCE ( CDIAG(234), CGWCUS ) |
500 |
EQUIVALENCE ( CDIAG(235), CGWCVS ) |
501 |
EQUIVALENCE ( CDIAG(236), CGWCU ) |
502 |
EQUIVALENCE ( CDIAG(237), CGWCV ) |
503 |
|
504 |
integer iUFLUX , kUFLUX , nUFLUX |
505 |
integer iVFLUX , kVFLUX , nVFLUX |
506 |
integer iHFLUX , kHFLUX , nHFLUX |
507 |
integer iEFLUX , kEFLUX , nEFLUX |
508 |
integer iQICE , kQICE , nQICE |
509 |
integer iRADLWG , kRADLWG , nRADLWG |
510 |
integer iRADSWG , kRADSWG , nRADSWG |
511 |
integer iRI , kRI , nRI |
512 |
integer iCT , kCT , nCT |
513 |
integer iCU , kCU , nCU |
514 |
integer iKH , kKH , nKH |
515 |
integer iKM , kKM , nKM |
516 |
integer iTURBU , kTURBU , nTURBU |
517 |
integer iTURBV , kTURBV , nTURBV |
518 |
integer iTURBT , kTURBT , nTURBT |
519 |
integer iTURBQ , kTURBQ , nTURBQ |
520 |
integer iMOISTT , kMOISTT , nMOISTT |
521 |
integer iMOISTQ , kMOISTQ , nMOISTQ |
522 |
integer iRADLW , kRADLW , nRADLW |
523 |
integer iRADSW , kRADSW , nRADSW |
524 |
integer iPREACC , kPREACC , nPREACC |
525 |
integer iPRECON , kPRECON , nPRECON |
526 |
integer iTUFLUX , kTUFLUX , nTUFLUX |
527 |
integer iTVFLUX , kTVFLUX , nTVFLUX |
528 |
integer iTTFLUX , kTTFLUX , nTTFLUX |
529 |
integer iTQFLUX , kTQFLUX , nTQFLUX |
530 |
integer iCN , kCN , nCN |
531 |
integer iWINDS , kWINDS , nWINDS |
532 |
integer iDTSRF , kDTSRF , nDTSRF |
533 |
integer iTGROUND , kTGROUND , nTGROUND |
534 |
integer iTS , kTS , nTS |
535 |
integer iDTG , kDTG , nDTG |
536 |
integer iQG , kQG , nQG |
537 |
integer iQS , kQS , nQS |
538 |
integer iTGRLW , kTGRLW , nTGRLW |
539 |
integer iLWGUP , kLWGUP , nLWGUP |
540 |
integer iOLR , kOLR , nOLR |
541 |
integer iOLRCLR , kOLRCLR , nOLRCLR |
542 |
integer iLWGCLR , kLWGCLR , nLWGCLR |
543 |
integer iLWCLR , kLWCLR , nLWCLR |
544 |
integer iTLW , kTLW , nTLW |
545 |
integer iSHRAD , kSHRAD , nSHRAD |
546 |
integer iOZLW , kOZLW , nOZLW |
547 |
integer iCLDRAS , kCLDRAS , nCLDRAS |
548 |
integer iCLDTOT , kCLDTOT , nCLDTOT |
549 |
integer iLWGDOWN , kLWGDOWN , nLWGDOWN |
550 |
integer iGWDT , kGWDT , nGWDT |
551 |
integer iRADSWT , kRADSWT , nRADSWT |
552 |
integer iTAUCLD , kTAUCLD , nTAUCLD |
553 |
integer iTAUCLDC , kTAUCLDC , nTAUCLDC |
554 |
integer iCLDLOW , kCLDLOW , nCLDLOW |
555 |
integer iEVAP , kEVAP , nEVAP |
556 |
integer iDPDT , kDPDT , nDPDT |
557 |
integer iOMEGA , kOMEGA , nOMEGA |
558 |
integer iDUDT , kDUDT , nDUDT |
559 |
integer iDVDT , kDVDT , nDVDT |
560 |
integer iDTDT , kDTDT , nDTDT |
561 |
integer iDQDT , kDQDT , nDQDT |
562 |
integer iVORT , kVORT , nVORT |
563 |
integer iDTLS , kDTLS , nDTLS |
564 |
integer iDQLS , kDQLS , nDQLS |
565 |
integer iUSTAR , kUSTAR , nUSTAR |
566 |
integer iZ0 , kZ0 , nZ0 |
567 |
integer iFRQTRB , kFRQTRB , nFRQTRB |
568 |
integer iPBL , kPBL , nPBL |
569 |
integer iSWCLR , kSWCLR , nSWCLR |
570 |
integer iOSR , kOSR , nOSR |
571 |
integer iOSRCLR , kOSRCLR , nOSRCLR |
572 |
integer iCLDMAS , kCLDMAS , nCLDMAS |
573 |
integer iUWND , kUWND , nUWND |
574 |
integer iVWND , kVWND , nVWND |
575 |
integer iTMPU , kTMPU , nTMPU |
576 |
integer iSPHU , kSPHU , nSPHU |
577 |
integer iRFT , kRFT , nRFT |
578 |
integer iPS , kPS , nPS |
579 |
integer iTKE , kTKE , nTKE |
580 |
integer iSWGCLR , kSWGCLR , nSWGCLR |
581 |
integer iSDIAG1 , kSDIAG1 , nSDIAG1 |
582 |
integer iSDIAG2 , kSDIAG2 , nSDIAG2 |
583 |
integer iUDIAG1 , kUDIAG1 , nUDIAG1 |
584 |
integer iUDIAG2 , kUDIAG2 , nUDIAG2 |
585 |
integer iDIABU , kDIABU , nDIABU |
586 |
integer iDIABV , kDIABV , nDIABV |
587 |
integer iDIABT , kDIABT , nDIABT |
588 |
integer iDIABQ , kDIABQ , nDIABQ |
589 |
integer iRFU , kRFU , nRFU |
590 |
integer iRFV , kRFV , nRFV |
591 |
integer iGWDU , kGWDU , nGWDU |
592 |
integer iGWDV , kGWDV , nGWDV |
593 |
integer iGWDUS , kGWDUS , nGWDUS |
594 |
integer iGWDVS , kGWDVS , nGWDVS |
595 |
integer iGWDUT , kGWDUT , nGWDUT |
596 |
integer iGWDVT , kGWDVT , nGWDVT |
597 |
integer iLZRAD , kLZRAD , nLZRAD |
598 |
integer iTRBQLIQ , kTRBQLIQ , nTRBQLIQ |
599 |
integer iTRBFCC , kTRBFCC , nTRBFCC |
600 |
integer iSLP , kSLP , nSLP |
601 |
integer iVAVEUQ , kVAVEUQ , nVAVEUQ |
602 |
integer iVAVEVQ , kVAVEVQ , nVAVEVQ |
603 |
integer iVAVEUT , kVAVEUT , nVAVEUT |
604 |
integer iVAVEVT , kVAVEVT , nVAVEVT |
605 |
integer iCLDFRC , kCLDFRC , nCLDFRC |
606 |
integer iTPW , kTPW , nTPW |
607 |
integer iU2M , kU2M , nU2M |
608 |
integer iV2M , kV2M , nV2M |
609 |
integer iT2M , kT2M , nT2M |
610 |
integer iQ2M , kQ2M , nQ2M |
611 |
integer iU10M , kU10M , nU10M |
612 |
integer iV10M , kV10M , nV10M |
613 |
integer iT10M , kT10M , nT10M |
614 |
integer iQ10M , kQ10M , nQ10M |
615 |
integer iDTRAIN , kDTRAIN , nDTRAIN |
616 |
integer iQFILL , kQFILL , nQFILL |
617 |
integer iVAVEQFIL, kVAVEQFIL, nVAVEQFIL |
618 |
integer iSHAPU , kSHAPU , nSHAPU |
619 |
integer iSHAPV , kSHAPV , nSHAPV |
620 |
integer iSHAPT , kSHAPT , nSHAPT |
621 |
integer iSHAPQ , kSHAPQ , nSHAPQ |
622 |
integer iSDIAG3 , kSDIAG3 , nSDIAG3 |
623 |
integer iSDIAG4 , kSDIAG4 , nSDIAG4 |
624 |
integer iSDIAG5 , kSDIAG5 , nSDIAG5 |
625 |
integer iSDIAG6 , kSDIAG6 , nSDIAG6 |
626 |
integer iSDIAG7 , kSDIAG7 , nSDIAG7 |
627 |
integer iSDIAG8 , kSDIAG8 , nSDIAG8 |
628 |
integer iSDIAG9 , kSDIAG9 , nSDIAG9 |
629 |
integer iSDIAG10 , kSDIAG10 , nSDIAG10 |
630 |
integer iUDIAG3 , kUDIAG3 , nUDIAG3 |
631 |
integer iUDIAG4 , kUDIAG4 , nUDIAG4 |
632 |
integer iUDIAG5 , kUDIAG5 , nUDIAG5 |
633 |
integer iUDIAG6 , kUDIAG6 , nUDIAG6 |
634 |
integer iUDIAG7 , kUDIAG7 , nUDIAG7 |
635 |
integer iUDIAG8 , kUDIAG8 , nUDIAG8 |
636 |
integer iUDIAG9 , kUDIAG9 , nUDIAG9 |
637 |
integer iUDIAG10 , kUDIAG10 , nUDIAG10 |
638 |
integer iCLDMID , kCLDMID , nCLDMID |
639 |
integer iCLDHI , kCLDHI , nCLDHI |
640 |
integer iTAULOW , kTAULOW , nTAULOW |
641 |
integer iTAUMID , kTAUMID , nTAUMID |
642 |
integer iTAUHI , kTAUHI , nTAUHI |
643 |
integer iCLDNP , kCLDNP , nCLDNP |
644 |
integer iCLDPRS , kCLDPRS , nCLDPRS |
645 |
integer iCTPCNT , kCTPCNT , nCTPCNT |
646 |
integer iCLDTMP , kCLDTMP , nCLDTMP |
647 |
integer iCTTCNT , kCTTCNT , nCTTCNT |
648 |
integer iTAULOWC , kTAULOWC , nTAULOWC |
649 |
integer iTAUMIDC , kTAUMIDC , nTAUMIDC |
650 |
integer iTAUHIC , kTAUHIC , nTAUHIC |
651 |
integer iTCANOPY , kTCANOPY , nTCANOPY |
652 |
integer iTDEEP , kTDEEP , nTDEEP |
653 |
integer iQCANOPY , kQCANOPY , nQCANOPY |
654 |
integer iSMSHAL , kSMSHAL , nSMSHAL |
655 |
integer iSMROOT , kSMROOT , nSMROOT |
656 |
integer iSMDEEP , kSMDEEP , nSMDEEP |
657 |
integer iCAPACITY, kCAPACITY, nCAPACITY |
658 |
integer iSNOW , kSNOW , nSNOW |
659 |
integer iRAINCON , kRAINCON , nRAINCON |
660 |
integer iRAINLSP , kRAINLSP , nRAINLSP |
661 |
integer iSNOWFALL, kSNOWFALL, nSNOWFALL |
662 |
integer iRUNOFF , kRUNOFF , nRUNOFF |
663 |
integer iFWSOIL , kFWSOIL , nFWSOIL |
664 |
integer iGDRAIN , kGDRAIN , nGDRAIN |
665 |
integer iSNOWMELT, kSNOWMELT, nSNOWMELT |
666 |
integer iERESV , kERESV , nERESV |
667 |
integer iESOIL , kESOIL , nESOIL |
668 |
integer iEVEG , kEVEG , nEVEG |
669 |
integer iESNOW , kESNOW , nESNOW |
670 |
integer iPARDF , kPARDF , nPARDF |
671 |
integer iPARDR , kPARDR , nPARDR |
672 |
integer iLAI , kLAI , nLAI |
673 |
integer iGREEN , kGREEN , nGREEN |
674 |
integer iDLWDTC , kDLWDTC , nDLWDTC |
675 |
integer iDHDTC , kDHDTC , nDHDTC |
676 |
integer iDEDTC , kDEDTC , nDEDTC |
677 |
integer iVDTMOIST, kVDTMOIST, nVDTMOIST |
678 |
integer iVDTTURB , kVDTTURB , nVDTTURB |
679 |
integer iVDTRADLW, kVDTRADLW, nVDTRADLW |
680 |
integer iVDTRADSW, kVDTRADSW, nVDTRADSW |
681 |
integer iPSUBCLD , kPSUBCLD , nPSUBCLD |
682 |
integer iPSUBCLDC, kPSUBCLDC, nPSUBCLDC |
683 |
integer iLCL , kLCL , nLCL |
684 |
integer iSDIAGC , kSDIAGC , nSDIAGC |
685 |
integer iSDIAGCC , kSDIAGCC , nSDIAGCC |
686 |
|
687 |
integer iEVPOT , kEVPOT , nEVPOT |
688 |
integer iRHCHECK , kRHCHECK , nRHCHECK |
689 |
integer iDHDQA , kDHDQA , nDHDQA |
690 |
integer iDEDQA , kDEDQA , nDEDQA |
691 |
integer iDTC , kDTC , nDTC |
692 |
integer iDQC , kDQC , nDQC |
693 |
integer iTCDTC , kTCDTC , nTCDTC |
694 |
integer iRADDTC , kRADDTC , nRADDTC |
695 |
integer iSENSDTC , kSENSDTC , nSENSDTC |
696 |
integer iLATDTC , kLATDTC , nLATDTC |
697 |
integer iTDDTC , kTDDTC , nTDDTC |
698 |
integer iQCDTC , kQCDTC , nQCDTC |
699 |
integer iALBEDO , kALBEDO , nALBEDO |
700 |
integer iALBVISDR, kALBVISDR, nALBVISDR |
701 |
integer iALBVISDF, kALBVISDF, nALBVISDF |
702 |
integer iALBNIRDR, kALBNIRDR, nALBNIRDR |
703 |
integer iALBNIRDF, kALBNIRDF, nALBNIRDF |
704 |
integer iTAUAVE , kTAUAVE , nTAUAVE |
705 |
integer iALBEDOC , kALBEDOC , nALBEDOC |
706 |
integer iRHCHECKT, kRHCHECKT, nRHCHECKT |
707 |
integer iRHCHECKQ, kRHCHECKQ, nRHCHECKQ |
708 |
integer iCLDLSP , kCLDLSP , nCLDLSP |
709 |
integer iLZLOW , kLZLOW , nLZLOW |
710 |
integer iLZMID , kLZMID , nLZMID |
711 |
integer iLZHI , kLZHI , nLZHI |
712 |
integer iLZTOT , kLZTOT , nLZTOT |
713 |
integer iCAPE , kCAPE , nCAPE |
714 |
integer iHSUBCL , kHSUBCL , nHSUBCL |
715 |
integer iHSTAR , kHSTAR , nHSTAR |
716 |
integer iCONT , kCONT , nCONT |
717 |
integer iCONQ , kCONQ , nCONQ |
718 |
integer iLST , kLST , nLST |
719 |
integer iLSQ , kLSQ , nLSQ |
720 |
integer iCONEVPT , kCONEVPT , nCONEVPT |
721 |
integer iCONEVPQ , kCONEVPQ , nCONEVPQ |
722 |
integer iLSEVPT , kLSEVPT , nLSEVPT |
723 |
integer iLSEVPQ , kLSEVPQ , nLSEVPQ |
724 |
integer iGWCUMID , kGWCUMID , nGWCUMID |
725 |
integer iGWCVMID , kGWCVMID , nGWCVMID |
726 |
integer iCLDSTD , kCLDSTD , nCLDSTD |
727 |
integer iGWCUBAR , kGWCUBAR , nGWCUBAR |
728 |
integer iGWCVBAR , kGWCVBAR , nGWCVBAR |
729 |
integer iGWCUS , kGWCUS , nGWCUS |
730 |
integer iGWCVS , kGWCVS , nGWCVS |
731 |
integer iGWCU , kGWCU , nGWCU |
732 |
integer iGWCV , kGWCV , nGWCV |
733 |
|
734 |
|
735 |
C Diagnostic Pointers |
736 |
C ------------------- |
737 |
EQUIVALENCE ( IDIAG( 1) , IUFLUX ) |
738 |
EQUIVALENCE ( IDIAG( 2) , IVFLUX ) |
739 |
EQUIVALENCE ( IDIAG( 3) , IHFLUX ) |
740 |
EQUIVALENCE ( IDIAG( 4) , IEFLUX ) |
741 |
EQUIVALENCE ( IDIAG( 5) , IQICE ) |
742 |
EQUIVALENCE ( IDIAG( 6) , IRADLWG ) |
743 |
EQUIVALENCE ( IDIAG( 7) , IRADSWG ) |
744 |
EQUIVALENCE ( IDIAG( 8) , IRI ) |
745 |
EQUIVALENCE ( IDIAG( 9) , ICT ) |
746 |
EQUIVALENCE ( IDIAG(10) , ICU ) |
747 |
EQUIVALENCE ( IDIAG(11) , IKH ) |
748 |
EQUIVALENCE ( IDIAG(12) , IKM ) |
749 |
EQUIVALENCE ( IDIAG(13) , ITURBU ) |
750 |
EQUIVALENCE ( IDIAG(14) , ITURBV ) |
751 |
EQUIVALENCE ( IDIAG(15) , ITURBT ) |
752 |
EQUIVALENCE ( IDIAG(16) , ITURBQ ) |
753 |
EQUIVALENCE ( IDIAG(17) , IMOISTT ) |
754 |
EQUIVALENCE ( IDIAG(18) , IMOISTQ ) |
755 |
EQUIVALENCE ( IDIAG(19) , IRADLW ) |
756 |
EQUIVALENCE ( IDIAG(20) , IRADSW ) |
757 |
EQUIVALENCE ( IDIAG(21) , IPREACC ) |
758 |
EQUIVALENCE ( IDIAG(22) , IPRECON ) |
759 |
EQUIVALENCE ( IDIAG(23) , ITUFLUX ) |
760 |
EQUIVALENCE ( IDIAG(24) , ITVFLUX ) |
761 |
EQUIVALENCE ( IDIAG(25) , ITTFLUX ) |
762 |
EQUIVALENCE ( IDIAG(26) , ITQFLUX ) |
763 |
EQUIVALENCE ( IDIAG(27) , ICN ) |
764 |
EQUIVALENCE ( IDIAG(28) , IWINDS ) |
765 |
EQUIVALENCE ( IDIAG(29) , IDTSRF ) |
766 |
EQUIVALENCE ( IDIAG(30) , ITGROUND) |
767 |
EQUIVALENCE ( IDIAG(31) , ITS ) |
768 |
EQUIVALENCE ( IDIAG(32) , IDTG ) |
769 |
EQUIVALENCE ( IDIAG(33) , IQG ) |
770 |
EQUIVALENCE ( IDIAG(34) , IQS ) |
771 |
EQUIVALENCE ( IDIAG(35) , ITGRLW ) |
772 |
EQUIVALENCE ( IDIAG(36) , ILWGUP ) |
773 |
EQUIVALENCE ( IDIAG(37) , IOLR ) |
774 |
EQUIVALENCE ( IDIAG(38) , IOLRCLR ) |
775 |
EQUIVALENCE ( IDIAG(39) , ILWGCLR ) |
776 |
EQUIVALENCE ( IDIAG(40) , ILWCLR ) |
777 |
EQUIVALENCE ( IDIAG(41) , ITLW ) |
778 |
EQUIVALENCE ( IDIAG(42) , ISHRAD ) |
779 |
EQUIVALENCE ( IDIAG(43) , IOZLW ) |
780 |
EQUIVALENCE ( IDIAG(44) , ICLDRAS ) |
781 |
EQUIVALENCE ( IDIAG(45) , ICLDTOT ) |
782 |
EQUIVALENCE ( IDIAG(46) , ILWGDOWN) |
783 |
EQUIVALENCE ( IDIAG(47) , IGWDT ) |
784 |
EQUIVALENCE ( IDIAG(48) , IRADSWT ) |
785 |
EQUIVALENCE ( IDIAG(49) , ITAUCLD ) |
786 |
EQUIVALENCE ( IDIAG(50) , ITAUCLDC) |
787 |
EQUIVALENCE ( IDIAG(51) , ICLDLOW ) |
788 |
EQUIVALENCE ( IDIAG(52) , IEVAP ) |
789 |
EQUIVALENCE ( IDIAG(53) , IDPDT ) |
790 |
EQUIVALENCE ( IDIAG(58) , IOMEGA ) |
791 |
EQUIVALENCE ( IDIAG(59) , IDUDT ) |
792 |
EQUIVALENCE ( IDIAG(60) , IDVDT ) |
793 |
EQUIVALENCE ( IDIAG(61) , IDTDT ) |
794 |
EQUIVALENCE ( IDIAG(62) , IDQDT ) |
795 |
EQUIVALENCE ( IDIAG(63) , IVORT ) |
796 |
EQUIVALENCE ( IDIAG(65) , IDTLS ) |
797 |
EQUIVALENCE ( IDIAG(66) , IDQLS ) |
798 |
EQUIVALENCE ( IDIAG(67) , IUSTAR ) |
799 |
EQUIVALENCE ( IDIAG(68) , IZ0 ) |
800 |
EQUIVALENCE ( IDIAG(69) , IFRQTRB ) |
801 |
EQUIVALENCE ( IDIAG(70) , IPBL ) |
802 |
EQUIVALENCE ( IDIAG(71) , ISWCLR ) |
803 |
EQUIVALENCE ( IDIAG(72) , IOSR ) |
804 |
EQUIVALENCE ( IDIAG(73) , IOSRCLR ) |
805 |
EQUIVALENCE ( IDIAG(74) , ICLDMAS ) |
806 |
EQUIVALENCE ( IDIAG(75) , IUWND ) |
807 |
EQUIVALENCE ( IDIAG(76) , IVWND ) |
808 |
EQUIVALENCE ( IDIAG(77) , ITMPU ) |
809 |
EQUIVALENCE ( IDIAG(78) , ISPHU ) |
810 |
EQUIVALENCE ( IDIAG(79) , IRFT ) |
811 |
EQUIVALENCE ( IDIAG(80) , IPS ) |
812 |
EQUIVALENCE ( IDIAG(81) , ITKE ) |
813 |
EQUIVALENCE ( IDIAG(82) , ISWGCLR ) |
814 |
EQUIVALENCE ( IDIAG(84) , ISDIAG1 ) |
815 |
EQUIVALENCE ( IDIAG(85) , ISDIAG2 ) |
816 |
EQUIVALENCE ( IDIAG(86) , IUDIAG1 ) |
817 |
EQUIVALENCE ( IDIAG(87) , IUDIAG2 ) |
818 |
EQUIVALENCE ( IDIAG(88) , IDIABU ) |
819 |
EQUIVALENCE ( IDIAG(89) , IDIABV ) |
820 |
EQUIVALENCE ( IDIAG(90) , IDIABT ) |
821 |
EQUIVALENCE ( IDIAG(91) , IDIABQ ) |
822 |
EQUIVALENCE ( IDIAG(92) , IRFU ) |
823 |
EQUIVALENCE ( IDIAG(93) , IRFV ) |
824 |
EQUIVALENCE ( IDIAG(94) , IGWDU ) |
825 |
EQUIVALENCE ( IDIAG(95) , IGWDV ) |
826 |
EQUIVALENCE ( IDIAG(96) , IGWDUS ) |
827 |
EQUIVALENCE ( IDIAG(97) , IGWDVS ) |
828 |
EQUIVALENCE ( IDIAG(98) , IGWDUT ) |
829 |
EQUIVALENCE ( IDIAG(99) , IGWDVT ) |
830 |
EQUIVALENCE ( IDIAG(100), ILZRAD ) |
831 |
EQUIVALENCE ( IDIAG(101), ISLP ) |
832 |
EQUIVALENCE ( IDIAG(102), IVAVEUQ ) |
833 |
EQUIVALENCE ( IDIAG(103), IVAVEVQ ) |
834 |
EQUIVALENCE ( IDIAG(104), IVAVEUT ) |
835 |
EQUIVALENCE ( IDIAG(105), IVAVEVT ) |
836 |
EQUIVALENCE ( IDIAG(106), ICLDFRC ) |
837 |
EQUIVALENCE ( IDIAG(107), ITPW ) |
838 |
EQUIVALENCE ( IDIAG(108), IU2M ) |
839 |
EQUIVALENCE ( IDIAG(109), IV2M ) |
840 |
EQUIVALENCE ( IDIAG(110), IT2M ) |
841 |
EQUIVALENCE ( IDIAG(111), IQ2M ) |
842 |
EQUIVALENCE ( IDIAG(112), IU10M ) |
843 |
EQUIVALENCE ( IDIAG(113), IV10M ) |
844 |
EQUIVALENCE ( IDIAG(114), IT10M ) |
845 |
EQUIVALENCE ( IDIAG(115), IQ10M ) |
846 |
EQUIVALENCE ( IDIAG(116), IDTRAIN ) |
847 |
EQUIVALENCE ( IDIAG(117), IQFILL ) |
848 |
EQUIVALENCE ( IDIAG(119), IVAVEQFIL ) |
849 |
EQUIVALENCE ( IDIAG(120), ISHAPU ) |
850 |
EQUIVALENCE ( IDIAG(121), ISHAPV ) |
851 |
EQUIVALENCE ( IDIAG(122), ISHAPT ) |
852 |
EQUIVALENCE ( IDIAG(123), ISHAPQ ) |
853 |
EQUIVALENCE ( IDIAG(124), ISDIAG3 ) |
854 |
EQUIVALENCE ( IDIAG(125), ISDIAG4 ) |
855 |
EQUIVALENCE ( IDIAG(126), ISDIAG5 ) |
856 |
EQUIVALENCE ( IDIAG(127), ISDIAG6 ) |
857 |
EQUIVALENCE ( IDIAG(128), ISDIAG7 ) |
858 |
EQUIVALENCE ( IDIAG(129), ISDIAG8 ) |
859 |
EQUIVALENCE ( IDIAG(130), ISDIAG9 ) |
860 |
EQUIVALENCE ( IDIAG(131), ISDIAG10) |
861 |
EQUIVALENCE ( IDIAG(132), IUDIAG3 ) |
862 |
EQUIVALENCE ( IDIAG(133), IUDIAG4 ) |
863 |
EQUIVALENCE ( IDIAG(134), IUDIAG5 ) |
864 |
EQUIVALENCE ( IDIAG(135), IUDIAG6 ) |
865 |
EQUIVALENCE ( IDIAG(136), IUDIAG7 ) |
866 |
EQUIVALENCE ( IDIAG(137), IUDIAG8 ) |
867 |
EQUIVALENCE ( IDIAG(138), IUDIAG9 ) |
868 |
EQUIVALENCE ( IDIAG(139), IUDIAG10) |
869 |
EQUIVALENCE ( IDIAG(140), ICLDMID ) |
870 |
EQUIVALENCE ( IDIAG(141), ICLDHI ) |
871 |
EQUIVALENCE ( IDIAG(142), ITAULOW ) |
872 |
EQUIVALENCE ( IDIAG(143), ITAUMID ) |
873 |
EQUIVALENCE ( IDIAG(144), ITAUHI ) |
874 |
EQUIVALENCE ( IDIAG(145), ICLDNP ) |
875 |
EQUIVALENCE ( IDIAG(146), ICLDPRS ) |
876 |
EQUIVALENCE ( IDIAG(147), ICTPCNT ) |
877 |
EQUIVALENCE ( IDIAG(148), ICLDTMP ) |
878 |
EQUIVALENCE ( IDIAG(149), ICTTCNT ) |
879 |
EQUIVALENCE ( IDIAG(150), ITAULOWC) |
880 |
EQUIVALENCE ( IDIAG(151), ITAUMIDC) |
881 |
EQUIVALENCE ( IDIAG(152), ITAUHIC ) |
882 |
EQUIVALENCE ( IDIAG(153), ITCANOPY ) |
883 |
EQUIVALENCE ( IDIAG(154), ITDEEP ) |
884 |
EQUIVALENCE ( IDIAG(155), IQCANOPY ) |
885 |
EQUIVALENCE ( IDIAG(156), ISMSHAL ) |
886 |
EQUIVALENCE ( IDIAG(157), ISMROOT ) |
887 |
EQUIVALENCE ( IDIAG(158), ISMDEEP ) |
888 |
EQUIVALENCE ( IDIAG(159), ICAPACITY ) |
889 |
EQUIVALENCE ( IDIAG(160), ISNOW ) |
890 |
EQUIVALENCE ( IDIAG(161), IRAINCON ) |
891 |
EQUIVALENCE ( IDIAG(162), IRAINLSP ) |
892 |
EQUIVALENCE ( IDIAG(163), ISNOWFALL ) |
893 |
EQUIVALENCE ( IDIAG(164), IRUNOFF ) |
894 |
EQUIVALENCE ( IDIAG(165), IFWSOIL ) |
895 |
EQUIVALENCE ( IDIAG(166), IGDRAIN ) |
896 |
EQUIVALENCE ( IDIAG(167), ISNOWMELT ) |
897 |
EQUIVALENCE ( IDIAG(168), IERESV ) |
898 |
EQUIVALENCE ( IDIAG(169), IESOIL ) |
899 |
EQUIVALENCE ( IDIAG(170), IEVEG ) |
900 |
EQUIVALENCE ( IDIAG(171), IESNOW ) |
901 |
EQUIVALENCE ( IDIAG(172), IPARDF ) |
902 |
EQUIVALENCE ( IDIAG(173), IPARDR ) |
903 |
EQUIVALENCE ( IDIAG(174), ILAI ) |
904 |
EQUIVALENCE ( IDIAG(175), IGREEN ) |
905 |
EQUIVALENCE ( IDIAG(176), IDLWDTC ) |
906 |
EQUIVALENCE ( IDIAG(177), IDHDTC ) |
907 |
EQUIVALENCE ( IDIAG(178), IDEDTC ) |
908 |
EQUIVALENCE ( IDIAG(179), IVDTMOIST ) |
909 |
EQUIVALENCE ( IDIAG(180), IVDTTURB ) |
910 |
EQUIVALENCE ( IDIAG(181), IVDTRADLW ) |
911 |
EQUIVALENCE ( IDIAG(182), IVDTRADSW ) |
912 |
EQUIVALENCE ( IDIAG(184), IPSUBCLD ) |
913 |
EQUIVALENCE ( IDIAG(185), IPSUBCLDC ) |
914 |
EQUIVALENCE ( IDIAG(186), ILCL ) |
915 |
EQUIVALENCE ( IDIAG(187), ISDIAGC ) |
916 |
EQUIVALENCE ( IDIAG(188), ISDIAGCC ) |
917 |
|
918 |
EQUIVALENCE ( IDIAG(190), IEVPOT ) |
919 |
EQUIVALENCE ( IDIAG(191), IRHCHECK ) |
920 |
EQUIVALENCE ( IDIAG(192), IDHDQA ) |
921 |
EQUIVALENCE ( IDIAG(193), IDEDQA ) |
922 |
EQUIVALENCE ( IDIAG(194), IDTC ) |
923 |
EQUIVALENCE ( IDIAG(195), IDQC ) |
924 |
EQUIVALENCE ( IDIAG(196), ITCDTC ) |
925 |
EQUIVALENCE ( IDIAG(197), IRADDTC ) |
926 |
EQUIVALENCE ( IDIAG(198), ISENSDTC ) |
927 |
EQUIVALENCE ( IDIAG(199), ILATDTC ) |
928 |
EQUIVALENCE ( IDIAG(200), ITDDTC ) |
929 |
EQUIVALENCE ( IDIAG(201), IQCDTC ) |
930 |
EQUIVALENCE ( IDIAG(202), ITRBQLIQ ) |
931 |
EQUIVALENCE ( IDIAG(203), ITRBFCC ) |
932 |
EQUIVALENCE ( IDIAG(204), IALBEDO ) |
933 |
EQUIVALENCE ( IDIAG(205), IALBVISDR ) |
934 |
EQUIVALENCE ( IDIAG(206), IALBVISDF ) |
935 |
EQUIVALENCE ( IDIAG(207), IALBNIRDR ) |
936 |
EQUIVALENCE ( IDIAG(208), IALBNIRDF ) |
937 |
EQUIVALENCE ( IDIAG(209), ITAUAVE ) |
938 |
EQUIVALENCE ( IDIAG(210), IALBEDOC ) |
939 |
EQUIVALENCE ( IDIAG(211), IRHCHECKT ) |
940 |
EQUIVALENCE ( IDIAG(212), IRHCHECKQ ) |
941 |
EQUIVALENCE ( IDIAG(213), ICLDLSP ) |
942 |
EQUIVALENCE ( IDIAG(214), ILZLOW ) |
943 |
EQUIVALENCE ( IDIAG(215), ILZMID ) |
944 |
EQUIVALENCE ( IDIAG(216), ILZHI ) |
945 |
EQUIVALENCE ( IDIAG(217), ILZTOT ) |
946 |
EQUIVALENCE ( IDIAG(218), ICAPE ) |
947 |
EQUIVALENCE ( IDIAG(219), IHSUBCL ) |
948 |
EQUIVALENCE ( IDIAG(220), IHSTAR ) |
949 |
EQUIVALENCE ( IDIAG(221), ICONT ) |
950 |
EQUIVALENCE ( IDIAG(222), ICONQ ) |
951 |
EQUIVALENCE ( IDIAG(223), ILST ) |
952 |
EQUIVALENCE ( IDIAG(224), ILSQ ) |
953 |
EQUIVALENCE ( IDIAG(225), ICONEVPT ) |
954 |
EQUIVALENCE ( IDIAG(226), ICONEVPQ ) |
955 |
EQUIVALENCE ( IDIAG(227), ILSEVPT ) |
956 |
EQUIVALENCE ( IDIAG(228), ILSEVPQ ) |
957 |
EQUIVALENCE ( IDIAG(229), IGWCUMID ) |
958 |
EQUIVALENCE ( IDIAG(230), IGWCVMID ) |
959 |
EQUIVALENCE ( IDIAG(231), ICLDSTD ) |
960 |
EQUIVALENCE ( IDIAG(232), IGWCUBAR ) |
961 |
EQUIVALENCE ( IDIAG(233), IGWCVBAR ) |
962 |
EQUIVALENCE ( IDIAG(234), IGWCUS ) |
963 |
EQUIVALENCE ( IDIAG(235), IGWCVS ) |
964 |
EQUIVALENCE ( IDIAG(236), IGWCU ) |
965 |
EQUIVALENCE ( IDIAG(237), IGWCV ) |
966 |
|
967 |
|
968 |
C Diagnostic Levels |
969 |
C ----------------- |
970 |
EQUIVALENCE ( KDIAG( 1) , KUFLUX ) |
971 |
EQUIVALENCE ( KDIAG( 2) , KVFLUX ) |
972 |
EQUIVALENCE ( KDIAG( 3) , KHFLUX ) |
973 |
EQUIVALENCE ( KDIAG( 4) , KEFLUX ) |
974 |
EQUIVALENCE ( KDIAG( 5) , KQICE ) |
975 |
EQUIVALENCE ( KDIAG( 6) , KRADLWG ) |
976 |
EQUIVALENCE ( KDIAG( 7) , KRADSWG ) |
977 |
EQUIVALENCE ( KDIAG( 8) , KRI ) |
978 |
EQUIVALENCE ( KDIAG( 9) , KCT ) |
979 |
EQUIVALENCE ( KDIAG(10) , KCU ) |
980 |
EQUIVALENCE ( KDIAG(11) , KKH ) |
981 |
EQUIVALENCE ( KDIAG(12) , KKM ) |
982 |
EQUIVALENCE ( KDIAG(13) , KTURBU ) |
983 |
EQUIVALENCE ( KDIAG(14) , KTURBV ) |
984 |
EQUIVALENCE ( KDIAG(15) , KTURBT ) |
985 |
EQUIVALENCE ( KDIAG(16) , KTURBQ ) |
986 |
EQUIVALENCE ( KDIAG(17) , KMOISTT ) |
987 |
EQUIVALENCE ( KDIAG(18) , KMOISTQ ) |
988 |
EQUIVALENCE ( KDIAG(19) , KRADLW ) |
989 |
EQUIVALENCE ( KDIAG(20) , KRADSW ) |
990 |
EQUIVALENCE ( KDIAG(21) , KPREACC ) |
991 |
EQUIVALENCE ( KDIAG(22) , KPRECON ) |
992 |
EQUIVALENCE ( KDIAG(23) , KTUFLUX ) |
993 |
EQUIVALENCE ( KDIAG(24) , KTVFLUX ) |
994 |
EQUIVALENCE ( KDIAG(25) , KTTFLUX ) |
995 |
EQUIVALENCE ( KDIAG(26) , KTQFLUX ) |
996 |
EQUIVALENCE ( KDIAG(27) , KCN ) |
997 |
EQUIVALENCE ( KDIAG(28) , KWINDS ) |
998 |
EQUIVALENCE ( KDIAG(29) , KDTSRF ) |
999 |
EQUIVALENCE ( KDIAG(30) , KTGROUND) |
1000 |
EQUIVALENCE ( KDIAG(31) , KTS ) |
1001 |
EQUIVALENCE ( KDIAG(32) , KDTG ) |
1002 |
EQUIVALENCE ( KDIAG(33) , KQG ) |
1003 |
EQUIVALENCE ( KDIAG(34) , KQS ) |
1004 |
EQUIVALENCE ( KDIAG(35) , KTGRLW ) |
1005 |
EQUIVALENCE ( KDIAG(36) , KLWGUP ) |
1006 |
EQUIVALENCE ( KDIAG(37) , KOLR ) |
1007 |
EQUIVALENCE ( KDIAG(38) , KOLRCLR ) |
1008 |
EQUIVALENCE ( KDIAG(39) , KLWGCLR ) |
1009 |
EQUIVALENCE ( KDIAG(40) , KLWCLR ) |
1010 |
EQUIVALENCE ( KDIAG(41) , KTLW ) |
1011 |
EQUIVALENCE ( KDIAG(42) , KSHRAD ) |
1012 |
EQUIVALENCE ( KDIAG(43) , KOZLW ) |
1013 |
EQUIVALENCE ( KDIAG(44) , KCLDRAS ) |
1014 |
EQUIVALENCE ( KDIAG(45) , KCLDTOT ) |
1015 |
EQUIVALENCE ( KDIAG(46) , KLWGDOWN) |
1016 |
EQUIVALENCE ( KDIAG(47) , KGWDT ) |
1017 |
EQUIVALENCE ( KDIAG(48) , KRADSWT ) |
1018 |
EQUIVALENCE ( KDIAG(49) , KTAUCLD ) |
1019 |
EQUIVALENCE ( KDIAG(50) , KTAUCLDC) |
1020 |
EQUIVALENCE ( KDIAG(51) , KCLDLOW ) |
1021 |
EQUIVALENCE ( KDIAG(52) , KEVAP ) |
1022 |
EQUIVALENCE ( KDIAG(53) , KDPDT ) |
1023 |
EQUIVALENCE ( KDIAG(58) , KOMEGA ) |
1024 |
EQUIVALENCE ( KDIAG(59) , KDUDT ) |
1025 |
EQUIVALENCE ( KDIAG(60) , KDVDT ) |
1026 |
EQUIVALENCE ( KDIAG(61) , KDTDT ) |
1027 |
EQUIVALENCE ( KDIAG(62) , KDQDT ) |
1028 |
EQUIVALENCE ( KDIAG(63) , KVORT ) |
1029 |
EQUIVALENCE ( KDIAG(65) , KDTLS ) |
1030 |
EQUIVALENCE ( KDIAG(66) , KDQLS ) |
1031 |
EQUIVALENCE ( KDIAG(67) , KUSTAR ) |
1032 |
EQUIVALENCE ( KDIAG(68) , KZ0 ) |
1033 |
EQUIVALENCE ( KDIAG(69) , KFRQTRB ) |
1034 |
EQUIVALENCE ( KDIAG(70) , KPBL ) |
1035 |
EQUIVALENCE ( KDIAG(71) , KSWCLR ) |
1036 |
EQUIVALENCE ( KDIAG(72) , KOSR ) |
1037 |
EQUIVALENCE ( KDIAG(73) , KOSRCLR ) |
1038 |
EQUIVALENCE ( KDIAG(74) , KCLDMAS ) |
1039 |
EQUIVALENCE ( KDIAG(75) , KUWND ) |
1040 |
EQUIVALENCE ( KDIAG(76) , KVWND ) |
1041 |
EQUIVALENCE ( KDIAG(77) , KTMPU ) |
1042 |
EQUIVALENCE ( KDIAG(78) , KSPHU ) |
1043 |
EQUIVALENCE ( KDIAG(79) , KRFT ) |
1044 |
EQUIVALENCE ( KDIAG(80) , KPS ) |
1045 |
EQUIVALENCE ( KDIAG(81) , KTKE ) |
1046 |
EQUIVALENCE ( KDIAG(82) , KSWGCLR ) |
1047 |
EQUIVALENCE ( KDIAG(84) , KSDIAG1 ) |
1048 |
EQUIVALENCE ( KDIAG(85) , KSDIAG2 ) |
1049 |
EQUIVALENCE ( KDIAG(86) , KUDIAG1 ) |
1050 |
EQUIVALENCE ( KDIAG(87) , KUDIAG2 ) |
1051 |
EQUIVALENCE ( KDIAG(88) , KDIABU ) |
1052 |
EQUIVALENCE ( KDIAG(89) , KDIABV ) |
1053 |
EQUIVALENCE ( KDIAG(90) , KDIABT ) |
1054 |
EQUIVALENCE ( KDIAG(91) , KDIABQ ) |
1055 |
EQUIVALENCE ( KDIAG(92) , KRFU ) |
1056 |
EQUIVALENCE ( KDIAG(93) , KRFV ) |
1057 |
EQUIVALENCE ( KDIAG(94) , KGWDU ) |
1058 |
EQUIVALENCE ( KDIAG(95) , KGWDV ) |
1059 |
EQUIVALENCE ( KDIAG(96) , KGWDUS ) |
1060 |
EQUIVALENCE ( KDIAG(97) , KGWDVS ) |
1061 |
EQUIVALENCE ( KDIAG(98) , KGWDUT ) |
1062 |
EQUIVALENCE ( KDIAG(99) , KGWDVT ) |
1063 |
EQUIVALENCE ( KDIAG(100), KLZRAD ) |
1064 |
EQUIVALENCE ( KDIAG(101), KSLP ) |
1065 |
EQUIVALENCE ( KDIAG(102), KVAVEUQ ) |
1066 |
EQUIVALENCE ( KDIAG(103), KVAVEVQ ) |
1067 |
EQUIVALENCE ( KDIAG(104), KVAVEUT ) |
1068 |
EQUIVALENCE ( KDIAG(105), KVAVEVT ) |
1069 |
EQUIVALENCE ( KDIAG(106), KCLDFRC ) |
1070 |
EQUIVALENCE ( KDIAG(107), KTPW ) |
1071 |
EQUIVALENCE ( KDIAG(108), KU2M ) |
1072 |
EQUIVALENCE ( KDIAG(109), KV2M ) |
1073 |
EQUIVALENCE ( KDIAG(110), KT2M ) |
1074 |
EQUIVALENCE ( KDIAG(111), KQ2M ) |
1075 |
EQUIVALENCE ( KDIAG(112), KU10M ) |
1076 |
EQUIVALENCE ( KDIAG(113), KV10M ) |
1077 |
EQUIVALENCE ( KDIAG(114), KT10M ) |
1078 |
EQUIVALENCE ( KDIAG(115), KQ10M ) |
1079 |
EQUIVALENCE ( KDIAG(116), KDTRAIN ) |
1080 |
EQUIVALENCE ( KDIAG(117), KQFILL ) |
1081 |
EQUIVALENCE ( KDIAG(119), KVAVEQFIL ) |
1082 |
EQUIVALENCE ( KDIAG(120), KSHAPU ) |
1083 |
EQUIVALENCE ( KDIAG(121), KSHAPV ) |
1084 |
EQUIVALENCE ( KDIAG(122), KSHAPT ) |
1085 |
EQUIVALENCE ( KDIAG(123), KSHAPQ ) |
1086 |
EQUIVALENCE ( KDIAG(124), KSDIAG3 ) |
1087 |
EQUIVALENCE ( KDIAG(125), KSDIAG4 ) |
1088 |
EQUIVALENCE ( KDIAG(126), KSDIAG5 ) |
1089 |
EQUIVALENCE ( KDIAG(127), KSDIAG6 ) |
1090 |
EQUIVALENCE ( KDIAG(128), KSDIAG7 ) |
1091 |
EQUIVALENCE ( KDIAG(129), KSDIAG8 ) |
1092 |
EQUIVALENCE ( KDIAG(130), KSDIAG9 ) |
1093 |
EQUIVALENCE ( KDIAG(131), KSDIAG10) |
1094 |
EQUIVALENCE ( KDIAG(132), KUDIAG3 ) |
1095 |
EQUIVALENCE ( KDIAG(133), KUDIAG4 ) |
1096 |
EQUIVALENCE ( KDIAG(134), KUDIAG5 ) |
1097 |
EQUIVALENCE ( KDIAG(135), KUDIAG6 ) |
1098 |
EQUIVALENCE ( KDIAG(136), KUDIAG7 ) |
1099 |
EQUIVALENCE ( KDIAG(137), KUDIAG8 ) |
1100 |
EQUIVALENCE ( KDIAG(138), KUDIAG9 ) |
1101 |
EQUIVALENCE ( KDIAG(139), KUDIAG10) |
1102 |
EQUIVALENCE ( KDIAG(140), KCLDMID ) |
1103 |
EQUIVALENCE ( KDIAG(141), KCLDHI ) |
1104 |
EQUIVALENCE ( KDIAG(142), KTAULOW ) |
1105 |
EQUIVALENCE ( KDIAG(143), KTAUMID ) |
1106 |
EQUIVALENCE ( KDIAG(144), KTAUHI ) |
1107 |
EQUIVALENCE ( KDIAG(145), KCLDNP ) |
1108 |
EQUIVALENCE ( KDIAG(146), KCLDPRS ) |
1109 |
EQUIVALENCE ( KDIAG(147), KCTPCNT ) |
1110 |
EQUIVALENCE ( KDIAG(148), KCLDTMP ) |
1111 |
EQUIVALENCE ( KDIAG(149), KCTTCNT ) |
1112 |
EQUIVALENCE ( KDIAG(150), KTAULOWC) |
1113 |
EQUIVALENCE ( KDIAG(151), KTAUMIDC) |
1114 |
EQUIVALENCE ( KDIAG(152), KTAUHIC ) |
1115 |
EQUIVALENCE ( KDIAG(153), KTCANOPY ) |
1116 |
EQUIVALENCE ( KDIAG(154), KTDEEP ) |
1117 |
EQUIVALENCE ( KDIAG(155), KQCANOPY ) |
1118 |
EQUIVALENCE ( KDIAG(156), KSMSHAL ) |
1119 |
EQUIVALENCE ( KDIAG(157), KSMROOT ) |
1120 |
EQUIVALENCE ( KDIAG(158), KSMDEEP ) |
1121 |
EQUIVALENCE ( KDIAG(159), KCAPACITY ) |
1122 |
EQUIVALENCE ( KDIAG(160), KSNOW ) |
1123 |
EQUIVALENCE ( KDIAG(161), KRAINCON ) |
1124 |
EQUIVALENCE ( KDIAG(162), KRAINLSP ) |
1125 |
EQUIVALENCE ( KDIAG(163), KSNOWFALL ) |
1126 |
EQUIVALENCE ( KDIAG(164), KRUNOFF ) |
1127 |
EQUIVALENCE ( KDIAG(165), KFWSOIL ) |
1128 |
EQUIVALENCE ( KDIAG(166), KGDRAIN ) |
1129 |
EQUIVALENCE ( KDIAG(167), KSNOWMELT ) |
1130 |
EQUIVALENCE ( KDIAG(168), KERESV ) |
1131 |
EQUIVALENCE ( KDIAG(169), KESOIL ) |
1132 |
EQUIVALENCE ( KDIAG(170), KEVEG ) |
1133 |
EQUIVALENCE ( KDIAG(171), KESNOW ) |
1134 |
EQUIVALENCE ( KDIAG(172), KPARDF ) |
1135 |
EQUIVALENCE ( KDIAG(173), KPARDR ) |
1136 |
EQUIVALENCE ( KDIAG(174), KLAI ) |
1137 |
EQUIVALENCE ( KDIAG(175), KGREEN ) |
1138 |
EQUIVALENCE ( KDIAG(176), KDLWDTC ) |
1139 |
EQUIVALENCE ( KDIAG(177), KDHDTC ) |
1140 |
EQUIVALENCE ( KDIAG(178), KDEDTC ) |
1141 |
EQUIVALENCE ( KDIAG(179), KVDTMOIST ) |
1142 |
EQUIVALENCE ( KDIAG(180), KVDTTURB ) |
1143 |
EQUIVALENCE ( KDIAG(181), KVDTRADLW ) |
1144 |
EQUIVALENCE ( KDIAG(182), KVDTRADSW ) |
1145 |
EQUIVALENCE ( KDIAG(184), KPSUBCLD ) |
1146 |
EQUIVALENCE ( KDIAG(185), KPSUBCLDC ) |
1147 |
EQUIVALENCE ( KDIAG(186), KLCL ) |
1148 |
EQUIVALENCE ( KDIAG(187), KSDIAGC ) |
1149 |
EQUIVALENCE ( KDIAG(188), KSDIAGCC ) |
1150 |
|
1151 |
EQUIVALENCE ( KDIAG(190), KEVPOT ) |
1152 |
EQUIVALENCE ( KDIAG(191), KRHCHECK ) |
1153 |
EQUIVALENCE ( KDIAG(192), KDHDQA ) |
1154 |
EQUIVALENCE ( KDIAG(193), KDEDQA ) |
1155 |
EQUIVALENCE ( KDIAG(194), KDTC ) |
1156 |
EQUIVALENCE ( KDIAG(195), KDQC ) |
1157 |
EQUIVALENCE ( KDIAG(196), KTCDTC ) |
1158 |
EQUIVALENCE ( KDIAG(197), KRADDTC ) |
1159 |
EQUIVALENCE ( KDIAG(198), KSENSDTC ) |
1160 |
EQUIVALENCE ( KDIAG(199), KLATDTC ) |
1161 |
EQUIVALENCE ( KDIAG(200), KTDDTC ) |
1162 |
EQUIVALENCE ( KDIAG(201), KQCDTC ) |
1163 |
EQUIVALENCE ( KDIAG(202), KTRBQLIQ ) |
1164 |
EQUIVALENCE ( KDIAG(203), KTRBFCC ) |
1165 |
EQUIVALENCE ( KDIAG(204), KALBEDO ) |
1166 |
EQUIVALENCE ( KDIAG(205), KALBVISDR ) |
1167 |
EQUIVALENCE ( KDIAG(206), KALBVISDF ) |
1168 |
EQUIVALENCE ( KDIAG(207), KALBNIRDR ) |
1169 |
EQUIVALENCE ( KDIAG(208), KALBNIRDF ) |
1170 |
EQUIVALENCE ( KDIAG(209), KTAUAVE ) |
1171 |
EQUIVALENCE ( KDIAG(210), KALBEDOC ) |
1172 |
EQUIVALENCE ( KDIAG(211), KRHCHECKT ) |
1173 |
EQUIVALENCE ( KDIAG(212), KRHCHECKQ ) |
1174 |
EQUIVALENCE ( KDIAG(213), KCLDLSP ) |
1175 |
EQUIVALENCE ( KDIAG(214), KLZLOW ) |
1176 |
EQUIVALENCE ( KDIAG(215), KLZMID ) |
1177 |
EQUIVALENCE ( KDIAG(216), KLZHI ) |
1178 |
EQUIVALENCE ( KDIAG(217), KLZTOT ) |
1179 |
EQUIVALENCE ( KDIAG(218), KCAPE ) |
1180 |
EQUIVALENCE ( KDIAG(219), KHSUBCL ) |
1181 |
EQUIVALENCE ( KDIAG(220), KHSTAR ) |
1182 |
EQUIVALENCE ( KDIAG(221), KCONT ) |
1183 |
EQUIVALENCE ( KDIAG(222), KCONQ ) |
1184 |
EQUIVALENCE ( KDIAG(223), KLST ) |
1185 |
EQUIVALENCE ( KDIAG(224), KLSQ ) |
1186 |
EQUIVALENCE ( KDIAG(225), KCONEVPT ) |
1187 |
EQUIVALENCE ( KDIAG(226), KCONEVPQ ) |
1188 |
EQUIVALENCE ( KDIAG(227), KLSEVPT ) |
1189 |
EQUIVALENCE ( KDIAG(228), KLSEVPQ ) |
1190 |
EQUIVALENCE ( KDIAG(229), KGWCUMID ) |
1191 |
EQUIVALENCE ( KDIAG(230), KGWCVMID ) |
1192 |
EQUIVALENCE ( KDIAG(231), KCLDSTD ) |
1193 |
EQUIVALENCE ( KDIAG(232), KGWCUBAR ) |
1194 |
EQUIVALENCE ( KDIAG(233), KGWCVBAR ) |
1195 |
EQUIVALENCE ( KDIAG(234), KGWCUS ) |
1196 |
EQUIVALENCE ( KDIAG(235), KGWCVS ) |
1197 |
EQUIVALENCE ( KDIAG(236), KGWCU ) |
1198 |
EQUIVALENCE ( KDIAG(237), KGWCV ) |
1199 |
|
1200 |
|
1201 |
C Diagnostic Counters |
1202 |
C ------------------- |
1203 |
EQUIVALENCE ( NDIAG( 1) , NUFLUX ) |
1204 |
EQUIVALENCE ( NDIAG( 2) , NVFLUX ) |
1205 |
EQUIVALENCE ( NDIAG( 3) , NHFLUX ) |
1206 |
EQUIVALENCE ( NDIAG( 4) , NEFLUX ) |
1207 |
EQUIVALENCE ( NDIAG( 5) , NQICE ) |
1208 |
EQUIVALENCE ( NDIAG( 6) , NRADLWG ) |
1209 |
EQUIVALENCE ( NDIAG( 7) , NRADSWG ) |
1210 |
EQUIVALENCE ( NDIAG( 8) , NRI ) |
1211 |
EQUIVALENCE ( NDIAG( 9) , NCT ) |
1212 |
EQUIVALENCE ( NDIAG(10) , NCU ) |
1213 |
EQUIVALENCE ( NDIAG(11) , NKH ) |
1214 |
EQUIVALENCE ( NDIAG(12) , NKM ) |
1215 |
EQUIVALENCE ( NDIAG(13) , NTURBU ) |
1216 |
EQUIVALENCE ( NDIAG(14) , NTURBV ) |
1217 |
EQUIVALENCE ( NDIAG(15) , NTURBT ) |
1218 |
EQUIVALENCE ( NDIAG(16) , NTURBQ ) |
1219 |
EQUIVALENCE ( NDIAG(17) , NMOISTT ) |
1220 |
EQUIVALENCE ( NDIAG(18) , NMOISTQ ) |
1221 |
EQUIVALENCE ( NDIAG(19) , NRADLW ) |
1222 |
EQUIVALENCE ( NDIAG(20) , NRADSW ) |
1223 |
EQUIVALENCE ( NDIAG(21) , NPREACC ) |
1224 |
EQUIVALENCE ( NDIAG(22) , NPRECON ) |
1225 |
EQUIVALENCE ( NDIAG(23) , NTUFLUX ) |
1226 |
EQUIVALENCE ( NDIAG(24) , NTVFLUX ) |
1227 |
EQUIVALENCE ( NDIAG(25) , NTTFLUX ) |
1228 |
EQUIVALENCE ( NDIAG(26) , NTQFLUX ) |
1229 |
EQUIVALENCE ( NDIAG(27) , NCN ) |
1230 |
EQUIVALENCE ( NDIAG(28) , NWINDS ) |
1231 |
EQUIVALENCE ( NDIAG(29) , NDTSRF ) |
1232 |
EQUIVALENCE ( NDIAG(30) , NTGROUND) |
1233 |
EQUIVALENCE ( NDIAG(31) , NTS ) |
1234 |
EQUIVALENCE ( NDIAG(32) , NDTG ) |
1235 |
EQUIVALENCE ( NDIAG(33) , NQG ) |
1236 |
EQUIVALENCE ( NDIAG(34) , NQS ) |
1237 |
EQUIVALENCE ( NDIAG(35) , NTGRLW ) |
1238 |
EQUIVALENCE ( NDIAG(36) , NLWGUP ) |
1239 |
EQUIVALENCE ( NDIAG(37) , NOLR ) |
1240 |
EQUIVALENCE ( NDIAG(38) , NOLRCLR ) |
1241 |
EQUIVALENCE ( NDIAG(39) , NLWGCLR ) |
1242 |
EQUIVALENCE ( NDIAG(40) , NLWCLR ) |
1243 |
EQUIVALENCE ( NDIAG(41) , NTLW ) |
1244 |
EQUIVALENCE ( NDIAG(42) , NSHRAD ) |
1245 |
EQUIVALENCE ( NDIAG(43) , NOZLW ) |
1246 |
EQUIVALENCE ( NDIAG(44) , NCLDRAS ) |
1247 |
EQUIVALENCE ( NDIAG(45) , NCLDTOT ) |
1248 |
EQUIVALENCE ( NDIAG(46) , NLWGDOWN) |
1249 |
EQUIVALENCE ( NDIAG(47) , NGWDT ) |
1250 |
EQUIVALENCE ( NDIAG(48) , NRADSWT ) |
1251 |
EQUIVALENCE ( NDIAG(49) , NTAUCLD ) |
1252 |
EQUIVALENCE ( NDIAG(50) , NTAUCLDC) |
1253 |
EQUIVALENCE ( NDIAG(51) , NCLDLOW ) |
1254 |
EQUIVALENCE ( NDIAG(52) , NEVAP ) |
1255 |
EQUIVALENCE ( NDIAG(53) , NDPDT ) |
1256 |
EQUIVALENCE ( NDIAG(58) , NOMEGA ) |
1257 |
EQUIVALENCE ( NDIAG(59) , NDUDT ) |
1258 |
EQUIVALENCE ( NDIAG(60) , NDVDT ) |
1259 |
EQUIVALENCE ( NDIAG(61) , NDTDT ) |
1260 |
EQUIVALENCE ( NDIAG(62) , NDQDT ) |
1261 |
EQUIVALENCE ( NDIAG(63) , NVORT ) |
1262 |
EQUIVALENCE ( NDIAG(65) , NDTLS ) |
1263 |
EQUIVALENCE ( NDIAG(66) , NDQLS ) |
1264 |
EQUIVALENCE ( NDIAG(67) , NUSTAR ) |
1265 |
EQUIVALENCE ( NDIAG(68) , NZ0 ) |
1266 |
EQUIVALENCE ( NDIAG(69) , NFRQTRB ) |
1267 |
EQUIVALENCE ( NDIAG(70) , NPBL ) |
1268 |
EQUIVALENCE ( NDIAG(71) , NSWCLR ) |
1269 |
EQUIVALENCE ( NDIAG(72) , NOSR ) |
1270 |
EQUIVALENCE ( NDIAG(73) , NOSRCLR ) |
1271 |
EQUIVALENCE ( NDIAG(74) , NCLDMAS ) |
1272 |
EQUIVALENCE ( NDIAG(75) , NUWND ) |
1273 |
EQUIVALENCE ( NDIAG(76) , NVWND ) |
1274 |
EQUIVALENCE ( NDIAG(77) , NTMPU ) |
1275 |
EQUIVALENCE ( NDIAG(78) , NSPHU ) |
1276 |
EQUIVALENCE ( NDIAG(79) , NRFT ) |
1277 |
EQUIVALENCE ( NDIAG(80) , NPS ) |
1278 |
EQUIVALENCE ( NDIAG(81) , NTKE ) |
1279 |
EQUIVALENCE ( NDIAG(82) , NSWGCLR ) |
1280 |
EQUIVALENCE ( NDIAG(84) , NSDIAG1 ) |
1281 |
EQUIVALENCE ( NDIAG(85) , NSDIAG2 ) |
1282 |
EQUIVALENCE ( NDIAG(86) , NUDIAG1 ) |
1283 |
EQUIVALENCE ( NDIAG(87) , NUDIAG2 ) |
1284 |
EQUIVALENCE ( NDIAG(88) , NDIABU ) |
1285 |
EQUIVALENCE ( NDIAG(89) , NDIABV ) |
1286 |
EQUIVALENCE ( NDIAG(90) , NDIABT ) |
1287 |
EQUIVALENCE ( NDIAG(91) , NDIABQ ) |
1288 |
EQUIVALENCE ( NDIAG(92) , NRFU ) |
1289 |
EQUIVALENCE ( NDIAG(93) , NRFV ) |
1290 |
EQUIVALENCE ( NDIAG(94) , NGWDU ) |
1291 |
EQUIVALENCE ( NDIAG(95) , NGWDV ) |
1292 |
EQUIVALENCE ( NDIAG(96) , NGWDUS ) |
1293 |
EQUIVALENCE ( NDIAG(97) , NGWDVS ) |
1294 |
EQUIVALENCE ( NDIAG(98) , NGWDUT ) |
1295 |
EQUIVALENCE ( NDIAG(99) , NGWDVT ) |
1296 |
EQUIVALENCE ( NDIAG(100), NLZRAD ) |
1297 |
EQUIVALENCE ( NDIAG(101), NSLP ) |
1298 |
EQUIVALENCE ( NDIAG(102), NVAVEUQ ) |
1299 |
EQUIVALENCE ( NDIAG(103), NVAVEVQ ) |
1300 |
EQUIVALENCE ( NDIAG(104), NVAVEUT ) |
1301 |
EQUIVALENCE ( NDIAG(105), NVAVEVT ) |
1302 |
EQUIVALENCE ( NDIAG(106), NCLDFRC ) |
1303 |
EQUIVALENCE ( NDIAG(107), NTPW ) |
1304 |
EQUIVALENCE ( NDIAG(108), NU2M ) |
1305 |
EQUIVALENCE ( NDIAG(109), NV2M ) |
1306 |
EQUIVALENCE ( NDIAG(110), NT2M ) |
1307 |
EQUIVALENCE ( NDIAG(111), NQ2M ) |
1308 |
EQUIVALENCE ( NDIAG(112), NU10M ) |
1309 |
EQUIVALENCE ( NDIAG(113), NV10M ) |
1310 |
EQUIVALENCE ( NDIAG(114), NT10M ) |
1311 |
EQUIVALENCE ( NDIAG(115), NQ10M ) |
1312 |
EQUIVALENCE ( NDIAG(116), NDTRAIN ) |
1313 |
EQUIVALENCE ( NDIAG(117), NQFILL ) |
1314 |
EQUIVALENCE ( NDIAG(119), NVAVEQFIL ) |
1315 |
EQUIVALENCE ( NDIAG(120), NSHAPU ) |
1316 |
EQUIVALENCE ( NDIAG(121), NSHAPV ) |
1317 |
EQUIVALENCE ( NDIAG(122), NSHAPT ) |
1318 |
EQUIVALENCE ( NDIAG(123), NSHAPQ ) |
1319 |
EQUIVALENCE ( NDIAG(124), NSDIAG3 ) |
1320 |
EQUIVALENCE ( NDIAG(125), NSDIAG4 ) |
1321 |
EQUIVALENCE ( NDIAG(126), NSDIAG5 ) |
1322 |
EQUIVALENCE ( NDIAG(127), NSDIAG6 ) |
1323 |
EQUIVALENCE ( NDIAG(128), NSDIAG7 ) |
1324 |
EQUIVALENCE ( NDIAG(129), NSDIAG8 ) |
1325 |
EQUIVALENCE ( NDIAG(130), NSDIAG9 ) |
1326 |
EQUIVALENCE ( NDIAG(131), NSDIAG10) |
1327 |
EQUIVALENCE ( NDIAG(132), NUDIAG3 ) |
1328 |
EQUIVALENCE ( NDIAG(133), NUDIAG4 ) |
1329 |
EQUIVALENCE ( NDIAG(134), NUDIAG5 ) |
1330 |
EQUIVALENCE ( NDIAG(135), NUDIAG6 ) |
1331 |
EQUIVALENCE ( NDIAG(136), NUDIAG7 ) |
1332 |
EQUIVALENCE ( NDIAG(137), NUDIAG8 ) |
1333 |
EQUIVALENCE ( NDIAG(138), NUDIAG9 ) |
1334 |
EQUIVALENCE ( NDIAG(139), NUDIAG10) |
1335 |
EQUIVALENCE ( NDIAG(140), NCLDMID ) |
1336 |
EQUIVALENCE ( NDIAG(141), NCLDHI ) |
1337 |
EQUIVALENCE ( NDIAG(142), NTAULOW ) |
1338 |
EQUIVALENCE ( NDIAG(143), NTAUMID ) |
1339 |
EQUIVALENCE ( NDIAG(144), NTAUHI ) |
1340 |
EQUIVALENCE ( NDIAG(145), NCLDNP ) |
1341 |
EQUIVALENCE ( NDIAG(146), NCLDPRS ) |
1342 |
EQUIVALENCE ( NDIAG(147), NCTPCNT ) |
1343 |
EQUIVALENCE ( NDIAG(148), NCLDTMP ) |
1344 |
EQUIVALENCE ( NDIAG(149), NCTTCNT ) |
1345 |
EQUIVALENCE ( NDIAG(150), NTAULOWC) |
1346 |
EQUIVALENCE ( NDIAG(151), NTAUMIDC) |
1347 |
EQUIVALENCE ( NDIAG(152), NTAUHIC ) |
1348 |
EQUIVALENCE ( NDIAG(153), NTCANOPY ) |
1349 |
EQUIVALENCE ( NDIAG(154), NTDEEP ) |
1350 |
EQUIVALENCE ( NDIAG(155), NQCANOPY ) |
1351 |
EQUIVALENCE ( NDIAG(156), NSMSHAL ) |
1352 |
EQUIVALENCE ( NDIAG(157), NSMROOT ) |
1353 |
EQUIVALENCE ( NDIAG(158), NSMDEEP ) |
1354 |
EQUIVALENCE ( NDIAG(159), NCAPACITY ) |
1355 |
EQUIVALENCE ( NDIAG(160), NSNOW ) |
1356 |
EQUIVALENCE ( NDIAG(161), NRAINCON ) |
1357 |
EQUIVALENCE ( NDIAG(162), NRAINLSP ) |
1358 |
EQUIVALENCE ( NDIAG(163), NSNOWFALL ) |
1359 |
EQUIVALENCE ( NDIAG(164), NRUNOFF ) |
1360 |
EQUIVALENCE ( NDIAG(165), NFWSOIL ) |
1361 |
EQUIVALENCE ( NDIAG(166), NGDRAIN ) |
1362 |
EQUIVALENCE ( NDIAG(167), NSNOWMELT ) |
1363 |
EQUIVALENCE ( NDIAG(168), NERESV ) |
1364 |
EQUIVALENCE ( NDIAG(169), NESOIL ) |
1365 |
EQUIVALENCE ( NDIAG(170), NEVEG ) |
1366 |
EQUIVALENCE ( NDIAG(171), NESNOW ) |
1367 |
EQUIVALENCE ( NDIAG(172), NPARDF ) |
1368 |
EQUIVALENCE ( NDIAG(173), NPARDR ) |
1369 |
EQUIVALENCE ( NDIAG(174), NLAI ) |
1370 |
EQUIVALENCE ( NDIAG(175), NGREEN ) |
1371 |
EQUIVALENCE ( NDIAG(176), NDLWDTC ) |
1372 |
EQUIVALENCE ( NDIAG(177), NDHDTC ) |
1373 |
EQUIVALENCE ( NDIAG(178), NDEDTC ) |
1374 |
EQUIVALENCE ( NDIAG(179), NVDTMOIST ) |
1375 |
EQUIVALENCE ( NDIAG(180), NVDTTURB ) |
1376 |
EQUIVALENCE ( NDIAG(181), NVDTRADLW ) |
1377 |
EQUIVALENCE ( NDIAG(182), NVDTRADSW ) |
1378 |
EQUIVALENCE ( NDIAG(184), NPSUBCLD ) |
1379 |
EQUIVALENCE ( NDIAG(185), NPSUBCLDC ) |
1380 |
EQUIVALENCE ( NDIAG(186), NLCL ) |
1381 |
EQUIVALENCE ( NDIAG(187), NSDIAGC ) |
1382 |
EQUIVALENCE ( NDIAG(188), NSDIAGCC ) |
1383 |
|
1384 |
EQUIVALENCE ( NDIAG(190), NEVPOT ) |
1385 |
EQUIVALENCE ( NDIAG(191), NRHCHECK ) |
1386 |
EQUIVALENCE ( NDIAG(192), NDHDQA ) |
1387 |
EQUIVALENCE ( NDIAG(193), NDEDQA ) |
1388 |
EQUIVALENCE ( NDIAG(194), NDTC ) |
1389 |
EQUIVALENCE ( NDIAG(195), NDQC ) |
1390 |
EQUIVALENCE ( NDIAG(196), NTCDTC ) |
1391 |
EQUIVALENCE ( NDIAG(197), NRADDTC ) |
1392 |
EQUIVALENCE ( NDIAG(198), NSENSDTC ) |
1393 |
EQUIVALENCE ( NDIAG(199), NLATDTC ) |
1394 |
EQUIVALENCE ( NDIAG(200), NTDDTC ) |
1395 |
EQUIVALENCE ( NDIAG(201), NQCDTC ) |
1396 |
EQUIVALENCE ( NDIAG(202), NTRBQLIQ ) |
1397 |
EQUIVALENCE ( NDIAG(203), NTRBFCC ) |
1398 |
EQUIVALENCE ( NDIAG(204), NALBEDO ) |
1399 |
EQUIVALENCE ( NDIAG(205), NALBVISDR ) |
1400 |
EQUIVALENCE ( NDIAG(206), NALBVISDF ) |
1401 |
EQUIVALENCE ( NDIAG(207), NALBNIRDR ) |
1402 |
EQUIVALENCE ( NDIAG(208), NALBNIRDF ) |
1403 |
EQUIVALENCE ( NDIAG(209), NTAUAVE ) |
1404 |
EQUIVALENCE ( NDIAG(210), NALBEDOC ) |
1405 |
EQUIVALENCE ( NDIAG(211), NRHCHECKT ) |
1406 |
EQUIVALENCE ( NDIAG(212), NRHCHECKQ ) |
1407 |
EQUIVALENCE ( NDIAG(213), NCLDLSP ) |
1408 |
EQUIVALENCE ( NDIAG(214), NLZLOW ) |
1409 |
EQUIVALENCE ( NDIAG(215), NLZMID ) |
1410 |
EQUIVALENCE ( NDIAG(216), NLZHI ) |
1411 |
EQUIVALENCE ( NDIAG(217), NLZTOT ) |
1412 |
EQUIVALENCE ( NDIAG(218), NCAPE ) |
1413 |
EQUIVALENCE ( NDIAG(219), NHSUBCL ) |
1414 |
EQUIVALENCE ( NDIAG(220), NHSTAR ) |
1415 |
EQUIVALENCE ( NDIAG(221), NCONT ) |
1416 |
EQUIVALENCE ( NDIAG(222), NCONQ ) |
1417 |
EQUIVALENCE ( NDIAG(223), NLST ) |
1418 |
EQUIVALENCE ( NDIAG(224), NLSQ ) |
1419 |
EQUIVALENCE ( NDIAG(225), NCONEVPT ) |
1420 |
EQUIVALENCE ( NDIAG(226), NCONEVPQ ) |
1421 |
EQUIVALENCE ( NDIAG(227), NLSEVPT ) |
1422 |
EQUIVALENCE ( NDIAG(228), NLSEVPQ ) |
1423 |
EQUIVALENCE ( NDIAG(229), NGWCUMID ) |
1424 |
EQUIVALENCE ( NDIAG(230), NGWCVMID ) |
1425 |
EQUIVALENCE ( NDIAG(231), NCLDSTD ) |
1426 |
EQUIVALENCE ( NDIAG(232), NGWCUBAR ) |
1427 |
EQUIVALENCE ( NDIAG(233), NGWCVBAR ) |
1428 |
EQUIVALENCE ( NDIAG(234), NGWCUS ) |
1429 |
EQUIVALENCE ( NDIAG(235), NGWCVS ) |
1430 |
EQUIVALENCE ( NDIAG(236), NGWCU ) |
1431 |
EQUIVALENCE ( NDIAG(237), NGWCV ) |
1432 |
|
1433 |
|
1434 |
C diagnostics common |
1435 |
|
1436 |
_RL qdiag(1-OLx:sNx+Olx,1-Oly:sNy+Oly,numdiags,nSx,nSy) |
1437 |
|
1438 |
common /diagnostics/ qdiag |
1439 |
|
1440 |
C diag_choices common |
1441 |
C nfields(n) :: number of active diagnostics for output stream # n |
1442 |
C nActive(n) :: number of active diagnostics (including counters) |
1443 |
C for output stream # n |
1444 |
|
1445 |
integer nlists |
1446 |
|
1447 |
integer freq(numlists) |
1448 |
integer nlevels(numlists) |
1449 |
integer nfields(numlists) |
1450 |
integer nActive(numlists) |
1451 |
_RL levs (numLevels,numlists) |
1452 |
integer jdiag(numperlist,numlists) |
1453 |
character*8 flds (numperlist,numlists) |
1454 |
character*8 fnames(numlists) |
1455 |
logical diag_mdsio |
1456 |
logical diag_mnc |
1457 |
|
1458 |
common /diag_choices/ |
1459 |
& levs, jdiag, flds, fnames, |
1460 |
& freq, nlevels, nfields, nActive, nlists, |
1461 |
& diag_mdsio, diag_mnc |
1462 |
|
1463 |
|
1464 |
CEH3 ;;; Local Variables: *** |
1465 |
CEH3 ;;; mode:fortran *** |
1466 |
CEH3 ;;; End: *** |