/[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.2 - (hide annotations) (download)
Sat Dec 18 23:53:04 2004 UTC (19 years, 4 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint57d_post, checkpoint57b_post, checkpoint57c_pre, checkpoint57c_post
Changes since 1.1: +7 -379 lines
File MIME type: text/plain
move out off EQUIVALENCE all diagnostics that fizhi does not use

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

  ViewVC Help
Powered by ViewVC 1.1.22