/[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.14 - (hide annotations) (download)
Wed May 5 00:39:21 2004 UTC (20 years ago) by edhill
Branch: MAIN
CVS Tags: checkpoint53f_post, checkpoint53b_pre, checkpoint53b_post, checkpoint54, checkpoint53, checkpoint53c_post, checkpoint52n_post, checkpoint53d_pre, checkpoint53g_post, checkpoint53d_post, checkpoint53a_post
Changes since 1.13: +3 -0 lines
File MIME type: text/plain
 o adding cvs 'Header:' and 'Name:' strings

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

  ViewVC Help
Powered by ViewVC 1.1.22