/[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.1 - (hide annotations) (download)
Mon Dec 13 21:43:54 2004 UTC (19 years, 4 months ago) by jmc
Branch: MAIN
File MIME type: text/plain 
re-arrange diagnostics pkg initialization:
 allow each package to extend the available diagnostics list
 add some checking and fix small problems (multi-threaded, ...)
1 jmc 1.1 C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/diagnostics.h,v 1.18 2004/09/08 01:49:26 jmc Exp $
2     C $Name: $
3    
4     C ======================================================================
5     C Common blocks for diagnostics package.
6     C - diagarrays contains the master list of diagnostics and parameters
7     C ndiagt :: total number of available diagnostics
8     C cdiag - character names
9     C idiag - slot number in large diagnostic array
10     C kdiag - number of levels associated with the diagnostic
11     C ndiag - counter for number of times diagnostic is added
12     C tdiag - description of field in diagnostic
13     C gdiag - parser field with characteristics of the diagnostics
14     C udiag - physical units of the diagnostic field
15     C - diagnostics contains the large array containing diagnostic fields
16     C qdiag - diagnostic fields array
17     C jdiag - short-list (active diag.) to long-list (available diag.)
18     C pointer
19     C - diag_choices contains the user-chosen list of fields to store
20     C ======================================================================
21    
22     C diagarrays common
23    
24     integer ndiagt
25    
26     character*8 cdiag(ndiagMax)
27     integer idiag(ndiagMax)
28     integer kdiag(ndiagMax)
29     integer ndiag(ndiagMax)
30     integer mdiag(ndiagMax)
31     character*80 tdiag(ndiagMax)
32     character*16 gdiag(ndiagMax)
33     character*16 udiag(ndiagMax)
34    
35     common /diagarrays/ ndiagt
36     common /diagarrays/ cdiag
37     common /diagarrays/ idiag
38     common /diagarrays/ kdiag
39     common /diagarrays/ ndiag
40     common /diagarrays/ mdiag
41     common /diagarrays/ tdiag
42     common /diagarrays/ gdiag
43     common /diagarrays/ udiag
44    
45     CHARACTER*8 CUFLUX
46     CHARACTER*8 CVFLUX
47     CHARACTER*8 CHFLUX
48     CHARACTER*8 CEFLUX
49     CHARACTER*8 CQICE
50     CHARACTER*8 CRADLWG
51     CHARACTER*8 CRADSWG
52     CHARACTER*8 CRI
53     CHARACTER*8 CCT
54     CHARACTER*8 CCU
55     CHARACTER*8 CKH
56     CHARACTER*8 CKM
57     CHARACTER*8 CTURBU
58     CHARACTER*8 CTURBV
59     CHARACTER*8 CTURBT
60     CHARACTER*8 CTURBQ
61     CHARACTER*8 CMOISTT
62     CHARACTER*8 CMOISTQ
63     CHARACTER*8 CRADLW
64     CHARACTER*8 CRADSW
65     CHARACTER*8 CPREACC
66     CHARACTER*8 CPRECON
67     CHARACTER*8 CTUFLUX
68     CHARACTER*8 CTVFLUX
69     CHARACTER*8 CTTFLUX
70     CHARACTER*8 CTQFLUX
71     CHARACTER*8 CCN
72     CHARACTER*8 CWINDS
73     CHARACTER*8 CDTSRF
74     CHARACTER*8 CTGROUND
75     CHARACTER*8 CTS
76     CHARACTER*8 CDTG
77     CHARACTER*8 CQG
78     CHARACTER*8 CQS
79     CHARACTER*8 CTGRLW
80     CHARACTER*8 CLWGUP
81     CHARACTER*8 COLR
82     CHARACTER*8 COLRCLR
83     CHARACTER*8 CLWGCLR
84     CHARACTER*8 CLWCLR
85     CHARACTER*8 CTLW
86     CHARACTER*8 CSHRAD
87     CHARACTER*8 COZLW
88     CHARACTER*8 CCLDRAS
89     CHARACTER*8 CCLDTOT
90     CHARACTER*8 CLWGDOWN
91     CHARACTER*8 CGWDT
92     CHARACTER*8 CRADSWT
93     CHARACTER*8 CTAUCLD
94     CHARACTER*8 CTAUCLDC
95     CHARACTER*8 CCLDLOW
96     CHARACTER*8 CEVAP
97     CHARACTER*8 CDPDT
98     CHARACTER*8 COMEGA
99     CHARACTER*8 CDUDT
100     CHARACTER*8 CDVDT
101     CHARACTER*8 CDTDT
102     CHARACTER*8 CDQDT
103     CHARACTER*8 CVORT
104     CHARACTER*8 CDTLS
105     CHARACTER*8 CDQLS
106     CHARACTER*8 CUSTAR
107     CHARACTER*8 CZ0
108     CHARACTER*8 CFRQTRB
109     CHARACTER*8 CPBL
110     CHARACTER*8 CSWCLR
111     CHARACTER*8 COSR
112     CHARACTER*8 COSRCLR
113     CHARACTER*8 CCLDMAS
114     CHARACTER*8 CUWND
115     CHARACTER*8 CVWND
116     CHARACTER*8 CTMPU
117     CHARACTER*8 CSPHU
118     CHARACTER*8 CRFT
119     CHARACTER*8 CPS
120     CHARACTER*8 CTKE
121     CHARACTER*8 CSWGCLR
122     CHARACTER*8 CSDIAG1
123     CHARACTER*8 CSDIAG2
124     CHARACTER*8 CUDIAG1
125     CHARACTER*8 CUDIAG2
126     CHARACTER*8 CDIABU
127     CHARACTER*8 CDIABV
128     CHARACTER*8 CDIABT
129     CHARACTER*8 CDIABQ
130     CHARACTER*8 CRFU
131     CHARACTER*8 CRFV
132     CHARACTER*8 CGWDU
133     CHARACTER*8 CGWDV
134     CHARACTER*8 CGWDUS
135     CHARACTER*8 CGWDVS
136     CHARACTER*8 CGWDUT
137     CHARACTER*8 CGWDVT
138     CHARACTER*8 CLZRAD
139     CHARACTER*8 CTRBQLIQ
140     CHARACTER*8 CTRBFCC
141     CHARACTER*8 CSLP
142     CHARACTER*8 CVAVEUQ
143     CHARACTER*8 CVAVEVQ
144     CHARACTER*8 CVAVEUT
145     CHARACTER*8 CVAVEVT
146     CHARACTER*8 CCLDFRC
147     CHARACTER*8 CTPW
148     CHARACTER*8 CU2M
149     CHARACTER*8 CV2M
150     CHARACTER*8 CT2M
151     CHARACTER*8 CQ2M
152     CHARACTER*8 CU10M
153     CHARACTER*8 CV10M
154     CHARACTER*8 CT10M
155     CHARACTER*8 CQ10M
156     CHARACTER*8 CDTRAIN
157     CHARACTER*8 CQFILL
158     CHARACTER*8 CVAVEQFIL
159     CHARACTER*8 CSHAPU
160     CHARACTER*8 CSHAPV
161     CHARACTER*8 CSHAPT
162     CHARACTER*8 CSHAPQ
163     CHARACTER*8 CSDIAG3
164     CHARACTER*8 CSDIAG4
165     CHARACTER*8 CSDIAG5
166     CHARACTER*8 CSDIAG6
167     CHARACTER*8 CSDIAG7
168     CHARACTER*8 CSDIAG8
169     CHARACTER*8 CSDIAG9
170     CHARACTER*8 CSDIAG10
171     CHARACTER*8 CUDIAG3
172     CHARACTER*8 CUDIAG4
173     CHARACTER*8 CUDIAG5
174     CHARACTER*8 CUDIAG6
175     CHARACTER*8 CUDIAG7
176     CHARACTER*8 CUDIAG8
177     CHARACTER*8 CUDIAG9
178     CHARACTER*8 CUDIAG10
179     CHARACTER*8 CCLDMID
180     CHARACTER*8 CCLDHI
181     CHARACTER*8 CTAULOW
182     CHARACTER*8 CTAUMID
183     CHARACTER*8 CTAUHI
184     CHARACTER*8 CCLDNP
185     CHARACTER*8 CCLDPRS
186     CHARACTER*8 CCTPCNT
187     CHARACTER*8 CCLDTMP
188     CHARACTER*8 CCTTCNT
189     CHARACTER*8 CTAULOWC
190     CHARACTER*8 CTAUMIDC
191     CHARACTER*8 CTAUHIC
192     CHARACTER*8 CTCANOPY
193     CHARACTER*8 CTDEEP
194     CHARACTER*8 CQCANOPY
195     CHARACTER*8 CSMSHAL
196     CHARACTER*8 CSMROOT
197     CHARACTER*8 CSMDEEP
198     CHARACTER*8 CCAPACITY
199     CHARACTER*8 CSNOW
200     CHARACTER*8 CRAINCON
201     CHARACTER*8 CRAINLSP
202     CHARACTER*8 CSNOWFALL
203     CHARACTER*8 CRUNOFF
204     CHARACTER*8 CFWSOIL
205     CHARACTER*8 CGDRAIN
206     CHARACTER*8 CSNOWMELT
207     CHARACTER*8 CERESV
208     CHARACTER*8 CESOIL
209     CHARACTER*8 CEVEG
210     CHARACTER*8 CESNOW
211     CHARACTER*8 CPARDF
212     CHARACTER*8 CPARDR
213     CHARACTER*8 CLAI
214     CHARACTER*8 CGREEN
215     CHARACTER*8 CDLWDTC
216     CHARACTER*8 CDHDTC
217     CHARACTER*8 CDEDTC
218     CHARACTER*8 CVDTMOIST
219     CHARACTER*8 CVDTTURB
220     CHARACTER*8 CVDTRADLW
221     CHARACTER*8 CVDTRADSW
222     CHARACTER*8 CPSUBCLD
223     CHARACTER*8 CPSUBCLDC
224     CHARACTER*8 CLCL
225     CHARACTER*8 CSDIAGC
226     CHARACTER*8 CSDIAGCC
227     CHARACTER*8 CEVPOT
228     CHARACTER*8 CRHCHECK
229     CHARACTER*8 CDHDQA
230     CHARACTER*8 CDEDQA
231     CHARACTER*8 CDTC
232     CHARACTER*8 CDQC
233     CHARACTER*8 CTCDTC
234     CHARACTER*8 CRADDTC
235     CHARACTER*8 CSENSDTC
236     CHARACTER*8 CLATDTC
237     CHARACTER*8 CTDDTC
238     CHARACTER*8 CQCDTC
239     CHARACTER*8 CALBEDO
240     CHARACTER*8 CALBVISDR
241     CHARACTER*8 CALBVISDF
242     CHARACTER*8 CALBNIRDR
243     CHARACTER*8 CALBNIRDF
244     CHARACTER*8 CTAUAVE
245     CHARACTER*8 CALBEDOC
246     CHARACTER*8 CRHCHECKT
247     CHARACTER*8 CRHCHECKQ
248     CHARACTER*8 CCLDLSP
249     CHARACTER*8 CLZLOW
250     CHARACTER*8 CLZMID
251     CHARACTER*8 CLZHI
252     CHARACTER*8 CLZTOT
253     CHARACTER*8 CCAPE
254     CHARACTER*8 CHSUBCL
255     CHARACTER*8 CHSTAR
256     CHARACTER*8 CCONT
257     CHARACTER*8 CCONQ
258     CHARACTER*8 CLST
259     CHARACTER*8 CLSQ
260     CHARACTER*8 CCONEVPT
261     CHARACTER*8 CCONEVPQ
262     CHARACTER*8 CLSEVPT
263     CHARACTER*8 CLSEVPQ
264     CHARACTER*8 CGWCUMID
265     CHARACTER*8 CGWCVMID
266     CHARACTER*8 CCLDSTD
267     CHARACTER*8 CGWCUBAR
268     CHARACTER*8 CGWCVBAR
269     CHARACTER*8 CGWCUS
270     CHARACTER*8 CGWCVS
271     CHARACTER*8 CGWCU
272     CHARACTER*8 CGWCV
273     CHARACTER*8 CETAN
274     CHARACTER*8 CETANSQ
275     CHARACTER*8 CTHETA
276     CHARACTER*8 CSALT
277     CHARACTER*8 CUVEL
278     CHARACTER*8 CVVEL
279     CHARACTER*8 CWVEL
280     CHARACTER*8 CTHETASQ
281     CHARACTER*8 CSALTSQ
282     CHARACTER*8 CUVELSQ
283     CHARACTER*8 CVVELSQ
284     CHARACTER*8 CWVELSQ
285     CHARACTER*8 CUVELVVEL
286     CHARACTER*8 CUVELMASS
287     CHARACTER*8 CVVELMASS
288     CHARACTER*8 CWVELMASS
289     CHARACTER*8 CUTHMASS
290     CHARACTER*8 CVTHMASS
291     CHARACTER*8 CWTHMASS
292     CHARACTER*8 CUSLTMASS
293     CHARACTER*8 CVSLTMASS
294     CHARACTER*8 CWSLTMASS
295     CHARACTER*8 CUVELTH
296     CHARACTER*8 CVVELTH
297     CHARACTER*8 CWVELTH
298     CHARACTER*8 CUVELSLT
299     CHARACTER*8 CVVELSLT
300     CHARACTER*8 CWVELSLT
301     CHARACTER*8 CUTRAC1
302     CHARACTER*8 CVTRAC1
303     CHARACTER*8 CWTRAC1
304     CHARACTER*8 CUTRAC2
305     CHARACTER*8 CVTRAC2
306     CHARACTER*8 CWTRAC2
307     CHARACTER*8 CUTRAC3
308     CHARACTER*8 CVTRAC3
309     CHARACTER*8 CWTRAC3
310     CHARACTER*8 CUTRAC4
311     CHARACTER*8 CVTRAC4
312     CHARACTER*8 CWTRAC4
313     CHARACTER*8 CUTRAC5
314     CHARACTER*8 CVTRAC5
315     CHARACTER*8 CWTRAC5
316     CHARACTER*8 CTRAC1
317     CHARACTER*8 CTRAC2
318     CHARACTER*8 CTRAC3
319     CHARACTER*8 CTRAC4
320     CHARACTER*8 CTRAC5
321     CHARACTER*8 CDICBIOA
322     CHARACTER*8 CDICCARB
323     CHARACTER*8 CDICTFLX
324     CHARACTER*8 CDICOFLX
325     CHARACTER*8 CDICCFLX
326     CHARACTER*8 CDICPCO2
327     CHARACTER*8 CDICPHAV
328     CHARACTER*8 CDTCONV
329     CHARACTER*8 CDQCONV
330     CHARACTER*8 CRELHUM
331     CHARACTER*8 CPRECLS
332     CHARACTER*8 CENPREC
333     CHARACTER*8 CVISCA4
334     CHARACTER*8 CVISCAH
335    
336     EQUIVALENCE ( CDIAG( 1) , CUFLUX )
337     EQUIVALENCE ( CDIAG( 2) , CVFLUX )
338     EQUIVALENCE ( CDIAG( 3) , CHFLUX )
339     EQUIVALENCE ( CDIAG( 4) , CEFLUX )
340     EQUIVALENCE ( CDIAG( 5) , CQICE )
341     EQUIVALENCE ( CDIAG( 6) , CRADLWG )
342     EQUIVALENCE ( CDIAG( 7) , CRADSWG )
343     EQUIVALENCE ( CDIAG( 8) , CRI )
344     EQUIVALENCE ( CDIAG( 9) , CCT )
345     EQUIVALENCE ( CDIAG(10) , CCU )
346     EQUIVALENCE ( CDIAG(11) , CKH )
347     EQUIVALENCE ( CDIAG(12) , CKM )
348     EQUIVALENCE ( CDIAG(13) , CTURBU )
349     EQUIVALENCE ( CDIAG(14) , CTURBV )
350     EQUIVALENCE ( CDIAG(15) , CTURBT )
351     EQUIVALENCE ( CDIAG(16) , CTURBQ )
352     EQUIVALENCE ( CDIAG(17) , CMOISTT )
353     EQUIVALENCE ( CDIAG(18) , CMOISTQ )
354     EQUIVALENCE ( CDIAG(19) , CRADLW )
355     EQUIVALENCE ( CDIAG(20) , CRADSW )
356     EQUIVALENCE ( CDIAG(21) , CPREACC )
357     EQUIVALENCE ( CDIAG(22) , CPRECON )
358     EQUIVALENCE ( CDIAG(23) , CTUFLUX )
359     EQUIVALENCE ( CDIAG(24) , CTVFLUX )
360     EQUIVALENCE ( CDIAG(25) , CTTFLUX )
361     EQUIVALENCE ( CDIAG(26) , CTQFLUX )
362     EQUIVALENCE ( CDIAG(27) , CCN )
363     EQUIVALENCE ( CDIAG(28) , CWINDS )
364     EQUIVALENCE ( CDIAG(29) , CDTSRF )
365     EQUIVALENCE ( CDIAG(30) , CTGROUND)
366     EQUIVALENCE ( CDIAG(31) , CTS )
367     EQUIVALENCE ( CDIAG(32) , CDTG )
368     EQUIVALENCE ( CDIAG(33) , CQG )
369     EQUIVALENCE ( CDIAG(34) , CQS )
370     EQUIVALENCE ( CDIAG(35) , CTGRLW )
371     EQUIVALENCE ( CDIAG(36) , CLWGUP )
372     EQUIVALENCE ( CDIAG(37) , COLR )
373     EQUIVALENCE ( CDIAG(38) , COLRCLR )
374     EQUIVALENCE ( CDIAG(39) , CLWGCLR )
375     EQUIVALENCE ( CDIAG(40) , CLWCLR )
376     EQUIVALENCE ( CDIAG(41) , CTLW )
377     EQUIVALENCE ( CDIAG(42) , CSHRAD )
378     EQUIVALENCE ( CDIAG(43) , COZLW )
379     EQUIVALENCE ( CDIAG(44) , CCLDRAS )
380     EQUIVALENCE ( CDIAG(45) , CCLDTOT )
381     EQUIVALENCE ( CDIAG(46) , CLWGDOWN)
382     EQUIVALENCE ( CDIAG(47) , CGWDT )
383     EQUIVALENCE ( CDIAG(48) , CRADSWT )
384     EQUIVALENCE ( CDIAG(49) , CTAUCLD )
385     EQUIVALENCE ( CDIAG(50) , CTAUCLDC)
386     EQUIVALENCE ( CDIAG(51) , CCLDLOW )
387     EQUIVALENCE ( CDIAG(52) , CEVAP )
388     EQUIVALENCE ( CDIAG(53) , CDPDT )
389     EQUIVALENCE ( CDIAG(58) , COMEGA )
390     EQUIVALENCE ( CDIAG(59) , CDUDT )
391     EQUIVALENCE ( CDIAG(60) , CDVDT )
392     EQUIVALENCE ( CDIAG(61) , CDTDT )
393     EQUIVALENCE ( CDIAG(62) , CDQDT )
394     EQUIVALENCE ( CDIAG(63) , CVORT )
395     EQUIVALENCE ( CDIAG(65) , CDTLS )
396     EQUIVALENCE ( CDIAG(66) , CDQLS )
397     EQUIVALENCE ( CDIAG(67) , CUSTAR )
398     EQUIVALENCE ( CDIAG(68) , CZ0 )
399     EQUIVALENCE ( CDIAG(69) , CFRQTRB )
400     EQUIVALENCE ( CDIAG(70) , CPBL )
401     EQUIVALENCE ( CDIAG(71) , CSWCLR )
402     EQUIVALENCE ( CDIAG(72) , COSR )
403     EQUIVALENCE ( CDIAG(73) , COSRCLR )
404     EQUIVALENCE ( CDIAG(74) , CCLDMAS )
405     EQUIVALENCE ( CDIAG(75) , CUWND )
406     EQUIVALENCE ( CDIAG(76) , CVWND )
407     EQUIVALENCE ( CDIAG(77) , CTMPU )
408     EQUIVALENCE ( CDIAG(78) , CSPHU )
409     EQUIVALENCE ( CDIAG(79) , CRFT )
410     EQUIVALENCE ( CDIAG(80) , CPS )
411     EQUIVALENCE ( CDIAG(81) , CTKE )
412     EQUIVALENCE ( CDIAG(82) , CSWGCLR )
413     EQUIVALENCE ( CDIAG(84) , CSDIAG1 )
414     EQUIVALENCE ( CDIAG(85) , CSDIAG2 )
415     EQUIVALENCE ( CDIAG(86) , CUDIAG1 )
416     EQUIVALENCE ( CDIAG(87) , CUDIAG2 )
417     EQUIVALENCE ( CDIAG(88) , CDIABU )
418     EQUIVALENCE ( CDIAG(89) , CDIABV )
419     EQUIVALENCE ( CDIAG(90) , CDIABT )
420     EQUIVALENCE ( CDIAG(91) , CDIABQ )
421     EQUIVALENCE ( CDIAG(92) , CRFU )
422     EQUIVALENCE ( CDIAG(93) , CRFV )
423     EQUIVALENCE ( CDIAG(94) , CGWDU )
424     EQUIVALENCE ( CDIAG(95) , CGWDV )
425     EQUIVALENCE ( CDIAG(96) , CGWDUS )
426     EQUIVALENCE ( CDIAG(97) , CGWDVS )
427     EQUIVALENCE ( CDIAG(98) , CGWDUT )
428     EQUIVALENCE ( CDIAG(99) , CGWDVT )
429     EQUIVALENCE ( CDIAG(100), CLZRAD )
430     EQUIVALENCE ( CDIAG(101), CSLP )
431     EQUIVALENCE ( CDIAG(102), CVAVEUQ )
432     EQUIVALENCE ( CDIAG(103), CVAVEVQ )
433     EQUIVALENCE ( CDIAG(104), CVAVEUT )
434     EQUIVALENCE ( CDIAG(105), CVAVEVT )
435     EQUIVALENCE ( CDIAG(106), CCLDFRC )
436     EQUIVALENCE ( CDIAG(107), CTPW )
437     EQUIVALENCE ( CDIAG(108), CU2M )
438     EQUIVALENCE ( CDIAG(109), CV2M )
439     EQUIVALENCE ( CDIAG(110), CT2M )
440     EQUIVALENCE ( CDIAG(111), CQ2M )
441     EQUIVALENCE ( CDIAG(112), CU10M )
442     EQUIVALENCE ( CDIAG(113), CV10M )
443     EQUIVALENCE ( CDIAG(114), CT10M )
444     EQUIVALENCE ( CDIAG(115), CQ10M )
445     EQUIVALENCE ( CDIAG(116), CDTRAIN )
446     EQUIVALENCE ( CDIAG(117), CQFILL )
447     EQUIVALENCE ( CDIAG(119), CVAVEQFIL )
448     EQUIVALENCE ( CDIAG(120), CSHAPU )
449     EQUIVALENCE ( CDIAG(121), CSHAPV )
450     EQUIVALENCE ( CDIAG(122), CSHAPT )
451     EQUIVALENCE ( CDIAG(123), CSHAPQ )
452     EQUIVALENCE ( CDIAG(124), CSDIAG3 )
453     EQUIVALENCE ( CDIAG(125), CSDIAG4 )
454     EQUIVALENCE ( CDIAG(126), CSDIAG5 )
455     EQUIVALENCE ( CDIAG(127), CSDIAG6 )
456     EQUIVALENCE ( CDIAG(128), CSDIAG7 )
457     EQUIVALENCE ( CDIAG(129), CSDIAG8 )
458     EQUIVALENCE ( CDIAG(130), CSDIAG9 )
459     EQUIVALENCE ( CDIAG(131), CSDIAG10)
460     EQUIVALENCE ( CDIAG(132), CUDIAG3 )
461     EQUIVALENCE ( CDIAG(133), CUDIAG4 )
462     EQUIVALENCE ( CDIAG(134), CUDIAG5 )
463     EQUIVALENCE ( CDIAG(135), CUDIAG6 )
464     EQUIVALENCE ( CDIAG(136), CUDIAG7 )
465     EQUIVALENCE ( CDIAG(137), CUDIAG8 )
466     EQUIVALENCE ( CDIAG(138), CUDIAG9 )
467     EQUIVALENCE ( CDIAG(139), CUDIAG10)
468     EQUIVALENCE ( CDIAG(140), CCLDMID )
469     EQUIVALENCE ( CDIAG(141), CCLDHI )
470     EQUIVALENCE ( CDIAG(142), CTAULOW )
471     EQUIVALENCE ( CDIAG(143), CTAUMID )
472     EQUIVALENCE ( CDIAG(144), CTAUHI )
473     EQUIVALENCE ( CDIAG(145), CCLDNP )
474     EQUIVALENCE ( CDIAG(146), CCLDPRS )
475     EQUIVALENCE ( CDIAG(147), CCTPCNT )
476     EQUIVALENCE ( CDIAG(148), CCLDTMP )
477     EQUIVALENCE ( CDIAG(149), CCTTCNT )
478     EQUIVALENCE ( CDIAG(150), CTAULOWC)
479     EQUIVALENCE ( CDIAG(151), CTAUMIDC)
480     EQUIVALENCE ( CDIAG(152), CTAUHIC )
481     EQUIVALENCE ( CDIAG(153), CTCANOPY )
482     EQUIVALENCE ( CDIAG(154), CTDEEP )
483     EQUIVALENCE ( CDIAG(155), CQCANOPY )
484     EQUIVALENCE ( CDIAG(156), CSMSHAL )
485     EQUIVALENCE ( CDIAG(157), CSMROOT )
486     EQUIVALENCE ( CDIAG(158), CSMDEEP )
487     EQUIVALENCE ( CDIAG(159), CCAPACITY )
488     EQUIVALENCE ( CDIAG(160), CSNOW )
489     EQUIVALENCE ( CDIAG(161), CRAINCON )
490     EQUIVALENCE ( CDIAG(162), CRAINLSP )
491     EQUIVALENCE ( CDIAG(163), CSNOWFALL )
492     EQUIVALENCE ( CDIAG(164), CRUNOFF )
493     EQUIVALENCE ( CDIAG(165), CFWSOIL )
494     EQUIVALENCE ( CDIAG(166), CGDRAIN )
495     EQUIVALENCE ( CDIAG(167), CSNOWMELT )
496     EQUIVALENCE ( CDIAG(168), CERESV )
497     EQUIVALENCE ( CDIAG(169), CESOIL )
498     EQUIVALENCE ( CDIAG(170), CEVEG )
499     EQUIVALENCE ( CDIAG(171), CESNOW )
500     EQUIVALENCE ( CDIAG(172), CPARDF )
501     EQUIVALENCE ( CDIAG(173), CPARDR )
502     EQUIVALENCE ( CDIAG(174), CLAI )
503     EQUIVALENCE ( CDIAG(175), CGREEN )
504     EQUIVALENCE ( CDIAG(176), CDLWDTC )
505     EQUIVALENCE ( CDIAG(177), CDHDTC )
506     EQUIVALENCE ( CDIAG(178), CDEDTC )
507     EQUIVALENCE ( CDIAG(179), CVDTMOIST )
508     EQUIVALENCE ( CDIAG(180), CVDTTURB )
509     EQUIVALENCE ( CDIAG(181), CVDTRADLW )
510     EQUIVALENCE ( CDIAG(182), CVDTRADSW )
511     EQUIVALENCE ( CDIAG(184), CPSUBCLD )
512     EQUIVALENCE ( CDIAG(185), CPSUBCLDC )
513     EQUIVALENCE ( CDIAG(186), CLCL )
514     EQUIVALENCE ( CDIAG(187), CSDIAGC )
515     EQUIVALENCE ( CDIAG(188), CSDIAGCC )
516    
517     EQUIVALENCE ( CDIAG(190), CEVPOT )
518     EQUIVALENCE ( CDIAG(191), CRHCHECK )
519     EQUIVALENCE ( CDIAG(192), CDHDQA )
520     EQUIVALENCE ( CDIAG(193), CDEDQA )
521     EQUIVALENCE ( CDIAG(194), CDTC )
522     EQUIVALENCE ( CDIAG(195), CDQC )
523     EQUIVALENCE ( CDIAG(196), CTCDTC )
524     EQUIVALENCE ( CDIAG(197), CRADDTC )
525     EQUIVALENCE ( CDIAG(198), CSENSDTC )
526     EQUIVALENCE ( CDIAG(199), CLATDTC )
527     EQUIVALENCE ( CDIAG(200), CTDDTC )
528     EQUIVALENCE ( CDIAG(201), CQCDTC )
529     EQUIVALENCE ( CDIAG(202), CTRBQLIQ )
530     EQUIVALENCE ( CDIAG(203), CTRBFCC )
531     EQUIVALENCE ( CDIAG(204), CALBEDO )
532     EQUIVALENCE ( CDIAG(205), CALBVISDR )
533     EQUIVALENCE ( CDIAG(206), CALBVISDF )
534     EQUIVALENCE ( CDIAG(207), CALBNIRDR )
535     EQUIVALENCE ( CDIAG(208), CALBNIRDF )
536     EQUIVALENCE ( CDIAG(209), CTAUAVE )
537     EQUIVALENCE ( CDIAG(210), CALBEDOC )
538     EQUIVALENCE ( CDIAG(211), CRHCHECKT )
539     EQUIVALENCE ( CDIAG(212), CRHCHECKQ )
540     EQUIVALENCE ( CDIAG(213), CCLDLSP )
541     EQUIVALENCE ( CDIAG(214), CLZLOW )
542     EQUIVALENCE ( CDIAG(215), CLZMID )
543     EQUIVALENCE ( CDIAG(216), CLZHI )
544     EQUIVALENCE ( CDIAG(217), CLZTOT )
545     EQUIVALENCE ( CDIAG(218), CCAPE )
546     EQUIVALENCE ( CDIAG(219), CHSUBCL )
547     EQUIVALENCE ( CDIAG(220), CHSTAR )
548     EQUIVALENCE ( CDIAG(221), CCONT )
549     EQUIVALENCE ( CDIAG(222), CCONQ )
550     EQUIVALENCE ( CDIAG(223), CLST )
551     EQUIVALENCE ( CDIAG(224), CLSQ )
552     EQUIVALENCE ( CDIAG(225), CCONEVPT )
553     EQUIVALENCE ( CDIAG(226), CCONEVPQ )
554     EQUIVALENCE ( CDIAG(227), CLSEVPT )
555     EQUIVALENCE ( CDIAG(228), CLSEVPQ )
556     EQUIVALENCE ( CDIAG(229), CGWCUMID )
557     EQUIVALENCE ( CDIAG(230), CGWCVMID )
558     EQUIVALENCE ( CDIAG(231), CCLDSTD )
559     EQUIVALENCE ( CDIAG(232), CGWCUBAR )
560     EQUIVALENCE ( CDIAG(233), CGWCVBAR )
561     EQUIVALENCE ( CDIAG(234), CGWCUS )
562     EQUIVALENCE ( CDIAG(235), CGWCVS )
563     EQUIVALENCE ( CDIAG(236), CGWCU )
564     EQUIVALENCE ( CDIAG(237), CGWCV )
565     EQUIVALENCE ( CDIAG(238), CETAN )
566     EQUIVALENCE ( CDIAG(239), CETANSQ )
567     EQUIVALENCE ( CDIAG(240), CTHETA )
568     EQUIVALENCE ( CDIAG(241), CSALT )
569     EQUIVALENCE ( CDIAG(242), CUVEL )
570     EQUIVALENCE ( CDIAG(243), CVVEL )
571     EQUIVALENCE ( CDIAG(244), CWVEL )
572     EQUIVALENCE ( CDIAG(245), CTHETASQ )
573     EQUIVALENCE ( CDIAG(246), CSALTSQ )
574     EQUIVALENCE ( CDIAG(247), CUVELSQ )
575     EQUIVALENCE ( CDIAG(248), CVVELSQ )
576     EQUIVALENCE ( CDIAG(249), CWVELSQ )
577     EQUIVALENCE ( CDIAG(250), CUVELVVEL )
578     EQUIVALENCE ( CDIAG(251), CUVELMASS )
579     EQUIVALENCE ( CDIAG(252), CVVELMASS )
580     EQUIVALENCE ( CDIAG(253), CWVELMASS )
581     EQUIVALENCE ( CDIAG(254), CUTHMASS )
582     EQUIVALENCE ( CDIAG(255), CVTHMASS )
583     EQUIVALENCE ( CDIAG(256), CWTHMASS )
584     EQUIVALENCE ( CDIAG(257), CUSLTMASS )
585     EQUIVALENCE ( CDIAG(258), CVSLTMASS )
586     EQUIVALENCE ( CDIAG(259), CWSLTMASS )
587     EQUIVALENCE ( CDIAG(260), CUVELTH )
588     EQUIVALENCE ( CDIAG(261), CVVELTH )
589     EQUIVALENCE ( CDIAG(262), CWVELTH )
590     EQUIVALENCE ( CDIAG(263), CUVELSLT )
591     EQUIVALENCE ( CDIAG(264), CVVELSLT )
592     EQUIVALENCE ( CDIAG(265), CWVELSLT )
593     EQUIVALENCE ( CDIAG(266), CUTRAC1 )
594     EQUIVALENCE ( CDIAG(267), CVTRAC1 )
595     EQUIVALENCE ( CDIAG(268), CWTRAC1 )
596     EQUIVALENCE ( CDIAG(269), CUTRAC2 )
597     EQUIVALENCE ( CDIAG(270), CVTRAC2 )
598     EQUIVALENCE ( CDIAG(271), CWTRAC2 )
599     EQUIVALENCE ( CDIAG(272), CUTRAC3 )
600     EQUIVALENCE ( CDIAG(273), CVTRAC3 )
601     EQUIVALENCE ( CDIAG(274), CWTRAC3 )
602     EQUIVALENCE ( CDIAG(275), CUTRAC4 )
603     EQUIVALENCE ( CDIAG(276), CVTRAC4 )
604     EQUIVALENCE ( CDIAG(277), CWTRAC4 )
605     EQUIVALENCE ( CDIAG(278), CUTRAC5 )
606     EQUIVALENCE ( CDIAG(279), CVTRAC5 )
607     EQUIVALENCE ( CDIAG(280), CWTRAC5 )
608     EQUIVALENCE ( CDIAG(281), CTRAC1 )
609     EQUIVALENCE ( CDIAG(282), CTRAC2 )
610     EQUIVALENCE ( CDIAG(283), CTRAC3 )
611     EQUIVALENCE ( CDIAG(284), CTRAC4 )
612     EQUIVALENCE ( CDIAG(285), CTRAC5 )
613     EQUIVALENCE ( CDIAG(286), CDICBIOA )
614     EQUIVALENCE ( CDIAG(287), CDICCARB )
615     EQUIVALENCE ( CDIAG(288), CDICTFLX )
616     EQUIVALENCE ( CDIAG(289), CDICOFLX )
617     EQUIVALENCE ( CDIAG(290), CDICCFLX )
618     EQUIVALENCE ( CDIAG(291), CDICPCO2 )
619     EQUIVALENCE ( CDIAG(292), CDICPHAV )
620     EQUIVALENCE ( CDIAG(293), CDTCONV )
621     EQUIVALENCE ( CDIAG(294), CDQCONV )
622     EQUIVALENCE ( CDIAG(295), CRELHUM )
623     EQUIVALENCE ( CDIAG(296), CPRECLS )
624     EQUIVALENCE ( CDIAG(297), CENPREC )
625     EQUIVALENCE ( CDIAG(298), CVISCA4 )
626     EQUIVALENCE ( CDIAG(299), CVISCAH )
627    
628     integer iUFLUX , kUFLUX , nUFLUX
629     integer iVFLUX , kVFLUX , nVFLUX
630     integer iHFLUX , kHFLUX , nHFLUX
631     integer iEFLUX , kEFLUX , nEFLUX
632     integer iQICE , kQICE , nQICE
633     integer iRADLWG , kRADLWG , nRADLWG
634     integer iRADSWG , kRADSWG , nRADSWG
635     integer iRI , kRI , nRI
636     integer iCT , kCT , nCT
637     integer iCU , kCU , nCU
638     integer iKH , kKH , nKH
639     integer iKM , kKM , nKM
640     integer iTURBU , kTURBU , nTURBU
641     integer iTURBV , kTURBV , nTURBV
642     integer iTURBT , kTURBT , nTURBT
643     integer iTURBQ , kTURBQ , nTURBQ
644     integer iMOISTT , kMOISTT , nMOISTT
645     integer iMOISTQ , kMOISTQ , nMOISTQ
646     integer iRADLW , kRADLW , nRADLW
647     integer iRADSW , kRADSW , nRADSW
648     integer iPREACC , kPREACC , nPREACC
649     integer iPRECON , kPRECON , nPRECON
650     integer iTUFLUX , kTUFLUX , nTUFLUX
651     integer iTVFLUX , kTVFLUX , nTVFLUX
652     integer iTTFLUX , kTTFLUX , nTTFLUX
653     integer iTQFLUX , kTQFLUX , nTQFLUX
654     integer iCN , kCN , nCN
655     integer iWINDS , kWINDS , nWINDS
656     integer iDTSRF , kDTSRF , nDTSRF
657     integer iTGROUND , kTGROUND , nTGROUND
658     integer iTS , kTS , nTS
659     integer iDTG , kDTG , nDTG
660     integer iQG , kQG , nQG
661     integer iQS , kQS , nQS
662     integer iTGRLW , kTGRLW , nTGRLW
663     integer iLWGUP , kLWGUP , nLWGUP
664     integer iOLR , kOLR , nOLR
665     integer iOLRCLR , kOLRCLR , nOLRCLR
666     integer iLWGCLR , kLWGCLR , nLWGCLR
667     integer iLWCLR , kLWCLR , nLWCLR
668     integer iTLW , kTLW , nTLW
669     integer iSHRAD , kSHRAD , nSHRAD
670     integer iOZLW , kOZLW , nOZLW
671     integer iCLDRAS , kCLDRAS , nCLDRAS
672     integer iCLDTOT , kCLDTOT , nCLDTOT
673     integer iLWGDOWN , kLWGDOWN , nLWGDOWN
674     integer iGWDT , kGWDT , nGWDT
675     integer iRADSWT , kRADSWT , nRADSWT
676     integer iTAUCLD , kTAUCLD , nTAUCLD
677     integer iTAUCLDC , kTAUCLDC , nTAUCLDC
678     integer iCLDLOW , kCLDLOW , nCLDLOW
679     integer iEVAP , kEVAP , nEVAP
680     integer iDPDT , kDPDT , nDPDT
681     integer iOMEGA , kOMEGA , nOMEGA
682     integer iDUDT , kDUDT , nDUDT
683     integer iDVDT , kDVDT , nDVDT
684     integer iDTDT , kDTDT , nDTDT
685     integer iDQDT , kDQDT , nDQDT
686     integer iVORT , kVORT , nVORT
687     integer iDTLS , kDTLS , nDTLS
688     integer iDQLS , kDQLS , nDQLS
689     integer iUSTAR , kUSTAR , nUSTAR
690     integer iZ0 , kZ0 , nZ0
691     integer iFRQTRB , kFRQTRB , nFRQTRB
692     integer iPBL , kPBL , nPBL
693     integer iSWCLR , kSWCLR , nSWCLR
694     integer iOSR , kOSR , nOSR
695     integer iOSRCLR , kOSRCLR , nOSRCLR
696     integer iCLDMAS , kCLDMAS , nCLDMAS
697     integer iUWND , kUWND , nUWND
698     integer iVWND , kVWND , nVWND
699     integer iTMPU , kTMPU , nTMPU
700     integer iSPHU , kSPHU , nSPHU
701     integer iRFT , kRFT , nRFT
702     integer iPS , kPS , nPS
703     integer iTKE , kTKE , nTKE
704     integer iSWGCLR , kSWGCLR , nSWGCLR
705     integer iSDIAG1 , kSDIAG1 , nSDIAG1
706     integer iSDIAG2 , kSDIAG2 , nSDIAG2
707     integer iUDIAG1 , kUDIAG1 , nUDIAG1
708     integer iUDIAG2 , kUDIAG2 , nUDIAG2
709     integer iDIABU , kDIABU , nDIABU
710     integer iDIABV , kDIABV , nDIABV
711     integer iDIABT , kDIABT , nDIABT
712     integer iDIABQ , kDIABQ , nDIABQ
713     integer iRFU , kRFU , nRFU
714     integer iRFV , kRFV , nRFV
715     integer iGWDU , kGWDU , nGWDU
716     integer iGWDV , kGWDV , nGWDV
717     integer iGWDUS , kGWDUS , nGWDUS
718     integer iGWDVS , kGWDVS , nGWDVS
719     integer iGWDUT , kGWDUT , nGWDUT
720     integer iGWDVT , kGWDVT , nGWDVT
721     integer iLZRAD , kLZRAD , nLZRAD
722     integer iTRBQLIQ , kTRBQLIQ , nTRBQLIQ
723     integer iTRBFCC , kTRBFCC , nTRBFCC
724     integer iSLP , kSLP , nSLP
725     integer iVAVEUQ , kVAVEUQ , nVAVEUQ
726     integer iVAVEVQ , kVAVEVQ , nVAVEVQ
727     integer iVAVEUT , kVAVEUT , nVAVEUT
728     integer iVAVEVT , kVAVEVT , nVAVEVT
729     integer iCLDFRC , kCLDFRC , nCLDFRC
730     integer iTPW , kTPW , nTPW
731     integer iU2M , kU2M , nU2M
732     integer iV2M , kV2M , nV2M
733     integer iT2M , kT2M , nT2M
734     integer iQ2M , kQ2M , nQ2M
735     integer iU10M , kU10M , nU10M
736     integer iV10M , kV10M , nV10M
737     integer iT10M , kT10M , nT10M
738     integer iQ10M , kQ10M , nQ10M
739     integer iDTRAIN , kDTRAIN , nDTRAIN
740     integer iQFILL , kQFILL , nQFILL
741     integer iVAVEQFIL, kVAVEQFIL, nVAVEQFIL
742     integer iSHAPU , kSHAPU , nSHAPU
743     integer iSHAPV , kSHAPV , nSHAPV
744     integer iSHAPT , kSHAPT , nSHAPT
745     integer iSHAPQ , kSHAPQ , nSHAPQ
746     integer iSDIAG3 , kSDIAG3 , nSDIAG3
747     integer iSDIAG4 , kSDIAG4 , nSDIAG4
748     integer iSDIAG5 , kSDIAG5 , nSDIAG5
749     integer iSDIAG6 , kSDIAG6 , nSDIAG6
750     integer iSDIAG7 , kSDIAG7 , nSDIAG7
751     integer iSDIAG8 , kSDIAG8 , nSDIAG8
752     integer iSDIAG9 , kSDIAG9 , nSDIAG9
753     integer iSDIAG10 , kSDIAG10 , nSDIAG10
754     integer iUDIAG3 , kUDIAG3 , nUDIAG3
755     integer iUDIAG4 , kUDIAG4 , nUDIAG4
756     integer iUDIAG5 , kUDIAG5 , nUDIAG5
757     integer iUDIAG6 , kUDIAG6 , nUDIAG6
758     integer iUDIAG7 , kUDIAG7 , nUDIAG7
759     integer iUDIAG8 , kUDIAG8 , nUDIAG8
760     integer iUDIAG9 , kUDIAG9 , nUDIAG9
761     integer iUDIAG10 , kUDIAG10 , nUDIAG10
762     integer iCLDMID , kCLDMID , nCLDMID
763     integer iCLDHI , kCLDHI , nCLDHI
764     integer iTAULOW , kTAULOW , nTAULOW
765     integer iTAUMID , kTAUMID , nTAUMID
766     integer iTAUHI , kTAUHI , nTAUHI
767     integer iCLDNP , kCLDNP , nCLDNP
768     integer iCLDPRS , kCLDPRS , nCLDPRS
769     integer iCTPCNT , kCTPCNT , nCTPCNT
770     integer iCLDTMP , kCLDTMP , nCLDTMP
771     integer iCTTCNT , kCTTCNT , nCTTCNT
772     integer iTAULOWC , kTAULOWC , nTAULOWC
773     integer iTAUMIDC , kTAUMIDC , nTAUMIDC
774     integer iTAUHIC , kTAUHIC , nTAUHIC
775     integer iTCANOPY , kTCANOPY , nTCANOPY
776     integer iTDEEP , kTDEEP , nTDEEP
777     integer iQCANOPY , kQCANOPY , nQCANOPY
778     integer iSMSHAL , kSMSHAL , nSMSHAL
779     integer iSMROOT , kSMROOT , nSMROOT
780     integer iSMDEEP , kSMDEEP , nSMDEEP
781     integer iCAPACITY, kCAPACITY, nCAPACITY
782     integer iSNOW , kSNOW , nSNOW
783     integer iRAINCON , kRAINCON , nRAINCON
784     integer iRAINLSP , kRAINLSP , nRAINLSP
785     integer iSNOWFALL, kSNOWFALL, nSNOWFALL
786     integer iRUNOFF , kRUNOFF , nRUNOFF
787     integer iFWSOIL , kFWSOIL , nFWSOIL
788     integer iGDRAIN , kGDRAIN , nGDRAIN
789     integer iSNOWMELT, kSNOWMELT, nSNOWMELT
790     integer iERESV , kERESV , nERESV
791     integer iESOIL , kESOIL , nESOIL
792     integer iEVEG , kEVEG , nEVEG
793     integer iESNOW , kESNOW , nESNOW
794     integer iPARDF , kPARDF , nPARDF
795     integer iPARDR , kPARDR , nPARDR
796     integer iLAI , kLAI , nLAI
797     integer iGREEN , kGREEN , nGREEN
798     integer iDLWDTC , kDLWDTC , nDLWDTC
799     integer iDHDTC , kDHDTC , nDHDTC
800     integer iDEDTC , kDEDTC , nDEDTC
801     integer iVDTMOIST, kVDTMOIST, nVDTMOIST
802     integer iVDTTURB , kVDTTURB , nVDTTURB
803     integer iVDTRADLW, kVDTRADLW, nVDTRADLW
804     integer iVDTRADSW, kVDTRADSW, nVDTRADSW
805     integer iPSUBCLD , kPSUBCLD , nPSUBCLD
806     integer iPSUBCLDC, kPSUBCLDC, nPSUBCLDC
807     integer iLCL , kLCL , nLCL
808     integer iSDIAGC , kSDIAGC , nSDIAGC
809     integer iSDIAGCC , kSDIAGCC , nSDIAGCC
810    
811     integer iEVPOT , kEVPOT , nEVPOT
812     integer iRHCHECK , kRHCHECK , nRHCHECK
813     integer iDHDQA , kDHDQA , nDHDQA
814     integer iDEDQA , kDEDQA , nDEDQA
815     integer iDTC , kDTC , nDTC
816     integer iDQC , kDQC , nDQC
817     integer iTCDTC , kTCDTC , nTCDTC
818     integer iRADDTC , kRADDTC , nRADDTC
819     integer iSENSDTC , kSENSDTC , nSENSDTC
820     integer iLATDTC , kLATDTC , nLATDTC
821     integer iTDDTC , kTDDTC , nTDDTC
822     integer iQCDTC , kQCDTC , nQCDTC
823     integer iALBEDO , kALBEDO , nALBEDO
824     integer iALBVISDR, kALBVISDR, nALBVISDR
825     integer iALBVISDF, kALBVISDF, nALBVISDF
826     integer iALBNIRDR, kALBNIRDR, nALBNIRDR
827     integer iALBNIRDF, kALBNIRDF, nALBNIRDF
828     integer iTAUAVE , kTAUAVE , nTAUAVE
829     integer iALBEDOC , kALBEDOC , nALBEDOC
830     integer iRHCHECKT, kRHCHECKT, nRHCHECKT
831     integer iRHCHECKQ, kRHCHECKQ, nRHCHECKQ
832     integer iCLDLSP , kCLDLSP , nCLDLSP
833     integer iLZLOW , kLZLOW , nLZLOW
834     integer iLZMID , kLZMID , nLZMID
835     integer iLZHI , kLZHI , nLZHI
836     integer iLZTOT , kLZTOT , nLZTOT
837     integer iCAPE , kCAPE , nCAPE
838     integer iHSUBCL , kHSUBCL , nHSUBCL
839     integer iHSTAR , kHSTAR , nHSTAR
840     integer iCONT , kCONT , nCONT
841     integer iCONQ , kCONQ , nCONQ
842     integer iLST , kLST , nLST
843     integer iLSQ , kLSQ , nLSQ
844     integer iCONEVPT , kCONEVPT , nCONEVPT
845     integer iCONEVPQ , kCONEVPQ , nCONEVPQ
846     integer iLSEVPT , kLSEVPT , nLSEVPT
847     integer iLSEVPQ , kLSEVPQ , nLSEVPQ
848     integer iGWCUMID , kGWCUMID , nGWCUMID
849     integer iGWCVMID , kGWCVMID , nGWCVMID
850     integer iCLDSTD , kCLDSTD , nCLDSTD
851     integer iGWCUBAR , kGWCUBAR , nGWCUBAR
852     integer iGWCVBAR , kGWCVBAR , nGWCVBAR
853     integer iGWCUS , kGWCUS , nGWCUS
854     integer iGWCVS , kGWCVS , nGWCVS
855     integer iGWCU , kGWCU , nGWCU
856     integer iGWCV , kGWCV , nGWCV
857     integer iETAN , kETAN , nETAN
858     integer iETANSQ , kETANSQ , nETANSQ
859     integer iTHETA , kTHETA , nTHETA
860     integer iSALT , kSALT , nSALT
861     integer iUVEL , kUVEL , nUVEL
862     integer iVVEL , kVVEL , nVVEL
863     integer iWVEL , kWVEL , nWVEL
864     integer iTHETASQ , kTHETASQ , nTHETASQ
865     integer iSALTSQ , kSALTSQ , nSALTSQ
866     integer iUVELSQ , kUVELSQ , nUVELSQ
867     integer iVVELSQ , kVVELSQ , nVVELSQ
868     integer iWVELSQ , kWVELSQ , nWVELSQ
869     integer iUVELVVEL, kUVELVVEL, nUVELVVEL
870     integer iUVELMASS, kUVELMASS, nUVELMASS
871     integer iVVELMASS, kVVELMASS, nVVELMASS
872     integer iWVELMASS, kWVELMASS, nWVELMASS
873     integer iUTHMASS , kUTHMASS, nUTHMASS
874     integer iVTHMASS , kVTHMASS, nVTHMASS
875     integer iWTHMASS , kWTHMASS, nWTHMASS
876     integer iUSLTMASS, kUSLTMASS, nUSLTMASS
877     integer iVSLTMASS, kVSLTMASS, nVSLTMASS
878     integer iWSLTMASS, kWSLTMASS, nWSLTMASS
879     integer iUVELTH , kUVELTH, nUVELTH
880     integer iVVELTH , kVVELTH, nVVELTH
881     integer iWVELTH , kWVELTH, nWVELTH
882     integer iUVELSLT , kUVELSLT, nUVELSLT
883     integer iVVELSLT , kVVELSLT, nVVELSLT
884     integer iWVELSLT , kWVELSLT, nWVELSLT
885     integer iUTRAC1 , kUTRAC1, nUTRAC1
886     integer iVTRAC1 , kVTRAC1, nVTRAC1
887     integer iWTRAC1 , kWTRAC1, nWTRAC1
888     integer iUTRAC2 , kUTRAC2, nUTRAC2
889     integer iVTRAC2 , kVTRAC2, nVTRAC2
890     integer iWTRAC2 , kWTRAC2, nWTRAC2
891     integer iUTRAC3 , kUTRAC3, nUTRAC3
892     integer iVTRAC3 , kVTRAC3, nVTRAC3
893     integer iWTRAC3 , kWTRAC3, nWTRAC3
894     integer iUTRAC4 , kUTRAC4, nUTRAC4
895     integer iVTRAC4 , kVTRAC4, nVTRAC4
896     integer iWTRAC4 , kWTRAC4, nWTRAC4
897     integer iUTRAC5 , kUTRAC5, nUTRAC5
898     integer iVTRAC5 , kVTRAC5, nVTRAC5
899     integer iWTRAC5 , kWTRAC5, nWTRAC5
900     integer iTRAC1 , kTRAC1 , nTRAC1
901     integer iTRAC2 , kTRAC2 , nTRAC2
902     integer iTRAC3 , kTRAC3 , nTRAC3
903     integer iTRAC4 , kTRAC4 , nTRAC4
904     integer iTRAC5 , kTRAC5 , nTRAC5
905     integer iDICBIOA , kDICBIOA , nDICBIOA
906     integer iDICCARB , kDICCARB , nDICCARB
907     integer iDICTFLX , kDICTFLX , nDICTFLX
908     integer iDICOFLX , kDICOFLX , nDICOFLX
909     integer iDICCFLX , kDICCFLX , nDICCFLX
910     integer iDICPCO2 , kDICPCO2 , nDICPCO2
911     integer iDICPHAV , kDICPHAV , nDICPHAV
912     integer iDTCONV , kDTCONV , nDTCONV
913     integer iDQCONV , kDQCONV , nDQCONV
914     integer iRELHUM , kRELHUM , nRELHUM
915     integer iPRECLS , kPRECLS , nPRECLS
916     integer iENPREC , kENPREC , nENPREC
917     integer iVISCA4 , kVISCA4 , nVISCA4
918     integer iVISCAH , kVISCAH , nVISCAH
919    
920    
921     c Diagnostic Pointers
922     c -------------------
923     EQUIVALENCE ( IDIAG( 1) , IUFLUX )
924     EQUIVALENCE ( IDIAG( 2) , IVFLUX )
925     EQUIVALENCE ( IDIAG( 3) , IHFLUX )
926     EQUIVALENCE ( IDIAG( 4) , IEFLUX )
927     EQUIVALENCE ( IDIAG( 5) , IQICE )
928     EQUIVALENCE ( IDIAG( 6) , IRADLWG )
929     EQUIVALENCE ( IDIAG( 7) , IRADSWG )
930     EQUIVALENCE ( IDIAG( 8) , IRI )
931     EQUIVALENCE ( IDIAG( 9) , ICT )
932     EQUIVALENCE ( IDIAG(10) , ICU )
933     EQUIVALENCE ( IDIAG(11) , IKH )
934     EQUIVALENCE ( IDIAG(12) , IKM )
935     EQUIVALENCE ( IDIAG(13) , ITURBU )
936     EQUIVALENCE ( IDIAG(14) , ITURBV )
937     EQUIVALENCE ( IDIAG(15) , ITURBT )
938     EQUIVALENCE ( IDIAG(16) , ITURBQ )
939     EQUIVALENCE ( IDIAG(17) , IMOISTT )
940     EQUIVALENCE ( IDIAG(18) , IMOISTQ )
941     EQUIVALENCE ( IDIAG(19) , IRADLW )
942     EQUIVALENCE ( IDIAG(20) , IRADSW )
943     EQUIVALENCE ( IDIAG(21) , IPREACC )
944     EQUIVALENCE ( IDIAG(22) , IPRECON )
945     EQUIVALENCE ( IDIAG(23) , ITUFLUX )
946     EQUIVALENCE ( IDIAG(24) , ITVFLUX )
947     EQUIVALENCE ( IDIAG(25) , ITTFLUX )
948     EQUIVALENCE ( IDIAG(26) , ITQFLUX )
949     EQUIVALENCE ( IDIAG(27) , ICN )
950     EQUIVALENCE ( IDIAG(28) , IWINDS )
951     EQUIVALENCE ( IDIAG(29) , IDTSRF )
952     EQUIVALENCE ( IDIAG(30) , ITGROUND)
953     EQUIVALENCE ( IDIAG(31) , ITS )
954     EQUIVALENCE ( IDIAG(32) , IDTG )
955     EQUIVALENCE ( IDIAG(33) , IQG )
956     EQUIVALENCE ( IDIAG(34) , IQS )
957     EQUIVALENCE ( IDIAG(35) , ITGRLW )
958     EQUIVALENCE ( IDIAG(36) , ILWGUP )
959     EQUIVALENCE ( IDIAG(37) , IOLR )
960     EQUIVALENCE ( IDIAG(38) , IOLRCLR )
961     EQUIVALENCE ( IDIAG(39) , ILWGCLR )
962     EQUIVALENCE ( IDIAG(40) , ILWCLR )
963     EQUIVALENCE ( IDIAG(41) , ITLW )
964     EQUIVALENCE ( IDIAG(42) , ISHRAD )
965     EQUIVALENCE ( IDIAG(43) , IOZLW )
966     EQUIVALENCE ( IDIAG(44) , ICLDRAS )
967     EQUIVALENCE ( IDIAG(45) , ICLDTOT )
968     EQUIVALENCE ( IDIAG(46) , ILWGDOWN)
969     EQUIVALENCE ( IDIAG(47) , IGWDT )
970     EQUIVALENCE ( IDIAG(48) , IRADSWT )
971     EQUIVALENCE ( IDIAG(49) , ITAUCLD )
972     EQUIVALENCE ( IDIAG(50) , ITAUCLDC)
973     EQUIVALENCE ( IDIAG(51) , ICLDLOW )
974     EQUIVALENCE ( IDIAG(52) , IEVAP )
975     EQUIVALENCE ( IDIAG(53) , IDPDT )
976     EQUIVALENCE ( IDIAG(58) , IOMEGA )
977     EQUIVALENCE ( IDIAG(59) , IDUDT )
978     EQUIVALENCE ( IDIAG(60) , IDVDT )
979     EQUIVALENCE ( IDIAG(61) , IDTDT )
980     EQUIVALENCE ( IDIAG(62) , IDQDT )
981     EQUIVALENCE ( IDIAG(63) , IVORT )
982     EQUIVALENCE ( IDIAG(65) , IDTLS )
983     EQUIVALENCE ( IDIAG(66) , IDQLS )
984     EQUIVALENCE ( IDIAG(67) , IUSTAR )
985     EQUIVALENCE ( IDIAG(68) , IZ0 )
986     EQUIVALENCE ( IDIAG(69) , IFRQTRB )
987     EQUIVALENCE ( IDIAG(70) , IPBL )
988     EQUIVALENCE ( IDIAG(71) , ISWCLR )
989     EQUIVALENCE ( IDIAG(72) , IOSR )
990     EQUIVALENCE ( IDIAG(73) , IOSRCLR )
991     EQUIVALENCE ( IDIAG(74) , ICLDMAS )
992     EQUIVALENCE ( IDIAG(75) , IUWND )
993     EQUIVALENCE ( IDIAG(76) , IVWND )
994     EQUIVALENCE ( IDIAG(77) , ITMPU )
995     EQUIVALENCE ( IDIAG(78) , ISPHU )
996     EQUIVALENCE ( IDIAG(79) , IRFT )
997     EQUIVALENCE ( IDIAG(80) , IPS )
998     EQUIVALENCE ( IDIAG(81) , ITKE )
999     EQUIVALENCE ( IDIAG(82) , ISWGCLR )
1000     EQUIVALENCE ( IDIAG(84) , ISDIAG1 )
1001     EQUIVALENCE ( IDIAG(85) , ISDIAG2 )
1002     EQUIVALENCE ( IDIAG(86) , IUDIAG1 )
1003     EQUIVALENCE ( IDIAG(87) , IUDIAG2 )
1004     EQUIVALENCE ( IDIAG(88) , IDIABU )
1005     EQUIVALENCE ( IDIAG(89) , IDIABV )
1006     EQUIVALENCE ( IDIAG(90) , IDIABT )
1007     EQUIVALENCE ( IDIAG(91) , IDIABQ )
1008     EQUIVALENCE ( IDIAG(92) , IRFU )
1009     EQUIVALENCE ( IDIAG(93) , IRFV )
1010     EQUIVALENCE ( IDIAG(94) , IGWDU )
1011     EQUIVALENCE ( IDIAG(95) , IGWDV )
1012     EQUIVALENCE ( IDIAG(96) , IGWDUS )
1013     EQUIVALENCE ( IDIAG(97) , IGWDVS )
1014     EQUIVALENCE ( IDIAG(98) , IGWDUT )
1015     EQUIVALENCE ( IDIAG(99) , IGWDVT )
1016     EQUIVALENCE ( IDIAG(100), ILZRAD )
1017     EQUIVALENCE ( IDIAG(101), ISLP )
1018     EQUIVALENCE ( IDIAG(102), IVAVEUQ )
1019     EQUIVALENCE ( IDIAG(103), IVAVEVQ )
1020     EQUIVALENCE ( IDIAG(104), IVAVEUT )
1021     EQUIVALENCE ( IDIAG(105), IVAVEVT )
1022     EQUIVALENCE ( IDIAG(106), ICLDFRC )
1023     EQUIVALENCE ( IDIAG(107), ITPW )
1024     EQUIVALENCE ( IDIAG(108), IU2M )
1025     EQUIVALENCE ( IDIAG(109), IV2M )
1026     EQUIVALENCE ( IDIAG(110), IT2M )
1027     EQUIVALENCE ( IDIAG(111), IQ2M )
1028     EQUIVALENCE ( IDIAG(112), IU10M )
1029     EQUIVALENCE ( IDIAG(113), IV10M )
1030     EQUIVALENCE ( IDIAG(114), IT10M )
1031     EQUIVALENCE ( IDIAG(115), IQ10M )
1032     EQUIVALENCE ( IDIAG(116), IDTRAIN )
1033     EQUIVALENCE ( IDIAG(117), IQFILL )
1034     EQUIVALENCE ( IDIAG(119), IVAVEQFIL )
1035     EQUIVALENCE ( IDIAG(120), ISHAPU )
1036     EQUIVALENCE ( IDIAG(121), ISHAPV )
1037     EQUIVALENCE ( IDIAG(122), ISHAPT )
1038     EQUIVALENCE ( IDIAG(123), ISHAPQ )
1039     EQUIVALENCE ( IDIAG(124), ISDIAG3 )
1040     EQUIVALENCE ( IDIAG(125), ISDIAG4 )
1041     EQUIVALENCE ( IDIAG(126), ISDIAG5 )
1042     EQUIVALENCE ( IDIAG(127), ISDIAG6 )
1043     EQUIVALENCE ( IDIAG(128), ISDIAG7 )
1044     EQUIVALENCE ( IDIAG(129), ISDIAG8 )
1045     EQUIVALENCE ( IDIAG(130), ISDIAG9 )
1046     EQUIVALENCE ( IDIAG(131), ISDIAG10)
1047     EQUIVALENCE ( IDIAG(132), IUDIAG3 )
1048     EQUIVALENCE ( IDIAG(133), IUDIAG4 )
1049     EQUIVALENCE ( IDIAG(134), IUDIAG5 )
1050     EQUIVALENCE ( IDIAG(135), IUDIAG6 )
1051     EQUIVALENCE ( IDIAG(136), IUDIAG7 )
1052     EQUIVALENCE ( IDIAG(137), IUDIAG8 )
1053     EQUIVALENCE ( IDIAG(138), IUDIAG9 )
1054     EQUIVALENCE ( IDIAG(139), IUDIAG10)
1055     EQUIVALENCE ( IDIAG(140), ICLDMID )
1056     EQUIVALENCE ( IDIAG(141), ICLDHI )
1057     EQUIVALENCE ( IDIAG(142), ITAULOW )
1058     EQUIVALENCE ( IDIAG(143), ITAUMID )
1059     EQUIVALENCE ( IDIAG(144), ITAUHI )
1060     EQUIVALENCE ( IDIAG(145), ICLDNP )
1061     EQUIVALENCE ( IDIAG(146), ICLDPRS )
1062     EQUIVALENCE ( IDIAG(147), ICTPCNT )
1063     EQUIVALENCE ( IDIAG(148), ICLDTMP )
1064     EQUIVALENCE ( IDIAG(149), ICTTCNT )
1065     EQUIVALENCE ( IDIAG(150), ITAULOWC)
1066     EQUIVALENCE ( IDIAG(151), ITAUMIDC)
1067     EQUIVALENCE ( IDIAG(152), ITAUHIC )
1068     EQUIVALENCE ( IDIAG(153), ITCANOPY )
1069     EQUIVALENCE ( IDIAG(154), ITDEEP )
1070     EQUIVALENCE ( IDIAG(155), IQCANOPY )
1071     EQUIVALENCE ( IDIAG(156), ISMSHAL )
1072     EQUIVALENCE ( IDIAG(157), ISMROOT )
1073     EQUIVALENCE ( IDIAG(158), ISMDEEP )
1074     EQUIVALENCE ( IDIAG(159), ICAPACITY )
1075     EQUIVALENCE ( IDIAG(160), ISNOW )
1076     EQUIVALENCE ( IDIAG(161), IRAINCON )
1077     EQUIVALENCE ( IDIAG(162), IRAINLSP )
1078     EQUIVALENCE ( IDIAG(163), ISNOWFALL )
1079     EQUIVALENCE ( IDIAG(164), IRUNOFF )
1080     EQUIVALENCE ( IDIAG(165), IFWSOIL )
1081     EQUIVALENCE ( IDIAG(166), IGDRAIN )
1082     EQUIVALENCE ( IDIAG(167), ISNOWMELT )
1083     EQUIVALENCE ( IDIAG(168), IERESV )
1084     EQUIVALENCE ( IDIAG(169), IESOIL )
1085     EQUIVALENCE ( IDIAG(170), IEVEG )
1086     EQUIVALENCE ( IDIAG(171), IESNOW )
1087     EQUIVALENCE ( IDIAG(172), IPARDF )
1088     EQUIVALENCE ( IDIAG(173), IPARDR )
1089     EQUIVALENCE ( IDIAG(174), ILAI )
1090     EQUIVALENCE ( IDIAG(175), IGREEN )
1091     EQUIVALENCE ( IDIAG(176), IDLWDTC )
1092     EQUIVALENCE ( IDIAG(177), IDHDTC )
1093     EQUIVALENCE ( IDIAG(178), IDEDTC )
1094     EQUIVALENCE ( IDIAG(179), IVDTMOIST )
1095     EQUIVALENCE ( IDIAG(180), IVDTTURB )
1096     EQUIVALENCE ( IDIAG(181), IVDTRADLW )
1097     EQUIVALENCE ( IDIAG(182), IVDTRADSW )
1098     EQUIVALENCE ( IDIAG(184), IPSUBCLD )
1099     EQUIVALENCE ( IDIAG(185), IPSUBCLDC )
1100     EQUIVALENCE ( IDIAG(186), ILCL )
1101     EQUIVALENCE ( IDIAG(187), ISDIAGC )
1102     EQUIVALENCE ( IDIAG(188), ISDIAGCC )
1103    
1104     EQUIVALENCE ( IDIAG(190), IEVPOT )
1105     EQUIVALENCE ( IDIAG(191), IRHCHECK )
1106     EQUIVALENCE ( IDIAG(192), IDHDQA )
1107     EQUIVALENCE ( IDIAG(193), IDEDQA )
1108     EQUIVALENCE ( IDIAG(194), IDTC )
1109     EQUIVALENCE ( IDIAG(195), IDQC )
1110     EQUIVALENCE ( IDIAG(196), ITCDTC )
1111     EQUIVALENCE ( IDIAG(197), IRADDTC )
1112     EQUIVALENCE ( IDIAG(198), ISENSDTC )
1113     EQUIVALENCE ( IDIAG(199), ILATDTC )
1114     EQUIVALENCE ( IDIAG(200), ITDDTC )
1115     EQUIVALENCE ( IDIAG(201), IQCDTC )
1116     EQUIVALENCE ( IDIAG(202), ITRBQLIQ )
1117     EQUIVALENCE ( IDIAG(203), ITRBFCC )
1118     EQUIVALENCE ( IDIAG(204), IALBEDO )
1119     EQUIVALENCE ( IDIAG(205), IALBVISDR )
1120     EQUIVALENCE ( IDIAG(206), IALBVISDF )
1121     EQUIVALENCE ( IDIAG(207), IALBNIRDR )
1122     EQUIVALENCE ( IDIAG(208), IALBNIRDF )
1123     EQUIVALENCE ( IDIAG(209), ITAUAVE )
1124     EQUIVALENCE ( IDIAG(210), IALBEDOC )
1125     EQUIVALENCE ( IDIAG(211), IRHCHECKT )
1126     EQUIVALENCE ( IDIAG(212), IRHCHECKQ )
1127     EQUIVALENCE ( IDIAG(213), ICLDLSP )
1128     EQUIVALENCE ( IDIAG(214), ILZLOW )
1129     EQUIVALENCE ( IDIAG(215), ILZMID )
1130     EQUIVALENCE ( IDIAG(216), ILZHI )
1131     EQUIVALENCE ( IDIAG(217), ILZTOT )
1132     EQUIVALENCE ( IDIAG(218), ICAPE )
1133     EQUIVALENCE ( IDIAG(219), IHSUBCL )
1134     EQUIVALENCE ( IDIAG(220), IHSTAR )
1135     EQUIVALENCE ( IDIAG(221), ICONT )
1136     EQUIVALENCE ( IDIAG(222), ICONQ )
1137     EQUIVALENCE ( IDIAG(223), ILST )
1138     EQUIVALENCE ( IDIAG(224), ILSQ )
1139     EQUIVALENCE ( IDIAG(225), ICONEVPT )
1140     EQUIVALENCE ( IDIAG(226), ICONEVPQ )
1141     EQUIVALENCE ( IDIAG(227), ILSEVPT )
1142     EQUIVALENCE ( IDIAG(228), ILSEVPQ )
1143     EQUIVALENCE ( IDIAG(229), IGWCUMID )
1144     EQUIVALENCE ( IDIAG(230), IGWCVMID )
1145     EQUIVALENCE ( IDIAG(231), ICLDSTD )
1146     EQUIVALENCE ( IDIAG(232), IGWCUBAR )
1147     EQUIVALENCE ( IDIAG(233), IGWCVBAR )
1148     EQUIVALENCE ( IDIAG(234), IGWCUS )
1149     EQUIVALENCE ( IDIAG(235), IGWCVS )
1150     EQUIVALENCE ( IDIAG(236), IGWCU )
1151     EQUIVALENCE ( IDIAG(237), IGWCV )
1152     EQUIVALENCE ( IDIAG(238), IETAN )
1153     EQUIVALENCE ( IDIAG(239), IETANSQ )
1154     EQUIVALENCE ( IDIAG(240), ITHETA )
1155     EQUIVALENCE ( IDIAG(241), ISALT )
1156     EQUIVALENCE ( IDIAG(242), IUVEL )
1157     EQUIVALENCE ( IDIAG(243), IVVEL )
1158     EQUIVALENCE ( IDIAG(244), IWVEL )
1159     EQUIVALENCE ( IDIAG(245), ITHETASQ )
1160     EQUIVALENCE ( IDIAG(246), ISALTSQ )
1161     EQUIVALENCE ( IDIAG(247), IUVELSQ )
1162     EQUIVALENCE ( IDIAG(248), IVVELSQ )
1163     EQUIVALENCE ( IDIAG(249), IWVELSQ )
1164     EQUIVALENCE ( IDIAG(250), IUVELVVEL )
1165     EQUIVALENCE ( IDIAG(251), IUVELMASS )
1166     EQUIVALENCE ( IDIAG(252), IVVELMASS )
1167     EQUIVALENCE ( IDIAG(253), IWVELMASS )
1168     EQUIVALENCE ( IDIAG(254), IUTHMASS )
1169     EQUIVALENCE ( IDIAG(255), IVTHMASS )
1170     EQUIVALENCE ( IDIAG(256), IWTHMASS )
1171     EQUIVALENCE ( IDIAG(257), IUSLTMASS )
1172     EQUIVALENCE ( IDIAG(258), IVSLTMASS )
1173     EQUIVALENCE ( IDIAG(259), IWSLTMASS )
1174     EQUIVALENCE ( IDIAG(260), IUVELTH )
1175     EQUIVALENCE ( IDIAG(261), IVVELTH )
1176     EQUIVALENCE ( IDIAG(262), IWVELTH )
1177     EQUIVALENCE ( IDIAG(263), IUVELSLT )
1178     EQUIVALENCE ( IDIAG(264), IVVELSLT )
1179     EQUIVALENCE ( IDIAG(265), IWVELSLT )
1180     EQUIVALENCE ( IDIAG(266), IUTRAC1 )
1181     EQUIVALENCE ( IDIAG(267), IVTRAC1 )
1182     EQUIVALENCE ( IDIAG(268), IWTRAC1 )
1183     EQUIVALENCE ( IDIAG(269), IUTRAC2 )
1184     EQUIVALENCE ( IDIAG(270), IVTRAC2 )
1185     EQUIVALENCE ( IDIAG(271), IWTRAC2 )
1186     EQUIVALENCE ( IDIAG(272), IUTRAC3 )
1187     EQUIVALENCE ( IDIAG(273), IVTRAC3 )
1188     EQUIVALENCE ( IDIAG(274), IWTRAC3 )
1189     EQUIVALENCE ( IDIAG(275), IUTRAC4 )
1190     EQUIVALENCE ( IDIAG(276), IVTRAC4 )
1191     EQUIVALENCE ( IDIAG(277), IWTRAC4 )
1192     EQUIVALENCE ( IDIAG(278), IUTRAC5 )
1193     EQUIVALENCE ( IDIAG(279), IVTRAC5 )
1194     EQUIVALENCE ( IDIAG(280), IWTRAC5 )
1195     EQUIVALENCE ( IDIAG(281), ITRAC1 )
1196     EQUIVALENCE ( IDIAG(282), ITRAC2 )
1197     EQUIVALENCE ( IDIAG(283), ITRAC3 )
1198     EQUIVALENCE ( IDIAG(284), ITRAC4 )
1199     EQUIVALENCE ( IDIAG(285), ITRAC5 )
1200     EQUIVALENCE ( IDIAG(286), IDICBIOA )
1201     EQUIVALENCE ( IDIAG(287), IDICCARB )
1202     EQUIVALENCE ( IDIAG(288), IDICTFLX )
1203     EQUIVALENCE ( IDIAG(289), IDICOFLX )
1204     EQUIVALENCE ( IDIAG(290), IDICCFLX )
1205     EQUIVALENCE ( IDIAG(291), IDICPCO2 )
1206     EQUIVALENCE ( IDIAG(292), IDICPHAV )
1207     EQUIVALENCE ( IDIAG(293), IDTCONV )
1208     EQUIVALENCE ( IDIAG(294), IDQCONV )
1209     EQUIVALENCE ( IDIAG(295), IRELHUM )
1210     EQUIVALENCE ( IDIAG(296), IPRECLS )
1211     EQUIVALENCE ( IDIAG(297), IENPREC )
1212     EQUIVALENCE ( IDIAG(298), IVISCA4 )
1213     EQUIVALENCE ( IDIAG(299), IVISCAH )
1214    
1215    
1216     c Diagnostic Levels
1217     c -----------------
1218     EQUIVALENCE ( KDIAG( 1) , KUFLUX )
1219     EQUIVALENCE ( KDIAG( 2) , KVFLUX )
1220     EQUIVALENCE ( KDIAG( 3) , KHFLUX )
1221     EQUIVALENCE ( KDIAG( 4) , KEFLUX )
1222     EQUIVALENCE ( KDIAG( 5) , KQICE )
1223     EQUIVALENCE ( KDIAG( 6) , KRADLWG )
1224     EQUIVALENCE ( KDIAG( 7) , KRADSWG )
1225     EQUIVALENCE ( KDIAG( 8) , KRI )
1226     EQUIVALENCE ( KDIAG( 9) , KCT )
1227     EQUIVALENCE ( KDIAG(10) , KCU )
1228     EQUIVALENCE ( KDIAG(11) , KKH )
1229     EQUIVALENCE ( KDIAG(12) , KKM )
1230     EQUIVALENCE ( KDIAG(13) , KTURBU )
1231     EQUIVALENCE ( KDIAG(14) , KTURBV )
1232     EQUIVALENCE ( KDIAG(15) , KTURBT )
1233     EQUIVALENCE ( KDIAG(16) , KTURBQ )
1234     EQUIVALENCE ( KDIAG(17) , KMOISTT )
1235     EQUIVALENCE ( KDIAG(18) , KMOISTQ )
1236     EQUIVALENCE ( KDIAG(19) , KRADLW )
1237     EQUIVALENCE ( KDIAG(20) , KRADSW )
1238     EQUIVALENCE ( KDIAG(21) , KPREACC )
1239     EQUIVALENCE ( KDIAG(22) , KPRECON )
1240     EQUIVALENCE ( KDIAG(23) , KTUFLUX )
1241     EQUIVALENCE ( KDIAG(24) , KTVFLUX )
1242     EQUIVALENCE ( KDIAG(25) , KTTFLUX )
1243     EQUIVALENCE ( KDIAG(26) , KTQFLUX )
1244     EQUIVALENCE ( KDIAG(27) , KCN )
1245     EQUIVALENCE ( KDIAG(28) , KWINDS )
1246     EQUIVALENCE ( KDIAG(29) , KDTSRF )
1247     EQUIVALENCE ( KDIAG(30) , KTGROUND)
1248     EQUIVALENCE ( KDIAG(31) , KTS )
1249     EQUIVALENCE ( KDIAG(32) , KDTG )
1250     EQUIVALENCE ( KDIAG(33) , KQG )
1251     EQUIVALENCE ( KDIAG(34) , KQS )
1252     EQUIVALENCE ( KDIAG(35) , KTGRLW )
1253     EQUIVALENCE ( KDIAG(36) , KLWGUP )
1254     EQUIVALENCE ( KDIAG(37) , KOLR )
1255     EQUIVALENCE ( KDIAG(38) , KOLRCLR )
1256     EQUIVALENCE ( KDIAG(39) , KLWGCLR )
1257     EQUIVALENCE ( KDIAG(40) , KLWCLR )
1258     EQUIVALENCE ( KDIAG(41) , KTLW )
1259     EQUIVALENCE ( KDIAG(42) , KSHRAD )
1260     EQUIVALENCE ( KDIAG(43) , KOZLW )
1261     EQUIVALENCE ( KDIAG(44) , KCLDRAS )
1262     EQUIVALENCE ( KDIAG(45) , KCLDTOT )
1263     EQUIVALENCE ( KDIAG(46) , KLWGDOWN)
1264     EQUIVALENCE ( KDIAG(47) , KGWDT )
1265     EQUIVALENCE ( KDIAG(48) , KRADSWT )
1266     EQUIVALENCE ( KDIAG(49) , KTAUCLD )
1267     EQUIVALENCE ( KDIAG(50) , KTAUCLDC)
1268     EQUIVALENCE ( KDIAG(51) , KCLDLOW )
1269     EQUIVALENCE ( KDIAG(52) , KEVAP )
1270     EQUIVALENCE ( KDIAG(53) , KDPDT )
1271     EQUIVALENCE ( KDIAG(58) , KOMEGA )
1272     EQUIVALENCE ( KDIAG(59) , KDUDT )
1273     EQUIVALENCE ( KDIAG(60) , KDVDT )
1274     EQUIVALENCE ( KDIAG(61) , KDTDT )
1275     EQUIVALENCE ( KDIAG(62) , KDQDT )
1276     EQUIVALENCE ( KDIAG(63) , KVORT )
1277     EQUIVALENCE ( KDIAG(65) , KDTLS )
1278     EQUIVALENCE ( KDIAG(66) , KDQLS )
1279     EQUIVALENCE ( KDIAG(67) , KUSTAR )
1280     EQUIVALENCE ( KDIAG(68) , KZ0 )
1281     EQUIVALENCE ( KDIAG(69) , KFRQTRB )
1282     EQUIVALENCE ( KDIAG(70) , KPBL )
1283     EQUIVALENCE ( KDIAG(71) , KSWCLR )
1284     EQUIVALENCE ( KDIAG(72) , KOSR )
1285     EQUIVALENCE ( KDIAG(73) , KOSRCLR )
1286     EQUIVALENCE ( KDIAG(74) , KCLDMAS )
1287     EQUIVALENCE ( KDIAG(75) , KUWND )
1288     EQUIVALENCE ( KDIAG(76) , KVWND )
1289     EQUIVALENCE ( KDIAG(77) , KTMPU )
1290     EQUIVALENCE ( KDIAG(78) , KSPHU )
1291     EQUIVALENCE ( KDIAG(79) , KRFT )
1292     EQUIVALENCE ( KDIAG(80) , KPS )
1293     EQUIVALENCE ( KDIAG(81) , KTKE )
1294     EQUIVALENCE ( KDIAG(82) , KSWGCLR )
1295     EQUIVALENCE ( KDIAG(84) , KSDIAG1 )
1296     EQUIVALENCE ( KDIAG(85) , KSDIAG2 )
1297     EQUIVALENCE ( KDIAG(86) , KUDIAG1 )
1298     EQUIVALENCE ( KDIAG(87) , KUDIAG2 )
1299     EQUIVALENCE ( KDIAG(88) , KDIABU )
1300     EQUIVALENCE ( KDIAG(89) , KDIABV )
1301     EQUIVALENCE ( KDIAG(90) , KDIABT )
1302     EQUIVALENCE ( KDIAG(91) , KDIABQ )
1303     EQUIVALENCE ( KDIAG(92) , KRFU )
1304     EQUIVALENCE ( KDIAG(93) , KRFV )
1305     EQUIVALENCE ( KDIAG(94) , KGWDU )
1306     EQUIVALENCE ( KDIAG(95) , KGWDV )
1307     EQUIVALENCE ( KDIAG(96) , KGWDUS )
1308     EQUIVALENCE ( KDIAG(97) , KGWDVS )
1309     EQUIVALENCE ( KDIAG(98) , KGWDUT )
1310     EQUIVALENCE ( KDIAG(99) , KGWDVT )
1311     EQUIVALENCE ( KDIAG(100), KLZRAD )
1312     EQUIVALENCE ( KDIAG(101), KSLP )
1313     EQUIVALENCE ( KDIAG(102), KVAVEUQ )
1314     EQUIVALENCE ( KDIAG(103), KVAVEVQ )
1315     EQUIVALENCE ( KDIAG(104), KVAVEUT )
1316     EQUIVALENCE ( KDIAG(105), KVAVEVT )
1317     EQUIVALENCE ( KDIAG(106), KCLDFRC )
1318     EQUIVALENCE ( KDIAG(107), KTPW )
1319     EQUIVALENCE ( KDIAG(108), KU2M )
1320     EQUIVALENCE ( KDIAG(109), KV2M )
1321     EQUIVALENCE ( KDIAG(110), KT2M )
1322     EQUIVALENCE ( KDIAG(111), KQ2M )
1323     EQUIVALENCE ( KDIAG(112), KU10M )
1324     EQUIVALENCE ( KDIAG(113), KV10M )
1325     EQUIVALENCE ( KDIAG(114), KT10M )
1326     EQUIVALENCE ( KDIAG(115), KQ10M )
1327     EQUIVALENCE ( KDIAG(116), KDTRAIN )
1328     EQUIVALENCE ( KDIAG(117), KQFILL )
1329     EQUIVALENCE ( KDIAG(119), KVAVEQFIL )
1330     EQUIVALENCE ( KDIAG(120), KSHAPU )
1331     EQUIVALENCE ( KDIAG(121), KSHAPV )
1332     EQUIVALENCE ( KDIAG(122), KSHAPT )
1333     EQUIVALENCE ( KDIAG(123), KSHAPQ )
1334     EQUIVALENCE ( KDIAG(124), KSDIAG3 )
1335     EQUIVALENCE ( KDIAG(125), KSDIAG4 )
1336     EQUIVALENCE ( KDIAG(126), KSDIAG5 )
1337     EQUIVALENCE ( KDIAG(127), KSDIAG6 )
1338     EQUIVALENCE ( KDIAG(128), KSDIAG7 )
1339     EQUIVALENCE ( KDIAG(129), KSDIAG8 )
1340     EQUIVALENCE ( KDIAG(130), KSDIAG9 )
1341     EQUIVALENCE ( KDIAG(131), KSDIAG10)
1342     EQUIVALENCE ( KDIAG(132), KUDIAG3 )
1343     EQUIVALENCE ( KDIAG(133), KUDIAG4 )
1344     EQUIVALENCE ( KDIAG(134), KUDIAG5 )
1345     EQUIVALENCE ( KDIAG(135), KUDIAG6 )
1346     EQUIVALENCE ( KDIAG(136), KUDIAG7 )
1347     EQUIVALENCE ( KDIAG(137), KUDIAG8 )
1348     EQUIVALENCE ( KDIAG(138), KUDIAG9 )
1349     EQUIVALENCE ( KDIAG(139), KUDIAG10)
1350     EQUIVALENCE ( KDIAG(140), KCLDMID )
1351     EQUIVALENCE ( KDIAG(141), KCLDHI )
1352     EQUIVALENCE ( KDIAG(142), KTAULOW )
1353     EQUIVALENCE ( KDIAG(143), KTAUMID )
1354     EQUIVALENCE ( KDIAG(144), KTAUHI )
1355     EQUIVALENCE ( KDIAG(145), KCLDNP )
1356     EQUIVALENCE ( KDIAG(146), KCLDPRS )
1357     EQUIVALENCE ( KDIAG(147), KCTPCNT )
1358     EQUIVALENCE ( KDIAG(148), KCLDTMP )
1359     EQUIVALENCE ( KDIAG(149), KCTTCNT )
1360     EQUIVALENCE ( KDIAG(150), KTAULOWC)
1361     EQUIVALENCE ( KDIAG(151), KTAUMIDC)
1362     EQUIVALENCE ( KDIAG(152), KTAUHIC )
1363     EQUIVALENCE ( KDIAG(153), KTCANOPY )
1364     EQUIVALENCE ( KDIAG(154), KTDEEP )
1365     EQUIVALENCE ( KDIAG(155), KQCANOPY )
1366     EQUIVALENCE ( KDIAG(156), KSMSHAL )
1367     EQUIVALENCE ( KDIAG(157), KSMROOT )
1368     EQUIVALENCE ( KDIAG(158), KSMDEEP )
1369     EQUIVALENCE ( KDIAG(159), KCAPACITY )
1370     EQUIVALENCE ( KDIAG(160), KSNOW )
1371     EQUIVALENCE ( KDIAG(161), KRAINCON )
1372     EQUIVALENCE ( KDIAG(162), KRAINLSP )
1373     EQUIVALENCE ( KDIAG(163), KSNOWFALL )
1374     EQUIVALENCE ( KDIAG(164), KRUNOFF )
1375     EQUIVALENCE ( KDIAG(165), KFWSOIL )
1376     EQUIVALENCE ( KDIAG(166), KGDRAIN )
1377     EQUIVALENCE ( KDIAG(167), KSNOWMELT )
1378     EQUIVALENCE ( KDIAG(168), KERESV )
1379     EQUIVALENCE ( KDIAG(169), KESOIL )
1380     EQUIVALENCE ( KDIAG(170), KEVEG )
1381     EQUIVALENCE ( KDIAG(171), KESNOW )
1382     EQUIVALENCE ( KDIAG(172), KPARDF )
1383     EQUIVALENCE ( KDIAG(173), KPARDR )
1384     EQUIVALENCE ( KDIAG(174), KLAI )
1385     EQUIVALENCE ( KDIAG(175), KGREEN )
1386     EQUIVALENCE ( KDIAG(176), KDLWDTC )
1387     EQUIVALENCE ( KDIAG(177), KDHDTC )
1388     EQUIVALENCE ( KDIAG(178), KDEDTC )
1389     EQUIVALENCE ( KDIAG(179), KVDTMOIST )
1390     EQUIVALENCE ( KDIAG(180), KVDTTURB )
1391     EQUIVALENCE ( KDIAG(181), KVDTRADLW )
1392     EQUIVALENCE ( KDIAG(182), KVDTRADSW )
1393     EQUIVALENCE ( KDIAG(184), KPSUBCLD )
1394     EQUIVALENCE ( KDIAG(185), KPSUBCLDC )
1395     EQUIVALENCE ( KDIAG(186), KLCL )
1396     EQUIVALENCE ( KDIAG(187), KSDIAGC )
1397     EQUIVALENCE ( KDIAG(188), KSDIAGCC )
1398    
1399     EQUIVALENCE ( KDIAG(190), KEVPOT )
1400     EQUIVALENCE ( KDIAG(191), KRHCHECK )
1401     EQUIVALENCE ( KDIAG(192), KDHDQA )
1402     EQUIVALENCE ( KDIAG(193), KDEDQA )
1403     EQUIVALENCE ( KDIAG(194), KDTC )
1404     EQUIVALENCE ( KDIAG(195), KDQC )
1405     EQUIVALENCE ( KDIAG(196), KTCDTC )
1406     EQUIVALENCE ( KDIAG(197), KRADDTC )
1407     EQUIVALENCE ( KDIAG(198), KSENSDTC )
1408     EQUIVALENCE ( KDIAG(199), KLATDTC )
1409     EQUIVALENCE ( KDIAG(200), KTDDTC )
1410     EQUIVALENCE ( KDIAG(201), KQCDTC )
1411     EQUIVALENCE ( KDIAG(202), KTRBQLIQ )
1412     EQUIVALENCE ( KDIAG(203), KTRBFCC )
1413     EQUIVALENCE ( KDIAG(204), KALBEDO )
1414     EQUIVALENCE ( KDIAG(205), KALBVISDR )
1415     EQUIVALENCE ( KDIAG(206), KALBVISDF )
1416     EQUIVALENCE ( KDIAG(207), KALBNIRDR )
1417     EQUIVALENCE ( KDIAG(208), KALBNIRDF )
1418     EQUIVALENCE ( KDIAG(209), KTAUAVE )
1419     EQUIVALENCE ( KDIAG(210), KALBEDOC )
1420     EQUIVALENCE ( KDIAG(211), KRHCHECKT )
1421     EQUIVALENCE ( KDIAG(212), KRHCHECKQ )
1422     EQUIVALENCE ( KDIAG(213), KCLDLSP )
1423     EQUIVALENCE ( KDIAG(214), KLZLOW )
1424     EQUIVALENCE ( KDIAG(215), KLZMID )
1425     EQUIVALENCE ( KDIAG(216), KLZHI )
1426     EQUIVALENCE ( KDIAG(217), KLZTOT )
1427     EQUIVALENCE ( KDIAG(218), KCAPE )
1428     EQUIVALENCE ( KDIAG(219), KHSUBCL )
1429     EQUIVALENCE ( KDIAG(220), KHSTAR )
1430     EQUIVALENCE ( KDIAG(221), KCONT )
1431     EQUIVALENCE ( KDIAG(222), KCONQ )
1432     EQUIVALENCE ( KDIAG(223), KLST )
1433     EQUIVALENCE ( KDIAG(224), KLSQ )
1434     EQUIVALENCE ( KDIAG(225), KCONEVPT )
1435     EQUIVALENCE ( KDIAG(226), KCONEVPQ )
1436     EQUIVALENCE ( KDIAG(227), KLSEVPT )
1437     EQUIVALENCE ( KDIAG(228), KLSEVPQ )
1438     EQUIVALENCE ( KDIAG(229), KGWCUMID )
1439     EQUIVALENCE ( KDIAG(230), KGWCVMID )
1440     EQUIVALENCE ( KDIAG(231), KCLDSTD )
1441     EQUIVALENCE ( KDIAG(232), KGWCUBAR )
1442     EQUIVALENCE ( KDIAG(233), KGWCVBAR )
1443     EQUIVALENCE ( KDIAG(234), KGWCUS )
1444     EQUIVALENCE ( KDIAG(235), KGWCVS )
1445     EQUIVALENCE ( KDIAG(236), KGWCU )
1446     EQUIVALENCE ( KDIAG(237), KGWCV )
1447     EQUIVALENCE ( KDIAG(238), KETAN )
1448     EQUIVALENCE ( KDIAG(239), KETANSQ )
1449     EQUIVALENCE ( KDIAG(240), KTHETA )
1450     EQUIVALENCE ( KDIAG(241), KSALT )
1451     EQUIVALENCE ( KDIAG(242), KUVEL )
1452     EQUIVALENCE ( KDIAG(243), KVVEL )
1453     EQUIVALENCE ( KDIAG(244), KWVEL )
1454     EQUIVALENCE ( KDIAG(245), KTHETASQ )
1455     EQUIVALENCE ( KDIAG(246), KSALTSQ )
1456     EQUIVALENCE ( KDIAG(247), KUVELSQ )
1457     EQUIVALENCE ( KDIAG(248), KVVELSQ )
1458     EQUIVALENCE ( KDIAG(249), KWVELSQ )
1459     EQUIVALENCE ( KDIAG(250), KUVELVVEL )
1460     EQUIVALENCE ( KDIAG(251), KUVELMASS )
1461     EQUIVALENCE ( KDIAG(252), KVVELMASS )
1462     EQUIVALENCE ( KDIAG(253), KWVELMASS )
1463     EQUIVALENCE ( KDIAG(254), KUTHMASS )
1464     EQUIVALENCE ( KDIAG(255), KVTHMASS )
1465     EQUIVALENCE ( KDIAG(256), KWTHMASS )
1466     EQUIVALENCE ( KDIAG(257), KUSLTMASS )
1467     EQUIVALENCE ( KDIAG(258), KVSLTMASS )
1468     EQUIVALENCE ( KDIAG(259), KWSLTMASS )
1469     EQUIVALENCE ( KDIAG(260), KUVELTH )
1470     EQUIVALENCE ( KDIAG(261), KVVELTH )
1471     EQUIVALENCE ( KDIAG(262), KWVELTH )
1472     EQUIVALENCE ( KDIAG(263), KUVELSLT )
1473     EQUIVALENCE ( KDIAG(264), KVVELSLT )
1474     EQUIVALENCE ( KDIAG(265), KWVELSLT )
1475     EQUIVALENCE ( KDIAG(266), KUTRAC1 )
1476     EQUIVALENCE ( KDIAG(267), KVTRAC1 )
1477     EQUIVALENCE ( KDIAG(268), KWTRAC1 )
1478     EQUIVALENCE ( KDIAG(269), KUTRAC2 )
1479     EQUIVALENCE ( KDIAG(270), KVTRAC2 )
1480     EQUIVALENCE ( KDIAG(271), KWTRAC2 )
1481     EQUIVALENCE ( KDIAG(272), KUTRAC3 )
1482     EQUIVALENCE ( KDIAG(273), KVTRAC3 )
1483     EQUIVALENCE ( KDIAG(274), KWTRAC3 )
1484     EQUIVALENCE ( KDIAG(275), KUTRAC4 )
1485     EQUIVALENCE ( KDIAG(276), KVTRAC4 )
1486     EQUIVALENCE ( KDIAG(277), KWTRAC4 )
1487     EQUIVALENCE ( KDIAG(278), KUTRAC5 )
1488     EQUIVALENCE ( KDIAG(279), KVTRAC5 )
1489     EQUIVALENCE ( KDIAG(280), KWTRAC5 )
1490     EQUIVALENCE ( KDIAG(281), KTRAC1 )
1491     EQUIVALENCE ( KDIAG(282), KTRAC2 )
1492     EQUIVALENCE ( KDIAG(283), KTRAC3 )
1493     EQUIVALENCE ( KDIAG(284), KTRAC4 )
1494     EQUIVALENCE ( KDIAG(285), KTRAC5 )
1495     EQUIVALENCE ( KDIAG(286), KDICBIOA )
1496     EQUIVALENCE ( KDIAG(287), KDICCARB )
1497     EQUIVALENCE ( KDIAG(288), KDICTFLX )
1498     EQUIVALENCE ( KDIAG(289), KDICOFLX )
1499     EQUIVALENCE ( KDIAG(290), KDICCFLX )
1500     EQUIVALENCE ( KDIAG(291), KDICPCO2 )
1501     EQUIVALENCE ( KDIAG(292), KDICPHAV )
1502     EQUIVALENCE ( KDIAG(293), KDTCONV )
1503     EQUIVALENCE ( KDIAG(294), KDQCONV )
1504     EQUIVALENCE ( KDIAG(295), KRELHUM )
1505     EQUIVALENCE ( KDIAG(296), KPRECLS )
1506     EQUIVALENCE ( KDIAG(297), KENPREC )
1507     EQUIVALENCE ( KDIAG(298), KVISCA4 )
1508     EQUIVALENCE ( KDIAG(299), KVISCAH )
1509    
1510    
1511     c Diagnostic Counters
1512     c -------------------
1513     EQUIVALENCE ( NDIAG( 1) , NUFLUX )
1514     EQUIVALENCE ( NDIAG( 2) , NVFLUX )
1515     EQUIVALENCE ( NDIAG( 3) , NHFLUX )
1516     EQUIVALENCE ( NDIAG( 4) , NEFLUX )
1517     EQUIVALENCE ( NDIAG( 5) , NQICE )
1518     EQUIVALENCE ( NDIAG( 6) , NRADLWG )
1519     EQUIVALENCE ( NDIAG( 7) , NRADSWG )
1520     EQUIVALENCE ( NDIAG( 8) , NRI )
1521     EQUIVALENCE ( NDIAG( 9) , NCT )
1522     EQUIVALENCE ( NDIAG(10) , NCU )
1523     EQUIVALENCE ( NDIAG(11) , NKH )
1524     EQUIVALENCE ( NDIAG(12) , NKM )
1525     EQUIVALENCE ( NDIAG(13) , NTURBU )
1526     EQUIVALENCE ( NDIAG(14) , NTURBV )
1527     EQUIVALENCE ( NDIAG(15) , NTURBT )
1528     EQUIVALENCE ( NDIAG(16) , NTURBQ )
1529     EQUIVALENCE ( NDIAG(17) , NMOISTT )
1530     EQUIVALENCE ( NDIAG(18) , NMOISTQ )
1531     EQUIVALENCE ( NDIAG(19) , NRADLW )
1532     EQUIVALENCE ( NDIAG(20) , NRADSW )
1533     EQUIVALENCE ( NDIAG(21) , NPREACC )
1534     EQUIVALENCE ( NDIAG(22) , NPRECON )
1535     EQUIVALENCE ( NDIAG(23) , NTUFLUX )
1536     EQUIVALENCE ( NDIAG(24) , NTVFLUX )
1537     EQUIVALENCE ( NDIAG(25) , NTTFLUX )
1538     EQUIVALENCE ( NDIAG(26) , NTQFLUX )
1539     EQUIVALENCE ( NDIAG(27) , NCN )
1540     EQUIVALENCE ( NDIAG(28) , NWINDS )
1541     EQUIVALENCE ( NDIAG(29) , NDTSRF )
1542     EQUIVALENCE ( NDIAG(30) , NTGROUND)
1543     EQUIVALENCE ( NDIAG(31) , NTS )
1544     EQUIVALENCE ( NDIAG(32) , NDTG )
1545     EQUIVALENCE ( NDIAG(33) , NQG )
1546     EQUIVALENCE ( NDIAG(34) , NQS )
1547     EQUIVALENCE ( NDIAG(35) , NTGRLW )
1548     EQUIVALENCE ( NDIAG(36) , NLWGUP )
1549     EQUIVALENCE ( NDIAG(37) , NOLR )
1550     EQUIVALENCE ( NDIAG(38) , NOLRCLR )
1551     EQUIVALENCE ( NDIAG(39) , NLWGCLR )
1552     EQUIVALENCE ( NDIAG(40) , NLWCLR )
1553     EQUIVALENCE ( NDIAG(41) , NTLW )
1554     EQUIVALENCE ( NDIAG(42) , NSHRAD )
1555     EQUIVALENCE ( NDIAG(43) , NOZLW )
1556     EQUIVALENCE ( NDIAG(44) , NCLDRAS )
1557     EQUIVALENCE ( NDIAG(45) , NCLDTOT )
1558     EQUIVALENCE ( NDIAG(46) , NLWGDOWN)
1559     EQUIVALENCE ( NDIAG(47) , NGWDT )
1560     EQUIVALENCE ( NDIAG(48) , NRADSWT )
1561     EQUIVALENCE ( NDIAG(49) , NTAUCLD )
1562     EQUIVALENCE ( NDIAG(50) , NTAUCLDC)
1563     EQUIVALENCE ( NDIAG(51) , NCLDLOW )
1564     EQUIVALENCE ( NDIAG(52) , NEVAP )
1565     EQUIVALENCE ( NDIAG(53) , NDPDT )
1566     EQUIVALENCE ( NDIAG(58) , NOMEGA )
1567     EQUIVALENCE ( NDIAG(59) , NDUDT )
1568     EQUIVALENCE ( NDIAG(60) , NDVDT )
1569     EQUIVALENCE ( NDIAG(61) , NDTDT )
1570     EQUIVALENCE ( NDIAG(62) , NDQDT )
1571     EQUIVALENCE ( NDIAG(63) , NVORT )
1572     EQUIVALENCE ( NDIAG(65) , NDTLS )
1573     EQUIVALENCE ( NDIAG(66) , NDQLS )
1574     EQUIVALENCE ( NDIAG(67) , NUSTAR )
1575     EQUIVALENCE ( NDIAG(68) , NZ0 )
1576     EQUIVALENCE ( NDIAG(69) , NFRQTRB )
1577     EQUIVALENCE ( NDIAG(70) , NPBL )
1578     EQUIVALENCE ( NDIAG(71) , NSWCLR )
1579     EQUIVALENCE ( NDIAG(72) , NOSR )
1580     EQUIVALENCE ( NDIAG(73) , NOSRCLR )
1581     EQUIVALENCE ( NDIAG(74) , NCLDMAS )
1582     EQUIVALENCE ( NDIAG(75) , NUWND )
1583     EQUIVALENCE ( NDIAG(76) , NVWND )
1584     EQUIVALENCE ( NDIAG(77) , NTMPU )
1585     EQUIVALENCE ( NDIAG(78) , NSPHU )
1586     EQUIVALENCE ( NDIAG(79) , NRFT )
1587     EQUIVALENCE ( NDIAG(80) , NPS )
1588     EQUIVALENCE ( NDIAG(81) , NTKE )
1589     EQUIVALENCE ( NDIAG(82) , NSWGCLR )
1590     EQUIVALENCE ( NDIAG(84) , NSDIAG1 )
1591     EQUIVALENCE ( NDIAG(85) , NSDIAG2 )
1592     EQUIVALENCE ( NDIAG(86) , NUDIAG1 )
1593     EQUIVALENCE ( NDIAG(87) , NUDIAG2 )
1594     EQUIVALENCE ( NDIAG(88) , NDIABU )
1595     EQUIVALENCE ( NDIAG(89) , NDIABV )
1596     EQUIVALENCE ( NDIAG(90) , NDIABT )
1597     EQUIVALENCE ( NDIAG(91) , NDIABQ )
1598     EQUIVALENCE ( NDIAG(92) , NRFU )
1599     EQUIVALENCE ( NDIAG(93) , NRFV )
1600     EQUIVALENCE ( NDIAG(94) , NGWDU )
1601     EQUIVALENCE ( NDIAG(95) , NGWDV )
1602     EQUIVALENCE ( NDIAG(96) , NGWDUS )
1603     EQUIVALENCE ( NDIAG(97) , NGWDVS )
1604     EQUIVALENCE ( NDIAG(98) , NGWDUT )
1605     EQUIVALENCE ( NDIAG(99) , NGWDVT )
1606     EQUIVALENCE ( NDIAG(100), NLZRAD )
1607     EQUIVALENCE ( NDIAG(101), NSLP )
1608     EQUIVALENCE ( NDIAG(102), NVAVEUQ )
1609     EQUIVALENCE ( NDIAG(103), NVAVEVQ )
1610     EQUIVALENCE ( NDIAG(104), NVAVEUT )
1611     EQUIVALENCE ( NDIAG(105), NVAVEVT )
1612     EQUIVALENCE ( NDIAG(106), NCLDFRC )
1613     EQUIVALENCE ( NDIAG(107), NTPW )
1614     EQUIVALENCE ( NDIAG(108), NU2M )
1615     EQUIVALENCE ( NDIAG(109), NV2M )
1616     EQUIVALENCE ( NDIAG(110), NT2M )
1617     EQUIVALENCE ( NDIAG(111), NQ2M )
1618     EQUIVALENCE ( NDIAG(112), NU10M )
1619     EQUIVALENCE ( NDIAG(113), NV10M )
1620     EQUIVALENCE ( NDIAG(114), NT10M )
1621     EQUIVALENCE ( NDIAG(115), NQ10M )
1622     EQUIVALENCE ( NDIAG(116), NDTRAIN )
1623     EQUIVALENCE ( NDIAG(117), NQFILL )
1624     EQUIVALENCE ( NDIAG(119), NVAVEQFIL )
1625     EQUIVALENCE ( NDIAG(120), NSHAPU )
1626     EQUIVALENCE ( NDIAG(121), NSHAPV )
1627     EQUIVALENCE ( NDIAG(122), NSHAPT )
1628     EQUIVALENCE ( NDIAG(123), NSHAPQ )
1629     EQUIVALENCE ( NDIAG(124), NSDIAG3 )
1630     EQUIVALENCE ( NDIAG(125), NSDIAG4 )
1631     EQUIVALENCE ( NDIAG(126), NSDIAG5 )
1632     EQUIVALENCE ( NDIAG(127), NSDIAG6 )
1633     EQUIVALENCE ( NDIAG(128), NSDIAG7 )
1634     EQUIVALENCE ( NDIAG(129), NSDIAG8 )
1635     EQUIVALENCE ( NDIAG(130), NSDIAG9 )
1636     EQUIVALENCE ( NDIAG(131), NSDIAG10)
1637     EQUIVALENCE ( NDIAG(132), NUDIAG3 )
1638     EQUIVALENCE ( NDIAG(133), NUDIAG4 )
1639     EQUIVALENCE ( NDIAG(134), NUDIAG5 )
1640     EQUIVALENCE ( NDIAG(135), NUDIAG6 )
1641     EQUIVALENCE ( NDIAG(136), NUDIAG7 )
1642     EQUIVALENCE ( NDIAG(137), NUDIAG8 )
1643     EQUIVALENCE ( NDIAG(138), NUDIAG9 )
1644     EQUIVALENCE ( NDIAG(139), NUDIAG10)
1645     EQUIVALENCE ( NDIAG(140), NCLDMID )
1646     EQUIVALENCE ( NDIAG(141), NCLDHI )
1647     EQUIVALENCE ( NDIAG(142), NTAULOW )
1648     EQUIVALENCE ( NDIAG(143), NTAUMID )
1649     EQUIVALENCE ( NDIAG(144), NTAUHI )
1650     EQUIVALENCE ( NDIAG(145), NCLDNP )
1651     EQUIVALENCE ( NDIAG(146), NCLDPRS )
1652     EQUIVALENCE ( NDIAG(147), NCTPCNT )
1653     EQUIVALENCE ( NDIAG(148), NCLDTMP )
1654     EQUIVALENCE ( NDIAG(149), NCTTCNT )
1655     EQUIVALENCE ( NDIAG(150), NTAULOWC)
1656     EQUIVALENCE ( NDIAG(151), NTAUMIDC)
1657     EQUIVALENCE ( NDIAG(152), NTAUHIC )
1658     EQUIVALENCE ( NDIAG(153), NTCANOPY )
1659     EQUIVALENCE ( NDIAG(154), NTDEEP )
1660     EQUIVALENCE ( NDIAG(155), NQCANOPY )
1661     EQUIVALENCE ( NDIAG(156), NSMSHAL )
1662     EQUIVALENCE ( NDIAG(157), NSMROOT )
1663     EQUIVALENCE ( NDIAG(158), NSMDEEP )
1664     EQUIVALENCE ( NDIAG(159), NCAPACITY )
1665     EQUIVALENCE ( NDIAG(160), NSNOW )
1666     EQUIVALENCE ( NDIAG(161), NRAINCON )
1667     EQUIVALENCE ( NDIAG(162), NRAINLSP )
1668     EQUIVALENCE ( NDIAG(163), NSNOWFALL )
1669     EQUIVALENCE ( NDIAG(164), NRUNOFF )
1670     EQUIVALENCE ( NDIAG(165), NFWSOIL )
1671     EQUIVALENCE ( NDIAG(166), NGDRAIN )
1672     EQUIVALENCE ( NDIAG(167), NSNOWMELT )
1673     EQUIVALENCE ( NDIAG(168), NERESV )
1674     EQUIVALENCE ( NDIAG(169), NESOIL )
1675     EQUIVALENCE ( NDIAG(170), NEVEG )
1676     EQUIVALENCE ( NDIAG(171), NESNOW )
1677     EQUIVALENCE ( NDIAG(172), NPARDF )
1678     EQUIVALENCE ( NDIAG(173), NPARDR )
1679     EQUIVALENCE ( NDIAG(174), NLAI )
1680     EQUIVALENCE ( NDIAG(175), NGREEN )
1681     EQUIVALENCE ( NDIAG(176), NDLWDTC )
1682     EQUIVALENCE ( NDIAG(177), NDHDTC )
1683     EQUIVALENCE ( NDIAG(178), NDEDTC )
1684     EQUIVALENCE ( NDIAG(179), NVDTMOIST )
1685     EQUIVALENCE ( NDIAG(180), NVDTTURB )
1686     EQUIVALENCE ( NDIAG(181), NVDTRADLW )
1687     EQUIVALENCE ( NDIAG(182), NVDTRADSW )
1688     EQUIVALENCE ( NDIAG(184), NPSUBCLD )
1689     EQUIVALENCE ( NDIAG(185), NPSUBCLDC )
1690     EQUIVALENCE ( NDIAG(186), NLCL )
1691     EQUIVALENCE ( NDIAG(187), NSDIAGC )
1692     EQUIVALENCE ( NDIAG(188), NSDIAGCC )
1693    
1694     EQUIVALENCE ( NDIAG(190), NEVPOT )
1695     EQUIVALENCE ( NDIAG(191), NRHCHECK )
1696     EQUIVALENCE ( NDIAG(192), NDHDQA )
1697     EQUIVALENCE ( NDIAG(193), NDEDQA )
1698     EQUIVALENCE ( NDIAG(194), NDTC )
1699     EQUIVALENCE ( NDIAG(195), NDQC )
1700     EQUIVALENCE ( NDIAG(196), NTCDTC )
1701     EQUIVALENCE ( NDIAG(197), NRADDTC )
1702     EQUIVALENCE ( NDIAG(198), NSENSDTC )
1703     EQUIVALENCE ( NDIAG(199), NLATDTC )
1704     EQUIVALENCE ( NDIAG(200), NTDDTC )
1705     EQUIVALENCE ( NDIAG(201), NQCDTC )
1706     EQUIVALENCE ( NDIAG(202), NTRBQLIQ )
1707     EQUIVALENCE ( NDIAG(203), NTRBFCC )
1708     EQUIVALENCE ( NDIAG(204), NALBEDO )
1709     EQUIVALENCE ( NDIAG(205), NALBVISDR )
1710     EQUIVALENCE ( NDIAG(206), NALBVISDF )
1711     EQUIVALENCE ( NDIAG(207), NALBNIRDR )
1712     EQUIVALENCE ( NDIAG(208), NALBNIRDF )
1713     EQUIVALENCE ( NDIAG(209), NTAUAVE )
1714     EQUIVALENCE ( NDIAG(210), NALBEDOC )
1715     EQUIVALENCE ( NDIAG(211), NRHCHECKT )
1716     EQUIVALENCE ( NDIAG(212), NRHCHECKQ )
1717     EQUIVALENCE ( NDIAG(213), NCLDLSP )
1718     EQUIVALENCE ( NDIAG(214), NLZLOW )
1719     EQUIVALENCE ( NDIAG(215), NLZMID )
1720     EQUIVALENCE ( NDIAG(216), NLZHI )
1721     EQUIVALENCE ( NDIAG(217), NLZTOT )
1722     EQUIVALENCE ( NDIAG(218), NCAPE )
1723     EQUIVALENCE ( NDIAG(219), NHSUBCL )
1724     EQUIVALENCE ( NDIAG(220), NHSTAR )
1725     EQUIVALENCE ( NDIAG(221), NCONT )
1726     EQUIVALENCE ( NDIAG(222), NCONQ )
1727     EQUIVALENCE ( NDIAG(223), NLST )
1728     EQUIVALENCE ( NDIAG(224), NLSQ )
1729     EQUIVALENCE ( NDIAG(225), NCONEVPT )
1730     EQUIVALENCE ( NDIAG(226), NCONEVPQ )
1731     EQUIVALENCE ( NDIAG(227), NLSEVPT )
1732     EQUIVALENCE ( NDIAG(228), NLSEVPQ )
1733     EQUIVALENCE ( NDIAG(229), NGWCUMID )
1734     EQUIVALENCE ( NDIAG(230), NGWCVMID )
1735     EQUIVALENCE ( NDIAG(231), NCLDSTD )
1736     EQUIVALENCE ( NDIAG(232), NGWCUBAR )
1737     EQUIVALENCE ( NDIAG(233), NGWCVBAR )
1738     EQUIVALENCE ( NDIAG(234), NGWCUS )
1739     EQUIVALENCE ( NDIAG(235), NGWCVS )
1740     EQUIVALENCE ( NDIAG(236), NGWCU )
1741     EQUIVALENCE ( NDIAG(237), NGWCV )
1742     EQUIVALENCE ( NDIAG(238), NETAN )
1743     EQUIVALENCE ( NDIAG(239), NETANSQ )
1744     EQUIVALENCE ( NDIAG(240), NTHETA )
1745     EQUIVALENCE ( NDIAG(241), NSALT )
1746     EQUIVALENCE ( NDIAG(242), NUVEL )
1747     EQUIVALENCE ( NDIAG(243), NVVEL )
1748     EQUIVALENCE ( NDIAG(244), NWVEL )
1749     EQUIVALENCE ( NDIAG(245), NTHETASQ )
1750     EQUIVALENCE ( NDIAG(246), NSALTSQ )
1751     EQUIVALENCE ( NDIAG(247), NUVELSQ )
1752     EQUIVALENCE ( NDIAG(248), NVVELSQ )
1753     EQUIVALENCE ( NDIAG(249), NWVELSQ )
1754     EQUIVALENCE ( NDIAG(250), NUVELVVEL )
1755     EQUIVALENCE ( NDIAG(251), NUVELMASS )
1756     EQUIVALENCE ( NDIAG(252), NVVELMASS )
1757     EQUIVALENCE ( NDIAG(253), NWVELMASS )
1758     EQUIVALENCE ( NDIAG(254), NUTHMASS )
1759     EQUIVALENCE ( NDIAG(255), NVTHMASS )
1760     EQUIVALENCE ( NDIAG(256), NWTHMASS )
1761     EQUIVALENCE ( NDIAG(257), NUSLTMASS )
1762     EQUIVALENCE ( NDIAG(258), NVSLTMASS )
1763     EQUIVALENCE ( NDIAG(259), NWSLTMASS )
1764     EQUIVALENCE ( NDIAG(260), NUVELTH )
1765     EQUIVALENCE ( NDIAG(261), NVVELTH )
1766     EQUIVALENCE ( NDIAG(262), NWVELTH )
1767     EQUIVALENCE ( NDIAG(263), NUVELSLT )
1768     EQUIVALENCE ( NDIAG(264), NVVELSLT )
1769     EQUIVALENCE ( NDIAG(265), NWVELSLT )
1770     EQUIVALENCE ( NDIAG(266), NUTRAC1 )
1771     EQUIVALENCE ( NDIAG(267), NVTRAC1 )
1772     EQUIVALENCE ( NDIAG(268), NWTRAC1 )
1773     EQUIVALENCE ( NDIAG(269), NUTRAC2 )
1774     EQUIVALENCE ( NDIAG(270), NVTRAC2 )
1775     EQUIVALENCE ( NDIAG(271), NWTRAC2 )
1776     EQUIVALENCE ( NDIAG(272), NUTRAC3 )
1777     EQUIVALENCE ( NDIAG(273), NVTRAC3 )
1778     EQUIVALENCE ( NDIAG(274), NWTRAC3 )
1779     EQUIVALENCE ( NDIAG(275), NUTRAC4 )
1780     EQUIVALENCE ( NDIAG(276), NVTRAC4 )
1781     EQUIVALENCE ( NDIAG(277), NWTRAC4 )
1782     EQUIVALENCE ( NDIAG(278), NUTRAC5 )
1783     EQUIVALENCE ( NDIAG(279), NVTRAC5 )
1784     EQUIVALENCE ( NDIAG(280), NWTRAC5 )
1785     EQUIVALENCE ( NDIAG(281), NTRAC1 )
1786     EQUIVALENCE ( NDIAG(282), NTRAC2 )
1787     EQUIVALENCE ( NDIAG(283), NTRAC3 )
1788     EQUIVALENCE ( NDIAG(284), NTRAC4 )
1789     EQUIVALENCE ( NDIAG(285), NTRAC5 )
1790     EQUIVALENCE ( NDIAG(286), NDICBIOA )
1791     EQUIVALENCE ( NDIAG(287), NDICCARB )
1792     EQUIVALENCE ( NDIAG(288), NDICTFLX )
1793     EQUIVALENCE ( NDIAG(289), NDICOFLX )
1794     EQUIVALENCE ( NDIAG(290), NDICCFLX )
1795     EQUIVALENCE ( NDIAG(291), NDICPCO2 )
1796     EQUIVALENCE ( NDIAG(292), NDICPHAV )
1797     EQUIVALENCE ( NDIAG(293), NDTCONV )
1798     EQUIVALENCE ( NDIAG(294), NDQCONV )
1799     EQUIVALENCE ( NDIAG(295), NRELHUM )
1800     EQUIVALENCE ( NDIAG(296), NPRECLS )
1801     EQUIVALENCE ( NDIAG(297), NENPREC )
1802     EQUIVALENCE ( NDIAG(298), NVISCA4 )
1803     EQUIVALENCE ( NDIAG(299), NVISCAH )
1804    
1805    
1806     C diagnostics common
1807    
1808     _RL qdiag(1-OLx:sNx+Olx,1-Oly:sNy+Oly,numdiags,nSx,nSy)
1809    
1810     common /diagnostics/ qdiag
1811    
1812     C diag_choices common
1813     C nfields(n) :: number of active diagnostics for output stream # n
1814     C nActive(n) :: number of active diagnostics (including counters)
1815     C for output stream # n
1816    
1817     integer nlists
1818    
1819     integer freq(numlists)
1820     integer nlevels(numlists)
1821     integer nfields(numlists)
1822     integer nActive(numlists)
1823     _RL levs (numLevels,numlists)
1824     integer jdiag(numperlist,numlists)
1825     character*8 flds (numperlist,numlists)
1826     character*8 fnames(numlists)
1827     logical diag_mdsio
1828     logical diag_mnc
1829    
1830     common /diag_choices/
1831     & levs, jdiag, flds, fnames,
1832     & freq, nlevels, nfields, nActive, nlists,
1833     & diag_mdsio, diag_mnc
1834    
1835    
1836     CEH3 ;;; Local Variables: ***
1837     CEH3 ;;; mode:fortran ***
1838     CEH3 ;;; End: ***
  ViewVC Help
Powered by ViewVC 1.1.22