/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics.h
ViewVC logotype

Contents of /MITgcm/pkg/diagnostics/diagnostics.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Fri Feb 6 18:48:59 2004 UTC (20 years, 4 months ago) by molod
Branch: MAIN
CVS Tags: hrcube_3
File MIME type: text/plain
diagnostics package common blocks

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

  ViewVC Help
Powered by ViewVC 1.1.22