File: C:\NOAA\NEMS_11731\src\chem\gocart\src\GMAO_Shared\Chem_Shared\diaglist.F90

1     !!!! #include <params.h>
2     
3           SUBROUTINE diaglist(diag)
4     
5           USE mod_diag
6      
7     ! ----------------------------------------------------------------------
8     !
9     !  This routine contains the initialization of the diagnostic name,
10     !  description, and unit.
11     !
12     !     type diag_type
13     !          character*8          :: name         ! name for diagnostic
14     !          character*16         :: unit         ! unit for diagnostic fields
15     !          character*80         :: desc         ! description for diagnostic fields
16     !          integer              :: pick         ! is the diag needed for output 1:yes 0:no
17     !          logical              :: counted      ! if true, diagnostic is counted
18     !          integer              :: vdim         ! number of levels 1 or km
19     !          integer              :: nlist        ! number of output streams
20     !          integer, pointer     :: fldloc(:,:)  ! location in diagnostic buffer
21     !          integer, pointer     :: count(:)     ! counter
22     !          logical, pointer     :: alt(:)       ! if true use alternate name/unit for output
23     !          character*8          :: aname        ! Alternate name for diagnostic
24     !          character*16         :: aunit        ! Alternate unit for diagnostic fields
25     !          character*80         :: adesc        ! description for diagnostic fields
26     !          real*4               :: convfac      ! conversion factor if alternate unit different than primary
27     !     endtype
28     !
29     ! ----------------------------------------------------------------------
30     !  Variable Declaration 
31     
32           type (diag_type)    	:: diag(pdiag)	! diagnostic attributes  (see above)
33           integer              	:: n            ! do loop counter
34     
35           do n = 1, pdiag
36             diag(n)%convfac = 1.
37             diag(n)%aname   = '        '
38             diag(n)%aunit   = '                '
39             diag(n)%adesc   = '                                        '// &
40                               '                                        '
41             diag(n)%counted = .false.
42           enddo
43     
44     
45           diag(iALBEDO  )%name = 'ALBEDO  '
46           diag(iALBEDO  )%desc = 'Surface Albedo'
47           diag(iALBEDO  )%unit = 'fraction'
48           diag(iALBEDO  )%aname= 'ALBEDO  '
49           diag(iALBEDO  )%adesc= 'Surface Albedo'
50           diag(iALBEDO  )%counted = .true.
51     
52           diag(iALDIF   )%name = 'ALDIF   '
53           diag(iALDIF   )%desc = 'Albedo: longwave, diffuse '
54           diag(iALDIF   )%unit = 'fraction'
55           diag(iALDIF   )%aname= 'ALBNIRDF'
56           diag(iALDIF   )%adesc= 'Diffuse Beam NIR Surface Albedo'
57     
58           diag(iALDIR   )%name = 'ALDIR   '
59           diag(iALDIR   )%desc = 'Albedo: longwave, direct '
60           diag(iALDIR   )%unit = 'fraction'
61           diag(iALDIR   )%aname= 'ALBNIRDR'
62           diag(iALDIR   )%adesc= 'Direct Beam NIR Surface Albedo'
63     
64           diag(iASDIF   )%name = 'ASDIF   '
65           diag(iASDIF   )%desc = 'Albedo: shortwave, diffuse '
66           diag(iASDIF   )%unit = 'fraction'
67           diag(iASDIF   )%aname= 'ALBVISDF'
68           diag(iASDIF   )%adesc= 'Diffuse Beam VIS Surface Albedo'
69     
70           diag(iASDIR   )%name = 'ASDIR   '
71           diag(iASDIR   )%desc = 'Albedo: shortwave, direct '
72           diag(iASDIR   )%unit = 'fraction'
73           diag(iASDIR   )%aname= 'ALBVISDR'
74           diag(iASDIR   )%adesc= 'Direct Beam VIS Surface Albedo'
75     
76           diag(iBMA     )%name = 'BMA     '
77           diag(iBMA     )%desc = 'Bulk moisture avaliability '
78           diag(iBMA     )%unit = 'fraction'
79     
80           diag(iBULKTS  )%name = 'BULKTS  '
81           diag(iBULKTS  )%desc = 'Bulk surface temperatur (average of tile temperature)'
82           diag(iBULKTS  )%unit = 'K'
83     
84           diag(iCAPEMX  )%name = 'CAPEMX  '
85           diag(iCAPEMX  )%desc = 'Maximum CAPE'
86           diag(iCAPEMX  )%unit = 'J/kg'
87     
88           diag(iCLDHGH  )%name = 'CLDHGH  '
89           diag(iCLDHGH  )%desc = 'Vertically-integrated, random overlap, ' &
90                              // 'high cloud amount'
91           diag(iCLDHGH  )%unit = 'fraction'
92           diag(iCLDHGH  )%aname= 'CLDHI   '
93           diag(iCLDHGH  )%adesc= 'High-Level (above 400 hPa) Cloud Fraction' 
94     
95           diag(iCLDLOW  )%name = 'CLDLOW  '
96           diag(iCLDLOW  )%desc = 'Vertically-integrated, random overlap, ' &
97                              // 'low cloud amount'
98           diag(iCLDLOW  )%unit = 'fraction'
99           diag(iCLDLOW  )%adesc= 'Low-Level (1000-700 hPa) Cloud Fraction' 
100     
101           diag(iCLDMED  )%name = 'CLDMED  '
102           diag(iCLDMED  )%desc = 'Vertically-integrated, random overlap, ' &
103                              // 'mid cloud amount'
104           diag(iCLDMED  )%unit = 'fraction'
105           diag(iCLDMED  )%aname= 'CLDMID  '
106           diag(iCLDMED  )%adesc= 'Mid-Level (700-400 hPa) Cloud Fraction'
107     
108           diag(iCLDPRS  )%name = 'CLDPRS  '
109           diag(iCLDPRS  )%desc = 'Cloud Top Pressure (when cloudy)'
110           diag(iCLDPRS  )%unit = 'Pa'
111           diag(iCLDPRS  )%aunit= 'hPa'
112           diag(iCLDPRS  )%convfac = 0.01
113           diag(iCLDPRS  )%counted = .true.
114     
115           diag(iCLDTMP  )%name = 'CLDTMP  '
116           diag(iCLDTMP  )%desc = 'Cloud Top Temperature (when cloudy)'
117           diag(iCLDTMP  )%unit = 'K'
118           diag(iCLDTMP  )%counted = .true.
119     
120           diag(iCLDTOT  )%name = 'CLDTOT  '
121           diag(iCLDTOT  )%desc = 'Vertically-integrated, random overlap, ' &
122                              // 'total cloud cover'
123           diag(iCLDTOT  )%unit = 'fraction'
124           diag(iCLDTOT  )%aname= 'CLDFRC  '
125           diag(iCLDTOT  )%adesc= '2-D Total Cloud Fraction'
126     
127           diag(iCNVCLD  )%name = 'CNVCLD  '
128           diag(iCNVCLD  )%desc = 'Random overlap total convective cloud amount'
129           diag(iCNVCLD  )%unit = 'fraction'
130     
131           diag(iEMSFC   )%name = 'EMSFC   '
132           diag(iEMSFC   )%desc = 'Bulk surface emissivity'
133           diag(iEMSFC   )%unit = 'fraction'
134     
135           diag(iFLNS    )%name = 'FLNS    '
136           diag(iFLNS    )%desc = 'Net longwave flux at surface'
137           diag(iFLNS    )%unit = 'W/m2'
138           diag(iFLNS    )%aname= 'RADLWG  '
139           diag(iFLNS    )%adesc= 'Net Upward Longwave Flux at the Ground'
140     
141           diag(iFLNSC   )%name = 'FLNSC   '
142           diag(iFLNSC   )%desc = 'Clear sky net longwave flux at surface'
143           diag(iFLNSC   )%unit = 'W/m2'
144           diag(iFLNSC   )%aname= 'LWGCLR  '
145           diag(iFLNSC   )%adesc= 'Clear Sky Net Longwave Flux at the Ground'
146     
147           diag(iFLNT    )%name = 'FLNT    '
148           diag(iFLNT    )%desc = 'Net longwave flux at top'
149           diag(iFLNT    )%unit = 'W/m2'
150           diag(iFLNT    )%aname= 'OLR     '
151           diag(iFLNT    )%adesc= 'Outgoing longwave radiation'
152     
153           diag(iFLNTC   )%name = 'FLNTC   '
154           diag(iFLNTC   )%desc = 'Clear sky net longwave flux at top'
155           diag(iFLNTC   )%unit = 'W/m2'
156           diag(iFLNTC   )%aname= 'OLRCLR  '
157           diag(iFLNTC   )%adesc= 'Clear sky outgoing longwave radiation'
158     
159           diag(iFRACLAKE)%name = 'FRACLAKE'
160           diag(iFRACLAKE)%desc = 'Lake fraction'
161           diag(iFRACLAKE)%unit = 'fraction'
162     
163           diag(iFRACVEG )%name = 'FRACVEG '
164           diag(iFRACVEG )%desc = 'Vegetation fraction'
165           diag(iFRACVEG )%unit = 'fraction'
166     
167           diag(iFSDS    )%name = 'FSDS    '
168           diag(iFSDS    )%desc = 'Flux shortwave downwelling surface'
169           diag(iFSDS    )%unit = 'W/m2'
170     
171           diag(iFSNS    )%name = 'FSNS    '
172           diag(iFSNS    )%desc = 'Net solar flux at surface'
173           diag(iFSNS    )%unit = 'W/m2'
174           diag(iFSNS    )%aname= 'RADSWG  '
175           diag(iFSNS    )%adesc= 'Net Downward Shortwave Flux at the Ground'
176     
177           diag(iFSNSC   )%name = 'FSNSC   '
178           diag(iFSNSC   )%desc = 'Clear sky net solar flux at surface '
179           diag(iFSNSC   )%unit = 'W/m2'
180           diag(iFSNSC   )%aname= 'SWGCLR  '
181           diag(iFSNSC   )%adesc= 'Clear Sky Net Downward SW Radiation at the Ground'
182     
183           diag(iFSNT    )%name = 'FSNT    '
184           diag(iFSNT    )%desc = 'Net solar flux at top'
185           diag(iFSNT    )%unit = 'W/m2'
186     
187           diag(iFSNTC   )%name = 'FSNTC   '
188           diag(iFSNTC   )%desc = 'Clear sky net solar flux at top'
189           diag(iFSNTC   )%unit = 'W/m2'
190     
191           diag(iGWETROOT)%name = 'GWETROOT'
192           diag(iGWETROOT)%desc = 'Root zone soil wetness'
193           diag(iGWETROOT)%unit = 'fraction'
194           diag(iGWETROOT)%aname= 'GWETROOT'
195     
196           diag(iGWETTC )%name = 'GWETTC '
197           diag(iGWETTC )%desc = 'Total column soil layer wetness'
198           diag(iGWETTC )%unit = 'fraction'
199           diag(iGWETTC )%aname= 'GWETTC '
200     
201           diag(iGWETTOP )%name = 'GWETTOP '
202           diag(iGWETTOP )%desc = 'Top soil layer wetness'
203           diag(iGWETTOP )%unit = 'fraction'
204           diag(iGWETTOP )%aname= 'GWETTOP '
205     
206           diag(iH300    )%name = 'H300    '
207           diag(iH300    )%desc = '300 hPa Geopotential height'
208           diag(iH300    )%unit = 'm'
209     
210           diag(iH500    )%name = 'H500    '
211           diag(iH500    )%desc = '500 hPa Geopotential height'
212           diag(iH500    )%unit = 'm'
213     
214           diag(iHKBETA  )%name = 'HKBETA  '
215           diag(iHKBETA  )%desc = 'Overshoot parameter in Hack scheme'
216           diag(iHKBETA  )%unit = 'fraction'
217     
218           diag(iHKETA   )%name = 'HKETA   '
219           diag(iHKETA   )%desc = 'Mass flux without overshoot in Hack scheme'
220           diag(iHKETA   )%unit = 'kg/m2 s'
221     
222           diag(iHSURF   )%name = 'HSURF   '
223           diag(iHSURF   )%desc = 'Surface height'
224           diag(iHSURF   )%unit = 'm'
225           diag(iHSURF   )%aname= 'PHIS    '
226           diag(iHSURF   )%aunit= 'm'
227           diag(iHSURF   )%adesc= 'Surface geopotential'
228     
229           diag(iHTLCL   )%name = 'HTLCL   '
230           diag(iHTLCL   )%desc = ' Height above surface at LCL level'
231           diag(iHTLCL   )%unit = 'm'
232     
233           diag(iHTMMSE  )%name = 'HTMMSE  '
234           diag(iHTMMSE  )%desc = ' Height above surface at maximum moist' &
235                                     //' static energy level'
236           diag(iHTMMSE  )%unit = 'm'
237     
238           diag(iLAI     )%name = 'LAI     '
239           diag(iLAI     )%desc = 'Leaf area index'
240           diag(iLAI     )%unit = 'm2/m2'
241     
242           diag(iDTG     )%name = 'DTG     '
243           diag(iDTG     )%desc = 'Change in ground temperature'
244           diag(iDTG     )%unit = 'K/s'
245     
246           diag(iLHFX    )%name = 'LHFX    '
247           diag(iLHFX    )%desc = 'Surface latent heat flux'
248           diag(iLHFX    )%unit = 'W/m2'
249           diag(iLHFX    )%aname= 'EFLUX   '
250           diag(iLHFX    )%adesc= 'Latent Heat Flux (pos.upwrd)'
251     
252           diag(iLWSH    )%name = 'LWSH    '
253           diag(iLWSH    )%desc = 'Liquid water scale height'
254           diag(iLWSH    )%unit = 'm'
255     
256           diag(iO3DU    )%name = 'O3DU    '
257           diag(iO3DU    )%desc = 'Total Column Ozone'
258           diag(iO3DU    )%unit = 'Dobson Unit'
259     
260           diag(iORO     )%name = 'ORO     '
261           diag(iORO     )%desc = 'Surface type flag'
262           diag(iORO     )%unit = 'flag'
263           diag(iORO     )%aname= 'SURFTYPE'
264     
265           diag(iOSR     )%name = 'OSR     '
266           diag(iOSR     )%desc = 'Outgoing Shortwave Radiation'
267           diag(iOSR     )%unit = 'W/m2'
268     
269           diag(iOSRCLR  )%name = 'OSRCLR  '
270           diag(iOSRCLR  )%desc = 'Clear Sky Outgoing Shortwave Radiation'
271           diag(iOSRCLR  )%unit = 'W/m2'
272     
273           diag(iPARDF   )%name = 'PARDF   '
274           diag(iPARDF   )%desc = 'Diffuse photosynthetically active radiation' &
275                            // ' (0.35-0.70 um)'
276           diag(iPARDF   )%unit = 'W/m2'
277           diag(iPARDF   )%aname= 'PARDF   '
278     
279           diag(iPARDR   )%name = 'PARDR   '
280           diag(iPARDR   )%desc = 'Direct photosynthetically active radiation'  &
281                            //' (0.35-0.70 um)'
282           diag(iPARDR   )%unit = 'W/m2'
283           diag(iPARDR   )%aname= 'PARDR   '
284     
285           diag(iPBLH    )%name = 'PBLH    '
286           diag(iPBLH    )%desc = 'Planetary boundary layer height'
287           diag(iPBLH    )%unit = 'm'
288           diag(iPBLH    )%aname= 'PBL     '
289     
290           diag(iPREACC  )%name = 'PREACC  '
291           diag(iPREACC  )%desc = 'Total precipitation rate'
292           diag(iPREACC  )%unit = 'mm/day'
293     
294           diag(iPRECC   )%name = 'PRECC   '
295           diag(iPRECC   )%desc = 'Convective precipitation rate'
296           diag(iPRECC   )%unit = 'mm/day'
297           diag(iPRECC   )%aname= 'PRECON  '
298           diag(iPRECC   )%adesc= 'Convective Precipitation'
299     
300           diag(iPRECL   )%name = 'PRECL   '
301           diag(iPRECL   )%desc = 'Large-scale precipitation rate'
302           diag(iPRECL   )%unit = 'mm/day'
303     
304           diag(iPRECL_RH)%name = 'PRECL_RH'
305           diag(iPRECL_RH)%desc = 'Precipitation rate due to limit RH'
306           diag(iPRECL_RH)%unit = 'mm/day'
307     
308           diag(iQ10M    )%name = 'Q10M    '
309           diag(iQ10M    )%desc = '10 meter Specific humidity'
310           diag(iQ10M    )%unit = 'kg/kg'
311           diag(iQ10M    )%adesc= 'Specific Humidity Interpolated to 10 Meters'
312           diag(iQ10M    )%aunit= 'g/kg'
313           diag(iQ10M    )%convfac = 1000.0
314     
315           diag(iQ2M     )%name = 'Q2M     '
316           diag(iQ2M     )%desc = '2 meter Specific humidity'
317           diag(iQ2M     )%unit = 'kg/kg'
318           diag(iQ2M     )%adesc= 'Specific Humidity Interpolated to 2 Meters'
319           diag(iQ2M     )%aunit= 'g/kg'
320           diag(iQ2M     )%convfac = 1000.0
321     
322           diag(iQFLX    )%name = 'QFLX    '
323           diag(iQFLX    )%desc = 'Surface water flux'
324           diag(iQFLX    )%unit = 'kg/m2/s'
325           diag(iQFLX    )%aname= 'EVAP    '
326           diag(iQFLX    )%aunit= 'mm/day'
327           diag(iQFLX    )%adesc= 'Surface Evaporation'
328           diag(iQFLX    )%convfac = 86400.0
329     
330           diag(iQPERT   )%name = 'QPERT   '
331           diag(iQPERT   )%desc = 'Perturbation specific humidity '  &
332                              // '(eddies in PBL)'
333           diag(iQPERT   )%unit = 'kg/kg'
334     
335           diag(iSHFX    )%name = 'SHFX    '
336           diag(iSHFX    )%desc = 'Surface sensible heat flux'
337           diag(iSHFX    )%unit = 'W/m2'
338           diag(iSHFX    )%aname= 'HFLUX   '
339           diag(iSHFX    )%adesc= 'Sensible Heat Flux (pos.upwrd)'
340     
341           diag(iSLP     )%name = 'SLP     '
342           diag(iSLP     )%desc = 'Sea level pressure'
343           diag(iSLP     )%unit = 'Pa'
344           diag(iSLP     )%aunit= 'hPa'
345           diag(iSLP     )%convfac = 0.01
346     
347           diag(iSNOWDP  )%name = 'SNOWDP  '
348           diag(iSNOWDP  )%desc = 'Snow depth'
349           diag(iSNOWDP  )%unit = 'm'
350           diag(iSNOWDP  )%aname= 'SNOWDPTH'
351           diag(iSNOWDP  )%adesc= 'Snow Depth (mm)'
352           diag(iSNOWDP  )%aunit= 'mm'
353           diag(iSNOWDP  )%convfac = 1000.0
354     
355           diag(iSNOWH   )%name = 'SNOWH   '
356           diag(iSNOWH   )%desc = 'Water equivalent snow depth'
357           diag(iSNOWH   )%unit = 'm'
358           diag(iSNOWH   )%aname= 'SNOW    '
359           diag(iSNOWH   )%adesc= 'Snow Depth (mm water equivalent)'
360           diag(iSNOWH   )%aunit= 'mm'
361           diag(iSNOWH   )%convfac = 1000.0
362     
363           diag(iSOILWC1 )%name = 'SOILWC1 '
364           diag(iSOILWC1 )%desc = 'Total column soil water content for soil tiles'
365           diag(iSOILWC1 )%unit = 'mm'
366     
367           diag(iSOILWC2 )%name = 'SOILWC2 '
368           diag(iSOILWC2 )%desc = 'Total column soil water content for water budget'
369           diag(iSOILWC2 )%unit = 'mm'
370     
371           diag(iSOLIN   )%name = 'SOLIN    '
372           diag(iSOLIN   )%desc = 'Solar insolation'
373           diag(iSOLIN   )%unit = 'W/m2'
374           diag(iSOLIN   )%aname= 'RADSWT  '
375           diag(iSOLIN   )%adesc= 'Incident Shortwave Radiation at TOA'
376     
377           diag(iSRFRAD  )%name = 'SRFRAD  '
378           diag(iSRFRAD  )%desc = 'Net radiative forcing at surface (net SW + downward LW)'
379           diag(iSRFRAD  )%unit = 'W/m2'
380     
381           diag(iSRUNOFF )%name = 'SRUNOFF '
382           diag(iSRUNOFF )%desc = 'Surface runoff'
383           diag(iSRUNOFF )%unit = 'mm/s'
384     
385           diag(iSURFP   )%name = 'SURFP   '
386           diag(iSURFP   )%desc = 'Surface pressure'
387           diag(iSURFP   )%unit = 'Pa'
388           diag(iSURFP   )%aname= 'PS      '
389           diag(iSURFP   )%aunit= 'hPa'
390           diag(iSURFP   )%convfac = 0.01  
391     
392           diag(iT10M    )%name = 'T10M    '
393           diag(iT10M    )%desc = '10 meter temperature'
394           diag(iT10M    )%unit = 'K'
395           diag(iT10M    )%adesc= 'Temperature Interpolated to 10 Meters'
396     
397           diag(iT200    )%name = 'T200    '
398           diag(iT200    )%desc = '200 hPa temperature'
399           diag(iT200    )%unit = 'K'
400     
401           diag(iT2M     )%name = 'T2M     '
402           diag(iT2M     )%desc = '2 meter temperature'
403           diag(iT2M     )%unit = 'K'
404           diag(iT2M     )%adesc= 'Temperature Interpolated to 2 Meters'
405     
406           diag(iT850    )%name = 'T850    '
407           diag(iT850    )%desc = '850 hPa temperature'
408           diag(iT850    )%unit = 'K'
409           diag(iT850    )%counted = .true.
410     
411           diag(iTAUCLI  )%name = 'TAUCLI  '
412           diag(iTAUCLI  )%desc = 'Cloud Optical Depth Ice'
413           diag(iTAUCLI  )%unit = 'unitless'
414           diag(iTAUCLI  )%counted = .true.
415     
416           diag(iTAUCLW  )%name = 'TAUCLW  '
417           diag(iTAUCLW  )%desc = 'Cloud Optical Depth Water'
418           diag(iTAUCLW  )%unit = 'unitless'
419           diag(iTAUCLW  )%counted = .true.
420     
421           diag(iTAUGWX  )%name = 'TAUGWX  '
422           diag(iTAUGWX  )%desc = 'East-west gravity wave drag surface stress'
423           diag(iTAUGWX  )%unit = 'N/m2'
424           diag(iTAUGWX  )%aname= 'GWDUS   '
425           diag(iTAUGWX  )%adesc= 'Zonal Wind Gravity Wave Surface Stress'
426     
427           diag(iTAUGWY  )%name = 'TAUGWY  '
428           diag(iTAUGWY  )%desc = 'North-south gravity wave drag surface stress'
429           diag(iTAUGWY  )%unit = 'N/m2'
430           diag(iTAUGWY  )%aname= 'GWDVS   '
431           diag(iTAUGWY  )%adesc= 'Meridional Wind Gravity Wave Surface Stress'
432     
433           diag(iTAUX    )%name = 'TAUX    '
434           diag(iTAUX    )%desc = 'X-component (east-west) of surface stress'
435           diag(iTAUX    )%unit = 'N/m2'
436           diag(iTAUX    )%aname= 'UFLUX   '
437           diag(iTAUX    )%adesc= 'Zonal Wind Surface Stress'
438     
439           diag(iTAUY    )%name = 'TAUY    '
440           diag(iTAUY    )%desc = 'Y-component (north-south) of surface stress'
441           diag(iTAUY    )%unit = 'N/m2'
442           diag(iTAUY    )%aname= 'VFLUX   '
443           diag(iTAUY    )%adesc= 'Meridional Wind Surface Stress'
444     
445           diag(iTHICK   )%name = 'THICK    '
446           diag(iTHICK   )%desc = 'Thickness of the 500 hPa to 1000 hPa Layer (5400m = freezing line)'
447           diag(iTHICK   )%unit = 'm'
448     
449           diag(iTLAKE1  )%name = 'TLAKE1  '
450           diag(iTLAKE1  )%desc = 'Top layer lake temperature'
451           diag(iTLAKE1  )%unit = 'K'
452     
453           diag(iTPERT   )%name = 'TPERT   '
454           diag(iTPERT   )%desc = 'Perturbation temperature (eddies in PBL)'
455           diag(iTPERT   )%unit = 'K'
456     
457           diag(iTQ      )%name = 'TQ      '
458           diag(iTQ      )%desc = 'Total precipitable water'
459           diag(iTQ      )%unit = 'kg/m2'
460           diag(iTQ      )%aname= 'TPW     '
461           diag(iTQ      )%aunit= 'g/cm2'
462           diag(iTQ      )%convfac = 0.1
463     
464           diag(iTRAD    )%name = 'TRAD    '
465           diag(iTRAD    )%desc = 'Surface brightness temperature (average of tile brightness temperature'
466           diag(iTRAD    )%unit = 'K'
467     
468           diag(iTROPP   )%name = 'TROPP   '
469           diag(iTROPP   )%desc = 'Tropopause pressure'
470           diag(iTROPP   )%unit = 'Pa'
471           diag(iTROPP   )%aunit= 'hPa'
472           diag(iTROPP   )%convfac = 0.01
473           diag(iTROPP   )%counted = .true.
474     
475           diag(iTROPQ   )%name = 'TROPQ   '
476           diag(iTROPQ   )%desc = 'Tropopause specific humidity'
477           diag(iTROPQ   )%unit = 'kg/kg'
478           diag(iTROPQ   )%aunit= 'g/kg'
479           diag(iTROPQ   )%convfac = 1000.
480           diag(iTROPQ   )%counted = .true.
481     
482           diag(iTROPT   )%name = 'TROPT   '
483           diag(iTROPT   )%desc = 'Tropopause temperature'
484           diag(iTROPT   )%unit = 'K'
485           diag(iTROPT   )%counted = .true.
486     
487           diag(iTSKIN   )%name = 'TSKIN   '
488           diag(iTSKIN   )%desc = 'Surface skin temperature for CERES (derived from tile IR flux'
489           diag(iTSKIN   )%unit = 'K'
490     
491           diag(iTSLAKE  )%name = 'TSLAKE  '
492           diag(iTSLAKE  )%desc = 'Lake skin temperature'
493           diag(iTSLAKE  )%unit = 'K'
494     
495           diag(iTSOIL1  )%name = 'TSOIL1  '
496           diag(iTSOIL1  )%desc = 'Top layer soil temperature'
497           diag(iTSOIL1  )%unit = 'K'
498     
499           diag(iTVEG    )%name = 'TVEG    '
500           diag(iTVEG    )%desc = 'Bulk vegetation temperature'
501           diag(iTVEG    )%unit = 'K'
502     
503           diag(iU10M    )%name = 'U10M    '
504           diag(iU10M    )%desc = '10 meter U wind'
505           diag(iU10M    )%unit = 'm/s'
506           diag(iU10M    )%adesc= 'Zonal Wind Interpolated to 10 Meters'
507     
508           diag(iU200    )%name = 'U200    '
509           diag(iU200    )%desc = '200 hPa U wind'
510           diag(iU200    )%unit = 'm/s'
511     
512           diag(iU2M     )%name = 'U2M     '
513           diag(iU2M     )%desc = '2 meter U wind'
514           diag(iU2M     )%unit = 'm/s'
515           diag(iU2M     )%adesc= 'Zonal Wind Interpolated to 2 Meters'
516     
517           diag(iU500    )%name = 'U500    '
518           diag(iU500    )%desc = '500 hPa U wind'
519           diag(iU500    )%unit = 'm/s'
520     
521           diag(iU850    )%name = 'U850    '
522           diag(iU850    )%desc = '850 hPa U wind'
523           diag(iU850    )%unit = 'm/s'
524           diag(iU850    )%counted = .true.
525     
526           diag(iUSTAR   )%name = 'USTAR   '
527           diag(iUSTAR   )%desc = 'Surface friction velocity'
528           diag(iUSTAR   )%unit = 'm/s'
529           diag(iUSTAR   )%adesc= 'Friction velocity'
530     
531           diag(iV10M    )%name = 'V10M    '
532           diag(iV10M    )%desc = '10 meter V wind'
533           diag(iV10M    )%unit = 'm/s'
534           diag(iV10M    )%adesc= 'Meridional Wind Interpolated to 10 Meters'
535     
536           diag(iV200    )%name = 'V200    '
537           diag(iV200    )%desc = '200 hPa V wind'
538           diag(iV200    )%unit = 'm/s'
539     
540           diag(iV2M     )%name = 'V2M     '
541           diag(iV2M     )%desc = '2 meter V wind'
542           diag(iV2M     )%unit = 'm/s'
543           diag(iV2M     )%adesc= 'Meridional Wind Interpolated to 2 Meters'
544     
545           diag(iV500    )%name = 'V500    '
546           diag(iV500    )%desc = '500 hPa V wind'
547           diag(iV500    )%unit = 'm/s'
548      
549           diag(iV850    )%name = 'V850    '
550           diag(iV850    )%desc = '850 hPa V wind'
551           diag(iV850    )%unit = 'm/s'
552           diag(iV850    )%counted = .true.
553     
554           diag(iVAVET   )%name = 'VAVET   '
555           diag(iVAVET   )%desc = 'Vertically averaged temperature'
556           diag(iVAVET   )%unit = 'K'
557     
558           diag(iVAVEU   )%name = 'VAVEU   '
559           diag(iVAVEU   )%desc = 'Vertically averaged U Wind'
560           diag(iVAVEU   )%unit = 'm/s'
561     
562           diag(iVAVEUQ  )%name = 'VAVEUQ  '
563           diag(iVAVEUQ  )%desc = 'Vertically averaged U Wind * specific humidity'
564           diag(iVAVEUQ  )%unit = 'm/s*kg/kg'
565           diag(iVAVEUQ  )%aunit= 'm/s*g/kg'
566           diag(iVAVEUQ  )%convfac = 1000.0 
567     
568           diag(iVAVEUT  )%name = 'VAVEUT  '
569           diag(iVAVEUT  )%desc = 'Vertically averaged U Wind * temperature'
570           diag(iVAVEUT  )%unit = 'Km/s'
571     
572           diag(iVAVEV   )%name = 'VAVEV   '
573           diag(iVAVEV   )%desc = 'Vertically averaged V Wind'
574           diag(iVAVEV   )%unit = 'm/s'
575     
576           diag(iVAVEVQ  )%name = 'VAVEVQ  '
577           diag(iVAVEVQ  )%desc = 'Vertically averaged V Wind * specific humidity'
578           diag(iVAVEVQ  )%unit = 'm/s*kg/kg'
579           diag(iVAVEVQ  )%aunit= 'm/s*g/kg'
580           diag(iVAVEVQ  )%convfac = 1000.0 
581     
582           diag(iVAVEVT  )%name = 'VAVEVT  '
583           diag(iVAVEVT  )%desc = 'Vertically averaged V Wind * temperature'
584           diag(iVAVEVT  )%unit = 'Km/s'
585     
586           diag(iWATCAN  )%name = 'WATCAN  '
587           diag(iWATCAN  )%desc = 'Water on canopy'
588           diag(iWATCAN  )%unit = 'mm'
589     
590           diag(iWBALLAKE)%name = 'WBALLAKE'
591           diag(iWBALLAKE)%desc = 'Water balance term for lake, wet land, and glacier'
592           diag(iWBALLAKE)%unit = 'mm/s'
593     
594           diag(iZ0H     )%name = 'Z0H     '
595           diag(iZ0H     )%desc = 'Roughness length, sensible heat'
596           diag(iZ0H     )%unit = 'm'
597     
598           diag(iZ0M     )%name = 'Z0M     '
599           diag(iZ0M     )%desc = 'Roughness length, momentum'
600           diag(iZ0M     )%unit = 'm'
601     
602           diag(iZMMB    )%name = 'ZMMB    '
603           diag(iZMMB    )%desc = 'Cloud base mass flux from Z&M scheme'
604           diag(iZMMB    )%unit = 'kg/m2/s'
605     
606           diag(iZMPR    )%name = 'ZMPR    '
607           diag(iZMPR    )%desc = 'Precipitation from Z&M scheme'
608           diag(iZMPR    )%unit = 'mm/day'
609     
610           diag(iZPD     )%name = 'ZPD     '
611           diag(iZPD     )%desc = 'Displacement height'
612           diag(iZPD     )%unit = 'm'
613     
614     #ifdef FVCHEM
615     
616           diag(iDUEM001 )%name = 'DUEM001 '
617           diag(iDUEM001 )%desc = 'Dust Emission Bin 1'
618           diag(iDUEM001 )%unit = 'kg/m2/s'
619     
620           diag(iDUEM002 )%name = 'DUEM002 '
621           diag(iDUEM002 )%desc = 'Dust Emission Bin 2'
622           diag(iDUEM002 )%unit = 'kg/m2/s'
623     
624           diag(iDUEM003 )%name = 'DUEM003 '
625           diag(iDUEM003 )%desc = 'Dust Emission Bin 3'
626           diag(iDUEM003 )%unit = 'kg/m2/s'
627     
628           diag(iDUEM004 )%name = 'DUEM004 '
629           diag(iDUEM004 )%desc = 'Dust Emission Bin 4'
630           diag(iDUEM004 )%unit = 'kg/m2/s'
631     
632           diag(iDUEM005 )%name = 'DUEM005 '
633           diag(iDUEM005 )%desc = 'Dust Emission Bin 5'
634           diag(iDUEM005 )%unit = 'kg/m2/s'
635     
636           diag(iDUEM006 )%name = 'DUEM006 '
637           diag(iDUEM006 )%desc = 'Dust Emission Bin 6'
638           diag(iDUEM006 )%unit = 'kg/m2/s'
639     
640           diag(iDUEM007 )%name = 'DUEM007 '
641           diag(iDUEM007 )%desc = 'Dust Emission Bin 7'
642           diag(iDUEM007 )%unit = 'kg/m2/s'
643     
644           diag(iDUEM008 )%name = 'DUEM008 '
645           diag(iDUEM008 )%desc = 'Dust Emission Bin 8'
646           diag(iDUEM008 )%unit = 'kg/m2/s'
647     
648           diag(iDUSD001 )%name = 'DUSD001 '
649           diag(iDUSD001 )%desc = 'Dust Sedimentation Bin 1'
650           diag(iDUSD001 )%unit = 'kg/m2/s'
651     
652           diag(iDUSD002 )%name = 'DUSD002 '
653           diag(iDUSD002 )%desc = 'Dust Sedimentation Bin 2'
654           diag(iDUSD002 )%unit = 'kg/m2/s'
655     
656           diag(iDUSD003 )%name = 'DUSD003 '
657           diag(iDUSD003 )%desc = 'Dust Sedimentation Bin 3'
658           diag(iDUSD003 )%unit = 'kg/m2/s'
659     
660           diag(iDUSD004 )%name = 'DUSD004 '
661           diag(iDUSD004 )%desc = 'Dust Sedimentation Bin 4'
662           diag(iDUSD004 )%unit = 'kg/m2/s'
663     
664           diag(iDUSD005 )%name = 'DUSD005 '
665           diag(iDUSD005 )%desc = 'Dust Sedimentation Bin 5'
666           diag(iDUSD005 )%unit = 'kg/m2/s'
667     
668           diag(iDUSD006 )%name = 'DUSD006 '
669           diag(iDUSD006 )%desc = 'Dust Sedimentation Bin 6'
670           diag(iDUSD006 )%unit = 'kg/m2/s'
671     
672           diag(iDUSD007 )%name = 'DUSD007 '
673           diag(iDUSD007 )%desc = 'Dust Sedimentation Bin 7'
674           diag(iDUSD007 )%unit = 'kg/m2/s'
675     
676           diag(iDUSD008 )%name = 'DUSD008 '
677           diag(iDUSD008 )%desc = 'Dust Sedimentation Bin 8'
678           diag(iDUSD008 )%unit = 'kg/m2/s'
679     
680           diag(iDUDP001 )%name = 'DUDP001 '
681           diag(iDUDP001 )%desc = 'Dust Dry Deposition Bin 1'
682           diag(iDUDP001 )%unit = 'kg/m2/s'
683     
684           diag(iDUDP002 )%name = 'DUDP002 '
685           diag(iDUDP002 )%desc = 'Dust Dry Deposition Bin 2'
686           diag(iDUDP002 )%unit = 'kg/m2/s'
687     
688           diag(iDUDP003 )%name = 'DUDP003 '
689           diag(iDUDP003 )%desc = 'Dust Dry Deposition Bin 3'
690           diag(iDUDP003 )%unit = 'kg/m2/s'
691     
692           diag(iDUDP004 )%name = 'DUDP004 '
693           diag(iDUDP004 )%desc = 'Dust Dry Deposition Bin 4'
694           diag(iDUDP004 )%unit = 'kg/m2/s'
695     
696           diag(iDUDP005 )%name = 'DUDP005 '
697           diag(iDUDP005 )%desc = 'Dust Dry Deposition Bin 5'
698           diag(iDUDP005 )%unit = 'kg/m2/s'
699     
700           diag(iDUDP006 )%name = 'DUDP006 '
701           diag(iDUDP006 )%desc = 'Dust Dry Deposition Bin 6'
702           diag(iDUDP006 )%unit = 'kg/m2/s'
703     
704           diag(iDUDP007 )%name = 'DUDP007 '
705           diag(iDUDP007 )%desc = 'Dust Dry Deposition Bin 7'
706           diag(iDUDP007 )%unit = 'kg/m2/s'
707     
708           diag(iDUDP008 )%name = 'DUDP008 '
709           diag(iDUDP008 )%desc = 'Dust Dry Deposition Bin 8'
710           diag(iDUDP008 )%unit = 'kg/m2/s'
711     
712           diag(iDUWT001 )%name = 'DUWT001 '
713           diag(iDUWT001 )%desc = 'Dust Wet Deposition Bin 1'
714           diag(iDUWT001 )%unit = 'kg/m2/s'
715     
716           diag(iDUWT002 )%name = 'DUWT002 '
717           diag(iDUWT002 )%desc = 'Dust Wet Deposition Bin 2'
718           diag(iDUWT002 )%unit = 'kg/m2/s'
719     
720           diag(iDUWT003 )%name = 'DUWT003 '
721           diag(iDUWT003 )%desc = 'Dust Wet Deposition Bin 3'
722           diag(iDUWT003 )%unit = 'kg/m2/s'
723     
724           diag(iDUWT004 )%name = 'DUWT004 '
725           diag(iDUWT004 )%desc = 'Dust Wet Deposition Bin 4'
726           diag(iDUWT004 )%unit = 'kg/m2/s'
727     
728           diag(iDUWT005 )%name = 'DUWT005 '
729           diag(iDUWT005 )%desc = 'Dust Wet Deposition Bin 5'
730           diag(iDUWT005 )%unit = 'kg/m2/s'
731     
732           diag(iDUWT006 )%name = 'DUWT006 '
733           diag(iDUWT006 )%desc = 'Dust Wet Deposition Bin 6'
734           diag(iDUWT006 )%unit = 'kg/m2/s'
735     
736           diag(iDUWT007 )%name = 'DUWT007 '
737           diag(iDUWT007 )%desc = 'Dust Wet Deposition Bin 7'
738           diag(iDUWT007 )%unit = 'kg/m2/s'
739     
740           diag(iDUWT008 )%name = 'DUWT008 '
741           diag(iDUWT008 )%desc = 'Dust Wet Deposition Bin 8'
742           diag(iDUWT008 )%unit = 'kg/m2/s'
743     
744           diag(iDUSV001 )%name = 'DUSV001 '
745           diag(iDUSV001 )%desc = 'Dust Convective Scavenging Bin 1'
746           diag(iDUSV001 )%unit = 'kg/m2/s'
747     
748           diag(iDUSV002 )%name = 'DUSV002 '
749           diag(iDUSV002 )%desc = 'Dust Convective Scavenging Bin 2'
750           diag(iDUSV002 )%unit = 'kg/m2/s'
751     
752           diag(iDUSV003 )%name = 'DUSV003 '
753           diag(iDUSV003 )%desc = 'Dust Convective Scavenging Bin 3'
754           diag(iDUSV003 )%unit = 'kg/m2/s'
755     
756           diag(iDUSV004 )%name = 'DUSV004 '
757           diag(iDUSV004 )%desc = 'Dust Convective Scavenging Bin 4'
758           diag(iDUSV004 )%unit = 'kg/m2/s'
759     
760           diag(iDUSV005 )%name = 'DUSV005 '
761           diag(iDUSV005 )%desc = 'Dust Convective Scavenging Bin 5'
762           diag(iDUSV005 )%unit = 'kg/m2/s'
763     
764           diag(iDUSV006 )%name = 'DUSV006 '
765           diag(iDUSV006 )%desc = 'Dust Convective Scavenging Bin 6'
766           diag(iDUSV006 )%unit = 'kg/m2/s'
767     
768           diag(iDUSV007 )%name = 'DUSV007 '
769           diag(iDUSV007 )%desc = 'Dust Convective Scavenging Bin 7'
770           diag(iDUSV007 )%unit = 'kg/m2/s'
771     
772           diag(iDUSV008 )%name = 'DUSV008 '
773           diag(iDUSV008 )%desc = 'Dust Convective Scavenging Bin 8'
774           diag(iDUSV008 )%unit = 'kg/m2/s'
775     
776           diag(iDUSMASS )%name = 'DUSMASS '
777           diag(iDUSMASS )%desc = 'Dust Surface Mass Concentration'
778           diag(iDUSMASS )%unit = 'kg/m3'
779     
780           diag(iDUCMASS )%name = 'DUCMASS '
781           diag(iDUCMASS )%desc = 'Dust Column Mass Density'
782           diag(iDUCMASS )%unit = 'kg/m2'
783     
784           diag(iDUSMASS1 )%name = 'DUSMASS1 '
785           diag(iDUSMASS1 )%desc = 'Dust sub-micron Surface Mass Concentration'
786           diag(iDUSMASS1 )%unit = 'kg/m3'
787     
788           diag(iDUCMASS1 )%name = 'DUCMASS1 '
789           diag(iDUCMASS1 )%desc = 'Dust sub-micron Column Mass Density'
790           diag(iDUCMASS1 )%unit = 'kg/m2'
791     
792           diag(iDUEXTTAU )%name = 'DUEXTTAU '
793           diag(iDUEXTTAU )%desc = 'Dust Extinction AOT [550 nm]'
794           diag(iDUEXTTAU )%unit = 'unitless'
795     
796           diag(iDUSCATAU )%name = 'DUSCATAU '
797           diag(iDUSCATAU )%desc = 'Dust Scattering AOT [550 nm]'
798           diag(iDUSCATAU )%unit = 'unitless'
799     
800           diag(iDUAERIDX )%name = 'DUAERIDX '
801           diag(iDUAERIDX )%desc = 'Dust TOMS UV Aerosol Index'
802           diag(iDUAERIDX )%unit = 'unitless'
803     
804           diag(iDUSM25 )%name = 'DUSM25 '
805           diag(iDUSM25 )%desc = 'Dust Surface Mass Concentration (PM2.5)'
806           diag(iDUSM25 )%unit = 'kg/m3'
807     
808           diag(iDUCM25 )%name = 'DUCM25 '
809           diag(iDUCM25 )%desc = 'Dust Column Mass Density (PM2.5)'
810           diag(iDUCM25 )%unit = 'kg/m2'
811     
812           diag(iDUEXTT25 )%name = 'DUEXTT25 '
813           diag(iDUEXTT25 )%desc = 'Dust Extinction AOT [550 nm] (PM2.5)'
814           diag(iDUEXTT25 )%unit = 'unitless'
815     
816           diag(iDUSCAT25 )%name = 'DUSCAT25 '
817           diag(iDUSCAT25 )%desc = 'Dust Scattering AOT [550 nm] (PM2.5)'
818           diag(iDUSCAT25 )%unit = 'unitless'
819     
820           diag(iSSEM001 )%name = 'SSEM001 '
821           diag(iSSEM001 )%desc = 'Seasalt Emission Bin 1'
822           diag(iSSEM001 )%unit = 'kg/m2/s'
823     
824           diag(iSSEM002 )%name = 'SSEM002 '
825           diag(iSSEM002 )%desc = 'Seasalt Emission Bin 2'
826           diag(iSSEM002 )%unit = 'kg/m2/s'
827     
828           diag(iSSEM003 )%name = 'SSEM003 '
829           diag(iSSEM003 )%desc = 'Seasalt Emission Bin 3'
830           diag(iSSEM003 )%unit = 'kg/m2/s'
831     
832           diag(iSSEM004 )%name = 'SSEM004 '
833           diag(iSSEM004 )%desc = 'Seasalt Emission Bin 4'
834           diag(iSSEM004 )%unit = 'kg/m2/s'
835     
836           diag(iSSEM005 )%name = 'SSEM005 '
837           diag(iSSEM005 )%desc = 'Seasalt Emission Bin 5'
838           diag(iSSEM005 )%unit = 'kg/m2/s'
839     
840           diag(iSSEM006 )%name = 'SSEM006 '
841           diag(iSSEM006 )%desc = 'Seasalt Emission Bin 6'
842           diag(iSSEM006 )%unit = 'kg/m2/s'
843     
844           diag(iSSEM007 )%name = 'SSEM007 '
845           diag(iSSEM007 )%desc = 'Seasalt Emission Bin 7'
846           diag(iSSEM007 )%unit = 'kg/m2/s'
847     
848           diag(iSSEM008 )%name = 'SSEM008 '
849           diag(iSSEM008 )%desc = 'Seasalt Emission Bin 8'
850           diag(iSSEM008 )%unit = 'kg/m2/s'
851     
852           diag(iSSSD001 )%name = 'SSSD001 '
853           diag(iSSSD001 )%desc = 'Seasalt Sedimentation Bin 1'
854           diag(iSSSD001 )%unit = 'kg/m2/s'
855     
856           diag(iSSSD002 )%name = 'SSSD002 '
857           diag(iSSSD002 )%desc = 'Seasalt Sedimentation Bin 2'
858           diag(iSSSD002 )%unit = 'kg/m2/s'
859     
860           diag(iSSSD003 )%name = 'SSSD003 '
861           diag(iSSSD003 )%desc = 'Seasalt Sedimentation Bin 3'
862           diag(iSSSD003 )%unit = 'kg/m2/s'
863     
864           diag(iSSSD004 )%name = 'SSSD004 '
865           diag(iSSSD004 )%desc = 'Seasalt Sedimentation Bin 4'
866           diag(iSSSD004 )%unit = 'kg/m2/s'
867     
868           diag(iSSSD005 )%name = 'SSSD005 '
869           diag(iSSSD005 )%desc = 'Seasalt Sedimentation Bin 5'
870           diag(iSSSD005 )%unit = 'kg/m2/s'
871     
872           diag(iSSSD006 )%name = 'SSSD006 '
873           diag(iSSSD006 )%desc = 'Seasalt Sedimentation Bin 6'
874           diag(iSSSD006 )%unit = 'kg/m2/s'
875     
876           diag(iSSSD007 )%name = 'SSSD007 '
877           diag(iSSSD007 )%desc = 'Seasalt Sedimentation Bin 7'
878           diag(iSSSD007 )%unit = 'kg/m2/s'
879     
880           diag(iSSSD008 )%name = 'SSSD008 '
881           diag(iSSSD008 )%desc = 'Seasalt Sedimentation Bin 8'
882           diag(iSSSD008 )%unit = 'kg/m2/s'
883     
884           diag(iSSDP001 )%name = 'SSDP001 '
885           diag(iSSDP001 )%desc = 'Seasalt Dry Deposition Bin 1'
886           diag(iSSDP001 )%unit = 'kg/m2/s'
887     
888           diag(iSSDP002 )%name = 'SSDP002 '
889           diag(iSSDP002 )%desc = 'Seasalt Dry Deposition Bin 2'
890           diag(iSSDP002 )%unit = 'kg/m2/s'
891     
892           diag(iSSDP003 )%name = 'SSDP003 '
893           diag(iSSDP003 )%desc = 'Seasalt Dry Deposition Bin 3'
894           diag(iSSDP003 )%unit = 'kg/m2/s'
895     
896           diag(iSSDP004 )%name = 'SSDP004 '
897           diag(iSSDP004 )%desc = 'Seasalt Dry Deposition Bin 4'
898           diag(iSSDP004 )%unit = 'kg/m2/s'
899     
900           diag(iSSDP005 )%name = 'SSDP005 '
901           diag(iSSDP005 )%desc = 'Seasalt Dry Deposition Bin 5'
902           diag(iSSDP005 )%unit = 'kg/m2/s'
903     
904           diag(iSSDP006 )%name = 'SSDP006 '
905           diag(iSSDP006 )%desc = 'Seasalt Dry Deposition Bin 6'
906           diag(iSSDP006 )%unit = 'kg/m2/s'
907     
908           diag(iSSDP007 )%name = 'SSDP007 '
909           diag(iSSDP007 )%desc = 'Seasalt Dry Deposition Bin 7'
910           diag(iSSDP007 )%unit = 'kg/m2/s'
911     
912           diag(iSSDP008 )%name = 'SSDP008 '
913           diag(iSSDP008 )%desc = 'Seasalt Dry Deposition Bin 8'
914           diag(iSSDP008 )%unit = 'kg/m2/s'
915     
916           diag(iSSWT001 )%name = 'SSWT001 '
917           diag(iSSWT001 )%desc = 'Seasalt Wet Deposition Bin 1'
918           diag(iSSWT001 )%unit = 'kg/m2/s'
919     
920           diag(iSSWT002 )%name = 'SSWT002 '
921           diag(iSSWT002 )%desc = 'Seasalt Wet Deposition Bin 2'
922           diag(iSSWT002 )%unit = 'kg/m2/s'
923     
924           diag(iSSWT003 )%name = 'SSWT003 '
925           diag(iSSWT003 )%desc = 'Seasalt Wet Deposition Bin 3'
926           diag(iSSWT003 )%unit = 'kg/m2/s'
927     
928           diag(iSSWT004 )%name = 'SSWT004 '
929           diag(iSSWT004 )%desc = 'Seasalt Wet Deposition Bin 4'
930           diag(iSSWT004 )%unit = 'kg/m2/s'
931     
932           diag(iSSWT005 )%name = 'SSWT005 '
933           diag(iSSWT005 )%desc = 'Seasalt Wet Deposition Bin 5'
934           diag(iSSWT005 )%unit = 'kg/m2/s'
935     
936           diag(iSSWT006 )%name = 'SSWT006 '
937           diag(iSSWT006 )%desc = 'Seasalt Wet Deposition Bin 6'
938           diag(iSSWT006 )%unit = 'kg/m2/s'
939     
940           diag(iSSWT007 )%name = 'SSWT007 '
941           diag(iSSWT007 )%desc = 'Seasalt Wet Deposition Bin 7'
942           diag(iSSWT007 )%unit = 'kg/m2/s'
943     
944           diag(iSSWT008 )%name = 'SSWT008 '
945           diag(iSSWT008 )%desc = 'Seasalt Wet Deposition Bin 8'
946           diag(iSSWT008 )%unit = 'kg/m2/s'
947     
948           diag(iSSSV001 )%name = 'SSSV001 '
949           diag(iSSSV001 )%desc = 'Seasalt Convective Scavenging Bin 1'
950           diag(iSSSV001 )%unit = 'kg/m2/s'
951     
952           diag(iSSSV002 )%name = 'SSSV002 '
953           diag(iSSSV002 )%desc = 'Seasalt Convective Scavenging Bin 2'
954           diag(iSSSV002 )%unit = 'kg/m2/s'
955     
956           diag(iSSSV003 )%name = 'SSSV003 '
957           diag(iSSSV003 )%desc = 'Seasalt Convective Scavenging Bin 3'
958           diag(iSSSV003 )%unit = 'kg/m2/s'
959     
960           diag(iSSSV004 )%name = 'SSSV004 '
961           diag(iSSSV004 )%desc = 'Seasalt Convective Scavenging Bin 4'
962           diag(iSSSV004 )%unit = 'kg/m2/s'
963     
964           diag(iSSSV005 )%name = 'SSSV005 '
965           diag(iSSSV005 )%desc = 'Seasalt Convective Scavenging Bin 5'
966           diag(iSSSV005 )%unit = 'kg/m2/s'
967     
968           diag(iSSSV006 )%name = 'SSSV006 '
969           diag(iSSSV006 )%desc = 'Seasalt Convective Scavenging Bin 6'
970           diag(iSSSV006 )%unit = 'kg/m2/s'
971     
972           diag(iSSSV007 )%name = 'SSSV007 '
973           diag(iSSSV007 )%desc = 'Seasalt Convective Scavenging Bin 7'
974           diag(iSSSV007 )%unit = 'kg/m2/s'
975     
976           diag(iSSSV008 )%name = 'SSSV008 '
977           diag(iSSSV008 )%desc = 'Seasalt Convective Scavenging Bin 8'
978           diag(iSSSV008 )%unit = 'kg/m2/s'
979     
980           diag(iSSSMASS )%name = 'SSSMASS '
981           diag(iSSSMASS )%desc = 'Seasalt Surface Mass Concentration'
982           diag(iSSSMASS )%unit = 'kg/m3'
983     
984           diag(iSSCMASS )%name = 'SSCMASS '
985           diag(iSSCMASS )%desc = 'Seasalt Column Mass Density'
986           diag(iSSCMASS )%unit = 'kg/m2'
987     
988           diag(iSSEXTTAU )%name = 'SSEXTTAU '
989           diag(iSSEXTTAU )%desc = 'Seasalt Extinction AOT [550 nm]'
990           diag(iSSEXTTAU )%unit = 'unitless'
991     
992           diag(iSSSCATAU )%name = 'SSSCATAU '
993           diag(iSSSCATAU )%desc = 'Seasalt Scattering AOT [550 nm]'
994           diag(iSSSCATAU )%unit = 'unitless'
995     
996           diag(iSSSM25 )%name = 'SSSM25 '
997           diag(iSSSM25 )%desc = 'Seasalt Surface Mass Concentration (PM2.5)'
998           diag(iSSSM25 )%unit = 'kg/m3'
999     
1000           diag(iSSCM25 )%name = 'SSCM25 '
1001           diag(iSSCM25 )%desc = 'Seasalt Column Mass Density (PM2.5)'
1002           diag(iSSCM25 )%unit = 'kg/m2'
1003     
1004           diag(iSSEXTT25 )%name = 'SSEXTT25 '
1005           diag(iSSEXTT25 )%desc = 'Seasalt Extinction AOT [550 nm] (PM2.5)'
1006           diag(iSSEXTT25 )%unit = 'unitless'
1007     
1008           diag(iSSSCAT25 )%name = 'SSSCAT25 '
1009           diag(iSSSCAT25 )%desc = 'Seasalt Scattering AOT [550 nm] (PM2.5)'
1010           diag(iSSSCAT25 )%unit = 'unitless'
1011     
1012           diag(iBCEM001 )%name = 'BCEM001 '
1013           diag(iBCEM001 )%desc = 'Black Carbon Emission Bin 1'
1014           diag(iBCEM001 )%unit = 'kg/m2/s'
1015     
1016           diag(iBCEM002 )%name = 'BCEM002 '
1017           diag(iBCEM002 )%desc = 'Black Carbon Emission Bin 2'
1018           diag(iBCEM002 )%unit = 'kg/m2/s'
1019     
1020           diag(iBCEM003 )%name = 'BCEM003 '
1021           diag(iBCEM003 )%desc = 'Black Carbon Emission Bin 3'
1022           diag(iBCEM003 )%unit = 'kg/m2/s'
1023     
1024           diag(iBCEM004 )%name = 'BCEM004 '
1025           diag(iBCEM004 )%desc = 'Black Carbon Emission Bin 4'
1026           diag(iBCEM004 )%unit = 'kg/m2/s'
1027     
1028           diag(iBCEM005 )%name = 'BCEM005 '
1029           diag(iBCEM005 )%desc = 'Black Carbon Emission Bin 5'
1030           diag(iBCEM005 )%unit = 'kg/m2/s'
1031     
1032           diag(iBCEM006 )%name = 'BCEM006 '
1033           diag(iBCEM006 )%desc = 'Black Carbon Emission Bin 6'
1034           diag(iBCEM006 )%unit = 'kg/m2/s'
1035     
1036           diag(iBCEM007 )%name = 'BCEM007 '
1037           diag(iBCEM007 )%desc = 'Black Carbon Emission Bin 7'
1038           diag(iBCEM007 )%unit = 'kg/m2/s'
1039     
1040           diag(iBCEM008 )%name = 'BCEM008 '
1041           diag(iBCEM008 )%desc = 'Black Carbon Emission Bin 8'
1042           diag(iBCEM008 )%unit = 'kg/m2/s'
1043     
1044           diag(iBCDP001 )%name = 'BCDP001 '
1045           diag(iBCDP001 )%desc = 'Black Carbon Deposition Bin 1'
1046           diag(iBCDP001 )%unit = 'kg/m2/s'
1047     
1048           diag(iBCDP002 )%name = 'BCDP002 '
1049           diag(iBCDP002 )%desc = 'Black Carbon Deposition Bin 2'
1050           diag(iBCDP002 )%unit = 'kg/m2/s'
1051     
1052           diag(iBCDP003 )%name = 'BCDP003 '
1053           diag(iBCDP003 )%desc = 'Black Carbon Deposition Bin 3'
1054           diag(iBCDP003 )%unit = 'kg/m2/s'
1055     
1056           diag(iBCDP004 )%name = 'BCDP004 '
1057           diag(iBCDP004 )%desc = 'Black Carbon Deposition Bin 4'
1058           diag(iBCDP004 )%unit = 'kg/m2/s'
1059     
1060           diag(iBCDP005 )%name = 'BCDP005 '
1061           diag(iBCDP005 )%desc = 'Black Carbon Deposition Bin 5'
1062           diag(iBCDP005 )%unit = 'kg/m2/s'
1063     
1064           diag(iBCDP006 )%name = 'BCDP006 '
1065           diag(iBCDP006 )%desc = 'Black Carbon Deposition Bin 6'
1066           diag(iBCDP006 )%unit = 'kg/m2/s'
1067     
1068           diag(iBCDP007 )%name = 'BCDP007 '
1069           diag(iBCDP007 )%desc = 'Black Carbon Deposition Bin 7'
1070           diag(iBCDP007 )%unit = 'kg/m2/s'
1071     
1072           diag(iBCDP008 )%name = 'BCDP008 '
1073           diag(iBCDP008 )%desc = 'Black Carbon Deposition Bin 8'
1074           diag(iBCDP008 )%unit = 'kg/m2/s'
1075     
1076           diag(iBCWT001 )%name = 'BCWT001 '
1077           diag(iBCWT001 )%desc = 'Black Carbon Wet Deposition Bin 1'
1078           diag(iBCWT001 )%unit = 'kg/m2/s'
1079     
1080           diag(iBCWT002 )%name = 'BCWT002 '
1081           diag(iBCWT002 )%desc = 'Black Carbon Wet Deposition Bin 2'
1082           diag(iBCWT002 )%unit = 'kg/m2/s'
1083     
1084           diag(iBCWT003 )%name = 'BCWT003 '
1085           diag(iBCWT003 )%desc = 'Black Carbon Wet Deposition Bin 3'
1086           diag(iBCWT003 )%unit = 'kg/m2/s'
1087     
1088           diag(iBCWT004 )%name = 'BCWT004 '
1089           diag(iBCWT004 )%desc = 'Black Carbon Wet Deposition Bin 4'
1090           diag(iBCWT004 )%unit = 'kg/m2/s'
1091     
1092           diag(iBCWT005 )%name = 'BCWT005 '
1093           diag(iBCWT005 )%desc = 'Black Carbon Wet Deposition Bin 5'
1094           diag(iBCWT005 )%unit = 'kg/m2/s'
1095     
1096           diag(iBCWT006 )%name = 'BCWT006 '
1097           diag(iBCWT006 )%desc = 'Black Carbon Wet Deposition Bin 6'
1098           diag(iBCWT006 )%unit = 'kg/m2/s'
1099     
1100           diag(iBCWT007 )%name = 'BCWT007 '
1101           diag(iBCWT007 )%desc = 'Black Carbon Wet Deposition Bin 7'
1102           diag(iBCWT007 )%unit = 'kg/m2/s'
1103     
1104           diag(iBCWT008 )%name = 'BCWT008 '
1105           diag(iBCWT008 )%desc = 'Black Carbon Wet Deposition Bin 8'
1106           diag(iBCWT008 )%unit = 'kg/m2/s'
1107     
1108           diag(iBCSV001 )%name = 'BCSV001 '
1109           diag(iBCSV001 )%desc = 'Black Carbon Convective Scavenging Bin 1'
1110           diag(iBCSV001 )%unit = 'kg/m2/s'
1111     
1112           diag(iBCSV002 )%name = 'BCSV002 '
1113           diag(iBCSV002 )%desc = 'Black Carbon Convective Scavenging Bin 2'
1114           diag(iBCSV002 )%unit = 'kg/m2/s'
1115     
1116           diag(iBCSV003 )%name = 'BCSV003 '
1117           diag(iBCSV003 )%desc = 'Black Carbon Convective Scavenging Bin 3'
1118           diag(iBCSV003 )%unit = 'kg/m2/s'
1119     
1120           diag(iBCSV004 )%name = 'BCSV004 '
1121           diag(iBCSV004 )%desc = 'Black Carbon Convective Scavenging Bin 4'
1122           diag(iBCSV004 )%unit = 'kg/m2/s'
1123     
1124           diag(iBCSV005 )%name = 'BCSV005 '
1125           diag(iBCSV005 )%desc = 'Black Carbon Convective Scavenging Bin 5'
1126           diag(iBCSV005 )%unit = 'kg/m2/s'
1127     
1128           diag(iBCSV006 )%name = 'BCSV006 '
1129           diag(iBCSV006 )%desc = 'Black Carbon Convective Scavenging Bin 6'
1130           diag(iBCSV006 )%unit = 'kg/m2/s'
1131     
1132           diag(iBCSV007 )%name = 'BCSV007 '
1133           diag(iBCSV007 )%desc = 'Black Carbon Convective Scavenging Bin 7'
1134           diag(iBCSV007 )%unit = 'kg/m2/s'
1135     
1136           diag(iBCSV008 )%name = 'BCSV008 '
1137           diag(iBCSV008 )%desc = 'Black Carbon Convective Scavenging Bin 8'
1138           diag(iBCSV008 )%unit = 'kg/m2/s'
1139     
1140           diag(iBCSMASS )%name = 'BCSMASS '
1141           diag(iBCSMASS )%desc = 'Black Carbon Surface Mass Concentration'
1142           diag(iBCSMASS )%unit = 'kg/m3'
1143     
1144           diag(iBCCMASS )%name = 'BCCMASS '
1145           diag(iBCCMASS )%desc = 'Black Carbon Column Mass Density'
1146           diag(iBCCMASS )%unit = 'kg/m2'
1147     
1148           diag(iBCEXTTAU )%name = 'BCEXTTAU '
1149           diag(iBCEXTTAU )%desc = 'Black Carbon Extinction AOT [550 nm]'
1150           diag(iBCEXTTAU )%unit = 'unitless'
1151     
1152           diag(iBCSCATAU )%name = 'BCSCATAU '
1153           diag(iBCSCATAU )%desc = 'Black Carbon Scattering AOT [550 nm]'
1154           diag(iBCSCATAU )%unit = 'unitless'
1155     
1156           diag(iBCEMAN )%name = 'BCEMAN '
1157           diag(iBCEMAN )%desc = 'Black Carbon Anthropogenic Emissions'
1158           diag(iBCEMAN )%unit = 'kg/m2/s'
1159     
1160           diag(iBCEMBB )%name = 'BCEMBB '
1161           diag(iBCEMBB )%desc = 'Black Carbon Biomass Burning Emissions'
1162           diag(iBCEMBB )%unit = 'kg/m2/s'
1163     
1164           diag(iBCEMBF )%name = 'BCEMBF '
1165           diag(iBCEMBF )%desc = 'Black Carbon Biofuel Emissions'
1166           diag(iBCEMBF )%unit = 'kg/m2/s'
1167     
1168           diag(iBCHYPHIL )%name = 'BCHYPHIL '
1169           diag(iBCHYPHIL )%desc = 'Black Carbon Conversion of Hydrophobic to Hydrophilic'
1170           diag(iBCHYPHIL )%unit = 'kg/m2/s'
1171     
1172           diag(iOCEM001 )%name = 'OCEM001 '
1173           diag(iOCEM001 )%desc = 'Organic Carbon Emission Bin 1'
1174           diag(iOCEM001 )%unit = 'kg/m2/s'
1175     
1176           diag(iOCEM002 )%name = 'OCEM002 '
1177           diag(iOCEM002 )%desc = 'Organic Carbon Emission Bin 2'
1178           diag(iOCEM002 )%unit = 'kg/m2/s'
1179     
1180           diag(iOCEM003 )%name = 'OCEM003 '
1181           diag(iOCEM003 )%desc = 'Organic Carbon Emission Bin 3'
1182           diag(iOCEM003 )%unit = 'kg/m2/s'
1183     
1184           diag(iOCEM004 )%name = 'OCEM004 '
1185           diag(iOCEM004 )%desc = 'Organic Carbon Emission Bin 4'
1186           diag(iOCEM004 )%unit = 'kg/m2/s'
1187     
1188           diag(iOCEM005 )%name = 'OCEM005 '
1189           diag(iOCEM005 )%desc = 'Organic Carbon Emission Bin 5'
1190           diag(iOCEM005 )%unit = 'kg/m2/s'
1191     
1192           diag(iOCEM006 )%name = 'OCEM006 '
1193           diag(iOCEM006 )%desc = 'Organic Carbon Emission Bin 6'
1194           diag(iOCEM006 )%unit = 'kg/m2/s'
1195     
1196           diag(iOCEM007 )%name = 'OCEM007 '
1197           diag(iOCEM007 )%desc = 'Organic Carbon Emission Bin 7'
1198           diag(iOCEM007 )%unit = 'kg/m2/s'
1199     
1200           diag(iOCEM008 )%name = 'OCEM008 '
1201           diag(iOCEM008 )%desc = 'Organic Carbon Emission Bin 8'
1202           diag(iOCEM008 )%unit = 'kg/m2/s'
1203     
1204           diag(iOCDP001 )%name = 'OCDP001 '
1205           diag(iOCDP001 )%desc = 'Organic Carbon Deposition Bin 1'
1206           diag(iOCDP001 )%unit = 'kg/m2/s'
1207     
1208           diag(iOCDP002 )%name = 'OCDP002 '
1209           diag(iOCDP002 )%desc = 'Organic Carbon Deposition Bin 2'
1210           diag(iOCDP002 )%unit = 'kg/m2/s'
1211     
1212           diag(iOCDP003 )%name = 'OCDP003 '
1213           diag(iOCDP003 )%desc = 'Organic Carbon Deposition Bin 3'
1214           diag(iOCDP003 )%unit = 'kg/m2/s'
1215     
1216           diag(iOCDP004 )%name = 'OCDP004 '
1217           diag(iOCDP004 )%desc = 'Organic Carbon Deposition Bin 4'
1218           diag(iOCDP004 )%unit = 'kg/m2/s'
1219     
1220           diag(iOCDP005 )%name = 'OCDP005 '
1221           diag(iOCDP005 )%desc = 'Organic Carbon Deposition Bin 5'
1222           diag(iOCDP005 )%unit = 'kg/m2/s'
1223     
1224           diag(iOCDP006 )%name = 'OCDP006 '
1225           diag(iOCDP006 )%desc = 'Organic Carbon Deposition Bin 6'
1226           diag(iOCDP006 )%unit = 'kg/m2/s'
1227     
1228           diag(iOCDP007 )%name = 'OCDP007 '
1229           diag(iOCDP007 )%desc = 'Organic Carbon Deposition Bin 7'
1230           diag(iOCDP007 )%unit = 'kg/m2/s'
1231     
1232           diag(iOCDP008 )%name = 'OCDP008 '
1233           diag(iOCDP008 )%desc = 'Organic Carbon Deposition Bin 8'
1234           diag(iOCDP008 )%unit = 'kg/m2/s'
1235     
1236           diag(iOCWT001 )%name = 'OCWT001 '
1237           diag(iOCWT001 )%desc = 'Organic Carbon Wet Deposition Bin 1'
1238           diag(iOCWT001 )%unit = 'kg/m2/s'
1239     
1240           diag(iOCWT002 )%name = 'OCWT002 '
1241           diag(iOCWT002 )%desc = 'Organic Carbon Wet Deposition Bin 2'
1242           diag(iOCWT002 )%unit = 'kg/m2/s'
1243     
1244           diag(iOCWT003 )%name = 'OCWT003 '
1245           diag(iOCWT003 )%desc = 'Organic Carbon Wet Deposition Bin 3'
1246           diag(iOCWT003 )%unit = 'kg/m2/s'
1247     
1248           diag(iOCWT004 )%name = 'OCWT004 '
1249           diag(iOCWT004 )%desc = 'Organic Carbon Wet Deposition Bin 4'
1250           diag(iOCWT004 )%unit = 'kg/m2/s'
1251     
1252           diag(iOCWT005 )%name = 'OCWT005 '
1253           diag(iOCWT005 )%desc = 'Organic Carbon Wet Deposition Bin 5'
1254           diag(iOCWT005 )%unit = 'kg/m2/s'
1255     
1256           diag(iOCWT006 )%name = 'OCWT006 '
1257           diag(iOCWT006 )%desc = 'Organic Carbon Wet Deposition Bin 6'
1258           diag(iOCWT006 )%unit = 'kg/m2/s'
1259     
1260           diag(iOCWT007 )%name = 'OCWT007 '
1261           diag(iOCWT007 )%desc = 'Organic Carbon Wet Deposition Bin 7'
1262           diag(iOCWT007 )%unit = 'kg/m2/s'
1263     
1264           diag(iOCWT008 )%name = 'OCWT008 '
1265           diag(iOCWT008 )%desc = 'Organic Carbon Wet Deposition Bin 8'
1266           diag(iOCWT008 )%unit = 'kg/m2/s'
1267     
1268           diag(iOCSV001 )%name = 'OCSV001 '
1269           diag(iOCSV001 )%desc = 'Organic Carbon Convective Scavenging Bin 1'
1270           diag(iOCSV001 )%unit = 'kg/m2/s'
1271     
1272           diag(iOCSV002 )%name = 'OCSV002 '
1273           diag(iOCSV002 )%desc = 'Organic Carbon Convective Scavenging Bin 2'
1274           diag(iOCSV002 )%unit = 'kg/m2/s'
1275     
1276           diag(iOCSV003 )%name = 'OCSV003 '
1277           diag(iOCSV003 )%desc = 'Organic Carbon Convective Scavenging Bin 3'
1278           diag(iOCSV003 )%unit = 'kg/m2/s'
1279     
1280           diag(iOCSV004 )%name = 'OCSV004 '
1281           diag(iOCSV004 )%desc = 'Organic Carbon Convective Scavenging Bin 4'
1282           diag(iOCSV004 )%unit = 'kg/m2/s'
1283     
1284           diag(iOCSV005 )%name = 'OCSV005 '
1285           diag(iOCSV005 )%desc = 'Organic Carbon Convective Scavenging Bin 5'
1286           diag(iOCSV005 )%unit = 'kg/m2/s'
1287     
1288           diag(iOCSV006 )%name = 'OCSV006 '
1289           diag(iOCSV006 )%desc = 'Organic Carbon Convective Scavenging Bin 6'
1290           diag(iOCSV006 )%unit = 'kg/m2/s'
1291     
1292           diag(iOCSV007 )%name = 'OCSV007 '
1293           diag(iOCSV007 )%desc = 'Organic Carbon Convective Scavenging Bin 7'
1294           diag(iOCSV007 )%unit = 'kg/m2/s'
1295     
1296           diag(iOCSV008 )%name = 'OCSV008 '
1297           diag(iOCSV008 )%desc = 'Organic Carbon Convective Scavenging Bin 8'
1298           diag(iOCSV008 )%unit = 'kg/m2/s'
1299     
1300           diag(iOCSMASS )%name = 'OCSMASS '
1301           diag(iOCSMASS )%desc = 'Organic Carbon Surface Mass Concentration'
1302           diag(iOCSMASS )%unit = 'kg/m3'
1303     
1304           diag(iOCCMASS )%name = 'OCCMASS '
1305           diag(iOCCMASS )%desc = 'Organic Carbon Column Mass Density'
1306           diag(iOCCMASS )%unit = 'kg/m2'
1307     
1308           diag(iOCEXTTAU )%name = 'OCEXTTAU '
1309           diag(iOCEXTTAU )%desc = 'Organic Carbon Extinction AOT [550 nm]'
1310           diag(iOCEXTTAU )%unit = 'unitless'
1311     
1312           diag(iOCSCATAU )%name = 'OCSCATAU '
1313           diag(iOCSCATAU )%desc = 'Organic Carbon Scattering AOT [550 nm]'
1314           diag(iOCSCATAU )%unit = 'unitless'
1315     
1316           diag(iOCEMAN )%name = 'OCEMAN '
1317           diag(iOCEMAN )%desc = 'Organic Carbon Anthropogenic Emissions'
1318           diag(iOCEMAN )%unit = 'kg/m2/s'
1319     
1320           diag(iOCEMBB )%name = 'OCEMBB '
1321           diag(iOCEMBB )%desc = 'Organic Carbon Biomass Burning Emissions'
1322           diag(iOCEMBB )%unit = 'kg/m2/s'
1323     
1324           diag(iOCEMBF )%name = 'OCEMBF '
1325           diag(iOCEMBF )%desc = 'Organic Carbon Biofuel Emissions'
1326           diag(iOCEMBF )%unit = 'kg/m2/s'
1327     
1328           diag(iOCEMBG )%name = 'OCEMBG '
1329           diag(iOCEMBG )%desc = 'Organic Carbon Biogenic Emissions'
1330           diag(iOCEMBG )%unit = 'kg/m2/s'
1331     
1332           diag(iOCHYPHIL )%name = 'OCHYPHIL '
1333           diag(iOCHYPHIL )%desc = 'Organic Carbon Conversion of Hydrophobic to Hydrophilic'
1334           diag(iOCHYPHIL )%unit = 'kg/m2/s'
1335     
1336           diag(iSUEM001 )%name = 'SUEM001 '
1337           diag(iSUEM001 )%desc = 'Sulfate Emission Bin 1'
1338           diag(iSUEM001 )%unit = 'kg/m2/s'
1339     
1340           diag(iSUEM002 )%name = 'SUEM002 '
1341           diag(iSUEM002 )%desc = 'Sulfate Emission Bin 2'
1342           diag(iSUEM002 )%unit = 'kg/m2/s'
1343     
1344           diag(iSUEM003 )%name = 'SUEM003 '
1345           diag(iSUEM003 )%desc = 'Sulfate Emission Bin 3'
1346           diag(iSUEM003 )%unit = 'kg/m2/s'
1347     
1348           diag(iSUEM004 )%name = 'SUEM004 '
1349           diag(iSUEM004 )%desc = 'Sulfate Emission Bin 4'
1350           diag(iSUEM004 )%unit = 'kg/m2/s'
1351     
1352           diag(iSUEM005 )%name = 'SUEM005 '
1353           diag(iSUEM005 )%desc = 'Sulfate Emission Bin 5'
1354           diag(iSUEM005 )%unit = 'kg/m2/s'
1355     
1356           diag(iSUEM006 )%name = 'SUEM006 '
1357           diag(iSUEM006 )%desc = 'Sulfate Emission Bin 6'
1358           diag(iSUEM006 )%unit = 'kg/m2/s'
1359     
1360           diag(iSUEM007 )%name = 'SUEM007 '
1361           diag(iSUEM007 )%desc = 'Sulfate Emission Bin 7'
1362           diag(iSUEM007 )%unit = 'kg/m2/s'
1363     
1364           diag(iSUEM008 )%name = 'SUEM008 '
1365           diag(iSUEM008 )%desc = 'Sulfate Emission Bin 8'
1366           diag(iSUEM008 )%unit = 'kg/m2/s'
1367     
1368           diag(iSUDP001 )%name = 'SUDP001 '
1369           diag(iSUDP001 )%desc = 'Sulfate Deposition Bin 1'
1370           diag(iSUDP001 )%unit = 'kg/m2/s'
1371     
1372           diag(iSUDP002 )%name = 'SUDP002 '
1373           diag(iSUDP002 )%desc = 'Sulfate Deposition Bin 2'
1374           diag(iSUDP002 )%unit = 'kg/m2/s'
1375     
1376           diag(iSUDP003 )%name = 'SUDP003 '
1377           diag(iSUDP003 )%desc = 'Sulfate Deposition Bin 3'
1378           diag(iSUDP003 )%unit = 'kg/m2/s'
1379     
1380           diag(iSUDP004 )%name = 'SUDP004 '
1381           diag(iSUDP004 )%desc = 'Sulfate Deposition Bin 4'
1382           diag(iSUDP004 )%unit = 'kg/m2/s'
1383     
1384           diag(iSUDP005 )%name = 'SUDP005 '
1385           diag(iSUDP005 )%desc = 'Sulfate Deposition Bin 5'
1386           diag(iSUDP005 )%unit = 'kg/m2/s'
1387     
1388           diag(iSUDP006 )%name = 'SUDP006 '
1389           diag(iSUDP006 )%desc = 'Sulfate Deposition Bin 6'
1390           diag(iSUDP006 )%unit = 'kg/m2/s'
1391     
1392           diag(iSUDP007 )%name = 'SUDP007 '
1393           diag(iSUDP007 )%desc = 'Sulfate Deposition Bin 7'
1394           diag(iSUDP007 )%unit = 'kg/m2/s'
1395     
1396           diag(iSUDP008 )%name = 'SUDP008 '
1397           diag(iSUDP008 )%desc = 'Sulfate Deposition Bin 8'
1398           diag(iSUDP008 )%unit = 'kg/m2/s'
1399     
1400           diag(iSUWT001 )%name = 'SUWT001 '
1401           diag(iSUWT001 )%desc = 'Sulfate Wet Deposition Bin 1'
1402           diag(iSUWT001 )%unit = 'kg/m2/s'
1403     
1404           diag(iSUWT002 )%name = 'SUWT002 '
1405           diag(iSUWT002 )%desc = 'Sulfate Wet Deposition Bin 2'
1406           diag(iSUWT002 )%unit = 'kg/m2/s'
1407     
1408           diag(iSUWT003 )%name = 'SUWT003 '
1409           diag(iSUWT003 )%desc = 'Sulfate Wet Deposition Bin 3'
1410           diag(iSUWT003 )%unit = 'kg/m2/s'
1411     
1412           diag(iSUWT004 )%name = 'SUWT004 '
1413           diag(iSUWT004 )%desc = 'Sulfate Wet Deposition Bin 4'
1414           diag(iSUWT004 )%unit = 'kg/m2/s'
1415     
1416           diag(iSUWT005 )%name = 'SUWT005 '
1417           diag(iSUWT005 )%desc = 'Sulfate Wet Deposition Bin 5'
1418           diag(iSUWT005 )%unit = 'kg/m2/s'
1419     
1420           diag(iSUWT006 )%name = 'SUWT006 '
1421           diag(iSUWT006 )%desc = 'Sulfate Wet Deposition Bin 6'
1422           diag(iSUWT006 )%unit = 'kg/m2/s'
1423     
1424           diag(iSUWT007 )%name = 'SUWT007 '
1425           diag(iSUWT007 )%desc = 'Sulfate Wet Deposition Bin 7'
1426           diag(iSUWT007 )%unit = 'kg/m2/s'
1427     
1428           diag(iSUWT008 )%name = 'SUWT008 '
1429           diag(iSUWT008 )%desc = 'Sulfate Wet Deposition Bin 8'
1430           diag(iSUWT008 )%unit = 'kg/m2/s'
1431     
1432           diag(iSUSV001 )%name = 'SUSV001 '
1433           diag(iSUSV001 )%desc = 'Sulfate Convective Scavenging Bin 1'
1434           diag(iSUSV001 )%unit = 'kg/m2/s'
1435     
1436           diag(iSUSV002 )%name = 'SUSV002 '
1437           diag(iSUSV002 )%desc = 'Sulfate Convective Scavenging Bin 2'
1438           diag(iSUSV002 )%unit = 'kg/m2/s'
1439     
1440           diag(iSUSV003 )%name = 'SUSV003 '
1441           diag(iSUSV003 )%desc = 'Sulfate Convective Scavenging Bin 3'
1442           diag(iSUSV003 )%unit = 'kg/m2/s'
1443     
1444           diag(iSUSV004 )%name = 'SUSV004 '
1445           diag(iSUSV004 )%desc = 'Sulfate Convective Scavenging Bin 4'
1446           diag(iSUSV004 )%unit = 'kg/m2/s'
1447     
1448           diag(iSUSV005 )%name = 'SUSV005 '
1449           diag(iSUSV005 )%desc = 'Sulfate Convective Scavenging Bin 5'
1450           diag(iSUSV005 )%unit = 'kg/m2/s'
1451     
1452           diag(iSUSV006 )%name = 'SUSV006 '
1453           diag(iSUSV006 )%desc = 'Sulfate Convective Scavenging Bin 6'
1454           diag(iSUSV006 )%unit = 'kg/m2/s'
1455     
1456           diag(iSUSV007 )%name = 'SUSV007 '
1457           diag(iSUSV007 )%desc = 'Sulfate Convective Scavenging Bin 7'
1458           diag(iSUSV007 )%unit = 'kg/m2/s'
1459     
1460           diag(iSUSV008 )%name = 'SUSV008 '
1461           diag(iSUSV008 )%desc = 'Sulfate Convective Scavenging Bin 8'
1462           diag(iSUSV008 )%unit = 'kg/m2/s'
1463     
1464           diag(iSUSO2SMASS )%name = 'SO2SMASS '
1465           diag(iSUSO2SMASS )%desc = 'SO2 Surface Mass Concentration'
1466           diag(iSUSO2SMASS )%unit = 'kg/m3'
1467     
1468           diag(iSUSO2CMASS )%name = 'SO2CMASS '
1469           diag(iSUSO2CMASS )%desc = 'SO2 Column Mass Density'
1470           diag(iSUSO2CMASS )%unit = 'kg/m2'
1471     
1472           diag(iSUSO4SMASS )%name = 'SO4SMASS '
1473           diag(iSUSO4SMASS )%desc = 'SO4 Surface Mass Concentration'
1474           diag(iSUSO4SMASS )%unit = 'kg/m3'
1475     
1476           diag(iSUSO4CMASS )%name = 'SO4CMASS '
1477           diag(iSUSO4CMASS )%desc = 'SO4 Column Mass Density'
1478           diag(iSUSO4CMASS )%unit = 'kg/m2'
1479     
1480           diag(iSUDMSSMASS )%name = 'DMSSMASS '
1481           diag(iSUDMSSMASS )%desc = 'SO2 Surface Mass Concentration'
1482           diag(iSUDMSSMASS )%unit = 'kg/m3'
1483     
1484           diag(iSUDMSCMASS )%name = 'DMSCMASS '
1485           diag(iSUDMSCMASS )%desc = 'SO2 Column Mass Density'
1486           diag(iSUDMSCMASS )%unit = 'kg/m2'
1487     
1488           diag(iSUPSO2 )%name = 'SUPSO2 '
1489           diag(iSUPSO2 )%desc = 'SO2 Production from DMS Oxidation column integrated'
1490           diag(iSUPSO2 )%unit = 'kg/m2/s'
1491     
1492           diag(iSUPSO4g )%name = 'SUPSO4g '
1493           diag(iSUPSO4g )%desc = 'SO4 Production from gas-phase SO2 Oxidation column integrated'
1494           diag(iSUPSO4g )%unit = 'kg/m2/s'
1495     
1496           diag(iSUPSO4aq )%name = 'SUPSO4aq '
1497           diag(iSUPSO4aq )%desc = 'SO4 Production from aqueous SO2 Oxidation column integrated'
1498           diag(iSUPSO4aq )%unit = 'kg/m2/s'
1499     
1500           diag(iSUPSO4wet )%name = 'SUPSO4wt '
1501           diag(iSUPSO4wet )%desc = 'SO4 Production from aqueous SO2 Oxidation (wet dep) column integrated'
1502           diag(iSUPSO4wet )%unit = 'kg/m2/s'
1503     
1504           diag(iSUPMSA )%name = 'SUPMSA '
1505           diag(iSUPMSA )%desc = 'MSA Production from DMS Oxidation column integrated'
1506           diag(iSUPMSA )%unit = 'kg/m2/s'
1507     
1508           diag(iSUEXTTAU )%name = 'SUEXTTAU '
1509           diag(iSUEXTTAU )%desc = 'SO4 Extinction AOT [550 nm]'
1510           diag(iSUEXTTAU )%unit = 'unitless'
1511     
1512           diag(iSUSCATAU )%name = 'SUSCATAU '
1513           diag(iSUSCATAU )%desc = 'SO4 Scattering AOT [550 nm]'
1514           diag(iSUSCATAU )%unit = 'unitless'
1515     
1516           diag(iSUEMSO4AN )%name = 'SO4EMAN '
1517           diag(iSUEMSO4AN )%desc = 'SO4 Anthropogenic Emissions'
1518           diag(iSUEMSO4AN )%unit = 'kg/m2/s'
1519     
1520           diag(iSUEMSO2AN )%name = 'SO2EMAN '
1521           diag(iSUEMSO2AN )%desc = 'SO2 Anthropogenic Emissions'
1522           diag(iSUEMSO2AN )%unit = 'kg/m2/s'
1523     
1524           diag(iSUEMSO2BB )%name = 'SO2EMBB '
1525           diag(iSUEMSO2BB )%desc = 'SO2 Biomass Burning Emissions'
1526           diag(iSUEMSO2BB )%unit = 'kg/m2/s'
1527     
1528           diag(iSUEMSO2VN )%name = 'SO2EMVN '
1529           diag(iSUEMSO2VN )%desc = 'SO2 Non-explosive Volcanic Emissions'
1530           diag(iSUEMSO2VN )%unit = 'kg/m2/s'
1531     
1532           diag(iSUEMSO2VE )%name = 'SO2EMVE '
1533           diag(iSUEMSO2VE )%desc = 'SO2 Explosive Volanic Emissions'
1534           diag(iSUEMSO2VE )%unit = 'kg/m2/s'
1535     
1536           diag(iN2OFLX )%name = 'N2OFLX'
1537           diag(iN2OFLX )%desc = 'Derived N2O surface flux'
1538           diag(iN2OFLX )%unit = 'kg/s'
1539     
1540           diag(iCH4FLX )%name = 'CH4FLX'
1541           diag(iCH4FLX )%desc = 'Derived CH4 surface flux'
1542           diag(iCH4FLX )%unit = 'kg/s'
1543     
1544           diag(iF11FLX )%name = 'F11FLX'
1545           diag(iF11FLX )%desc = 'Derived F11 surface flux'
1546           diag(iF11FLX )%unit = 'kg/s'
1547     
1548           diag(iF12FLX )%name = 'F12FLX'
1549           diag(iF12FLX )%desc = 'Derived F12 surface flux'
1550           diag(iF12FLX )%unit = 'kg/s'
1551     
1552           diag(iF113FLX )%name = 'F113FLX'
1553           diag(iF113FLX )%desc = 'Derived F113 surface flux'
1554           diag(iF113FLX )%unit = 'kg/s'
1555     
1556           diag(iHCFCFLX )%name = 'HCFCFLX'
1557           diag(iHCFCFLX )%desc = 'Derived HCFC surface flux'
1558           diag(iHCFCFLX )%unit = 'kg/s'
1559     
1560           diag(iCCL4FLX )%name = 'CCL4FLX'
1561           diag(iCCL4FLX )%desc = 'Derived CCL4 surface flux'
1562           diag(iCCL4FLX )%unit = 'kg/s'
1563     
1564           diag(iCH3CCL3FLX )%name = 'MCFFLX'
1565           diag(iCH3CCL3FLX )%desc = 'Derived CH3CCL3 surface flux'
1566           diag(iCH3CCL3FLX )%unit = 'kg/s'
1567     
1568           diag(iCH3CLFLX )%name = 'CH3CLFLX'
1569           diag(iCH3CLFLX )%desc = 'Derived CH3CL surface flux'
1570           diag(iCH3CLFLX )%unit = 'kg/s'
1571     
1572           diag(iCH3BRFLX )%name = 'CH3BRFLX'
1573           diag(iCH3BRFLX )%desc = 'Derived CH3BR surface flux'
1574           diag(iCH3BRFLX )%unit = 'kg/s'
1575     
1576           diag(iH1301FLX )%name = 'H1301FLX'
1577           diag(iH1301FLX )%desc = 'Derived H1301 surface flux'
1578           diag(iH1301FLX )%unit = 'kg/s'
1579     
1580           diag(iH12_24FLX )%name = 'H1224FLX'
1581           diag(iH12_24FLX )%desc = 'Derived H12_24 surface flux'
1582           diag(iH12_24FLX )%unit = 'kg/s'
1583     
1584           diag(iCOSSZA )%name = 'COSSZA '
1585           diag(iCOSSZA )%desc = 'Cosine of SZA'
1586           diag(iCOSSZA )%unit = 'unitless'
1587     
1588           diag(iTCOSZ )%name = 'TCOSZ '
1589           diag(iTCOSZ )%desc = 'Integrated cosine of SZA'
1590           diag(iTCOSZ )%unit = 'unitless'
1591     
1592           diag(iXOH )%name = 'XOH '
1593           diag(iXOH )%desc = 'OH surface concentration'
1594           diag(iXOH )%unit = '# cm-3'
1595     
1596           diag(iXNO3 )%name = 'XNO3 '
1597           diag(iXNO3 )%desc = 'NO3 surface mixing ratio'
1598           diag(iXNO3 )%unit = 'unitless'
1599     
1600           diag(iXH2O2 )%name = 'XH2O2 '
1601           diag(iXH2O2 )%desc = 'H2O2 surface mixing ratio'
1602           diag(iXH2O2 )%unit = 'unitless'
1603     
1604           diag(iCOEM001 )%name = 'COEM001 '
1605           diag(iCOEM001 )%desc = 'Carbon Monoxide Emission Bin 1'
1606           diag(iCOEM001 )%unit = 'kg/m2/s'
1607     
1608           diag(iCOEM002 )%name = 'COEM002 '
1609           diag(iCOEM002 )%desc = 'Carbon Monoxide Emission Bin 2'
1610           diag(iCOEM002 )%unit = 'kg/m2/s'
1611     
1612           diag(iCOEM003 )%name = 'COEM003 '
1613           diag(iCOEM003 )%desc = 'Carbon Monoxide Emission Bin 3'
1614           diag(iCOEM003 )%unit = 'kg/m2/s'
1615     
1616           diag(iCOEM004 )%name = 'COEM004 '
1617           diag(iCOEM004 )%desc = 'Carbon Monoxide Emission Bin 4'
1618           diag(iCOEM004 )%unit = 'kg/m2/s'
1619     
1620           diag(iCOEM005 )%name = 'COEM005 '
1621           diag(iCOEM005 )%desc = 'Carbon Monoxide Emission Bin 5'
1622           diag(iCOEM005 )%unit = 'kg/m2/s'
1623     
1624           diag(iCOEM006 )%name = 'COEM006 '
1625           diag(iCOEM006 )%desc = 'Carbon Monoxide Emission Bin 6'
1626           diag(iCOEM006 )%unit = 'kg/m2/s'
1627     
1628           diag(iCOEM007 )%name = 'COEM007 '
1629           diag(iCOEM007 )%desc = 'Carbon Monoxide Emission Bin 7'
1630           diag(iCOEM007 )%unit = 'kg/m2/s'
1631     
1632           diag(iCOEM008 )%name = 'COEM008 '
1633           diag(iCOEM008 )%desc = 'Carbon Monoxide Emission Bin 8'
1634           diag(iCOEM008 )%unit = 'kg/m2/s'
1635     
1636           diag(iCOLS001 )%name = 'COLS001 '
1637           diag(iCOLS001 )%desc = 'Carbon Monoxide Chemical Loss Bin 1'
1638           diag(iCOLS001 )%unit = 'kg/m2/s'
1639     
1640           diag(iCOLS002 )%name = 'COLS002 '
1641           diag(iCOLS002 )%desc = 'Carbon Monoxide Chemical Loss Bin 2'
1642           diag(iCOLS002 )%unit = 'kg/m2/s'
1643     
1644           diag(iCOLS003 )%name = 'COLS003 '
1645           diag(iCOLS003 )%desc = 'Carbon Monoxide Chemical Loss Bin 3'
1646           diag(iCOLS003 )%unit = 'kg/m2/s'
1647     
1648           diag(iCOLS004 )%name = 'COLS004 '
1649           diag(iCOLS004 )%desc = 'Carbon Monoxide Chemical Loss Bin 4'
1650           diag(iCOLS004 )%unit = 'kg/m2/s'
1651     
1652           diag(iCOLS005 )%name = 'COLS005 '
1653           diag(iCOLS005 )%desc = 'Carbon Monoxide Chemical Loss Bin 5'
1654           diag(iCOLS005 )%unit = 'kg/m2/s'
1655     
1656           diag(iCOLS006 )%name = 'COLS006 '
1657           diag(iCOLS006 )%desc = 'Carbon Monoxide Chemical Loss Bin 6'
1658           diag(iCOLS006 )%unit = 'kg/m2/s'
1659     
1660           diag(iCOLS007 )%name = 'COLS007 '
1661           diag(iCOLS007 )%desc = 'Carbon Monoxide Chemical Loss Bin 7'
1662           diag(iCOLS007 )%unit = 'kg/m2/s'
1663     
1664           diag(iCOLS008 )%name = 'COLS008 '
1665           diag(iCOLS008 )%desc = 'Carbon Monoxide Chemical Loss Bin 8'
1666           diag(iCOLS008 )%unit = 'kg/m2/s'
1667     
1668           diag(iCOPD001 )%name = 'COPD001 '
1669           diag(iCOPD001 )%desc = 'Carbon Monoxide Chemical Production Bin 1'
1670           diag(iCOPD001 )%unit = 'kg/m2/s'
1671     
1672           diag(iCOPD002 )%name = 'COPD002 '
1673           diag(iCOPD002 )%desc = 'Carbon Monoxide Chemical Production Bin 2'
1674           diag(iCOPD002 )%unit = 'kg/m2/s'
1675     
1676           diag(iCOPD003 )%name = 'COPD003 '
1677           diag(iCOPD003 )%desc = 'Carbon Monoxide Chemical Production Bin 3'
1678           diag(iCOPD003 )%unit = 'kg/m2/s'
1679     
1680           diag(iCOPD004 )%name = 'COPD004 '
1681           diag(iCOPD004 )%desc = 'Carbon Monoxide Chemical Production Bin 4'
1682           diag(iCOPD004 )%unit = 'kg/m2/s'
1683     
1684           diag(iCOPD005 )%name = 'COPD005 '
1685           diag(iCOPD005 )%desc = 'Carbon Monoxide Chemical Production Bin 5'
1686           diag(iCOPD005 )%unit = 'kg/m2/s'
1687     
1688           diag(iCOPD006 )%name = 'COPD006 '
1689           diag(iCOPD006 )%desc = 'Carbon Monoxide Chemical Production Bin 6'
1690           diag(iCOPD006 )%unit = 'kg/m2/s'
1691     
1692           diag(iCOPD007 )%name = 'COPD007 '
1693           diag(iCOPD007 )%desc = 'Carbon Monoxide Chemical Production Bin 7'
1694           diag(iCOPD007 )%unit = 'kg/m2/s'
1695     
1696           diag(iCOPD008 )%name = 'COPD008 '
1697           diag(iCOPD008 )%desc = 'Carbon Monoxide Chemical Production Bin 8'
1698           diag(iCOPD008 )%unit = 'kg/m2/s'
1699     
1700           diag(iCOCL001 )%name = 'COCL001 '
1701           diag(iCOCL001 )%desc = 'Carbon Monoxide Column Burden Bin 1'
1702           diag(iCOCL001 )%unit = 'kg/m2'
1703     
1704           diag(iCOCL002 )%name = 'COCL002 '
1705           diag(iCOCL002 )%desc = 'Carbon Monoxide Column Burden Bin 2'
1706           diag(iCOCL002 )%unit = 'kg/m2'
1707     
1708           diag(iCOCL003 )%name = 'COCL003 '
1709           diag(iCOCL003 )%desc = 'Carbon Monoxide Column Burden Bin 3'
1710           diag(iCOCL003 )%unit = 'kg/m2'
1711     
1712           diag(iCOCL004 )%name = 'COCL004 '
1713           diag(iCOCL004 )%desc = 'Carbon Monoxide Column Burden Bin 4'
1714           diag(iCOCL004 )%unit = 'kg/m2'
1715     
1716           diag(iCOCL005 )%name = 'COCL005 '
1717           diag(iCOCL005 )%desc = 'Carbon Monoxide Column Burden Bin 5'
1718           diag(iCOCL005 )%unit = 'kg/m2'
1719     
1720           diag(iCOCL006 )%name = 'COCL006 '
1721           diag(iCOCL006 )%desc = 'Carbon Monoxide Column Burden Bin 6'
1722           diag(iCOCL006 )%unit = 'kg/m2'
1723     
1724           diag(iCOCL007 )%name = 'COCL007 '
1725           diag(iCOCL007 )%desc = 'Carbon Monoxide Column Burden Bin 7'
1726           diag(iCOCL007 )%unit = 'kg/m2'
1727     
1728           diag(iCOCL008 )%name = 'COCL008 '
1729           diag(iCOCL008 )%desc = 'Carbon Monoxide Column Burden Bin 8'
1730           diag(iCOCL008 )%unit = 'kg/m2'
1731     
1732           diag(iCOSC001 )%name = 'COSC001 '
1733           diag(iCOSC001 )%desc = 'Carbon Monoxide Surface Concentration Bin 1'
1734           diag(iCOSC001 )%unit = 'ppbv'
1735     
1736           diag(iCOSC002 )%name = 'COSC002 '
1737           diag(iCOSC002 )%desc = 'Carbon Monoxide Surface Concentration Bin 2'
1738           diag(iCOSC002 )%unit = 'ppbv'
1739     
1740           diag(iCOSC003 )%name = 'COSC003 '
1741           diag(iCOSC003 )%desc = 'Carbon Monoxide Surface Concentration Bin 3'
1742           diag(iCOSC003 )%unit = 'ppbv'
1743     
1744           diag(iCOSC004 )%name = 'COSC004 '
1745           diag(iCOSC004 )%desc = 'Carbon Monoxide Surface Concentration Bin 4'
1746           diag(iCOSC004 )%unit = 'ppbv'
1747     
1748           diag(iCOSC005 )%name = 'COSC005 '
1749           diag(iCOSC005 )%desc = 'Carbon Monoxide Surface Concentration Bin 5'
1750           diag(iCOSC005 )%unit = 'ppbv'
1751     
1752           diag(iCOSC006 )%name = 'COSC006 '
1753           diag(iCOSC006 )%desc = 'Carbon Monoxide Surface Concentration Bin 6'
1754           diag(iCOSC006 )%unit = 'ppbv'
1755     
1756           diag(iCOSC007 )%name = 'COSC007 '
1757           diag(iCOSC007 )%desc = 'Carbon Monoxide Surface Concentration Bin 7'
1758           diag(iCOSC007 )%unit = 'ppbv'
1759     
1760           diag(iCOSC008 )%name = 'COSC008 '
1761           diag(iCOSC008 )%desc = 'Carbon Monoxide Surface Concentration Bin 8'
1762           diag(iCOSC008 )%unit = 'ppbv'
1763     
1764           diag(iCO2EM001 )%name = 'CO2EM001 '
1765           diag(iCO2EM001 )%desc = 'Carbon Dioxide Emission Bin 1'
1766           diag(iCO2EM001 )%unit = 'kg/m2/s'
1767     
1768           diag(iCO2EM002 )%name = 'CO2EM002 '
1769           diag(iCO2EM002 )%desc = 'Carbon Dioxide Emission Bin 2'
1770           diag(iCO2EM002 )%unit = 'kg/m2/s'
1771     
1772           diag(iCO2EM003 )%name = 'CO2EM003 '
1773           diag(iCO2EM003 )%desc = 'Carbon Dioxide Emission Bin 3'
1774           diag(iCO2EM003 )%unit = 'kg/m2/s'
1775     
1776           diag(iCO2EM004 )%name = 'CO2EM004 '
1777           diag(iCO2EM004 )%desc = 'Carbon Dioxide Emission Bin 4'
1778           diag(iCO2EM004 )%unit = 'kg/m2/s'
1779     
1780           diag(iCO2EM005 )%name = 'CO2EM005 '
1781           diag(iCO2EM005 )%desc = 'Carbon Dioxide Emission Bin 5'
1782           diag(iCO2EM005 )%unit = 'kg/m2/s'
1783     
1784           diag(iCO2EM006 )%name = 'CO2EM006 '
1785           diag(iCO2EM006 )%desc = 'Carbon Dioxide Emission Bin 6'
1786           diag(iCO2EM006 )%unit = 'kg/m2/s'
1787     
1788           diag(iCO2EM007 )%name = 'CO2EM007 '
1789           diag(iCO2EM007 )%desc = 'Carbon Dioxide Emission Bin 7'
1790           diag(iCO2EM007 )%unit = 'kg/m2/s'
1791     
1792           diag(iCO2EM008 )%name = 'CO2EM008 '
1793           diag(iCO2EM008 )%desc = 'Carbon Dioxide Emission Bin 8'
1794           diag(iCO2EM008 )%unit = 'kg/m2/s'
1795     
1796           diag(iCO2CL001 )%name = 'CO2CL001 '
1797           diag(iCO2CL001 )%desc = 'Carbon Dioxide Column Burden Bin 1'
1798           diag(iCO2CL001 )%unit = 'kg/m2'
1799     
1800           diag(iCO2CL002 )%name = 'CO2CL002 '
1801           diag(iCO2CL002 )%desc = 'Carbon Dioxide Column Burden Bin 2'
1802           diag(iCO2CL002 )%unit = 'kg/m2'
1803     
1804           diag(iCO2CL003 )%name = 'CO2CL003 '
1805           diag(iCO2CL003 )%desc = 'Carbon Dioxide Column Burden Bin 3'
1806           diag(iCO2CL003 )%unit = 'kg/m2'
1807     
1808           diag(iCO2CL004 )%name = 'CO2CL004 '
1809           diag(iCO2CL004 )%desc = 'Carbon Dioxide Column Burden Bin 4'
1810           diag(iCO2CL004 )%unit = 'kg/m2'
1811     
1812           diag(iCO2CL005 )%name = 'CO2CL005 '
1813           diag(iCO2CL005 )%desc = 'Carbon Dioxide Column Burden Bin 5'
1814           diag(iCO2CL005 )%unit = 'kg/m2'
1815     
1816           diag(iCO2CL006 )%name = 'CO2CL006 '
1817           diag(iCO2CL006 )%desc = 'Carbon Dioxide Column Burden Bin 6'
1818           diag(iCO2CL006 )%unit = 'kg/m2'
1819     
1820           diag(iCO2CL007 )%name = 'CO2CL007 '
1821           diag(iCO2CL007 )%desc = 'Carbon Dioxide Column Burden Bin 7'
1822           diag(iCO2CL007 )%unit = 'kg/m2'
1823     
1824           diag(iCO2CL008 )%name = 'CO2CL008 '
1825           diag(iCO2CL008 )%desc = 'Carbon Dioxide Column Burden Bin 8'
1826           diag(iCO2CL008 )%unit = 'kg/m2'
1827     
1828           diag(iCO2SC001 )%name = 'CO2SC001 '
1829           diag(iCO2SC001 )%desc = 'Carbon Dioxide Surface Concentration Bin 1'
1830           diag(iCO2SC001 )%unit = 'ppmv'
1831     
1832           diag(iCO2SC002 )%name = 'CO2SC002 '
1833           diag(iCO2SC002 )%desc = 'Carbon Dioxide Surface Concentration Bin 2'
1834           diag(iCO2SC002 )%unit = 'ppmv'
1835     
1836           diag(iCO2SC003 )%name = 'CO2SC003 '
1837           diag(iCO2SC003 )%desc = 'Carbon Dioxide Surface Concentration Bin 3'
1838           diag(iCO2SC003 )%unit = 'ppmv'
1839     
1840           diag(iCO2SC004 )%name = 'CO2SC004 '
1841           diag(iCO2SC004 )%desc = 'Carbon Dioxide Surface Concentration Bin 4'
1842           diag(iCO2SC004 )%unit = 'ppmv'
1843     
1844           diag(iCO2SC005 )%name = 'CO2SC005 '
1845           diag(iCO2SC005 )%desc = 'Carbon Dioxide Surface Concentration Bin 5'
1846           diag(iCO2SC005 )%unit = 'ppmv'
1847     
1848           diag(iCO2SC006 )%name = 'CO2SC006 '
1849           diag(iCO2SC006 )%desc = 'Carbon Dioxide Surface Concentration Bin 6'
1850           diag(iCO2SC006 )%unit = 'ppmv'
1851     
1852           diag(iCO2SC007 )%name = 'CO2SC007 '
1853           diag(iCO2SC007 )%desc = 'Carbon Dioxide Surface Concentration Bin 7'
1854           diag(iCO2SC007 )%unit = 'ppmv'
1855     
1856           diag(iCO2SC008 )%name = 'CO2SC008 '
1857           diag(iCO2SC008 )%desc = 'Carbon Dioxide Surface Concentration Bin 8'
1858           diag(iCO2SC008 )%unit = 'ppmv'
1859     
1860     
1861     #endif
1862     
1863     ! ... 3-D diagnostic fields (in alphabetic order)
1864     !
1865     
1866           diag(iAIRDENS )%name = 'AIRDENS '
1867           diag(iAIRDENS )%desc = 'Air Density'
1868           diag(iAIRDENS )%unit = 'Kg/m3'
1869     
1870           diag(iCAPE    )%name = 'CAPE    '
1871           diag(iCAPE    )%desc = 'CAPE'
1872           diag(iCAPE    )%unit = 'J/kg'
1873     
1874           diag(iCGS     )%name = 'CGS     '
1875           diag(iCGS     )%desc = 'Counter-gradient coefficient on surface '  &
1876                              // 'kinematic fluxes'
1877           diag(iCGS     )%unit = 's/m2'
1878      
1879           diag(iCLDLWP  )%name = 'CLDLWP  '
1880           diag(iCLDLWP  )%desc = 'Actual cloud liquid water path length'
1881           diag(iCLDLWP  )%unit = 'gram/m2'
1882     
1883           diag(iCLOUD   )%name = 'CLOUD   '
1884           diag(iCLOUD   )%desc = 'Cloud fraction'
1885           diag(iCLOUD   )%unit = 'fraction'
1886           diag(iCLOUD   )%aname= 'CLDTOT  '
1887           diag(iCLOUD   )%adesc= '3-D Total Cloud Fraction'
1888     
1889           diag(iCLOUDUP )%name = 'CLOUDUP '
1890           diag(iCLOUDUP )%desc = 'Cloud fraction during omega < 0.'
1891           diag(iCLOUDUP )%unit = 'fraction'
1892      
1893           diag(iCMFDQ   )%name = 'CMFDQ   '
1894           diag(iCMFDQ   )%desc = 'q tendency - Hack convection'
1895           diag(iCMFDQ   )%unit = 'kg/kg/s'
1896     
1897           diag(iCMFDQR2 )%name = 'CMFDQR2 '
1898           diag(iCMFDQR2 )%desc = 'Rain production rate - Hack convection'
1899           diag(iCMFDQR2 )%unit = 'kg/kg/s'
1900     
1901           diag(iCMFDT   )%name = 'CMFDT   '
1902           diag(iCMFDT   )%desc = 'T tendency - Hack convection'
1903           diag(iCMFDT   )%unit = 'K/s'
1904     
1905           diag(iCMFDTR  )%name = 'CMFDTR  '
1906           diag(iCMFDTR  )%desc = 'Detrainment mass flux - Hack convection'
1907           diag(iCMFDTR  )%unit = 'Pa/s'
1908     
1909           diag(iCMFETR  )%name = 'CMFETR  '
1910           diag(iCMFETR  )%desc = 'Entrainment mass flux - Hack convection'
1911           diag(iCMFETR  )%unit = 'Pa/s'
1912     
1913           diag(iCMFMC   )%name = 'CMFMC   '
1914           diag(iCMFMC   )%desc = 'Total Moist convection mass flux'
1915           diag(iCMFMC   )%unit = 'Pa/s'
1916           diag(iCMFMC   )%aname= 'CLDMAS  '
1917           diag(iCMFMC   )%adesc= 'Cloud mass flux'
1918           diag(iCMFMC   )%aunit= 'kg/m2/s'
1919           diag(iCMFMC   )%convfac = 1./9.80616	! should use constant rga
1920     !     diag(iCMFMC   )%convfac = rga       	! include comcon when f90
1921     
1922           diag(iCMFMC2  )%name = 'CMFMC2  '
1923           diag(iCMFMC2  )%desc = 'Hack Moist convection mass flux'
1924           diag(iCMFMC2  )%unit = 'Pa/s'
1925     
1926           diag(iCONVCLD  )%name = 'CONVCLD  '
1927           diag(iCONVCLD  )%desc = 'Convective cloud amount'
1928           diag(iCONVCLD  )%unit = 'fraction'
1929     
1930           diag(iDCAFDT  )%name = 'DCAFDT  '
1931           diag(iDCAFDT  )%desc = 'T Tendency - Dry convective adjustment'
1932           diag(iDCAFDT  )%unit = 'K/s'
1933     
1934           diag(iDIABDT  )%name = 'DIABDT  '
1935           diag(iDIABDT  )%desc = 'T Tendency - Total adiabatic (physics)'
1936           diag(iDIABDT  )%unit = 'K/s'                   
1937           diag(iDIABDT  )%aname= 'DIABT   '
1938           diag(iDIABDT  )%adesc= 'Temperature Tendency due to Diabatic Forcing'
1939           diag(iDIABDT  )%aunit= 'K/day'                   
1940           diag(iDIABDT  )%convfac = 86400.0
1941     
1942           diag(iDQCOND  )%name = 'DQCOND  '
1943           diag(iDQCOND  )%desc = 'Q tendency - moist physics'
1944           diag(iDQCOND  )%unit = 'kg/kg/s'
1945           diag(iDQCOND  )%aname= 'MOISTQ  '
1946           diag(iDQCOND  )%adesc= 'Specific Humidity Tendency due to Moist Processes'
1947           diag(iDQCOND  )%aunit= 'g/kg/day'
1948           diag(iDQCOND  )%convfac = 86400000.0
1949     
1950           diag(iDQPBLCG )%name = 'DQPBLCG '
1951           diag(iDQPBLCG )%desc = 'Q tendency - PBL counter gradient'
1952           diag(iDQPBLCG )%unit = 'kg/kg/s'
1953     
1954           diag(iDQRL    )%name = 'DQRL    '
1955           diag(iDQRL    )%desc = 'Rain production rate - large-scale'
1956           diag(iDQRL    )%unit = 'kg/kg/s'
1957     
1958           diag(iDRUNOFF )%name = 'DRUNOFF '
1959           diag(iDRUNOFF )%desc = 'Sub-surface runoff'
1960           diag(iDRUNOFF )%unit = 'mm/s'
1961     
1962           diag(iDTCOND  )%name = 'DTCOND  '
1963           diag(iDTCOND  )%desc = 'T tendency - moist physics'
1964           diag(iDTCOND  )%unit = 'K/s'
1965           diag(iDTCOND  )%aname= 'MOISTT  '
1966           diag(iDTCOND  )%adesc= 'Temperature Tendency due to Moist Processes'
1967           diag(iDTCOND  )%aunit= 'K/day'
1968           diag(iDTCOND  )%convfac = 86400.0
1969     
1970           diag(iDTPBLCG )%name = 'DTPBLCG '
1971           diag(iDTPBLCG )%desc = 'T tendency - PBL counter gradient'
1972           diag(iDTPBLCG )%unit = 'K/s'
1973      
1974           diag(iDTRAIN  )%name = 'DTRAIN  '
1975           diag(iDTRAIN  )%desc = 'Detrainment Cloud Mass Flux'
1976           diag(iDTRAIN  )%unit = 'Pa/s'
1977           diag(iDTRAIN  )%aunit= 'kg/m2/s'
1978           diag(iDTRAIN  )%convfac = 1./9.80616	! should use constant rga
1979     !     diag(iDTRAIN  )%convfac = rga       	! include comcon when f90
1980     
1981           diag(iDTV     )%name = 'DTV     '
1982           diag(iDTV     )%desc = 'T vertical diffusion'
1983           diag(iDTV     )%unit = 'K/s'
1984           diag(iDTV     )%aname= 'TURBT   '
1985           diag(iDTV     )%adesc= 'Temperature Tendency due to Turbulence'
1986           diag(iDTV     )%aunit= 'K/day'
1987           diag(iDTV     )%convfac = 86400.0
1988     
1989           diag(iDUV     )%name = 'DUV     '
1990           diag(iDUV     )%desc = 'U tendency from vertical diffusion'
1991           diag(iDUV     )%unit = 'm/s2'
1992           diag(iDUV     )%aname= 'TURBU   '
1993           diag(iDUV     )%adesc= 'Zonal Wind Tendency due to Turbulence'
1994           diag(iDUV     )%aunit= 'm/s/day'
1995           diag(iDUV     )%convfac = 86400.
1996     
1997           diag(iDVV     )%name = 'DVV     '
1998           diag(iDVV     )%desc = 'V tendency from vertical diffusion'
1999           diag(iDVV     )%unit = 'm/s2'
2000           diag(iDVV     )%aname= 'TURBV   '
2001           diag(iDVV     )%adesc= 'Meridional Wind Tendency due to Turbulence'
2002           diag(iDVV     )%aunit= 'm/s/day'
2003           diag(iDVV     )%convfac = 86400.
2004     
2005           diag(iEFFCLD  )%name = 'EFFCLD  '
2006           diag(iEFFCLD  )%desc = 'Effective cloud fraction'
2007           diag(iEFFCLD  )%unit = 'fraction'
2008     
2009           diag(iEVAPL   )%name = 'EVAPL   '
2010           diag(iEVAPL   )%desc = 'Large-scale evaporation'
2011           diag(iEVAPL   )%unit = 'kg/kg/s'
2012     
2013           diag(iH       )%name = 'H       '
2014           diag(iH       )%desc = 'Geopotential height at mid-layer'
2015           diag(iH       )%unit = 'm'
2016           diag(iH       )%aname= 'HGHT    '
2017     
2018           diag(iHGHTE   )%name = 'HGHTE   '
2019           diag(iHGHTE   )%desc = 'Geopotential height at layer top'
2020           diag(iHGHTE   )%unit = 'm'
2021     
2022           diag(iKVH     )%name = 'KVH     '
2023           diag(iKVH     )%desc = 'Vertical diffusion diffusivities '  &
2024                                // '(heat/moisture)'
2025           diag(iKVH     )%unit = 'm2/s'
2026           diag(iKVH     )%aname= 'KH      '
2027     
2028           diag(iKVM     )%name = 'KVM     '
2029           diag(iKVM     )%desc = 'Eddy diffusivity for momentum'
2030           diag(iKVM     )%unit = 'm2/s'
2031     
2032           diag(iO3VMR   )%name = 'O3VMR   '
2033           diag(iO3VMR   )%desc = 'Ozone used in radiative transfer'
2034           diag(iO3VMR   )%unit = 'mol/mol'
2035     
2036           diag(iOMEGA   )%name = 'OMEGA   '
2037           diag(iOMEGA   )%desc = 'Vertical pressure velocity'
2038           diag(iOMEGA   )%unit = 'Pa/s'
2039           diag(iOMEGA   )%adesc= 'Vertical velocity'
2040           diag(iOMEGA   )%aunit= 'hPa/day'
2041           diag(iOMEGA   )%convfac = 864.0 
2042     
2043           diag(iPV      )%name = 'PV      '
2044           diag(iPV      )%desc = 'Ertels potential vorticity'
2045           diag(iPV      )%unit = 'm2/(kg*sec)'
2046     
2047           diag(iQ       )%name = 'Q       '
2048           diag(iQ       )%desc = 'Specific humidity'
2049           diag(iQ       )%unit = 'kg/kg'
2050           diag(iQ       )%aname= 'SPHU    '
2051           diag(iQ       )%aunit= 'g/kg'
2052           diag(iQ       )%convfac = 1000.0
2053     
2054           diag(iQC      )%name = 'QC      '
2055           diag(iQC      )%desc = 'Specific humidity of cloud condensate'
2056           diag(iQC      )%unit = 'kg/kg'
2057     
2058           diag(iQRL     )%name = 'QRL     '
2059           diag(iQRL     )%desc = 'Longwave heating rate'
2060           diag(iQRL     )%unit = 'K/s'
2061           diag(iQRL     )%aname= 'RADLW   '
2062           diag(iQRL     )%adesc= 'Temperature Tendency due to Longwave Radiation'
2063           diag(iQRL     )%aunit= 'K/day'
2064           diag(iQRL     )%convfac = 86400.0
2065     
2066           diag(iQRS     )%name = 'QRS     '
2067           diag(iQRS     )%desc = 'Shortwave heating rate'
2068           diag(iQRS     )%unit = 'K/s'
2069           diag(iQRS     )%aname= 'RADSW   '
2070           diag(iQRS     )%adesc= 'Temperature Tendency due to Shortwave Radiation'
2071           diag(iQRS     )%aunit= 'K/day'
2072           diag(iQRS     )%convfac = 86400.0
2073     
2074           diag(iRAYFDT  )%name = 'RAYFDT  '
2075           diag(iRAYFDT  )%desc = 'T Tendency - Rayleigh friction'
2076           diag(iRAYFDT  )%unit = 'K/s'
2077           diag(iRAYFDT  )%aname= 'RFT     '
2078           diag(iRAYFDT  )%adesc= 'Temperature Tendency due to Rayleigh Friction'
2079           diag(iRAYFDT  )%aunit= 'K/day'
2080           diag(iRAYFDT  )%convfac = 86400.0
2081     
2082           diag(iRELHUM  )%name = 'RELHUM  '
2083           diag(iRELHUM  )%desc = 'Relative Humidity after cloud physics'
2084           diag(iRELHUM  )%unit = '%'
2085     
2086           diag(iRHCLR   )%name = 'RHCLR   '
2087           diag(iRHCLR   )%desc = 'Relative Humidity in clear region'
2088           diag(iRHCLR   )%unit = '%'
2089     
2090           diag(iRNEVPDQ )%name = 'RNEVPDQ '
2091           diag(iRNEVPDQ )%desc = 'Q Tendency - Rain evaporation'
2092           diag(iRNEVPDQ )%unit = 'kg/kg/s'
2093           diag(iRNEVPDQ )%aname= 'DQLS    '
2094           diag(iRNEVPDQ )%adesc= 'Specific Humidity Tendency due to Stratiform Processes'
2095           diag(iRNEVPDQ )%aunit= 'g/kg/day'
2096           diag(iRNEVPDQ )%convfac = 86400000.0
2097     
2098           diag(iRNEVPDT )%name = 'RNEVPDT '
2099           diag(iRNEVPDT )%desc = 'T Tendency - Rain evaporation'
2100           diag(iRNEVPDT )%unit = 'K/s'         
2101           diag(iRNEVPDT )%aname= 'DTLS    '
2102           diag(iRNEVPDT )%adesc= 'Temperature Tendency due to Stratiform Processes'
2103           diag(iRNEVPDT )%aunit= 'K/day'         
2104           diag(iRNEVPDT )%convfac = 86400.       
2105     
2106           diag(iSETLWP  )%name = 'SETLWP  '
2107           diag(iSETLWP  )%desc = 'Specified liquid water path lengths'
2108           diag(iSETLWP  )%unit = 'gram/m2'
2109     
2110           diag(iSTRATCLD)%name = 'STRATCLD'
2111           diag(iSTRATCLD)%desc = 'Stratiform cloud amount'
2112           diag(iSTRATCLD)%unit = 'fraction'
2113     
2114           diag(iT       )%name = 'T       '
2115           diag(iT       )%desc = 'Temperature'
2116           diag(iT       )%unit = 'K'
2117           diag(iT       )%aname= 'TMPU    '
2118     
2119           diag(iTKE     )%name = 'TKE     '
2120           diag(iTKE     )%desc = 'Turbulent kinetic energy'
2121           diag(iTKE     )%unit = '(m/s)2'
2122     
2123           diag(iTTMGW   )%name = 'TTMGW   '
2124           diag(iTTMGW   )%desc = 'T tendency - gravity wave drag'
2125           diag(iTTMGW   )%unit = 'K/s'
2126           diag(iTTMGW   )%aname= 'GWDT    '
2127           diag(iTTMGW   )%adesc= 'Temperature Tendency due to Gravity Wave Drag'
2128           diag(iTTMGW   )%aunit= 'K/day'
2129           diag(iTTMGW   )%convfac = 86400.0
2130     
2131           diag(iU       )%name = 'U       '
2132           diag(iU       )%desc = 'U wind'
2133           diag(iU       )%unit = 'm/s'
2134           diag(iU       )%aname= 'UWND    '
2135           diag(iU       )%adesc= 'Zonal Wind'
2136     
2137           diag(iUQ      )%name = 'UQ      '
2138           diag(iUQ      )%desc = 'U wind * specific humidity'
2139           diag(iUQ      )%unit = 'm/s*kg/kg'
2140     
2141           diag(iUT      )%name = 'UT      '
2142           diag(iUT      )%desc = 'U wind * temperature'
2143           diag(iUT      )%unit = 'm/s*K'
2144     
2145           diag(iUTGW    )%name = 'UTGW    '
2146           diag(iUTGW    )%desc = 'U tendency - gravity wave drag'
2147           diag(iUTGW    )%unit = 'm/s2'
2148           diag(iUTGW    )%aname= 'GWDU    '
2149           diag(iUTGW    )%aunit= 'm/s/day'
2150           diag(iUTGW    )%adesc= 'Zonal Wind Tendency due to Gravity Wave Drag'
2151           diag(iUTGW    )%convfac = 86400. 
2152     
2153           diag(iUU      )%name = 'UU      '
2154           diag(iUU      )%desc = 'U wind * U wind'
2155           diag(iUU      )%unit = 'm/s*m/s'
2156     
2157           diag(iUV      )%name = 'UV      '
2158           diag(iUV      )%desc = 'U wind * V wind'
2159           diag(iUV      )%unit = 'm/s*m/s'
2160     
2161           diag(iV       )%name = 'V       '
2162           diag(iV       )%desc = 'V wind'
2163           diag(iV       )%unit = 'm/s'
2164           diag(iV       )%aname= 'VWND    '
2165           diag(iV       )%adesc= 'Meridional Wind'
2166     
2167           diag(iVD01    )%name = 'VD01    '
2168           diag(iVD01    )%desc = 'Vertical diffusion tendency of water vapor'
2169           diag(iVD01    )%unit = 'kg/kg/s'
2170           diag(iVD01    )%aname= 'TURBQ   '
2171           diag(iVD01    )%adesc= 'Specific Humidity Tendency due to Turbulence'
2172           diag(iVD01    )%aunit = 'g/kg/day'
2173           diag(iVD01    )%convfac = 86400000.0
2174     
2175           diag(iVQ      )%name = 'VQ      '
2176           diag(iVQ      )%desc = 'V wind * specific humidity'
2177           diag(iVQ      )%unit = 'm/s*kg/kg'
2178     
2179           diag(iVT      )%name = 'VT      '
2180           diag(iVT      )%desc = 'V wind * temperature'
2181           diag(iVT      )%unit = 'm/s*K'
2182     
2183           diag(iVTGW    )%name = 'VTGW    '
2184           diag(iVTGW    )%desc = 'V tendency - gravity wave drag'
2185           diag(iVTGW    )%unit = 'm/s2'
2186           diag(iVTGW    )%aname= 'GWDV    '
2187           diag(iVTGW    )%adesc= 'Meridional Wind Tendency due to Gravity Wave Drag'
2188           diag(iVTGW    )%aunit= 'm/s/day'
2189           diag(iVTGW    )%convfac = 86400. 
2190     
2191           diag(iVV      )%name = 'VV      '
2192           diag(iVV      )%desc = 'V wind * V wind'
2193           diag(iVV      )%unit = 'm/s*m/s'
2194     
2195           diag(iZMCME   )%name = 'ZMCME   '
2196           diag(iZMCME   )%desc = 'Condensation - evaporation from Z&M scheme'
2197           diag(iZMCME   )%unit = 'kg/kg/s'
2198     
2199           diag(iZMDLF   )%name = 'ZMDLF   '
2200           diag(iZMDLF   )%desc = 'Detrainment of cloud water from Z&M scheme'
2201           diag(iZMDLF   )%unit = 'kg/kg/s'
2202     
2203           diag(iZMDQ    )%name = 'ZMDQ    '
2204           diag(iZMDQ    )%desc = 'q tendency - Zhang-McFarlane convection'
2205           diag(iZMDQ    )%unit = 'kg/kg/s'
2206     
2207           diag(iZMDQR   )%name = 'ZMDQR   '
2208           diag(iZMDQR   )%desc = 'Rain production rate - Z&M convection'
2209           diag(iZMDQR   )%unit = 'kg/kg/s'
2210     
2211           diag(iZMDT    )%name = 'ZMDT    '
2212           diag(iZMDT    )%desc = 'T tendency - Zhang-McFarlane convection'
2213           diag(iZMDT    )%unit = 'K/s'
2214     
2215           diag(iZMDU    )%name = 'ZMDU    '
2216           diag(iZMDU    )%desc = 'Updraft detrainment mass flux - Z&M'  &
2217                                       //' convection'
2218           diag(iZMDU    )%unit = 'Pa/s'
2219     
2220           diag(iZMED    )%name = 'ZMED    '
2221           diag(iZMED    )%desc = 'Downdraft entrainment mass flux - Z&M'  &
2222                                       //' convection'
2223           diag(iZMED    )%unit = 'Pa/s'
2224     
2225           diag(iZMEPS   )%name = 'ZMEPS   '
2226           diag(iZMEPS   )%desc = 'Fractional entrainment - Z&M convection'
2227           diag(iZMEPS   )%unit = '1/s'
2228     
2229           diag(iZMEU    )%name = 'ZMEU    '
2230           diag(iZMEU    )%desc = 'Updraft entrainment mass flux - Z&M'  &
2231                                       //' convection'
2232           diag(iZMEU    )%unit = 'Pa/s'
2233     
2234           diag(iZMEVP   )%name = 'ZMEVP   '
2235           diag(iZMEVP   )%desc = 'downdraft evaporation from Z&M convection'
2236           diag(iZMEVP   )%unit = 'kg/kg/s'
2237     
2238           diag(iZMMD    )%name = 'ZMMD    '
2239           diag(iZMMD    )%desc = 'Downdraft mass flux - Z&M convection'
2240           diag(iZMMD    )%unit = 'Pa/s'
2241     
2242           diag(iZMMU    )%name = 'ZMMU    '
2243           diag(iZMMU    )%desc = 'Updraft mass flux - Z&M convection'
2244           diag(iZMMU    )%unit = 'pa/s'
2245     
2246           diag(iZMPFLX  )%name = 'ZMPFLX  '
2247           diag(iZMPFLX  )%desc = 'Precipitation flux - Z&M convection'
2248           diag(iZMPFLX  )%unit = 'kg/m2/s'
2249     
2250           diag(iZMQL    )%name = 'ZMQL    '
2251           diag(iZMQL    )%desc = 'Cloud water in updraft - Z&M convection'
2252           diag(iZMQL    )%unit = 'kg/kg'
2253     
2254     #ifdef FVCHEM
2255           diag(iBR      )%name = 'BR      '
2256           diag(iBR      )%desc = 'Atomic bromine'
2257           diag(iBR      )%unit = 'mol/mol'
2258     
2259           diag(iBRCL    )%name = 'BRCL    '
2260           diag(iBRCL    )%desc = 'Bromine chloride'
2261           diag(iBRCL    )%unit = 'mol/mol'
2262     
2263           diag(iBRO     )%name = 'BRO     '
2264           diag(iBRO     )%desc = 'Bromine monoxide'
2265           diag(iBRO     )%unit = 'mol/mol'
2266     
2267           diag(iBRONO2  )%name = 'BRONO2  '
2268           diag(iBRONO2  )%desc = 'Bromine nitrate'
2269           diag(iBRONO2  )%unit = 'mol/mol'
2270     
2271           diag(iBRX     )%name = 'BRX     '
2272           diag(iBRX     )%desc = 'Odd bromine'
2273           diag(iBRX     )%unit = 'mol/mol'
2274     
2275           diag(iCCL4    )%name = 'CCL4    '
2276           diag(iCCL4    )%desc = 'Carbon tetrachloride'
2277           diag(iCCL4    )%unit = 'mol/mol'
2278     
2279           diag(iCH2O    )%name = 'CH2O    '
2280           diag(iCH2O    )%desc = 'Formaldehyde'
2281           diag(iCH2O    )%unit = 'mol/mol'
2282     
2283           diag(iCH3BR   )%name = 'CH3BR   '
2284           diag(iCH3BR   )%desc = 'Methyl bromide'
2285           diag(iCH3BR   )%unit = 'mol/mol'
2286     
2287           diag(iCH3CCL3 )%name = 'CH3CCL3 '
2288           diag(iCH3CCL3 )%desc = 'Methyl chloroform'
2289           diag(iCH3CCL3 )%unit = 'mol/mol'
2290     
2291           diag(iCH3CL   )%name = 'CH3CL   '
2292           diag(iCH3CL   )%desc = 'Methyl chloride'
2293           diag(iCH3CL   )%unit = 'mol/mol'
2294           
2295           diag(iCH3O2   )%name = 'CH3O2   '
2296           diag(iCH3O2   )%desc = 'Methyl peroxide'
2297           diag(iCH3O2   )%unit = 'mol/mol'
2298           
2299           diag(iCH3OOH  )%name = 'CH3OOH  '
2300           diag(iCH3OOH  )%desc = 'Methyl hydroperoxide'
2301           diag(iCH3OOH  )%unit = 'mol/mol'
2302     
2303           diag(iCH4     )%name = 'CH4     '
2304           diag(iCH4     )%desc = 'Methane'
2305           diag(iCH4     )%unit = 'mol/mol'
2306     
2307           diag(iCL      )%name = 'CL      '
2308           diag(iCL      )%desc = 'Atomic chlorine'
2309           diag(iCL      )%unit = 'mol/mol'
2310     
2311           diag(iCL2     )%name = 'CL2     '
2312           diag(iCL2     )%desc = 'Molecular chlorine'
2313           diag(iCL2     )%unit = 'mol/mol'
2314     
2315           diag(iCL2O2   )%name = 'CL2O2   '
2316           diag(iCL2O2   )%desc = 'Dichlorine peroxide'
2317           diag(iCL2O2   )%unit = 'mol/mol'
2318     
2319           diag(iCLO     )%name = 'CLO     '
2320           diag(iCLO     )%desc = 'Chlorine monoxide'
2321           diag(iCLO     )%unit = 'mol/mol'
2322     
2323           diag(iCLONO2  )%name = 'CLONO2  '
2324           diag(iCLONO2  )%desc = 'Chlorine nitrate'
2325           diag(iCLONO2  )%unit = 'mol/mol'
2326     
2327           diag(iCLX     )%name = 'CLX     '
2328           diag(iCLX     )%desc = 'Odd chlorine'
2329           diag(iCLX     )%unit = 'mol/mol'
2330     
2331     ! --------------------------------------------------------------------
2332     !               8 CO regions and types for INTEX-B 2006
2333     ! --------------------------------------------------------------------
2334     
2335           diag(iCO      )%name = 'CO      '
2336           diag(iCO      )%desc = 'Global Carbon Monoxide'
2337           diag(iCO      )%unit = 'mol/mol'
2338     
2339           diag(iCONOAMAN)%name = 'CONOAMAN'
2340           diag(iCONOAMAN)%desc = 'North American anthropogenic CO'
2341           diag(iCONOAMAN)%unit = 'mol/mol'
2342     
2343           diag(iCOCEAMAN)%name = 'COCEAMAN'
2344           diag(iCOCEAMAN)%desc = 'Central American anthropogenic CO'
2345           diag(iCOCEAMAN)%unit = 'mol/mol'
2346     
2347           diag(iCOWHBB  )%name = 'COWHBB  '
2348           diag(iCOWHBB  )%desc = 'Western Hemisphere biomass burning CO'
2349           diag(iCOWHBB  )%unit = 'mol/mol'
2350     
2351           diag(iCOASIAAN)%name = 'COASIAAN'
2352           diag(iCOASIAAN)%desc = 'Asian anthropogenic CO'
2353           diag(iCOASIAAN)%unit = 'mol/mol'
2354     
2355           diag(iCOASNBB )%name = 'COASNBB '
2356           diag(iCOASNBB )%desc = 'Northern Asia biomass burning CO'
2357           diag(iCOASNBB )%unit = 'mol/mol'
2358     
2359           diag(iCOASSBB )%name = 'COASSBB '
2360           diag(iCOASSBB )%desc = 'Southern Asia biomass burning CO'
2361           diag(iCOASSBB )%unit = 'mol/mol'
2362     
2363           diag(iCOFDAN  )%name = 'COFDAN  '
2364           diag(iCOFDAN  )%desc = 'Mexico City anthropogenic CO'
2365           diag(iCOFDAN  )%unit = 'mol/mol'
2366     
2367     ! --------------------------------------------------------------------
2368     
2369           diag(iCOFF    )%name = 'COFF    '
2370           diag(iCOFF    )%desc = 'CO tagged to Fossil Fuel'
2371           diag(iCOFF    )%unit = 'mol/mol'
2372     
2373           diag(iCOBF    )%name = 'COBF    '
2374           diag(iCOBF    )%desc = 'CO tagged to Biofuel'
2375           diag(iCOBF    )%unit = 'mol/mol'
2376     
2377           diag(iCOBB    )%name = 'COBB    '
2378           diag(iCOBB    )%desc = 'CO tagged to Biomass Burning'
2379           diag(iCOBB    )%unit = 'mol/mol'
2380     
2381           diag(iCOBI    )%name = 'COBI    '
2382           diag(iCOBI    )%desc = 'CO tagged to Biogenic'
2383           diag(iCOBI    )%unit = 'mol/mol'
2384     
2385           diag(iCONAMERI)%name = 'COnam   '
2386           diag(iCONAMERI)%desc = 'North American CO'
2387           diag(iCONAMERI)%unit = 'mol/mol'
2388     
2389           diag(iCOSAMERI)%name = 'COsam   '
2390           diag(iCOSAMERI)%desc = 'South American CO'
2391           diag(iCOSAMERI)%unit = 'mol/mol'
2392     
2393           diag(iCOAFRICA)%name = 'COafr   '
2394           diag(iCOAFRICA)%desc = 'African CO'
2395           diag(iCOAFRICA)%unit = 'mol/mol'
2396     
2397           diag(iCO2     )%name = 'CO2     '
2398           diag(iCO2     )%desc = 'Carbon Dioxide'
2399           diag(iCO2     )%unit = 'mol/mol'
2400     
2401           diag(iCO2NAMER)%name = 'CO2nam  '
2402           diag(iCO2NAMER)%desc = 'North American CO2'
2403           diag(iCO2NAMER)%unit = 'mol/mol'
2404     
2405           diag(iCO2SAMER)%name = 'CO2sam  '
2406           diag(iCO2SAMER)%desc = 'South American CO2'
2407           diag(iCO2SAMER)%unit = 'mol/mol'
2408     
2409           diag(iCO2AFRIC)%name = 'CO2afr  '
2410           diag(iCO2AFRIC)%desc = 'African CO2'
2411           diag(iCO2AFRIC)%unit = 'mol/mol'
2412     
2413           diag(iF11     )%name = 'F11     '
2414           diag(iF11     )%desc = 'CFC-11 (CCl3F)'
2415           diag(iF11     )%unit = 'mol/mol'
2416     
2417           diag(iF113    )%name = 'F113    '
2418           diag(iF113    )%desc = 'CFC-113 (CCl2FCClF2)'
2419           diag(iF113    )%unit = 'mol/mol'
2420     
2421           diag(iF12     )%name = 'F12     '
2422           diag(iF12     )%desc = 'CFC-12 (CCl2F2)'
2423           diag(iF12     )%unit = 'mol/mol'
2424     
2425           diag(iH12_24  )%name = 'H12_24  '
2426           diag(iH12_24  )%desc = 'Halon 12_24'
2427           diag(iH12_24  )%unit = 'mol/mol'
2428     
2429           diag(iH1301   )%name = 'H1301   '
2430           diag(iH1301   )%desc = 'Halon 1301 (CBrF3)'
2431           diag(iH1301   )%unit = 'mol/mol'
2432     
2433           diag(iH2O2    )%name = 'H2O2    '
2434           diag(iH2O2    )%desc = 'Hydrogen peroxide'
2435           diag(iH2O2    )%unit = 'mol/mol'
2436     
2437           diag(iH2OCOND )%name = 'H2OCOND '
2438           diag(iH2OCOND )%desc = 'Condensed water vapor in chemistry'
2439           diag(iH2OCOND )%unit = 'mol/mol'
2440     
2441           diag(iHATOMIC )%name = 'HATOMIC '
2442           diag(iHATOMIC )%desc = 'Atomic hydrogen'
2443           diag(iHATOMIC )%unit = 'mol/mol'
2444     
2445           diag(iHBR     )%name = 'HBR     '
2446           diag(iHBR     )%desc = 'Hydrogen bromide'
2447           diag(iHBR     )%unit = 'mol/mol'
2448     
2449           diag(iHCFC    )%name = 'HCFC    '
2450           diag(iHCFC    )%desc = 'HCFC'
2451           diag(iHCFC    )%unit = 'mol/mol'
2452     
2453           diag(iHCL     )%name = 'HCL     '
2454           diag(iHCL     )%desc = 'Hydrochloric acid'
2455           diag(iHCL     )%unit = 'mol/mol'
2456     
2457           diag(iHNO3    )%name = 'HNO3    '
2458           diag(iHNO3    )%desc = 'Nitric acid'
2459           diag(iHNO3    )%unit = 'mol/mol'
2460     
2461           diag(iHNO3COND)%name = 'HNO3COND'
2462           diag(iHNO3COND)%desc = 'Condensed nitric acid'
2463           diag(iHNO3COND)%unit = 'mol/mol'
2464     
2465           diag(iHO2     )%name = 'HO2     '
2466           diag(iHO2     )%desc = 'Hydroperoxyl radical'
2467           diag(iHO2     )%unit = 'mol/mol'
2468     
2469           diag(iHO2NO2  )%name = 'HO2NO2  '
2470           diag(iHO2NO2  )%desc = 'Peroxynitric acid'
2471           diag(iHO2NO2  )%unit = 'mol/mol'
2472     
2473           diag(iHOBR    )%name = 'HOBR    '
2474           diag(iHOBR    )%desc = 'Hypobromous acid'
2475           diag(iHOBR    )%unit = 'mol/mol'
2476     
2477           diag(iHOCL    )%name = 'HOCL    '
2478           diag(iHOCL    )%desc = 'Hypochlorous acid'
2479           diag(iHOCL    )%unit = 'mol/mol'
2480     
2481           diag(iN       )%name = 'N       '
2482           diag(iN       )%desc = 'Atomic nitrogen'
2483           diag(iN       )%unit = 'mol/mol'
2484     
2485           diag(iN2O     )%name = 'N2O     '
2486           diag(iN2O     )%desc = 'Nitrous oxide'
2487           diag(iN2O     )%unit = 'mol/mol'
2488     
2489           diag(iN2O5    )%name = 'N2O5    '
2490           diag(iN2O5    )%desc = 'Dinitrogen pentoxide'
2491           diag(iN2O5    )%unit = 'mol/mol'
2492     
2493           diag(iNO      )%name = 'NO      '
2494           diag(iNO      )%desc = 'Nitric oxide'
2495           diag(iNO      )%unit = 'mol/mol'
2496     
2497           diag(iNO2     )%name = 'NO2     '
2498           diag(iNO2     )%desc = 'Nitrogen dioxide'
2499           diag(iNO2     )%unit = 'mol/mol'
2500     
2501           diag(iNO3     )%name = 'NO3     '
2502           diag(iNO3     )%desc = 'Nitrogen trioxide'
2503           diag(iNO3     )%unit = 'mol/mol'
2504     
2505           diag(iNOX     )%name = 'NOX     '
2506           diag(iNOX     )%desc = 'Odd nitrogen'
2507           diag(iNOX     )%unit = 'mol/mol'
2508     
2509           diag(iO1D     )%name = 'O1D     '
2510           diag(iO1D     )%desc = 'Atomic oxygen in the first excited state'
2511           diag(iO1D     )%unit = 'mol/mol'
2512     
2513           diag(iO3CHEM  )%name = 'O3CHEM  '
2514           diag(iO3CHEM  )%desc = 'Ozone volume mixing ratio from chemistry'
2515           diag(iO3CHEM  )%unit = 'mol/mol'
2516     
2517           diag(iO3P     )%name = 'O3P     '
2518           diag(iO3P     )%desc = 'Atomic oxygen in the ground state'
2519           diag(iO3P     )%unit = 'mol/mol'
2520     
2521           diag(iO3PARAM )%name = 'O3PARAM '
2522           diag(iO3PARAM )%desc = 'Parameterized ozone'
2523           diag(iO3PARAM )%unit = 'mol/mol'
2524     
2525           diag(iOCLO    )%name = 'OCLO    '
2526           diag(iOCLO    )%desc = 'Chlorine dioxide'
2527           diag(iOCLO    )%unit = 'mol/mol'
2528     
2529           diag(iOH      )%name = 'OH      '
2530           diag(iOH      )%desc = 'Hydroxyl radical'
2531           diag(iOH      )%unit = 'mol/mol'
2532     
2533           diag(iOX      )%name = 'OX      '
2534           diag(iOX      )%desc = 'Odd oxygen from Parameterized Chemistry'
2535           diag(iOX      )%unit = 'mol/mol'
2536     
2537           diag(iOXSTRAT )%name = 'OXSTRAT '
2538           diag(iOXSTRAT )%desc = 'Odd oxygen from Stratospheric Chemistry'
2539           diag(iOXSTRAT )%unit = 'mol/mol'
2540     
2541           diag(iOXTROP  )%name = 'OXTROP  '
2542           diag(iOXTROP  )%desc = 'Tropospheric odd oxygen'
2543           diag(iOXTROP  )%unit = 'mol/mol'
2544     
2545           diag(iDUMASS )%name = 'DUMASS '
2546           diag(iDUMASS )%desc = 'Dust 3D Mass Mixing Ratio'
2547           diag(iDUMASS )%unit = 'kg/kg'
2548     
2549           diag(iDUMASS25 )%name = 'DUMASS25 '
2550           diag(iDUMASS25 )%desc = 'Dust 3D Mass Mixing Ratio (PM2.5)'
2551           diag(iDUMASS25 )%unit = 'kg/kg'
2552     
2553           diag(iDUMASS1 )%name = 'DUMASS1 '
2554           diag(iDUMASS1 )%desc = 'Dust sub-micron 3D Mass Mixing Ratio'
2555           diag(iDUMASS1 )%unit = 'kg/kg'
2556     
2557           diag(iSSMASS )%name = 'SSMASS '
2558           diag(iSSMASS )%desc = 'Seasalt 3D Mass Mixing Ratio'
2559           diag(iSSMASS )%unit = 'kg/kg'
2560     
2561           diag(iSSMASS25 )%name = 'SSMASS25 '
2562           diag(iSSMASS25 )%desc = 'Seasalt 3D Mass Mixing Ratio (PM2.5)'
2563           diag(iSSMASS25 )%unit = 'kg/kg'
2564     
2565           diag(iBCMASS )%name = 'BCMASS '
2566           diag(iBCMASS )%desc = 'Black Carbon 3D Mass Mixing Ratio'
2567           diag(iBCMASS )%unit = 'kg/kg'
2568     
2569           diag(iOCMASS )%name = 'OCMASS '
2570           diag(iOCMASS )%desc = 'Organic Carbon 3D Mass Mixing Ratio'
2571           diag(iOCMASS )%unit = 'kg/kg'
2572     
2573           diag(iSO4MASS )%name = 'SO4MASS '
2574           diag(iSO4MASS )%desc = 'SO4 Aerosol 3D Mass Mixing Ratio'
2575           diag(iSO4MASS )%unit = 'kg/kg'
2576     
2577           diag(iPSO2    )%name = 'PSO2    '
2578           diag(iPSO2    )%desc = 'Chemical production of SO2 from DMS ox'
2579           diag(iPSO2    )%unit = 'kg/m2/s'
2580     
2581           diag(iPMSA    )%name = 'PMSA    '
2582           diag(iPMSA    )%desc = 'Chemical production of MSA from DMS ox'
2583           diag(iPMSA    )%unit = 'kg/m2/s'
2584     
2585           diag(iPSO4g    )%name = 'PSO4g    '
2586           diag(iPSO4g    )%desc = 'Chemical production of SO4 from SO2 ox (gas)'
2587           diag(iPSO4g    )%unit = 'kg/m2/s'
2588     
2589           diag(iPSO4aq  )%name = 'PSO4aq    '
2590           diag(iPSO4aq  )%desc = 'Chemical production of SO4 from SO2 ox (aqueous)'
2591           diag(iPSO4aq  )%unit = 'kg/m2/s'
2592     
2593           diag(iPSO4wet  )%name = 'PSO4wet    '
2594           diag(iPSO4wet  )%desc = 'Chemical production of SO4 from SO2 ox (wet dep)'
2595           diag(iPSO4wet  )%unit = 'kg/m2/s'
2596     
2597           diag(iQ4AGE   )%name = 'Q4AGE   '
2598           diag(iQ4AGE   )%desc = 'Surface souce gas for computation of age-of-air'
2599           diag(iQ4AGE   )%unit = 'kg/kg'
2600     
2601     #endif
2602     
2603           RETURN
2604           END SUBROUTINE diaglist
2605