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

Annotation of /MITgcm/pkg/diagnostics/DIAGNOSTICS.h

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


Revision 1.8 - (hide annotations) (download)
Fri May 20 07:28:49 2005 UTC (18 years, 11 months ago) by jmc
Branch: MAIN
Changes since 1.7: +35 -9 lines
File MIME type: text/plain
Add new capability: compute & write Global/Regional & per level statistics

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

  ViewVC Help
Powered by ViewVC 1.1.22