1/*
2  Copyright 2010, UCAR/Unidata
3  See COPYRIGHT file for copying and redistribution conditions.
4
5  This program writes a data file from the CAM model run. (Thanks to
6  Jim Edwards for contributing this example file.)
7
8  This code originally generated by ncgen.
9
10  $Id: tst_camrun.c,v 1.2 2010/05/20 13:17:50 ed Exp $
11*/
12#include <config.h>
13#include <nc_tests.h>
14#include "err_macros.h"
15#include <stdio.h>
16#include <stdlib.h>
17#include <netcdf.h>
18#include <unistd.h>
19
20#define FILE_NAME "tst_camrun.nc"
21   /* rank (number of dimensions) for each variable */
22#   define RANK_P0 0
23#   define RANK_lat 1
24#   define RANK_lon 1
25#   define RANK_slat 1
26#   define RANK_slon 1
27#   define RANK_w_stag 1
28#   define RANK_lev 1
29#   define RANK_ilev 1
30#   define RANK_isccp_prs 1
31#   define RANK_isccp_tau 1
32#   define RANK_isccp_prstau 1
33#   define RANK_time 1
34#   define RANK_time_bnds 2
35#   define RANK_date_written 2
36#   define RANK_time_written 2
37#   define RANK_ntrm 0
38#   define RANK_ntrn 0
39#   define RANK_ntrk 0
40#   define RANK_ndbase 0
41#   define RANK_nsbase 0
42#   define RANK_nbdate 0
43#   define RANK_nbsec 0
44#   define RANK_mdt 0
45#   define RANK_nlon 1
46#   define RANK_wnummax 1
47#   define RANK_hyai 1
48#   define RANK_hybi 1
49#   define RANK_hyam 1
50#   define RANK_hybm 1
51#   define RANK_gw 1
52#   define RANK_ndcur 1
53#   define RANK_nscur 1
54#   define RANK_date 1
55#   define RANK_co2vmr 1
56#   define RANK_ch4vmr 1
57#   define RANK_n2ovmr 1
58#   define RANK_f11vmr 1
59#   define RANK_f12vmr 1
60#   define RANK_sol_tsi 1
61#   define RANK_datesec 1
62#   define RANK_nsteph 1
63#   define RANK_ABSORB 4
64#   define RANK_AEROD_v 3
65#   define RANK_AODABS 3
66#   define RANK_AODDUST1 3
67#   define RANK_AODDUST2 3
68#   define RANK_AODDUST3 3
69#   define RANK_AODMODE1 3
70#   define RANK_AODMODE2 3
71#   define RANK_AODMODE3 3
72#   define RANK_AODVIS 3
73#   define RANK_AQSO4_H2O2 3
74#   define RANK_AQSO4_O3 3
75#   define RANK_AQ_DMS 3
76#   define RANK_AQ_H2O2 3
77#   define RANK_AQ_H2SO4 3
78#   define RANK_AQ_SO2 3
79#   define RANK_AQ_SOAG 3
80#   define RANK_AQ_bc_a1 3
81#   define RANK_AQ_dst_a1 3
82#   define RANK_AQ_dst_a3 3
83#   define RANK_AQ_ncl_a1 3
84#   define RANK_AQ_ncl_a2 3
85#   define RANK_AQ_ncl_a3 3
86#   define RANK_AQ_num_a1 3
87#   define RANK_AQ_num_a2 3
88#   define RANK_AQ_num_a3 3
89#   define RANK_AQ_pom_a1 3
90#   define RANK_AQ_so4_a1 3
91#   define RANK_AQ_so4_a2 3
92#   define RANK_AQ_so4_a3 3
93#   define RANK_AQ_soa_a1 3
94#   define RANK_AQ_soa_a2 3
95#   define RANK_BPROD 4
96#   define RANK_BURDEN1 3
97#   define RANK_BURDEN2 3
98#   define RANK_BURDEN3 3
99#   define RANK_CCN1 4
100#   define RANK_CCN2 4
101#   define RANK_CCN3 4
102#   define RANK_CCN4 4
103#   define RANK_CCN5 4
104#   define RANK_CCN6 4
105#   define RANK_CLDHGH 3
106#   define RANK_CLDICE 4
107#   define RANK_CLDLIQ 4
108#   define RANK_CLDLOW 3
109#   define RANK_CLDMED 3
110#   define RANK_CLDTOT 3
111#   define RANK_CLOUD 4
112#   define RANK_CMFDQ 4
113#   define RANK_CMFDQR 4
114#   define RANK_CMFDT 4
115#   define RANK_CMFMC 4
116#   define RANK_CMFMCDZM 4
117#   define RANK_CONCLD 4
118#   define RANK_DCQ 4
119#   define RANK_DMS 4
120#   define RANK_DSTODXC 3
121#   define RANK_DSTSFDRY 3
122#   define RANK_DSTSFMBL 3
123#   define RANK_DSTSFWET 3
124#   define RANK_DTCOND 4
125#   define RANK_DTV 4
126#   define RANK_EXTINCT 4
127#   define RANK_FICE 4
128#   define RANK_FLDS 3
129#   define RANK_FLNS 3
130#   define RANK_FLNSC 3
131#   define RANK_FLNT 3
132#   define RANK_FLNTC 3
133#   define RANK_FLUT 3
134#   define RANK_FLUTC 3
135#   define RANK_FREQSH 3
136#   define RANK_FREQZM 3
137#   define RANK_FSDS 3
138#   define RANK_FSDSC 3
139#   define RANK_FSNS 3
140#   define RANK_FSNSC 3
141#   define RANK_FSNT 3
142#   define RANK_FSNTC 3
143#   define RANK_FSNTOA 3
144#   define RANK_FSNTOAC 3
145#   define RANK_FSUTOA 3
146#   define RANK_GS_DMS 3
147#   define RANK_GS_H2O2 3
148#   define RANK_GS_H2SO4 3
149#   define RANK_GS_SO2 3
150#   define RANK_GS_SOAG 3
151#   define RANK_GS_bc_a1 3
152#   define RANK_GS_dst_a1 3
153#   define RANK_GS_dst_a3 3
154#   define RANK_GS_ncl_a1 3
155#   define RANK_GS_ncl_a2 3
156#   define RANK_GS_ncl_a3 3
157#   define RANK_GS_num_a1 3
158#   define RANK_GS_num_a2 3
159#   define RANK_GS_num_a3 3
160#   define RANK_GS_pom_a1 3
161#   define RANK_GS_so4_a1 3
162#   define RANK_GS_so4_a2 3
163#   define RANK_GS_so4_a3 3
164#   define RANK_GS_soa_a1 3
165#   define RANK_GS_soa_a2 3
166#   define RANK_H2O2 4
167#   define RANK_H2SO4 4
168#   define RANK_H2SO4_sfgaex1 3
169#   define RANK_H2SO4_sfnnuc1 3
170#   define RANK_ICEFRAC 3
171#   define RANK_ICIMR 4
172#   define RANK_ICWMR 4
173#   define RANK_KVH 4
174#   define RANK_KVM 4
175#   define RANK_LANDFRAC 3
176#   define RANK_LCLOUD 4
177#   define RANK_LHFLX 3
178#   define RANK_LND_MBL 3
179#   define RANK_LWCF 3
180#   define RANK_NDROPCOL 3
181#   define RANK_NDROPMIX 4
182#   define RANK_NDROPSNK 4
183#   define RANK_NDROPSRC 4
184#   define RANK_NUMICE 4
185#   define RANK_NUMLIQ 4
186#   define RANK_OCNFRAC 3
187#   define RANK_ODV_bc_a1 3
188#   define RANK_ODV_dst_a1 3
189#   define RANK_ODV_dst_a3 3
190#   define RANK_ODV_ncl_a1 3
191#   define RANK_ODV_ncl_a3 3
192#   define RANK_ODV_pom_a1 3
193#   define RANK_ODV_so4_a1 3
194#   define RANK_ODV_soa_a1 3
195#   define RANK_OMEGA 4
196#   define RANK_OMEGAT 4
197#   define RANK_ORO 3
198#   define RANK_PBLH 3
199#   define RANK_PCONVB 3
200#   define RANK_PCONVT 3
201#   define RANK_PHIS 3
202#   define RANK_PRECC 3
203#   define RANK_PRECCDZM 3
204#   define RANK_PRECL 3
205#   define RANK_PRECSC 3
206#   define RANK_PRECSH 3
207#   define RANK_PRECSL 3
208#   define RANK_PRECT 3
209#   define RANK_PS 3
210#   define RANK_PSL 3
211#   define RANK_Q 4
212#   define RANK_QC 4
213#   define RANK_QFLX 3
214#   define RANK_QREFHT 3
215#   define RANK_QRL 4
216#   define RANK_QRS 4
217#   define RANK_QT 4
218#   define RANK_QTFLX 4
219#   define RANK_RAM1 3
220#   define RANK_RELHUM 4
221#   define RANK_RHREFHT 3
222#   define RANK_SFCLDICE 3
223#   define RANK_SFCLDLIQ 3
224#   define RANK_SFI 4
225#   define RANK_SFNUMICE 3
226#   define RANK_SFNUMLIQ 3
227#   define RANK_SHFLX 3
228#   define RANK_SL 4
229#   define RANK_SLFLX 4
230#   define RANK_SLV 4
231#   define RANK_SNOWHICE 3
232#   define RANK_SNOWHLND 3
233#   define RANK_SO2 4
234#   define RANK_SO2_CLXF 3
235#   define RANK_SO2_XFRC 4
236#   define RANK_SOAG 4
237#   define RANK_SOAG_sfgaex1 3
238#   define RANK_SOLIN 3
239#   define RANK_SPROD 4
240#   define RANK_SRFRAD 3
241#   define RANK_SSAVIS 3
242#   define RANK_SSTODXC 3
243#   define RANK_SSTSFDRY 3
244#   define RANK_SSTSFMBL 3
245#   define RANK_SSTSFWET 3
246#   define RANK_SWCF 3
247#   define RANK_T 4
248#   define RANK_TAUTMSX 3
249#   define RANK_TAUTMSY 3
250#   define RANK_TAUX 3
251#   define RANK_TAUY 3
252#   define RANK_TGCLDCWP 3
253#   define RANK_TGCLDIWP 3
254#   define RANK_TGCLDLWP 3
255#   define RANK_TKE 4
256#   define RANK_TMQ 3
257#   define RANK_TREFHT 3
258#   define RANK_TREFMNAV 3
259#   define RANK_TREFMXAV 3
260#   define RANK_TROP_FD 3
261#   define RANK_TROP_P 3
262#   define RANK_TROP_PD 4
263#   define RANK_TROP_T 3
264#   define RANK_TROP_Z 3
265#   define RANK_TS 3
266#   define RANK_TSMN 3
267#   define RANK_TSMX 3
268#   define RANK_U 4
269#   define RANK_UFLX 4
270#   define RANK_US 4
271#   define RANK_UU 4
272#   define RANK_V 4
273#   define RANK_VD01 4
274#   define RANK_VFLX 4
275#   define RANK_VQ 4
276#   define RANK_VS 4
277#   define RANK_VT 4
278#   define RANK_VU 4
279#   define RANK_VV 4
280#   define RANK_WGUSTD 3
281#   define RANK_WTKE 4
282#   define RANK_XPH_LWC 4
283#   define RANK_Z3 4
284#   define RANK_airFV 3
285#   define RANK_bc_a1 4
286#   define RANK_bc_a1DDF 3
287#   define RANK_bc_a1GVF 3
288#   define RANK_bc_a1SFSBC 3
289#   define RANK_bc_a1SFSBS 3
290#   define RANK_bc_a1SFSIC 3
291#   define RANK_bc_a1SFSIS 3
292#   define RANK_bc_a1SFWET 3
293#   define RANK_bc_a1TBF 3
294#   define RANK_bc_a1_CLXF 3
295#   define RANK_bc_a1_XFRC 4
296#   define RANK_bc_c1 4
297#   define RANK_bc_c1DDF 3
298#   define RANK_bc_c1GVF 3
299#   define RANK_bc_c1SFSBC 3
300#   define RANK_bc_c1SFSBS 3
301#   define RANK_bc_c1SFSIC 3
302#   define RANK_bc_c1SFSIS 3
303#   define RANK_bc_c1SFWET 3
304#   define RANK_bc_c1TBF 3
305#   define RANK_chem_trop 4
306#   define RANK_chem_trop_tropop 4
307#   define RANK_dgnd_a01 4
308#   define RANK_dgnd_a02 4
309#   define RANK_dgnd_a03 4
310#   define RANK_dgnw_a01 4
311#   define RANK_dgnw_a02 4
312#   define RANK_dgnw_a03 4
313#   define RANK_dst_a1 4
314#   define RANK_dst_a1DDF 3
315#   define RANK_dst_a1GVF 3
316#   define RANK_dst_a1SF 3
317#   define RANK_dst_a1SFSBC 3
318#   define RANK_dst_a1SFSBS 3
319#   define RANK_dst_a1SFSIC 3
320#   define RANK_dst_a1SFSIS 3
321#   define RANK_dst_a1SFWET 3
322#   define RANK_dst_a1TBF 3
323#   define RANK_dst_a3 4
324#   define RANK_dst_a3DDF 3
325#   define RANK_dst_a3GVF 3
326#   define RANK_dst_a3SF 3
327#   define RANK_dst_a3SFSBC 3
328#   define RANK_dst_a3SFSBS 3
329#   define RANK_dst_a3SFSIC 3
330#   define RANK_dst_a3SFSIS 3
331#   define RANK_dst_a3SFWET 3
332#   define RANK_dst_a3TBF 3
333#   define RANK_dst_c1 4
334#   define RANK_dst_c1DDF 3
335#   define RANK_dst_c1GVF 3
336#   define RANK_dst_c1SFSBC 3
337#   define RANK_dst_c1SFSBS 3
338#   define RANK_dst_c1SFSIC 3
339#   define RANK_dst_c1SFSIS 3
340#   define RANK_dst_c1SFWET 3
341#   define RANK_dst_c1TBF 3
342#   define RANK_dst_c3 4
343#   define RANK_dst_c3DDF 3
344#   define RANK_dst_c3GVF 3
345#   define RANK_dst_c3SFSBC 3
346#   define RANK_dst_c3SFSBS 3
347#   define RANK_dst_c3SFSIC 3
348#   define RANK_dst_c3SFSIS 3
349#   define RANK_dst_c3SFWET 3
350#   define RANK_dst_c3TBF 3
351#   define RANK_ncl_a1 4
352#   define RANK_ncl_a1DDF 3
353#   define RANK_ncl_a1GVF 3
354#   define RANK_ncl_a1SF 3
355#   define RANK_ncl_a1SFSBC 3
356#   define RANK_ncl_a1SFSBS 3
357#   define RANK_ncl_a1SFSIC 3
358#   define RANK_ncl_a1SFSIS 3
359#   define RANK_ncl_a1SFWET 3
360#   define RANK_ncl_a1TBF 3
361#   define RANK_ncl_a1_sfcoag1 3
362#   define RANK_ncl_a1_sfcsiz3 3
363#   define RANK_ncl_a1_sfcsiz4 3
364#   define RANK_ncl_a1_sfgaex2 3
365#   define RANK_ncl_a2 4
366#   define RANK_ncl_a2DDF 3
367#   define RANK_ncl_a2GVF 3
368#   define RANK_ncl_a2SF 3
369#   define RANK_ncl_a2SFSBC 3
370#   define RANK_ncl_a2SFSBS 3
371#   define RANK_ncl_a2SFSIC 3
372#   define RANK_ncl_a2SFSIS 3
373#   define RANK_ncl_a2SFWET 3
374#   define RANK_ncl_a2TBF 3
375#   define RANK_ncl_a2_sfcoag1 3
376#   define RANK_ncl_a2_sfcsiz3 3
377#   define RANK_ncl_a2_sfcsiz4 3
378#   define RANK_ncl_a2_sfgaex2 3
379#   define RANK_ncl_a3 4
380#   define RANK_ncl_a3DDF 3
381#   define RANK_ncl_a3GVF 3
382#   define RANK_ncl_a3SF 3
383#   define RANK_ncl_a3SFSBC 3
384#   define RANK_ncl_a3SFSBS 3
385#   define RANK_ncl_a3SFSIC 3
386#   define RANK_ncl_a3SFSIS 3
387#   define RANK_ncl_a3SFWET 3
388#   define RANK_ncl_a3TBF 3
389#   define RANK_ncl_c1 4
390#   define RANK_ncl_c1DDF 3
391#   define RANK_ncl_c1GVF 3
392#   define RANK_ncl_c1SFSBC 3
393#   define RANK_ncl_c1SFSBS 3
394#   define RANK_ncl_c1SFSIC 3
395#   define RANK_ncl_c1SFSIS 3
396#   define RANK_ncl_c1SFWET 3
397#   define RANK_ncl_c1TBF 3
398#   define RANK_ncl_c1_sfcsiz3 3
399#   define RANK_ncl_c1_sfcsiz4 3
400#   define RANK_ncl_c1_sfgaex2 3
401#   define RANK_ncl_c2 4
402#   define RANK_ncl_c2DDF 3
403#   define RANK_ncl_c2GVF 3
404#   define RANK_ncl_c2SFSBC 3
405#   define RANK_ncl_c2SFSBS 3
406#   define RANK_ncl_c2SFSIC 3
407#   define RANK_ncl_c2SFSIS 3
408#   define RANK_ncl_c2SFWET 3
409#   define RANK_ncl_c2TBF 3
410#   define RANK_ncl_c2_sfcsiz3 3
411#   define RANK_ncl_c2_sfcsiz4 3
412#   define RANK_ncl_c2_sfgaex2 3
413#   define RANK_ncl_c3 4
414#   define RANK_ncl_c3DDF 3
415#   define RANK_ncl_c3GVF 3
416#   define RANK_ncl_c3SFSBC 3
417#   define RANK_ncl_c3SFSBS 3
418#   define RANK_ncl_c3SFSIC 3
419#   define RANK_ncl_c3SFSIS 3
420#   define RANK_ncl_c3SFWET 3
421#   define RANK_ncl_c3TBF 3
422#   define RANK_num_a1 4
423#   define RANK_num_a1DDF 3
424#   define RANK_num_a1GVF 3
425#   define RANK_num_a1SFSBC 3
426#   define RANK_num_a1SFSBS 3
427#   define RANK_num_a1SFSIC 3
428#   define RANK_num_a1SFSIS 3
429#   define RANK_num_a1SFWET 3
430#   define RANK_num_a1TBF 3
431#   define RANK_num_a1_CLXF 3
432#   define RANK_num_a1_XFRC 4
433#   define RANK_num_a1_sfcoag1 3
434#   define RANK_num_a1_sfcsiz1 3
435#   define RANK_num_a1_sfcsiz2 3
436#   define RANK_num_a1_sfcsiz3 3
437#   define RANK_num_a1_sfcsiz4 3
438#   define RANK_num_a1_sfgaex2 3
439#   define RANK_num_a2 4
440#   define RANK_num_a2DDF 3
441#   define RANK_num_a2GVF 3
442#   define RANK_num_a2SFSBC 3
443#   define RANK_num_a2SFSBS 3
444#   define RANK_num_a2SFSIC 3
445#   define RANK_num_a2SFSIS 3
446#   define RANK_num_a2SFWET 3
447#   define RANK_num_a2TBF 3
448#   define RANK_num_a2_CLXF 3
449#   define RANK_num_a2_XFRC 4
450#   define RANK_num_a2_sfcoag1 3
451#   define RANK_num_a2_sfcsiz1 3
452#   define RANK_num_a2_sfcsiz2 3
453#   define RANK_num_a2_sfcsiz3 3
454#   define RANK_num_a2_sfcsiz4 3
455#   define RANK_num_a2_sfgaex2 3
456#   define RANK_num_a2_sfnnuc1 3
457#   define RANK_num_a3 4
458#   define RANK_num_a3DDF 3
459#   define RANK_num_a3GVF 3
460#   define RANK_num_a3SFSBC 3
461#   define RANK_num_a3SFSBS 3
462#   define RANK_num_a3SFSIC 3
463#   define RANK_num_a3SFSIS 3
464#   define RANK_num_a3SFWET 3
465#   define RANK_num_a3TBF 3
466#   define RANK_num_a3_sfcsiz1 3
467#   define RANK_num_a3_sfcsiz2 3
468#   define RANK_num_c1 4
469#   define RANK_num_c1DDF 3
470#   define RANK_num_c1GVF 3
471#   define RANK_num_c1SFSBC 3
472#   define RANK_num_c1SFSBS 3
473#   define RANK_num_c1SFSIC 3
474#   define RANK_num_c1SFSIS 3
475#   define RANK_num_c1SFWET 3
476#   define RANK_num_c1TBF 3
477#   define RANK_num_c1_sfcsiz1 3
478#   define RANK_num_c1_sfcsiz2 3
479#   define RANK_num_c1_sfcsiz3 3
480#   define RANK_num_c1_sfcsiz4 3
481#   define RANK_num_c1_sfgaex2 3
482#   define RANK_num_c2 4
483#   define RANK_num_c2DDF 3
484#   define RANK_num_c2GVF 3
485#   define RANK_num_c2SFSBC 3
486#   define RANK_num_c2SFSBS 3
487#   define RANK_num_c2SFSIC 3
488#   define RANK_num_c2SFSIS 3
489#   define RANK_num_c2SFWET 3
490#   define RANK_num_c2TBF 3
491#   define RANK_num_c2_sfcsiz1 3
492#   define RANK_num_c2_sfcsiz2 3
493#   define RANK_num_c2_sfcsiz3 3
494#   define RANK_num_c2_sfcsiz4 3
495#   define RANK_num_c2_sfgaex2 3
496#   define RANK_num_c3 4
497#   define RANK_num_c3DDF 3
498#   define RANK_num_c3GVF 3
499#   define RANK_num_c3SFSBC 3
500#   define RANK_num_c3SFSBS 3
501#   define RANK_num_c3SFSIC 3
502#   define RANK_num_c3SFSIS 3
503#   define RANK_num_c3SFWET 3
504#   define RANK_num_c3TBF 3
505#   define RANK_num_c3_sfcsiz1 3
506#   define RANK_num_c3_sfcsiz2 3
507#   define RANK_pom_a1 4
508#   define RANK_pom_a1DDF 3
509#   define RANK_pom_a1GVF 3
510#   define RANK_pom_a1SFSBC 3
511#   define RANK_pom_a1SFSBS 3
512#   define RANK_pom_a1SFSIC 3
513#   define RANK_pom_a1SFSIS 3
514#   define RANK_pom_a1SFWET 3
515#   define RANK_pom_a1TBF 3
516#   define RANK_pom_a1_CLXF 3
517#   define RANK_pom_a1_XFRC 4
518#   define RANK_pom_c1 4
519#   define RANK_pom_c1DDF 3
520#   define RANK_pom_c1GVF 3
521#   define RANK_pom_c1SFSBC 3
522#   define RANK_pom_c1SFSBS 3
523#   define RANK_pom_c1SFSIC 3
524#   define RANK_pom_c1SFSIS 3
525#   define RANK_pom_c1SFWET 3
526#   define RANK_pom_c1TBF 3
527#   define RANK_so4_a1 4
528#   define RANK_so4_a1DDF 3
529#   define RANK_so4_a1GVF 3
530#   define RANK_so4_a1SFSBC 3
531#   define RANK_so4_a1SFSBS 3
532#   define RANK_so4_a1SFSIC 3
533#   define RANK_so4_a1SFSIS 3
534#   define RANK_so4_a1SFWET 3
535#   define RANK_so4_a1TBF 3
536#   define RANK_so4_a1_CLXF 3
537#   define RANK_so4_a1_XFRC 4
538#   define RANK_so4_a1_sfcoag1 3
539#   define RANK_so4_a1_sfcsiz3 3
540#   define RANK_so4_a1_sfcsiz4 3
541#   define RANK_so4_a1_sfgaex1 3
542#   define RANK_so4_a1_sfgaex2 3
543#   define RANK_so4_a2 4
544#   define RANK_so4_a2DDF 3
545#   define RANK_so4_a2GVF 3
546#   define RANK_so4_a2SFSBC 3
547#   define RANK_so4_a2SFSBS 3
548#   define RANK_so4_a2SFSIC 3
549#   define RANK_so4_a2SFSIS 3
550#   define RANK_so4_a2SFWET 3
551#   define RANK_so4_a2TBF 3
552#   define RANK_so4_a2_CLXF 3
553#   define RANK_so4_a2_XFRC 4
554#   define RANK_so4_a2_sfcoag1 3
555#   define RANK_so4_a2_sfcsiz3 3
556#   define RANK_so4_a2_sfcsiz4 3
557#   define RANK_so4_a2_sfgaex1 3
558#   define RANK_so4_a2_sfgaex2 3
559#   define RANK_so4_a2_sfnnuc1 3
560#   define RANK_so4_a3 4
561#   define RANK_so4_a3DDF 3
562#   define RANK_so4_a3GVF 3
563#   define RANK_so4_a3SFSBC 3
564#   define RANK_so4_a3SFSBS 3
565#   define RANK_so4_a3SFSIC 3
566#   define RANK_so4_a3SFSIS 3
567#   define RANK_so4_a3SFWET 3
568#   define RANK_so4_a3TBF 3
569#   define RANK_so4_a3_sfgaex1 3
570#   define RANK_so4_c1 4
571#   define RANK_so4_c1AQH2SO4 3
572#   define RANK_so4_c1AQSO4 3
573#   define RANK_so4_c1DDF 3
574#   define RANK_so4_c1GVF 3
575#   define RANK_so4_c1SFSBC 3
576#   define RANK_so4_c1SFSBS 3
577#   define RANK_so4_c1SFSIC 3
578#   define RANK_so4_c1SFSIS 3
579#   define RANK_so4_c1SFWET 3
580#   define RANK_so4_c1TBF 3
581#   define RANK_so4_c1_sfcsiz3 3
582#   define RANK_so4_c1_sfcsiz4 3
583#   define RANK_so4_c1_sfgaex2 3
584#   define RANK_so4_c2 4
585#   define RANK_so4_c2AQH2SO4 3
586#   define RANK_so4_c2AQSO4 3
587#   define RANK_so4_c2DDF 3
588#   define RANK_so4_c2GVF 3
589#   define RANK_so4_c2SFSBC 3
590#   define RANK_so4_c2SFSBS 3
591#   define RANK_so4_c2SFSIC 3
592#   define RANK_so4_c2SFSIS 3
593#   define RANK_so4_c2SFWET 3
594#   define RANK_so4_c2TBF 3
595#   define RANK_so4_c2_sfcsiz3 3
596#   define RANK_so4_c2_sfcsiz4 3
597#   define RANK_so4_c2_sfgaex2 3
598#   define RANK_so4_c3 4
599#   define RANK_so4_c3AQH2SO4 3
600#   define RANK_so4_c3AQSO4 3
601#   define RANK_so4_c3DDF 3
602#   define RANK_so4_c3GVF 3
603#   define RANK_so4_c3SFSBC 3
604#   define RANK_so4_c3SFSBS 3
605#   define RANK_so4_c3SFSIC 3
606#   define RANK_so4_c3SFSIS 3
607#   define RANK_so4_c3SFWET 3
608#   define RANK_so4_c3TBF 3
609#   define RANK_soa_a1 4
610#   define RANK_soa_a1DDF 3
611#   define RANK_soa_a1GVF 3
612#   define RANK_soa_a1SFSBC 3
613#   define RANK_soa_a1SFSBS 3
614#   define RANK_soa_a1SFSIC 3
615#   define RANK_soa_a1SFSIS 3
616#   define RANK_soa_a1SFWET 3
617#   define RANK_soa_a1TBF 3
618#   define RANK_soa_a1_sfcoag1 3
619#   define RANK_soa_a1_sfcsiz3 3
620#   define RANK_soa_a1_sfcsiz4 3
621#   define RANK_soa_a1_sfgaex1 3
622#   define RANK_soa_a1_sfgaex2 3
623#   define RANK_soa_a2 4
624#   define RANK_soa_a2DDF 3
625#   define RANK_soa_a2GVF 3
626#   define RANK_soa_a2SFSBC 3
627#   define RANK_soa_a2SFSBS 3
628#   define RANK_soa_a2SFSIC 3
629#   define RANK_soa_a2SFSIS 3
630#   define RANK_soa_a2SFWET 3
631#   define RANK_soa_a2TBF 3
632#   define RANK_soa_a2_sfcoag1 3
633#   define RANK_soa_a2_sfcsiz3 3
634#   define RANK_soa_a2_sfcsiz4 3
635#   define RANK_soa_a2_sfgaex1 3
636#   define RANK_soa_a2_sfgaex2 3
637#   define RANK_soa_c1 4
638#   define RANK_soa_c1DDF 3
639#   define RANK_soa_c1GVF 3
640#   define RANK_soa_c1SFSBC 3
641#   define RANK_soa_c1SFSBS 3
642#   define RANK_soa_c1SFSIC 3
643#   define RANK_soa_c1SFSIS 3
644#   define RANK_soa_c1SFWET 3
645#   define RANK_soa_c1TBF 3
646#   define RANK_soa_c1_sfcsiz3 3
647#   define RANK_soa_c1_sfcsiz4 3
648#   define RANK_soa_c1_sfgaex2 3
649#   define RANK_soa_c2 4
650#   define RANK_soa_c2DDF 3
651#   define RANK_soa_c2GVF 3
652#   define RANK_soa_c2SFSBC 3
653#   define RANK_soa_c2SFSBS 3
654#   define RANK_soa_c2SFSIC 3
655#   define RANK_soa_c2SFSIS 3
656#   define RANK_soa_c2SFWET 3
657#   define RANK_soa_c2TBF 3
658#   define RANK_soa_c2_sfcsiz3 3
659#   define RANK_soa_c2_sfcsiz4 3
660#   define RANK_soa_c2_sfgaex2 3
661#   define RANK_wat_a1 4
662#   define RANK_wat_a2 4
663#   define RANK_wat_a3 4
664
665#ifdef EXTRA_TESTS
666#define MEGABYTE 1048576
667void
668get_mem_used2(int *mem_used)
669{
670   char buf[30];
671   FILE *pf;
672   size_t page_size = 4092; /* For spock... */
673   unsigned size; /*       total program size */
674   unsigned resident;/*   resident set size */
675   unsigned share;/*      shared pages */
676   unsigned text;/*       text (code) */
677   unsigned lib;/*        library */
678   unsigned data;/*       data/stack */
679   /*unsigned dt;          dirty pages (unused in Linux 2.6)*/
680
681   assert(mem_used);
682
683   snprintf(buf, 30, "/proc/%u/statm", (unsigned)getpid());
684   if ((pf = fopen(buf, "r")))
685   {
686      fscanf(pf, "%u %u %u %u %u %u", &size, &resident, &share,
687      &text, &lib, &data);
688      *mem_used = (data * page_size) / MEGABYTE;
689   }
690   else
691      *mem_used = -1;
692  fclose(pf);
693}
694#endif
695
696int
697main()
698{
699   int  ncid;  /* netCDF id */
700
701   /* dimension ids */
702   int lat_dim;
703   int lon_dim;
704   int slat_dim;
705   int slon_dim;
706   int lev_dim;
707   int ilev_dim;
708   int isccp_prs_dim;
709   int isccp_tau_dim;
710   int isccp_prstau_dim;
711   int time_dim;
712   int tbnd_dim;
713   int chars_dim;
714
715   /* dimension lengths */
716   size_t lat_len = 96;
717   size_t lon_len = 144;
718   size_t slat_len = 95;
719   size_t slon_len = 144;
720   size_t lev_len = 30;
721   size_t ilev_len = 31;
722   size_t isccp_prs_len = 7;
723   size_t isccp_tau_len = 7;
724   size_t isccp_prstau_len = 49;
725   size_t time_len = NC_UNLIMITED;
726   size_t tbnd_len = 2;
727   size_t chars_len = 8;
728
729   /* variable ids */
730   int P0_id;
731   int lat_id;
732   int lon_id;
733   int slat_id;
734   int slon_id;
735   int w_stag_id;
736   int lev_id;
737   int ilev_id;
738   int isccp_prs_id;
739   int isccp_tau_id;
740   int isccp_prstau_id;
741   int time_id;
742   int time_bnds_id;
743   int date_written_id;
744   int time_written_id;
745   int ntrm_id;
746   int ntrn_id;
747   int ntrk_id;
748   int ndbase_id;
749   int nsbase_id;
750   int nbdate_id;
751   int nbsec_id;
752   int mdt_id;
753   int nlon_id;
754   int wnummax_id;
755   int hyai_id;
756   int hybi_id;
757   int hyam_id;
758   int hybm_id;
759   int gw_id;
760   int ndcur_id;
761   int nscur_id;
762   int date_id;
763   int co2vmr_id;
764   int ch4vmr_id;
765   int n2ovmr_id;
766   int f11vmr_id;
767   int f12vmr_id;
768   int sol_tsi_id;
769   int datesec_id;
770   int nsteph_id;
771   int ABSORB_id;
772   int AEROD_v_id;
773   int AODABS_id;
774   int AODDUST1_id;
775   int AODDUST2_id;
776   int AODDUST3_id;
777   int AODMODE1_id;
778   int AODMODE2_id;
779   int AODMODE3_id;
780   int AODVIS_id;
781   int AQSO4_H2O2_id;
782   int AQSO4_O3_id;
783   int AQ_DMS_id;
784   int AQ_H2O2_id;
785   int AQ_H2SO4_id;
786   int AQ_SO2_id;
787   int AQ_SOAG_id;
788   int AQ_bc_a1_id;
789   int AQ_dst_a1_id;
790   int AQ_dst_a3_id;
791   int AQ_ncl_a1_id;
792   int AQ_ncl_a2_id;
793   int AQ_ncl_a3_id;
794   int AQ_num_a1_id;
795   int AQ_num_a2_id;
796   int AQ_num_a3_id;
797   int AQ_pom_a1_id;
798   int AQ_so4_a1_id;
799   int AQ_so4_a2_id;
800   int AQ_so4_a3_id;
801   int AQ_soa_a1_id;
802   int AQ_soa_a2_id;
803   int BPROD_id;
804   int BURDEN1_id;
805   int BURDEN2_id;
806   int BURDEN3_id;
807   int CCN1_id;
808   int CCN2_id;
809   int CCN3_id;
810   int CCN4_id;
811   int CCN5_id;
812   int CCN6_id;
813   int CLDHGH_id;
814   int CLDICE_id;
815   int CLDLIQ_id;
816   int CLDLOW_id;
817   int CLDMED_id;
818   int CLDTOT_id;
819   int CLOUD_id;
820   int CMFDQ_id;
821   int CMFDQR_id;
822   int CMFDT_id;
823   int CMFMC_id;
824   int CMFMCDZM_id;
825   int CONCLD_id;
826   int DCQ_id;
827   int DMS_id;
828   int DSTODXC_id;
829   int DSTSFDRY_id;
830   int DSTSFMBL_id;
831   int DSTSFWET_id;
832   int DTCOND_id;
833   int DTV_id;
834   int EXTINCT_id;
835   int FICE_id;
836   int FLDS_id;
837   int FLNS_id;
838   int FLNSC_id;
839   int FLNT_id;
840   int FLNTC_id;
841   int FLUT_id;
842   int FLUTC_id;
843   int FREQSH_id;
844   int FREQZM_id;
845   int FSDS_id;
846   int FSDSC_id;
847   int FSNS_id;
848   int FSNSC_id;
849   int FSNT_id;
850   int FSNTC_id;
851   int FSNTOA_id;
852   int FSNTOAC_id;
853   int FSUTOA_id;
854   int GS_DMS_id;
855   int GS_H2O2_id;
856   int GS_H2SO4_id;
857   int GS_SO2_id;
858   int GS_SOAG_id;
859   int GS_bc_a1_id;
860   int GS_dst_a1_id;
861   int GS_dst_a3_id;
862   int GS_ncl_a1_id;
863   int GS_ncl_a2_id;
864   int GS_ncl_a3_id;
865   int GS_num_a1_id;
866   int GS_num_a2_id;
867   int GS_num_a3_id;
868   int GS_pom_a1_id;
869   int GS_so4_a1_id;
870   int GS_so4_a2_id;
871   int GS_so4_a3_id;
872   int GS_soa_a1_id;
873   int GS_soa_a2_id;
874   int H2O2_id;
875   int H2SO4_id;
876   int H2SO4_sfgaex1_id;
877   int H2SO4_sfnnuc1_id;
878   int ICEFRAC_id;
879   int ICIMR_id;
880   int ICWMR_id;
881   int KVH_id;
882   int KVM_id;
883   int LANDFRAC_id;
884   int LCLOUD_id;
885   int LHFLX_id;
886   int LND_MBL_id;
887   int LWCF_id;
888   int NDROPCOL_id;
889   int NDROPMIX_id;
890   int NDROPSNK_id;
891   int NDROPSRC_id;
892   int NUMICE_id;
893   int NUMLIQ_id;
894   int OCNFRAC_id;
895   int ODV_bc_a1_id;
896   int ODV_dst_a1_id;
897   int ODV_dst_a3_id;
898   int ODV_ncl_a1_id;
899   int ODV_ncl_a3_id;
900   int ODV_pom_a1_id;
901   int ODV_so4_a1_id;
902   int ODV_soa_a1_id;
903   int OMEGA_id;
904   int OMEGAT_id;
905   int ORO_id;
906   int PBLH_id;
907   int PCONVB_id;
908   int PCONVT_id;
909   int PHIS_id;
910   int PRECC_id;
911   int PRECCDZM_id;
912   int PRECL_id;
913   int PRECSC_id;
914   int PRECSH_id;
915   int PRECSL_id;
916   int PRECT_id;
917   int PS_id;
918   int PSL_id;
919   int Q_id;
920   int QC_id;
921   int QFLX_id;
922   int QREFHT_id;
923   int QRL_id;
924   int QRS_id;
925   int QT_id;
926   int QTFLX_id;
927   int RAM1_id;
928   int RELHUM_id;
929   int RHREFHT_id;
930   int SFCLDICE_id;
931   int SFCLDLIQ_id;
932   int SFI_id;
933   int SFNUMICE_id;
934   int SFNUMLIQ_id;
935   int SHFLX_id;
936   int SL_id;
937   int SLFLX_id;
938   int SLV_id;
939   int SNOWHICE_id;
940   int SNOWHLND_id;
941   int SO2_id;
942   int SO2_CLXF_id;
943   int SO2_XFRC_id;
944   int SOAG_id;
945   int SOAG_sfgaex1_id;
946   int SOLIN_id;
947   int SPROD_id;
948   int SRFRAD_id;
949   int SSAVIS_id;
950   int SSTODXC_id;
951   int SSTSFDRY_id;
952   int SSTSFMBL_id;
953   int SSTSFWET_id;
954   int SWCF_id;
955   int T_id;
956   int TAUTMSX_id;
957   int TAUTMSY_id;
958   int TAUX_id;
959   int TAUY_id;
960   int TGCLDCWP_id;
961   int TGCLDIWP_id;
962   int TGCLDLWP_id;
963   int TKE_id;
964   int TMQ_id;
965   int TREFHT_id;
966   int TREFMNAV_id;
967   int TREFMXAV_id;
968   int TROP_FD_id;
969   int TROP_P_id;
970   int TROP_PD_id;
971   int TROP_T_id;
972   int TROP_Z_id;
973   int TS_id;
974   int TSMN_id;
975   int TSMX_id;
976   int U_id;
977   int UFLX_id;
978   int US_id;
979   int UU_id;
980   int V_id;
981   int VD01_id;
982   int VFLX_id;
983   int VQ_id;
984   int VS_id;
985   int VT_id;
986   int VU_id;
987   int VV_id;
988   int WGUSTD_id;
989   int WTKE_id;
990   int XPH_LWC_id;
991   int Z3_id;
992   int airFV_id;
993   int bc_a1_id;
994   int bc_a1DDF_id;
995   int bc_a1GVF_id;
996   int bc_a1SFSBC_id;
997   int bc_a1SFSBS_id;
998   int bc_a1SFSIC_id;
999   int bc_a1SFSIS_id;
1000   int bc_a1SFWET_id;
1001   int bc_a1TBF_id;
1002   int bc_a1_CLXF_id;
1003   int bc_a1_XFRC_id;
1004   int bc_c1_id;
1005   int bc_c1DDF_id;
1006   int bc_c1GVF_id;
1007   int bc_c1SFSBC_id;
1008   int bc_c1SFSBS_id;
1009   int bc_c1SFSIC_id;
1010   int bc_c1SFSIS_id;
1011   int bc_c1SFWET_id;
1012   int bc_c1TBF_id;
1013   int chem_trop_id;
1014   int chem_trop_tropop_id;
1015   int dgnd_a01_id;
1016   int dgnd_a02_id;
1017   int dgnd_a03_id;
1018   int dgnw_a01_id;
1019   int dgnw_a02_id;
1020   int dgnw_a03_id;
1021   int dst_a1_id;
1022   int dst_a1DDF_id;
1023   int dst_a1GVF_id;
1024   int dst_a1SF_id;
1025   int dst_a1SFSBC_id;
1026   int dst_a1SFSBS_id;
1027   int dst_a1SFSIC_id;
1028   int dst_a1SFSIS_id;
1029   int dst_a1SFWET_id;
1030   int dst_a1TBF_id;
1031   int dst_a3_id;
1032   int dst_a3DDF_id;
1033   int dst_a3GVF_id;
1034   int dst_a3SF_id;
1035   int dst_a3SFSBC_id;
1036   int dst_a3SFSBS_id;
1037   int dst_a3SFSIC_id;
1038   int dst_a3SFSIS_id;
1039   int dst_a3SFWET_id;
1040   int dst_a3TBF_id;
1041   int dst_c1_id;
1042   int dst_c1DDF_id;
1043   int dst_c1GVF_id;
1044   int dst_c1SFSBC_id;
1045   int dst_c1SFSBS_id;
1046   int dst_c1SFSIC_id;
1047   int dst_c1SFSIS_id;
1048   int dst_c1SFWET_id;
1049   int dst_c1TBF_id;
1050   int dst_c3_id;
1051   int dst_c3DDF_id;
1052   int dst_c3GVF_id;
1053   int dst_c3SFSBC_id;
1054   int dst_c3SFSBS_id;
1055   int dst_c3SFSIC_id;
1056   int dst_c3SFSIS_id;
1057   int dst_c3SFWET_id;
1058   int dst_c3TBF_id;
1059   int ncl_a1_id;
1060   int ncl_a1DDF_id;
1061   int ncl_a1GVF_id;
1062   int ncl_a1SF_id;
1063   int ncl_a1SFSBC_id;
1064   int ncl_a1SFSBS_id;
1065   int ncl_a1SFSIC_id;
1066   int ncl_a1SFSIS_id;
1067   int ncl_a1SFWET_id;
1068   int ncl_a1TBF_id;
1069   int ncl_a1_sfcoag1_id;
1070   int ncl_a1_sfcsiz3_id;
1071   int ncl_a1_sfcsiz4_id;
1072   int ncl_a1_sfgaex2_id;
1073   int ncl_a2_id;
1074   int ncl_a2DDF_id;
1075   int ncl_a2GVF_id;
1076   int ncl_a2SF_id;
1077   int ncl_a2SFSBC_id;
1078   int ncl_a2SFSBS_id;
1079   int ncl_a2SFSIC_id;
1080   int ncl_a2SFSIS_id;
1081   int ncl_a2SFWET_id;
1082   int ncl_a2TBF_id;
1083   int ncl_a2_sfcoag1_id;
1084   int ncl_a2_sfcsiz3_id;
1085   int ncl_a2_sfcsiz4_id;
1086   int ncl_a2_sfgaex2_id;
1087   int ncl_a3_id;
1088   int ncl_a3DDF_id;
1089   int ncl_a3GVF_id;
1090   int ncl_a3SF_id;
1091   int ncl_a3SFSBC_id;
1092   int ncl_a3SFSBS_id;
1093   int ncl_a3SFSIC_id;
1094   int ncl_a3SFSIS_id;
1095   int ncl_a3SFWET_id;
1096   int ncl_a3TBF_id;
1097   int ncl_c1_id;
1098   int ncl_c1DDF_id;
1099   int ncl_c1GVF_id;
1100   int ncl_c1SFSBC_id;
1101   int ncl_c1SFSBS_id;
1102   int ncl_c1SFSIC_id;
1103   int ncl_c1SFSIS_id;
1104   int ncl_c1SFWET_id;
1105   int ncl_c1TBF_id;
1106   int ncl_c1_sfcsiz3_id;
1107   int ncl_c1_sfcsiz4_id;
1108   int ncl_c1_sfgaex2_id;
1109   int ncl_c2_id;
1110   int ncl_c2DDF_id;
1111   int ncl_c2GVF_id;
1112   int ncl_c2SFSBC_id;
1113   int ncl_c2SFSBS_id;
1114   int ncl_c2SFSIC_id;
1115   int ncl_c2SFSIS_id;
1116   int ncl_c2SFWET_id;
1117   int ncl_c2TBF_id;
1118   int ncl_c2_sfcsiz3_id;
1119   int ncl_c2_sfcsiz4_id;
1120   int ncl_c2_sfgaex2_id;
1121   int ncl_c3_id;
1122   int ncl_c3DDF_id;
1123   int ncl_c3GVF_id;
1124   int ncl_c3SFSBC_id;
1125   int ncl_c3SFSBS_id;
1126   int ncl_c3SFSIC_id;
1127   int ncl_c3SFSIS_id;
1128   int ncl_c3SFWET_id;
1129   int ncl_c3TBF_id;
1130   int num_a1_id;
1131   int num_a1DDF_id;
1132   int num_a1GVF_id;
1133   int num_a1SFSBC_id;
1134   int num_a1SFSBS_id;
1135   int num_a1SFSIC_id;
1136   int num_a1SFSIS_id;
1137   int num_a1SFWET_id;
1138   int num_a1TBF_id;
1139   int num_a1_CLXF_id;
1140   int num_a1_XFRC_id;
1141   int num_a1_sfcoag1_id;
1142   int num_a1_sfcsiz1_id;
1143   int num_a1_sfcsiz2_id;
1144   int num_a1_sfcsiz3_id;
1145   int num_a1_sfcsiz4_id;
1146   int num_a1_sfgaex2_id;
1147   int num_a2_id;
1148   int num_a2DDF_id;
1149   int num_a2GVF_id;
1150   int num_a2SFSBC_id;
1151   int num_a2SFSBS_id;
1152   int num_a2SFSIC_id;
1153   int num_a2SFSIS_id;
1154   int num_a2SFWET_id;
1155   int num_a2TBF_id;
1156   int num_a2_CLXF_id;
1157   int num_a2_XFRC_id;
1158   int num_a2_sfcoag1_id;
1159   int num_a2_sfcsiz1_id;
1160   int num_a2_sfcsiz2_id;
1161   int num_a2_sfcsiz3_id;
1162   int num_a2_sfcsiz4_id;
1163   int num_a2_sfgaex2_id;
1164   int num_a2_sfnnuc1_id;
1165   int num_a3_id;
1166   int num_a3DDF_id;
1167   int num_a3GVF_id;
1168   int num_a3SFSBC_id;
1169   int num_a3SFSBS_id;
1170   int num_a3SFSIC_id;
1171   int num_a3SFSIS_id;
1172   int num_a3SFWET_id;
1173   int num_a3TBF_id;
1174   int num_a3_sfcsiz1_id;
1175   int num_a3_sfcsiz2_id;
1176   int num_c1_id;
1177   int num_c1DDF_id;
1178   int num_c1GVF_id;
1179   int num_c1SFSBC_id;
1180   int num_c1SFSBS_id;
1181   int num_c1SFSIC_id;
1182   int num_c1SFSIS_id;
1183   int num_c1SFWET_id;
1184   int num_c1TBF_id;
1185   int num_c1_sfcsiz1_id;
1186   int num_c1_sfcsiz2_id;
1187   int num_c1_sfcsiz3_id;
1188   int num_c1_sfcsiz4_id;
1189   int num_c1_sfgaex2_id;
1190   int num_c2_id;
1191   int num_c2DDF_id;
1192   int num_c2GVF_id;
1193   int num_c2SFSBC_id;
1194   int num_c2SFSBS_id;
1195   int num_c2SFSIC_id;
1196   int num_c2SFSIS_id;
1197   int num_c2SFWET_id;
1198   int num_c2TBF_id;
1199   int num_c2_sfcsiz1_id;
1200   int num_c2_sfcsiz2_id;
1201   int num_c2_sfcsiz3_id;
1202   int num_c2_sfcsiz4_id;
1203   int num_c2_sfgaex2_id;
1204   int num_c3_id;
1205   int num_c3DDF_id;
1206   int num_c3GVF_id;
1207   int num_c3SFSBC_id;
1208   int num_c3SFSBS_id;
1209   int num_c3SFSIC_id;
1210   int num_c3SFSIS_id;
1211   int num_c3SFWET_id;
1212   int num_c3TBF_id;
1213   int num_c3_sfcsiz1_id;
1214   int num_c3_sfcsiz2_id;
1215   int pom_a1_id;
1216   int pom_a1DDF_id;
1217   int pom_a1GVF_id;
1218   int pom_a1SFSBC_id;
1219   int pom_a1SFSBS_id;
1220   int pom_a1SFSIC_id;
1221   int pom_a1SFSIS_id;
1222   int pom_a1SFWET_id;
1223   int pom_a1TBF_id;
1224   int pom_a1_CLXF_id;
1225   int pom_a1_XFRC_id;
1226   int pom_c1_id;
1227   int pom_c1DDF_id;
1228   int pom_c1GVF_id;
1229   int pom_c1SFSBC_id;
1230   int pom_c1SFSBS_id;
1231   int pom_c1SFSIC_id;
1232   int pom_c1SFSIS_id;
1233   int pom_c1SFWET_id;
1234   int pom_c1TBF_id;
1235   int so4_a1_id;
1236   int so4_a1DDF_id;
1237   int so4_a1GVF_id;
1238   int so4_a1SFSBC_id;
1239   int so4_a1SFSBS_id;
1240   int so4_a1SFSIC_id;
1241   int so4_a1SFSIS_id;
1242   int so4_a1SFWET_id;
1243   int so4_a1TBF_id;
1244   int so4_a1_CLXF_id;
1245   int so4_a1_XFRC_id;
1246   int so4_a1_sfcoag1_id;
1247   int so4_a1_sfcsiz3_id;
1248   int so4_a1_sfcsiz4_id;
1249   int so4_a1_sfgaex1_id;
1250   int so4_a1_sfgaex2_id;
1251   int so4_a2_id;
1252   int so4_a2DDF_id;
1253   int so4_a2GVF_id;
1254   int so4_a2SFSBC_id;
1255   int so4_a2SFSBS_id;
1256   int so4_a2SFSIC_id;
1257   int so4_a2SFSIS_id;
1258   int so4_a2SFWET_id;
1259   int so4_a2TBF_id;
1260   int so4_a2_CLXF_id;
1261   int so4_a2_XFRC_id;
1262   int so4_a2_sfcoag1_id;
1263   int so4_a2_sfcsiz3_id;
1264   int so4_a2_sfcsiz4_id;
1265   int so4_a2_sfgaex1_id;
1266   int so4_a2_sfgaex2_id;
1267   int so4_a2_sfnnuc1_id;
1268   int so4_a3_id;
1269   int so4_a3DDF_id;
1270   int so4_a3GVF_id;
1271   int so4_a3SFSBC_id;
1272   int so4_a3SFSBS_id;
1273   int so4_a3SFSIC_id;
1274   int so4_a3SFSIS_id;
1275   int so4_a3SFWET_id;
1276   int so4_a3TBF_id;
1277   int so4_a3_sfgaex1_id;
1278   int so4_c1_id;
1279   int so4_c1AQH2SO4_id;
1280   int so4_c1AQSO4_id;
1281   int so4_c1DDF_id;
1282   int so4_c1GVF_id;
1283   int so4_c1SFSBC_id;
1284   int so4_c1SFSBS_id;
1285   int so4_c1SFSIC_id;
1286   int so4_c1SFSIS_id;
1287   int so4_c1SFWET_id;
1288   int so4_c1TBF_id;
1289   int so4_c1_sfcsiz3_id;
1290   int so4_c1_sfcsiz4_id;
1291   int so4_c1_sfgaex2_id;
1292   int so4_c2_id;
1293   int so4_c2AQH2SO4_id;
1294   int so4_c2AQSO4_id;
1295   int so4_c2DDF_id;
1296   int so4_c2GVF_id;
1297   int so4_c2SFSBC_id;
1298   int so4_c2SFSBS_id;
1299   int so4_c2SFSIC_id;
1300   int so4_c2SFSIS_id;
1301   int so4_c2SFWET_id;
1302   int so4_c2TBF_id;
1303   int so4_c2_sfcsiz3_id;
1304   int so4_c2_sfcsiz4_id;
1305   int so4_c2_sfgaex2_id;
1306   int so4_c3_id;
1307   int so4_c3AQH2SO4_id;
1308   int so4_c3AQSO4_id;
1309   int so4_c3DDF_id;
1310   int so4_c3GVF_id;
1311   int so4_c3SFSBC_id;
1312   int so4_c3SFSBS_id;
1313   int so4_c3SFSIC_id;
1314   int so4_c3SFSIS_id;
1315   int so4_c3SFWET_id;
1316   int so4_c3TBF_id;
1317   int soa_a1_id;
1318   int soa_a1DDF_id;
1319   int soa_a1GVF_id;
1320   int soa_a1SFSBC_id;
1321   int soa_a1SFSBS_id;
1322   int soa_a1SFSIC_id;
1323   int soa_a1SFSIS_id;
1324   int soa_a1SFWET_id;
1325   int soa_a1TBF_id;
1326   int soa_a1_sfcoag1_id;
1327   int soa_a1_sfcsiz3_id;
1328   int soa_a1_sfcsiz4_id;
1329   int soa_a1_sfgaex1_id;
1330   int soa_a1_sfgaex2_id;
1331   int soa_a2_id;
1332   int soa_a2DDF_id;
1333   int soa_a2GVF_id;
1334   int soa_a2SFSBC_id;
1335   int soa_a2SFSBS_id;
1336   int soa_a2SFSIC_id;
1337   int soa_a2SFSIS_id;
1338   int soa_a2SFWET_id;
1339   int soa_a2TBF_id;
1340   int soa_a2_sfcoag1_id;
1341   int soa_a2_sfcsiz3_id;
1342   int soa_a2_sfcsiz4_id;
1343   int soa_a2_sfgaex1_id;
1344   int soa_a2_sfgaex2_id;
1345   int soa_c1_id;
1346   int soa_c1DDF_id;
1347   int soa_c1GVF_id;
1348   int soa_c1SFSBC_id;
1349   int soa_c1SFSBS_id;
1350   int soa_c1SFSIC_id;
1351   int soa_c1SFSIS_id;
1352   int soa_c1SFWET_id;
1353   int soa_c1TBF_id;
1354   int soa_c1_sfcsiz3_id;
1355   int soa_c1_sfcsiz4_id;
1356   int soa_c1_sfgaex2_id;
1357   int soa_c2_id;
1358   int soa_c2DDF_id;
1359   int soa_c2GVF_id;
1360   int soa_c2SFSBC_id;
1361   int soa_c2SFSBS_id;
1362   int soa_c2SFSIC_id;
1363   int soa_c2SFSIS_id;
1364   int soa_c2SFWET_id;
1365   int soa_c2TBF_id;
1366   int soa_c2_sfcsiz3_id;
1367   int soa_c2_sfcsiz4_id;
1368   int soa_c2_sfgaex2_id;
1369   int wat_a1_id;
1370   int wat_a2_id;
1371   int wat_a3_id;
1372
1373
1374   /* variable shapes */
1375   int lat_dims[RANK_lat];
1376   int lon_dims[RANK_lon];
1377   int slat_dims[RANK_slat];
1378   int slon_dims[RANK_slon];
1379   int w_stag_dims[RANK_w_stag];
1380   int lev_dims[RANK_lev];
1381   int ilev_dims[RANK_ilev];
1382   int isccp_prs_dims[RANK_isccp_prs];
1383   int isccp_tau_dims[RANK_isccp_tau];
1384   int isccp_prstau_dims[RANK_isccp_prstau];
1385   int time_dims[RANK_time];
1386   int time_bnds_dims[RANK_time_bnds];
1387   int date_written_dims[RANK_date_written];
1388   int time_written_dims[RANK_time_written];
1389   int nlon_dims[RANK_nlon];
1390   int wnummax_dims[RANK_wnummax];
1391   int hyai_dims[RANK_hyai];
1392   int hybi_dims[RANK_hybi];
1393   int hyam_dims[RANK_hyam];
1394   int hybm_dims[RANK_hybm];
1395   int gw_dims[RANK_gw];
1396   int ndcur_dims[RANK_ndcur];
1397   int nscur_dims[RANK_nscur];
1398   int date_dims[RANK_date];
1399   int co2vmr_dims[RANK_co2vmr];
1400   int ch4vmr_dims[RANK_ch4vmr];
1401   int n2ovmr_dims[RANK_n2ovmr];
1402   int f11vmr_dims[RANK_f11vmr];
1403   int f12vmr_dims[RANK_f12vmr];
1404   int sol_tsi_dims[RANK_sol_tsi];
1405   int datesec_dims[RANK_datesec];
1406   int nsteph_dims[RANK_nsteph];
1407   int ABSORB_dims[RANK_ABSORB];
1408   int AEROD_v_dims[RANK_AEROD_v];
1409   int AODABS_dims[RANK_AODABS];
1410   int AODDUST1_dims[RANK_AODDUST1];
1411   int AODDUST2_dims[RANK_AODDUST2];
1412   int AODDUST3_dims[RANK_AODDUST3];
1413   int AODMODE1_dims[RANK_AODMODE1];
1414   int AODMODE2_dims[RANK_AODMODE2];
1415   int AODMODE3_dims[RANK_AODMODE3];
1416   int AODVIS_dims[RANK_AODVIS];
1417   int AQSO4_H2O2_dims[RANK_AQSO4_H2O2];
1418   int AQSO4_O3_dims[RANK_AQSO4_O3];
1419   int AQ_DMS_dims[RANK_AQ_DMS];
1420   int AQ_H2O2_dims[RANK_AQ_H2O2];
1421   int AQ_H2SO4_dims[RANK_AQ_H2SO4];
1422   int AQ_SO2_dims[RANK_AQ_SO2];
1423   int AQ_SOAG_dims[RANK_AQ_SOAG];
1424   int AQ_bc_a1_dims[RANK_AQ_bc_a1];
1425   int AQ_dst_a1_dims[RANK_AQ_dst_a1];
1426   int AQ_dst_a3_dims[RANK_AQ_dst_a3];
1427   int AQ_ncl_a1_dims[RANK_AQ_ncl_a1];
1428   int AQ_ncl_a2_dims[RANK_AQ_ncl_a2];
1429   int AQ_ncl_a3_dims[RANK_AQ_ncl_a3];
1430   int AQ_num_a1_dims[RANK_AQ_num_a1];
1431   int AQ_num_a2_dims[RANK_AQ_num_a2];
1432   int AQ_num_a3_dims[RANK_AQ_num_a3];
1433   int AQ_pom_a1_dims[RANK_AQ_pom_a1];
1434   int AQ_so4_a1_dims[RANK_AQ_so4_a1];
1435   int AQ_so4_a2_dims[RANK_AQ_so4_a2];
1436   int AQ_so4_a3_dims[RANK_AQ_so4_a3];
1437   int AQ_soa_a1_dims[RANK_AQ_soa_a1];
1438   int AQ_soa_a2_dims[RANK_AQ_soa_a2];
1439   int BPROD_dims[RANK_BPROD];
1440   int BURDEN1_dims[RANK_BURDEN1];
1441   int BURDEN2_dims[RANK_BURDEN2];
1442   int BURDEN3_dims[RANK_BURDEN3];
1443   int CCN1_dims[RANK_CCN1];
1444   int CCN2_dims[RANK_CCN2];
1445   int CCN3_dims[RANK_CCN3];
1446   int CCN4_dims[RANK_CCN4];
1447   int CCN5_dims[RANK_CCN5];
1448   int CCN6_dims[RANK_CCN6];
1449   int CLDHGH_dims[RANK_CLDHGH];
1450   int CLDICE_dims[RANK_CLDICE];
1451   int CLDLIQ_dims[RANK_CLDLIQ];
1452   int CLDLOW_dims[RANK_CLDLOW];
1453   int CLDMED_dims[RANK_CLDMED];
1454   int CLDTOT_dims[RANK_CLDTOT];
1455   int CLOUD_dims[RANK_CLOUD];
1456   int CMFDQ_dims[RANK_CMFDQ];
1457   int CMFDQR_dims[RANK_CMFDQR];
1458   int CMFDT_dims[RANK_CMFDT];
1459   int CMFMC_dims[RANK_CMFMC];
1460   int CMFMCDZM_dims[RANK_CMFMCDZM];
1461   int CONCLD_dims[RANK_CONCLD];
1462   int DCQ_dims[RANK_DCQ];
1463   int DMS_dims[RANK_DMS];
1464   int DSTODXC_dims[RANK_DSTODXC];
1465   int DSTSFDRY_dims[RANK_DSTSFDRY];
1466   int DSTSFMBL_dims[RANK_DSTSFMBL];
1467   int DSTSFWET_dims[RANK_DSTSFWET];
1468   int DTCOND_dims[RANK_DTCOND];
1469   int DTV_dims[RANK_DTV];
1470   int EXTINCT_dims[RANK_EXTINCT];
1471   int FICE_dims[RANK_FICE];
1472   int FLDS_dims[RANK_FLDS];
1473   int FLNS_dims[RANK_FLNS];
1474   int FLNSC_dims[RANK_FLNSC];
1475   int FLNT_dims[RANK_FLNT];
1476   int FLNTC_dims[RANK_FLNTC];
1477   int FLUT_dims[RANK_FLUT];
1478   int FLUTC_dims[RANK_FLUTC];
1479   int FREQSH_dims[RANK_FREQSH];
1480   int FREQZM_dims[RANK_FREQZM];
1481   int FSDS_dims[RANK_FSDS];
1482   int FSDSC_dims[RANK_FSDSC];
1483   int FSNS_dims[RANK_FSNS];
1484   int FSNSC_dims[RANK_FSNSC];
1485   int FSNT_dims[RANK_FSNT];
1486   int FSNTC_dims[RANK_FSNTC];
1487   int FSNTOA_dims[RANK_FSNTOA];
1488   int FSNTOAC_dims[RANK_FSNTOAC];
1489   int FSUTOA_dims[RANK_FSUTOA];
1490   int GS_DMS_dims[RANK_GS_DMS];
1491   int GS_H2O2_dims[RANK_GS_H2O2];
1492   int GS_H2SO4_dims[RANK_GS_H2SO4];
1493   int GS_SO2_dims[RANK_GS_SO2];
1494   int GS_SOAG_dims[RANK_GS_SOAG];
1495   int GS_bc_a1_dims[RANK_GS_bc_a1];
1496   int GS_dst_a1_dims[RANK_GS_dst_a1];
1497   int GS_dst_a3_dims[RANK_GS_dst_a3];
1498   int GS_ncl_a1_dims[RANK_GS_ncl_a1];
1499   int GS_ncl_a2_dims[RANK_GS_ncl_a2];
1500   int GS_ncl_a3_dims[RANK_GS_ncl_a3];
1501   int GS_num_a1_dims[RANK_GS_num_a1];
1502   int GS_num_a2_dims[RANK_GS_num_a2];
1503   int GS_num_a3_dims[RANK_GS_num_a3];
1504   int GS_pom_a1_dims[RANK_GS_pom_a1];
1505   int GS_so4_a1_dims[RANK_GS_so4_a1];
1506   int GS_so4_a2_dims[RANK_GS_so4_a2];
1507   int GS_so4_a3_dims[RANK_GS_so4_a3];
1508   int GS_soa_a1_dims[RANK_GS_soa_a1];
1509   int GS_soa_a2_dims[RANK_GS_soa_a2];
1510   int H2O2_dims[RANK_H2O2];
1511   int H2SO4_dims[RANK_H2SO4];
1512   int H2SO4_sfgaex1_dims[RANK_H2SO4_sfgaex1];
1513   int H2SO4_sfnnuc1_dims[RANK_H2SO4_sfnnuc1];
1514   int ICEFRAC_dims[RANK_ICEFRAC];
1515   int ICIMR_dims[RANK_ICIMR];
1516   int ICWMR_dims[RANK_ICWMR];
1517   int KVH_dims[RANK_KVH];
1518   int KVM_dims[RANK_KVM];
1519   int LANDFRAC_dims[RANK_LANDFRAC];
1520   int LCLOUD_dims[RANK_LCLOUD];
1521   int LHFLX_dims[RANK_LHFLX];
1522   int LND_MBL_dims[RANK_LND_MBL];
1523   int LWCF_dims[RANK_LWCF];
1524   int NDROPCOL_dims[RANK_NDROPCOL];
1525   int NDROPMIX_dims[RANK_NDROPMIX];
1526   int NDROPSNK_dims[RANK_NDROPSNK];
1527   int NDROPSRC_dims[RANK_NDROPSRC];
1528   int NUMICE_dims[RANK_NUMICE];
1529   int NUMLIQ_dims[RANK_NUMLIQ];
1530   int OCNFRAC_dims[RANK_OCNFRAC];
1531   int ODV_bc_a1_dims[RANK_ODV_bc_a1];
1532   int ODV_dst_a1_dims[RANK_ODV_dst_a1];
1533   int ODV_dst_a3_dims[RANK_ODV_dst_a3];
1534   int ODV_ncl_a1_dims[RANK_ODV_ncl_a1];
1535   int ODV_ncl_a3_dims[RANK_ODV_ncl_a3];
1536   int ODV_pom_a1_dims[RANK_ODV_pom_a1];
1537   int ODV_so4_a1_dims[RANK_ODV_so4_a1];
1538   int ODV_soa_a1_dims[RANK_ODV_soa_a1];
1539   int OMEGA_dims[RANK_OMEGA];
1540   int OMEGAT_dims[RANK_OMEGAT];
1541   int ORO_dims[RANK_ORO];
1542   int PBLH_dims[RANK_PBLH];
1543   int PCONVB_dims[RANK_PCONVB];
1544   int PCONVT_dims[RANK_PCONVT];
1545   int PHIS_dims[RANK_PHIS];
1546   int PRECC_dims[RANK_PRECC];
1547   int PRECCDZM_dims[RANK_PRECCDZM];
1548   int PRECL_dims[RANK_PRECL];
1549   int PRECSC_dims[RANK_PRECSC];
1550   int PRECSH_dims[RANK_PRECSH];
1551   int PRECSL_dims[RANK_PRECSL];
1552   int PRECT_dims[RANK_PRECT];
1553   int PS_dims[RANK_PS];
1554   int PSL_dims[RANK_PSL];
1555   int Q_dims[RANK_Q];
1556   int QC_dims[RANK_QC];
1557   int QFLX_dims[RANK_QFLX];
1558   int QREFHT_dims[RANK_QREFHT];
1559   int QRL_dims[RANK_QRL];
1560   int QRS_dims[RANK_QRS];
1561   int QT_dims[RANK_QT];
1562   int QTFLX_dims[RANK_QTFLX];
1563   int RAM1_dims[RANK_RAM1];
1564   int RELHUM_dims[RANK_RELHUM];
1565   int RHREFHT_dims[RANK_RHREFHT];
1566   int SFCLDICE_dims[RANK_SFCLDICE];
1567   int SFCLDLIQ_dims[RANK_SFCLDLIQ];
1568   int SFI_dims[RANK_SFI];
1569   int SFNUMICE_dims[RANK_SFNUMICE];
1570   int SFNUMLIQ_dims[RANK_SFNUMLIQ];
1571   int SHFLX_dims[RANK_SHFLX];
1572   int SL_dims[RANK_SL];
1573   int SLFLX_dims[RANK_SLFLX];
1574   int SLV_dims[RANK_SLV];
1575   int SNOWHICE_dims[RANK_SNOWHICE];
1576   int SNOWHLND_dims[RANK_SNOWHLND];
1577   int SO2_dims[RANK_SO2];
1578   int SO2_CLXF_dims[RANK_SO2_CLXF];
1579   int SO2_XFRC_dims[RANK_SO2_XFRC];
1580   int SOAG_dims[RANK_SOAG];
1581   int SOAG_sfgaex1_dims[RANK_SOAG_sfgaex1];
1582   int SOLIN_dims[RANK_SOLIN];
1583   int SPROD_dims[RANK_SPROD];
1584   int SRFRAD_dims[RANK_SRFRAD];
1585   int SSAVIS_dims[RANK_SSAVIS];
1586   int SSTODXC_dims[RANK_SSTODXC];
1587   int SSTSFDRY_dims[RANK_SSTSFDRY];
1588   int SSTSFMBL_dims[RANK_SSTSFMBL];
1589   int SSTSFWET_dims[RANK_SSTSFWET];
1590   int SWCF_dims[RANK_SWCF];
1591   int T_dims[RANK_T];
1592   int TAUTMSX_dims[RANK_TAUTMSX];
1593   int TAUTMSY_dims[RANK_TAUTMSY];
1594   int TAUX_dims[RANK_TAUX];
1595   int TAUY_dims[RANK_TAUY];
1596   int TGCLDCWP_dims[RANK_TGCLDCWP];
1597   int TGCLDIWP_dims[RANK_TGCLDIWP];
1598   int TGCLDLWP_dims[RANK_TGCLDLWP];
1599   int TKE_dims[RANK_TKE];
1600   int TMQ_dims[RANK_TMQ];
1601   int TREFHT_dims[RANK_TREFHT];
1602   int TREFMNAV_dims[RANK_TREFMNAV];
1603   int TREFMXAV_dims[RANK_TREFMXAV];
1604   int TROP_FD_dims[RANK_TROP_FD];
1605   int TROP_P_dims[RANK_TROP_P];
1606   int TROP_PD_dims[RANK_TROP_PD];
1607   int TROP_T_dims[RANK_TROP_T];
1608   int TROP_Z_dims[RANK_TROP_Z];
1609   int TS_dims[RANK_TS];
1610   int TSMN_dims[RANK_TSMN];
1611   int TSMX_dims[RANK_TSMX];
1612   int U_dims[RANK_U];
1613   int UFLX_dims[RANK_UFLX];
1614   int US_dims[RANK_US];
1615   int UU_dims[RANK_UU];
1616   int V_dims[RANK_V];
1617   int VD01_dims[RANK_VD01];
1618   int VFLX_dims[RANK_VFLX];
1619   int VQ_dims[RANK_VQ];
1620   int VS_dims[RANK_VS];
1621   int VT_dims[RANK_VT];
1622   int VU_dims[RANK_VU];
1623   int VV_dims[RANK_VV];
1624   int WGUSTD_dims[RANK_WGUSTD];
1625   int WTKE_dims[RANK_WTKE];
1626   int XPH_LWC_dims[RANK_XPH_LWC];
1627   int Z3_dims[RANK_Z3];
1628   int airFV_dims[RANK_airFV];
1629   int bc_a1_dims[RANK_bc_a1];
1630   int bc_a1DDF_dims[RANK_bc_a1DDF];
1631   int bc_a1GVF_dims[RANK_bc_a1GVF];
1632   int bc_a1SFSBC_dims[RANK_bc_a1SFSBC];
1633   int bc_a1SFSBS_dims[RANK_bc_a1SFSBS];
1634   int bc_a1SFSIC_dims[RANK_bc_a1SFSIC];
1635   int bc_a1SFSIS_dims[RANK_bc_a1SFSIS];
1636   int bc_a1SFWET_dims[RANK_bc_a1SFWET];
1637   int bc_a1TBF_dims[RANK_bc_a1TBF];
1638   int bc_a1_CLXF_dims[RANK_bc_a1_CLXF];
1639   int bc_a1_XFRC_dims[RANK_bc_a1_XFRC];
1640   int bc_c1_dims[RANK_bc_c1];
1641   int bc_c1DDF_dims[RANK_bc_c1DDF];
1642   int bc_c1GVF_dims[RANK_bc_c1GVF];
1643   int bc_c1SFSBC_dims[RANK_bc_c1SFSBC];
1644   int bc_c1SFSBS_dims[RANK_bc_c1SFSBS];
1645   int bc_c1SFSIC_dims[RANK_bc_c1SFSIC];
1646   int bc_c1SFSIS_dims[RANK_bc_c1SFSIS];
1647   int bc_c1SFWET_dims[RANK_bc_c1SFWET];
1648   int bc_c1TBF_dims[RANK_bc_c1TBF];
1649   int chem_trop_dims[RANK_chem_trop];
1650   int chem_trop_tropop_dims[RANK_chem_trop_tropop];
1651   int dgnd_a01_dims[RANK_dgnd_a01];
1652   int dgnd_a02_dims[RANK_dgnd_a02];
1653   int dgnd_a03_dims[RANK_dgnd_a03];
1654   int dgnw_a01_dims[RANK_dgnw_a01];
1655   int dgnw_a02_dims[RANK_dgnw_a02];
1656   int dgnw_a03_dims[RANK_dgnw_a03];
1657   int dst_a1_dims[RANK_dst_a1];
1658   int dst_a1DDF_dims[RANK_dst_a1DDF];
1659   int dst_a1GVF_dims[RANK_dst_a1GVF];
1660   int dst_a1SF_dims[RANK_dst_a1SF];
1661   int dst_a1SFSBC_dims[RANK_dst_a1SFSBC];
1662   int dst_a1SFSBS_dims[RANK_dst_a1SFSBS];
1663   int dst_a1SFSIC_dims[RANK_dst_a1SFSIC];
1664   int dst_a1SFSIS_dims[RANK_dst_a1SFSIS];
1665   int dst_a1SFWET_dims[RANK_dst_a1SFWET];
1666   int dst_a1TBF_dims[RANK_dst_a1TBF];
1667   int dst_a3_dims[RANK_dst_a3];
1668   int dst_a3DDF_dims[RANK_dst_a3DDF];
1669   int dst_a3GVF_dims[RANK_dst_a3GVF];
1670   int dst_a3SF_dims[RANK_dst_a3SF];
1671   int dst_a3SFSBC_dims[RANK_dst_a3SFSBC];
1672   int dst_a3SFSBS_dims[RANK_dst_a3SFSBS];
1673   int dst_a3SFSIC_dims[RANK_dst_a3SFSIC];
1674   int dst_a3SFSIS_dims[RANK_dst_a3SFSIS];
1675   int dst_a3SFWET_dims[RANK_dst_a3SFWET];
1676   int dst_a3TBF_dims[RANK_dst_a3TBF];
1677   int dst_c1_dims[RANK_dst_c1];
1678   int dst_c1DDF_dims[RANK_dst_c1DDF];
1679   int dst_c1GVF_dims[RANK_dst_c1GVF];
1680   int dst_c1SFSBC_dims[RANK_dst_c1SFSBC];
1681   int dst_c1SFSBS_dims[RANK_dst_c1SFSBS];
1682   int dst_c1SFSIC_dims[RANK_dst_c1SFSIC];
1683   int dst_c1SFSIS_dims[RANK_dst_c1SFSIS];
1684   int dst_c1SFWET_dims[RANK_dst_c1SFWET];
1685   int dst_c1TBF_dims[RANK_dst_c1TBF];
1686   int dst_c3_dims[RANK_dst_c3];
1687   int dst_c3DDF_dims[RANK_dst_c3DDF];
1688   int dst_c3GVF_dims[RANK_dst_c3GVF];
1689   int dst_c3SFSBC_dims[RANK_dst_c3SFSBC];
1690   int dst_c3SFSBS_dims[RANK_dst_c3SFSBS];
1691   int dst_c3SFSIC_dims[RANK_dst_c3SFSIC];
1692   int dst_c3SFSIS_dims[RANK_dst_c3SFSIS];
1693   int dst_c3SFWET_dims[RANK_dst_c3SFWET];
1694   int dst_c3TBF_dims[RANK_dst_c3TBF];
1695   int ncl_a1_dims[RANK_ncl_a1];
1696   int ncl_a1DDF_dims[RANK_ncl_a1DDF];
1697   int ncl_a1GVF_dims[RANK_ncl_a1GVF];
1698   int ncl_a1SF_dims[RANK_ncl_a1SF];
1699   int ncl_a1SFSBC_dims[RANK_ncl_a1SFSBC];
1700   int ncl_a1SFSBS_dims[RANK_ncl_a1SFSBS];
1701   int ncl_a1SFSIC_dims[RANK_ncl_a1SFSIC];
1702   int ncl_a1SFSIS_dims[RANK_ncl_a1SFSIS];
1703   int ncl_a1SFWET_dims[RANK_ncl_a1SFWET];
1704   int ncl_a1TBF_dims[RANK_ncl_a1TBF];
1705   int ncl_a1_sfcoag1_dims[RANK_ncl_a1_sfcoag1];
1706   int ncl_a1_sfcsiz3_dims[RANK_ncl_a1_sfcsiz3];
1707   int ncl_a1_sfcsiz4_dims[RANK_ncl_a1_sfcsiz4];
1708   int ncl_a1_sfgaex2_dims[RANK_ncl_a1_sfgaex2];
1709   int ncl_a2_dims[RANK_ncl_a2];
1710   int ncl_a2DDF_dims[RANK_ncl_a2DDF];
1711   int ncl_a2GVF_dims[RANK_ncl_a2GVF];
1712   int ncl_a2SF_dims[RANK_ncl_a2SF];
1713   int ncl_a2SFSBC_dims[RANK_ncl_a2SFSBC];
1714   int ncl_a2SFSBS_dims[RANK_ncl_a2SFSBS];
1715   int ncl_a2SFSIC_dims[RANK_ncl_a2SFSIC];
1716   int ncl_a2SFSIS_dims[RANK_ncl_a2SFSIS];
1717   int ncl_a2SFWET_dims[RANK_ncl_a2SFWET];
1718   int ncl_a2TBF_dims[RANK_ncl_a2TBF];
1719   int ncl_a2_sfcoag1_dims[RANK_ncl_a2_sfcoag1];
1720   int ncl_a2_sfcsiz3_dims[RANK_ncl_a2_sfcsiz3];
1721   int ncl_a2_sfcsiz4_dims[RANK_ncl_a2_sfcsiz4];
1722   int ncl_a2_sfgaex2_dims[RANK_ncl_a2_sfgaex2];
1723   int ncl_a3_dims[RANK_ncl_a3];
1724   int ncl_a3DDF_dims[RANK_ncl_a3DDF];
1725   int ncl_a3GVF_dims[RANK_ncl_a3GVF];
1726   int ncl_a3SF_dims[RANK_ncl_a3SF];
1727   int ncl_a3SFSBC_dims[RANK_ncl_a3SFSBC];
1728   int ncl_a3SFSBS_dims[RANK_ncl_a3SFSBS];
1729   int ncl_a3SFSIC_dims[RANK_ncl_a3SFSIC];
1730   int ncl_a3SFSIS_dims[RANK_ncl_a3SFSIS];
1731   int ncl_a3SFWET_dims[RANK_ncl_a3SFWET];
1732   int ncl_a3TBF_dims[RANK_ncl_a3TBF];
1733   int ncl_c1_dims[RANK_ncl_c1];
1734   int ncl_c1DDF_dims[RANK_ncl_c1DDF];
1735   int ncl_c1GVF_dims[RANK_ncl_c1GVF];
1736   int ncl_c1SFSBC_dims[RANK_ncl_c1SFSBC];
1737   int ncl_c1SFSBS_dims[RANK_ncl_c1SFSBS];
1738   int ncl_c1SFSIC_dims[RANK_ncl_c1SFSIC];
1739   int ncl_c1SFSIS_dims[RANK_ncl_c1SFSIS];
1740   int ncl_c1SFWET_dims[RANK_ncl_c1SFWET];
1741   int ncl_c1TBF_dims[RANK_ncl_c1TBF];
1742   int ncl_c1_sfcsiz3_dims[RANK_ncl_c1_sfcsiz3];
1743   int ncl_c1_sfcsiz4_dims[RANK_ncl_c1_sfcsiz4];
1744   int ncl_c1_sfgaex2_dims[RANK_ncl_c1_sfgaex2];
1745   int ncl_c2_dims[RANK_ncl_c2];
1746   int ncl_c2DDF_dims[RANK_ncl_c2DDF];
1747   int ncl_c2GVF_dims[RANK_ncl_c2GVF];
1748   int ncl_c2SFSBC_dims[RANK_ncl_c2SFSBC];
1749   int ncl_c2SFSBS_dims[RANK_ncl_c2SFSBS];
1750   int ncl_c2SFSIC_dims[RANK_ncl_c2SFSIC];
1751   int ncl_c2SFSIS_dims[RANK_ncl_c2SFSIS];
1752   int ncl_c2SFWET_dims[RANK_ncl_c2SFWET];
1753   int ncl_c2TBF_dims[RANK_ncl_c2TBF];
1754   int ncl_c2_sfcsiz3_dims[RANK_ncl_c2_sfcsiz3];
1755   int ncl_c2_sfcsiz4_dims[RANK_ncl_c2_sfcsiz4];
1756   int ncl_c2_sfgaex2_dims[RANK_ncl_c2_sfgaex2];
1757   int ncl_c3_dims[RANK_ncl_c3];
1758   int ncl_c3DDF_dims[RANK_ncl_c3DDF];
1759   int ncl_c3GVF_dims[RANK_ncl_c3GVF];
1760   int ncl_c3SFSBC_dims[RANK_ncl_c3SFSBC];
1761   int ncl_c3SFSBS_dims[RANK_ncl_c3SFSBS];
1762   int ncl_c3SFSIC_dims[RANK_ncl_c3SFSIC];
1763   int ncl_c3SFSIS_dims[RANK_ncl_c3SFSIS];
1764   int ncl_c3SFWET_dims[RANK_ncl_c3SFWET];
1765   int ncl_c3TBF_dims[RANK_ncl_c3TBF];
1766   int num_a1_dims[RANK_num_a1];
1767   int num_a1DDF_dims[RANK_num_a1DDF];
1768   int num_a1GVF_dims[RANK_num_a1GVF];
1769   int num_a1SFSBC_dims[RANK_num_a1SFSBC];
1770   int num_a1SFSBS_dims[RANK_num_a1SFSBS];
1771   int num_a1SFSIC_dims[RANK_num_a1SFSIC];
1772   int num_a1SFSIS_dims[RANK_num_a1SFSIS];
1773   int num_a1SFWET_dims[RANK_num_a1SFWET];
1774   int num_a1TBF_dims[RANK_num_a1TBF];
1775   int num_a1_CLXF_dims[RANK_num_a1_CLXF];
1776   int num_a1_XFRC_dims[RANK_num_a1_XFRC];
1777   int num_a1_sfcoag1_dims[RANK_num_a1_sfcoag1];
1778   int num_a1_sfcsiz1_dims[RANK_num_a1_sfcsiz1];
1779   int num_a1_sfcsiz2_dims[RANK_num_a1_sfcsiz2];
1780   int num_a1_sfcsiz3_dims[RANK_num_a1_sfcsiz3];
1781   int num_a1_sfcsiz4_dims[RANK_num_a1_sfcsiz4];
1782   int num_a1_sfgaex2_dims[RANK_num_a1_sfgaex2];
1783   int num_a2_dims[RANK_num_a2];
1784   int num_a2DDF_dims[RANK_num_a2DDF];
1785   int num_a2GVF_dims[RANK_num_a2GVF];
1786   int num_a2SFSBC_dims[RANK_num_a2SFSBC];
1787   int num_a2SFSBS_dims[RANK_num_a2SFSBS];
1788   int num_a2SFSIC_dims[RANK_num_a2SFSIC];
1789   int num_a2SFSIS_dims[RANK_num_a2SFSIS];
1790   int num_a2SFWET_dims[RANK_num_a2SFWET];
1791   int num_a2TBF_dims[RANK_num_a2TBF];
1792   int num_a2_CLXF_dims[RANK_num_a2_CLXF];
1793   int num_a2_XFRC_dims[RANK_num_a2_XFRC];
1794   int num_a2_sfcoag1_dims[RANK_num_a2_sfcoag1];
1795   int num_a2_sfcsiz1_dims[RANK_num_a2_sfcsiz1];
1796   int num_a2_sfcsiz2_dims[RANK_num_a2_sfcsiz2];
1797   int num_a2_sfcsiz3_dims[RANK_num_a2_sfcsiz3];
1798   int num_a2_sfcsiz4_dims[RANK_num_a2_sfcsiz4];
1799   int num_a2_sfgaex2_dims[RANK_num_a2_sfgaex2];
1800   int num_a2_sfnnuc1_dims[RANK_num_a2_sfnnuc1];
1801   int num_a3_dims[RANK_num_a3];
1802   int num_a3DDF_dims[RANK_num_a3DDF];
1803   int num_a3GVF_dims[RANK_num_a3GVF];
1804   int num_a3SFSBC_dims[RANK_num_a3SFSBC];
1805   int num_a3SFSBS_dims[RANK_num_a3SFSBS];
1806   int num_a3SFSIC_dims[RANK_num_a3SFSIC];
1807   int num_a3SFSIS_dims[RANK_num_a3SFSIS];
1808   int num_a3SFWET_dims[RANK_num_a3SFWET];
1809   int num_a3TBF_dims[RANK_num_a3TBF];
1810   int num_a3_sfcsiz1_dims[RANK_num_a3_sfcsiz1];
1811   int num_a3_sfcsiz2_dims[RANK_num_a3_sfcsiz2];
1812   int num_c1_dims[RANK_num_c1];
1813   int num_c1DDF_dims[RANK_num_c1DDF];
1814   int num_c1GVF_dims[RANK_num_c1GVF];
1815   int num_c1SFSBC_dims[RANK_num_c1SFSBC];
1816   int num_c1SFSBS_dims[RANK_num_c1SFSBS];
1817   int num_c1SFSIC_dims[RANK_num_c1SFSIC];
1818   int num_c1SFSIS_dims[RANK_num_c1SFSIS];
1819   int num_c1SFWET_dims[RANK_num_c1SFWET];
1820   int num_c1TBF_dims[RANK_num_c1TBF];
1821   int num_c1_sfcsiz1_dims[RANK_num_c1_sfcsiz1];
1822   int num_c1_sfcsiz2_dims[RANK_num_c1_sfcsiz2];
1823   int num_c1_sfcsiz3_dims[RANK_num_c1_sfcsiz3];
1824   int num_c1_sfcsiz4_dims[RANK_num_c1_sfcsiz4];
1825   int num_c1_sfgaex2_dims[RANK_num_c1_sfgaex2];
1826   int num_c2_dims[RANK_num_c2];
1827   int num_c2DDF_dims[RANK_num_c2DDF];
1828   int num_c2GVF_dims[RANK_num_c2GVF];
1829   int num_c2SFSBC_dims[RANK_num_c2SFSBC];
1830   int num_c2SFSBS_dims[RANK_num_c2SFSBS];
1831   int num_c2SFSIC_dims[RANK_num_c2SFSIC];
1832   int num_c2SFSIS_dims[RANK_num_c2SFSIS];
1833   int num_c2SFWET_dims[RANK_num_c2SFWET];
1834   int num_c2TBF_dims[RANK_num_c2TBF];
1835   int num_c2_sfcsiz1_dims[RANK_num_c2_sfcsiz1];
1836   int num_c2_sfcsiz2_dims[RANK_num_c2_sfcsiz2];
1837   int num_c2_sfcsiz3_dims[RANK_num_c2_sfcsiz3];
1838   int num_c2_sfcsiz4_dims[RANK_num_c2_sfcsiz4];
1839   int num_c2_sfgaex2_dims[RANK_num_c2_sfgaex2];
1840   int num_c3_dims[RANK_num_c3];
1841   int num_c3DDF_dims[RANK_num_c3DDF];
1842   int num_c3GVF_dims[RANK_num_c3GVF];
1843   int num_c3SFSBC_dims[RANK_num_c3SFSBC];
1844   int num_c3SFSBS_dims[RANK_num_c3SFSBS];
1845   int num_c3SFSIC_dims[RANK_num_c3SFSIC];
1846   int num_c3SFSIS_dims[RANK_num_c3SFSIS];
1847   int num_c3SFWET_dims[RANK_num_c3SFWET];
1848   int num_c3TBF_dims[RANK_num_c3TBF];
1849   int num_c3_sfcsiz1_dims[RANK_num_c3_sfcsiz1];
1850   int num_c3_sfcsiz2_dims[RANK_num_c3_sfcsiz2];
1851   int pom_a1_dims[RANK_pom_a1];
1852   int pom_a1DDF_dims[RANK_pom_a1DDF];
1853   int pom_a1GVF_dims[RANK_pom_a1GVF];
1854   int pom_a1SFSBC_dims[RANK_pom_a1SFSBC];
1855   int pom_a1SFSBS_dims[RANK_pom_a1SFSBS];
1856   int pom_a1SFSIC_dims[RANK_pom_a1SFSIC];
1857   int pom_a1SFSIS_dims[RANK_pom_a1SFSIS];
1858   int pom_a1SFWET_dims[RANK_pom_a1SFWET];
1859   int pom_a1TBF_dims[RANK_pom_a1TBF];
1860   int pom_a1_CLXF_dims[RANK_pom_a1_CLXF];
1861   int pom_a1_XFRC_dims[RANK_pom_a1_XFRC];
1862   int pom_c1_dims[RANK_pom_c1];
1863   int pom_c1DDF_dims[RANK_pom_c1DDF];
1864   int pom_c1GVF_dims[RANK_pom_c1GVF];
1865   int pom_c1SFSBC_dims[RANK_pom_c1SFSBC];
1866   int pom_c1SFSBS_dims[RANK_pom_c1SFSBS];
1867   int pom_c1SFSIC_dims[RANK_pom_c1SFSIC];
1868   int pom_c1SFSIS_dims[RANK_pom_c1SFSIS];
1869   int pom_c1SFWET_dims[RANK_pom_c1SFWET];
1870   int pom_c1TBF_dims[RANK_pom_c1TBF];
1871   int so4_a1_dims[RANK_so4_a1];
1872   int so4_a1DDF_dims[RANK_so4_a1DDF];
1873   int so4_a1GVF_dims[RANK_so4_a1GVF];
1874   int so4_a1SFSBC_dims[RANK_so4_a1SFSBC];
1875   int so4_a1SFSBS_dims[RANK_so4_a1SFSBS];
1876   int so4_a1SFSIC_dims[RANK_so4_a1SFSIC];
1877   int so4_a1SFSIS_dims[RANK_so4_a1SFSIS];
1878   int so4_a1SFWET_dims[RANK_so4_a1SFWET];
1879   int so4_a1TBF_dims[RANK_so4_a1TBF];
1880   int so4_a1_CLXF_dims[RANK_so4_a1_CLXF];
1881   int so4_a1_XFRC_dims[RANK_so4_a1_XFRC];
1882   int so4_a1_sfcoag1_dims[RANK_so4_a1_sfcoag1];
1883   int so4_a1_sfcsiz3_dims[RANK_so4_a1_sfcsiz3];
1884   int so4_a1_sfcsiz4_dims[RANK_so4_a1_sfcsiz4];
1885   int so4_a1_sfgaex1_dims[RANK_so4_a1_sfgaex1];
1886   int so4_a1_sfgaex2_dims[RANK_so4_a1_sfgaex2];
1887   int so4_a2_dims[RANK_so4_a2];
1888   int so4_a2DDF_dims[RANK_so4_a2DDF];
1889   int so4_a2GVF_dims[RANK_so4_a2GVF];
1890   int so4_a2SFSBC_dims[RANK_so4_a2SFSBC];
1891   int so4_a2SFSBS_dims[RANK_so4_a2SFSBS];
1892   int so4_a2SFSIC_dims[RANK_so4_a2SFSIC];
1893   int so4_a2SFSIS_dims[RANK_so4_a2SFSIS];
1894   int so4_a2SFWET_dims[RANK_so4_a2SFWET];
1895   int so4_a2TBF_dims[RANK_so4_a2TBF];
1896   int so4_a2_CLXF_dims[RANK_so4_a2_CLXF];
1897   int so4_a2_XFRC_dims[RANK_so4_a2_XFRC];
1898   int so4_a2_sfcoag1_dims[RANK_so4_a2_sfcoag1];
1899   int so4_a2_sfcsiz3_dims[RANK_so4_a2_sfcsiz3];
1900   int so4_a2_sfcsiz4_dims[RANK_so4_a2_sfcsiz4];
1901   int so4_a2_sfgaex1_dims[RANK_so4_a2_sfgaex1];
1902   int so4_a2_sfgaex2_dims[RANK_so4_a2_sfgaex2];
1903   int so4_a2_sfnnuc1_dims[RANK_so4_a2_sfnnuc1];
1904   int so4_a3_dims[RANK_so4_a3];
1905   int so4_a3DDF_dims[RANK_so4_a3DDF];
1906   int so4_a3GVF_dims[RANK_so4_a3GVF];
1907   int so4_a3SFSBC_dims[RANK_so4_a3SFSBC];
1908   int so4_a3SFSBS_dims[RANK_so4_a3SFSBS];
1909   int so4_a3SFSIC_dims[RANK_so4_a3SFSIC];
1910   int so4_a3SFSIS_dims[RANK_so4_a3SFSIS];
1911   int so4_a3SFWET_dims[RANK_so4_a3SFWET];
1912   int so4_a3TBF_dims[RANK_so4_a3TBF];
1913   int so4_a3_sfgaex1_dims[RANK_so4_a3_sfgaex1];
1914   int so4_c1_dims[RANK_so4_c1];
1915   int so4_c1AQH2SO4_dims[RANK_so4_c1AQH2SO4];
1916   int so4_c1AQSO4_dims[RANK_so4_c1AQSO4];
1917   int so4_c1DDF_dims[RANK_so4_c1DDF];
1918   int so4_c1GVF_dims[RANK_so4_c1GVF];
1919   int so4_c1SFSBC_dims[RANK_so4_c1SFSBC];
1920   int so4_c1SFSBS_dims[RANK_so4_c1SFSBS];
1921   int so4_c1SFSIC_dims[RANK_so4_c1SFSIC];
1922   int so4_c1SFSIS_dims[RANK_so4_c1SFSIS];
1923   int so4_c1SFWET_dims[RANK_so4_c1SFWET];
1924   int so4_c1TBF_dims[RANK_so4_c1TBF];
1925   int so4_c1_sfcsiz3_dims[RANK_so4_c1_sfcsiz3];
1926   int so4_c1_sfcsiz4_dims[RANK_so4_c1_sfcsiz4];
1927   int so4_c1_sfgaex2_dims[RANK_so4_c1_sfgaex2];
1928   int so4_c2_dims[RANK_so4_c2];
1929   int so4_c2AQH2SO4_dims[RANK_so4_c2AQH2SO4];
1930   int so4_c2AQSO4_dims[RANK_so4_c2AQSO4];
1931   int so4_c2DDF_dims[RANK_so4_c2DDF];
1932   int so4_c2GVF_dims[RANK_so4_c2GVF];
1933   int so4_c2SFSBC_dims[RANK_so4_c2SFSBC];
1934   int so4_c2SFSBS_dims[RANK_so4_c2SFSBS];
1935   int so4_c2SFSIC_dims[RANK_so4_c2SFSIC];
1936   int so4_c2SFSIS_dims[RANK_so4_c2SFSIS];
1937   int so4_c2SFWET_dims[RANK_so4_c2SFWET];
1938   int so4_c2TBF_dims[RANK_so4_c2TBF];
1939   int so4_c2_sfcsiz3_dims[RANK_so4_c2_sfcsiz3];
1940   int so4_c2_sfcsiz4_dims[RANK_so4_c2_sfcsiz4];
1941   int so4_c2_sfgaex2_dims[RANK_so4_c2_sfgaex2];
1942   int so4_c3_dims[RANK_so4_c3];
1943   int so4_c3AQH2SO4_dims[RANK_so4_c3AQH2SO4];
1944   int so4_c3AQSO4_dims[RANK_so4_c3AQSO4];
1945   int so4_c3DDF_dims[RANK_so4_c3DDF];
1946   int so4_c3GVF_dims[RANK_so4_c3GVF];
1947   int so4_c3SFSBC_dims[RANK_so4_c3SFSBC];
1948   int so4_c3SFSBS_dims[RANK_so4_c3SFSBS];
1949   int so4_c3SFSIC_dims[RANK_so4_c3SFSIC];
1950   int so4_c3SFSIS_dims[RANK_so4_c3SFSIS];
1951   int so4_c3SFWET_dims[RANK_so4_c3SFWET];
1952   int so4_c3TBF_dims[RANK_so4_c3TBF];
1953   int soa_a1_dims[RANK_soa_a1];
1954   int soa_a1DDF_dims[RANK_soa_a1DDF];
1955   int soa_a1GVF_dims[RANK_soa_a1GVF];
1956   int soa_a1SFSBC_dims[RANK_soa_a1SFSBC];
1957   int soa_a1SFSBS_dims[RANK_soa_a1SFSBS];
1958   int soa_a1SFSIC_dims[RANK_soa_a1SFSIC];
1959   int soa_a1SFSIS_dims[RANK_soa_a1SFSIS];
1960   int soa_a1SFWET_dims[RANK_soa_a1SFWET];
1961   int soa_a1TBF_dims[RANK_soa_a1TBF];
1962   int soa_a1_sfcoag1_dims[RANK_soa_a1_sfcoag1];
1963   int soa_a1_sfcsiz3_dims[RANK_soa_a1_sfcsiz3];
1964   int soa_a1_sfcsiz4_dims[RANK_soa_a1_sfcsiz4];
1965   int soa_a1_sfgaex1_dims[RANK_soa_a1_sfgaex1];
1966   int soa_a1_sfgaex2_dims[RANK_soa_a1_sfgaex2];
1967   int soa_a2_dims[RANK_soa_a2];
1968   int soa_a2DDF_dims[RANK_soa_a2DDF];
1969   int soa_a2GVF_dims[RANK_soa_a2GVF];
1970   int soa_a2SFSBC_dims[RANK_soa_a2SFSBC];
1971   int soa_a2SFSBS_dims[RANK_soa_a2SFSBS];
1972   int soa_a2SFSIC_dims[RANK_soa_a2SFSIC];
1973   int soa_a2SFSIS_dims[RANK_soa_a2SFSIS];
1974   int soa_a2SFWET_dims[RANK_soa_a2SFWET];
1975   int soa_a2TBF_dims[RANK_soa_a2TBF];
1976   int soa_a2_sfcoag1_dims[RANK_soa_a2_sfcoag1];
1977   int soa_a2_sfcsiz3_dims[RANK_soa_a2_sfcsiz3];
1978   int soa_a2_sfcsiz4_dims[RANK_soa_a2_sfcsiz4];
1979   int soa_a2_sfgaex1_dims[RANK_soa_a2_sfgaex1];
1980   int soa_a2_sfgaex2_dims[RANK_soa_a2_sfgaex2];
1981   int soa_c1_dims[RANK_soa_c1];
1982   int soa_c1DDF_dims[RANK_soa_c1DDF];
1983   int soa_c1GVF_dims[RANK_soa_c1GVF];
1984   int soa_c1SFSBC_dims[RANK_soa_c1SFSBC];
1985   int soa_c1SFSBS_dims[RANK_soa_c1SFSBS];
1986   int soa_c1SFSIC_dims[RANK_soa_c1SFSIC];
1987   int soa_c1SFSIS_dims[RANK_soa_c1SFSIS];
1988   int soa_c1SFWET_dims[RANK_soa_c1SFWET];
1989   int soa_c1TBF_dims[RANK_soa_c1TBF];
1990   int soa_c1_sfcsiz3_dims[RANK_soa_c1_sfcsiz3];
1991   int soa_c1_sfcsiz4_dims[RANK_soa_c1_sfcsiz4];
1992   int soa_c1_sfgaex2_dims[RANK_soa_c1_sfgaex2];
1993   int soa_c2_dims[RANK_soa_c2];
1994   int soa_c2DDF_dims[RANK_soa_c2DDF];
1995   int soa_c2GVF_dims[RANK_soa_c2GVF];
1996   int soa_c2SFSBC_dims[RANK_soa_c2SFSBC];
1997   int soa_c2SFSBS_dims[RANK_soa_c2SFSBS];
1998   int soa_c2SFSIC_dims[RANK_soa_c2SFSIC];
1999   int soa_c2SFSIS_dims[RANK_soa_c2SFSIS];
2000   int soa_c2SFWET_dims[RANK_soa_c2SFWET];
2001   int soa_c2TBF_dims[RANK_soa_c2TBF];
2002   int soa_c2_sfcsiz3_dims[RANK_soa_c2_sfcsiz3];
2003   int soa_c2_sfcsiz4_dims[RANK_soa_c2_sfcsiz4];
2004   int soa_c2_sfgaex2_dims[RANK_soa_c2_sfgaex2];
2005   int wat_a1_dims[RANK_wat_a1];
2006   int wat_a2_dims[RANK_wat_a2];
2007   int wat_a3_dims[RANK_wat_a3];
2008#ifdef EXTRA_TESTS
2009   int memused;
2010#endif /* EXTRA_TESTS */
2011
2012   printf("\n*** Testing CAM output file in netCDF-4.\n");
2013   printf("*** creating file...");
2014
2015#ifdef EXTRA_TESTS
2016   get_mem_used2(&memused);
2017   printf("data memory %d MB\n", memused);
2018#endif /* EXTRA_TESTS */
2019
2020   if (nc_set_chunk_cache(0, 1009, .75)) ERR;
2021
2022   /* enter define mode */
2023   if (nc_create(FILE_NAMENC_NETCDF4, &ncid)) ERR;
2024
2025   /* define dimensions */
2026   if (nc_def_dim(ncid, "lat", lat_len, &lat_dim)) ERR;
2027   if (nc_def_dim(ncid, "lon", lon_len, &lon_dim)) ERR;
2028   if (nc_def_dim(ncid, "slat", slat_len, &slat_dim)) ERR;
2029   if (nc_def_dim(ncid, "slon", slon_len, &slon_dim)) ERR;
2030   if (nc_def_dim(ncid, "lev", lev_len, &lev_dim)) ERR;
2031   if (nc_def_dim(ncid, "ilev", ilev_len, &ilev_dim)) ERR;
2032   if (nc_def_dim(ncid, "isccp_prs", isccp_prs_len, &isccp_prs_dim)) ERR;
2033   if (nc_def_dim(ncid, "isccp_tau", isccp_tau_len, &isccp_tau_dim)) ERR;
2034   if (nc_def_dim(ncid, "isccp_prstau", isccp_prstau_len, &isccp_prstau_dim)) ERR;
2035   if (nc_def_dim(ncid, "time", time_len, &time_dim)) ERR;
2036   if (nc_def_dim(ncid, "tbnd", tbnd_len, &tbnd_dim)) ERR;
2037   if (nc_def_dim(ncid, "chars", chars_len, &chars_dim)) ERR;
2038
2039   /* define variables */
2040
2041   if (nc_def_var(ncid, "P0", NC_DOUBLERANK_P0, 0, &P0_id)) ERR;
2042
2043   lat_dims[0] = lat_dim;
2044   if (nc_def_var(ncid, "lat", NC_DOUBLERANK_latlat_dims, &lat_id)) ERR;
2045
2046   lon_dims[0] = lon_dim;
2047   if (nc_def_var(ncid, "lon", NC_DOUBLERANK_lonlon_dims, &lon_id)) ERR;
2048
2049   slat_dims[0] = slat_dim;
2050   if (nc_def_var(ncid, "slat", NC_DOUBLERANK_slatslat_dims, &slat_id)) ERR;
2051
2052   slon_dims[0] = slon_dim;
2053   if (nc_def_var(ncid, "slon", NC_DOUBLERANK_slonslon_dims, &slon_id)) ERR;
2054
2055   w_stag_dims[0] = slat_dim;
2056   if (nc_def_var(ncid, "w_stag", NC_DOUBLERANK_w_stagw_stag_dims, &w_stag_id)) ERR;
2057
2058   lev_dims[0] = lev_dim;
2059   if (nc_def_var(ncid, "lev", NC_DOUBLERANK_levlev_dims, &lev_id)) ERR;
2060
2061   ilev_dims[0] = ilev_dim;
2062   if (nc_def_var(ncid, "ilev", NC_DOUBLERANK_ilevilev_dims, &ilev_id)) ERR;
2063
2064   isccp_prs_dims[0] = isccp_prs_dim;
2065   if (nc_def_var(ncid, "isccp_prs", NC_DOUBLERANK_isccp_prsisccp_prs_dims, &isccp_prs_id)) ERR;
2066
2067   isccp_tau_dims[0] = isccp_tau_dim;
2068   if (nc_def_var(ncid, "isccp_tau", NC_DOUBLERANK_isccp_tauisccp_tau_dims, &isccp_tau_id)) ERR;
2069
2070   isccp_prstau_dims[0] = isccp_prstau_dim;
2071   if (nc_def_var(ncid, "isccp_prstau", NC_DOUBLERANK_isccp_prstauisccp_prstau_dims, &isccp_prstau_id)) ERR;
2072
2073   time_dims[0] = time_dim;
2074   if (nc_def_var(ncid, "time", NC_DOUBLERANK_timetime_dims, &time_id)) ERR;
2075
2076   time_bnds_dims[0] = time_dim;
2077   time_bnds_dims[1] = tbnd_dim;
2078   if (nc_def_var(ncid, "time_bnds", NC_DOUBLERANK_time_bndstime_bnds_dims, &time_bnds_id)) ERR;
2079
2080   date_written_dims[0] = time_dim;
2081   date_written_dims[1] = chars_dim;
2082   if (nc_def_var(ncid, "date_written", NC_CHARRANK_date_writtendate_written_dims, &date_written_id)) ERR;
2083
2084   time_written_dims[0] = time_dim;
2085   time_written_dims[1] = chars_dim;
2086   if (nc_def_var(ncid, "time_written", NC_CHARRANK_time_writtentime_written_dims, &time_written_id)) ERR;
2087
2088   if (nc_def_var(ncid, "ntrm", NC_INTRANK_ntrm, 0, &ntrm_id)) ERR;
2089
2090   if (nc_def_var(ncid, "ntrn", NC_INTRANK_ntrn, 0, &ntrn_id)) ERR;
2091
2092   if (nc_def_var(ncid, "ntrk", NC_INTRANK_ntrk, 0, &ntrk_id)) ERR;
2093
2094   if (nc_def_var(ncid, "ndbase", NC_INTRANK_ndbase, 0, &ndbase_id)) ERR;
2095
2096   if (nc_def_var(ncid, "nsbase", NC_INTRANK_nsbase, 0, &nsbase_id)) ERR;
2097
2098   if (nc_def_var(ncid, "nbdate", NC_INTRANK_nbdate, 0, &nbdate_id)) ERR;
2099
2100   if (nc_def_var(ncid, "nbsec", NC_INTRANK_nbsec, 0, &nbsec_id)) ERR;
2101
2102   if (nc_def_var(ncid, "mdt", NC_INTRANK_mdt, 0, &mdt_id)) ERR;
2103
2104   nlon_dims[0] = lat_dim;
2105   if (nc_def_var(ncid, "nlon", NC_INTRANK_nlonnlon_dims, &nlon_id)) ERR;
2106
2107   wnummax_dims[0] = lat_dim;
2108   if (nc_def_var(ncid, "wnummax", NC_INTRANK_wnummaxwnummax_dims, &wnummax_id)) ERR;
2109
2110   hyai_dims[0] = ilev_dim;
2111   if (nc_def_var(ncid, "hyai", NC_DOUBLERANK_hyaihyai_dims, &hyai_id)) ERR;
2112
2113   hybi_dims[0] = ilev_dim;
2114   if (nc_def_var(ncid, "hybi", NC_DOUBLERANK_hybihybi_dims, &hybi_id)) ERR;
2115
2116   hyam_dims[0] = lev_dim;
2117   if (nc_def_var(ncid, "hyam", NC_DOUBLERANK_hyamhyam_dims, &hyam_id)) ERR;
2118
2119   hybm_dims[0] = lev_dim;
2120   if (nc_def_var(ncid, "hybm", NC_DOUBLERANK_hybmhybm_dims, &hybm_id)) ERR;
2121
2122   gw_dims[0] = lat_dim;
2123   if (nc_def_var(ncid, "gw", NC_DOUBLERANK_gwgw_dims, &gw_id)) ERR;
2124
2125   ndcur_dims[0] = time_dim;
2126   if (nc_def_var(ncid, "ndcur", NC_INTRANK_ndcurndcur_dims, &ndcur_id)) ERR;
2127
2128   nscur_dims[0] = time_dim;
2129   if (nc_def_var(ncid, "nscur", NC_INTRANK_nscurnscur_dims, &nscur_id)) ERR;
2130
2131   date_dims[0] = time_dim;
2132   if (nc_def_var(ncid, "date", NC_INTRANK_datedate_dims, &date_id)) ERR;
2133
2134   co2vmr_dims[0] = time_dim;
2135   if (nc_def_var(ncid, "co2vmr", NC_DOUBLERANK_co2vmrco2vmr_dims, &co2vmr_id)) ERR;
2136
2137   ch4vmr_dims[0] = time_dim;
2138   if (nc_def_var(ncid, "ch4vmr", NC_DOUBLERANK_ch4vmrch4vmr_dims, &ch4vmr_id)) ERR;
2139
2140   n2ovmr_dims[0] = time_dim;
2141   if (nc_def_var(ncid, "n2ovmr", NC_DOUBLERANK_n2ovmrn2ovmr_dims, &n2ovmr_id)) ERR;
2142
2143   f11vmr_dims[0] = time_dim;
2144   if (nc_def_var(ncid, "f11vmr", NC_DOUBLERANK_f11vmrf11vmr_dims, &f11vmr_id)) ERR;
2145
2146   f12vmr_dims[0] = time_dim;
2147   if (nc_def_var(ncid, "f12vmr", NC_DOUBLERANK_f12vmrf12vmr_dims, &f12vmr_id)) ERR;
2148
2149   sol_tsi_dims[0] = time_dim;
2150   if (nc_def_var(ncid, "sol_tsi", NC_DOUBLERANK_sol_tsisol_tsi_dims, &sol_tsi_id)) ERR;
2151
2152   datesec_dims[0] = time_dim;
2153   if (nc_def_var(ncid, "datesec", NC_INTRANK_datesecdatesec_dims, &datesec_id)) ERR;
2154
2155   nsteph_dims[0] = time_dim;
2156   if (nc_def_var(ncid, "nsteph", NC_INTRANK_nstephnsteph_dims, &nsteph_id)) ERR;
2157
2158   ABSORB_dims[0] = time_dim;
2159   ABSORB_dims[1] = lev_dim;
2160   ABSORB_dims[2] = lat_dim;
2161   ABSORB_dims[3] = lon_dim;
2162   if (nc_def_var(ncid, "ABSORB", NC_DOUBLERANK_ABSORBABSORB_dims, &ABSORB_id)) ERR;
2163
2164   AEROD_v_dims[0] = time_dim;
2165   AEROD_v_dims[1] = lat_dim;
2166   AEROD_v_dims[2] = lon_dim;
2167   if (nc_def_var(ncid, "AEROD_v", NC_DOUBLERANK_AEROD_vAEROD_v_dims, &AEROD_v_id)) ERR;
2168
2169   AODABS_dims[0] = time_dim;
2170   AODABS_dims[1] = lat_dim;
2171   AODABS_dims[2] = lon_dim;
2172   if (nc_def_var(ncid, "AODABS", NC_DOUBLERANK_AODABSAODABS_dims, &AODABS_id)) ERR;
2173
2174   AODDUST1_dims[0] = time_dim;
2175   AODDUST1_dims[1] = lat_dim;
2176   AODDUST1_dims[2] = lon_dim;
2177   if (nc_def_var(ncid, "AODDUST1", NC_DOUBLERANK_AODDUST1AODDUST1_dims, &AODDUST1_id)) ERR;
2178
2179   AODDUST2_dims[0] = time_dim;
2180   AODDUST2_dims[1] = lat_dim;
2181   AODDUST2_dims[2] = lon_dim;
2182   if (nc_def_var(ncid, "AODDUST2", NC_DOUBLERANK_AODDUST2AODDUST2_dims, &AODDUST2_id)) ERR;
2183
2184   AODDUST3_dims[0] = time_dim;
2185   AODDUST3_dims[1] = lat_dim;
2186   AODDUST3_dims[2] = lon_dim;
2187   if (nc_def_var(ncid, "AODDUST3", NC_DOUBLERANK_AODDUST3AODDUST3_dims, &AODDUST3_id)) ERR;
2188
2189   AODMODE1_dims[0] = time_dim;
2190   AODMODE1_dims[1] = lat_dim;
2191   AODMODE1_dims[2] = lon_dim;
2192   if (nc_def_var(ncid, "AODMODE1", NC_DOUBLERANK_AODMODE1AODMODE1_dims, &AODMODE1_id)) ERR;
2193
2194   AODMODE2_dims[0] = time_dim;
2195   AODMODE2_dims[1] = lat_dim;
2196   AODMODE2_dims[2] = lon_dim;
2197   if (nc_def_var(ncid, "AODMODE2", NC_DOUBLERANK_AODMODE2AODMODE2_dims, &AODMODE2_id)) ERR;
2198
2199   AODMODE3_dims[0] = time_dim;
2200   AODMODE3_dims[1] = lat_dim;
2201   AODMODE3_dims[2] = lon_dim;
2202   if (nc_def_var(ncid, "AODMODE3", NC_DOUBLERANK_AODMODE3AODMODE3_dims, &AODMODE3_id)) ERR;
2203
2204   AODVIS_dims[0] = time_dim;
2205   AODVIS_dims[1] = lat_dim;
2206   AODVIS_dims[2] = lon_dim;
2207   if (nc_def_var(ncid, "AODVIS", NC_DOUBLERANK_AODVISAODVIS_dims, &AODVIS_id)) ERR;
2208
2209   AQSO4_H2O2_dims[0] = time_dim;
2210   AQSO4_H2O2_dims[1] = lat_dim;
2211   AQSO4_H2O2_dims[2] = lon_dim;
2212   if (nc_def_var(ncid, "AQSO4_H2O2", NC_DOUBLERANK_AQSO4_H2O2AQSO4_H2O2_dims, &AQSO4_H2O2_id)) ERR;
2213
2214   AQSO4_O3_dims[0] = time_dim;
2215   AQSO4_O3_dims[1] = lat_dim;
2216   AQSO4_O3_dims[2] = lon_dim;
2217   if (nc_def_var(ncid, "AQSO4_O3", NC_DOUBLERANK_AQSO4_O3AQSO4_O3_dims, &AQSO4_O3_id)) ERR;
2218
2219   AQ_DMS_dims[0] = time_dim;
2220   AQ_DMS_dims[1] = lat_dim;
2221   AQ_DMS_dims[2] = lon_dim;
2222   if (nc_def_var(ncid, "AQ_DMS", NC_DOUBLERANK_AQ_DMSAQ_DMS_dims, &AQ_DMS_id)) ERR;
2223
2224   AQ_H2O2_dims[0] = time_dim;
2225   AQ_H2O2_dims[1] = lat_dim;
2226   AQ_H2O2_dims[2] = lon_dim;
2227   if (nc_def_var(ncid, "AQ_H2O2", NC_DOUBLERANK_AQ_H2O2AQ_H2O2_dims, &AQ_H2O2_id)) ERR;
2228
2229   AQ_H2SO4_dims[0] = time_dim;
2230   AQ_H2SO4_dims[1] = lat_dim;
2231   AQ_H2SO4_dims[2] = lon_dim;
2232   if (nc_def_var(ncid, "AQ_H2SO4", NC_DOUBLERANK_AQ_H2SO4AQ_H2SO4_dims, &AQ_H2SO4_id)) ERR;
2233
2234   AQ_SO2_dims[0] = time_dim;
2235   AQ_SO2_dims[1] = lat_dim;
2236   AQ_SO2_dims[2] = lon_dim;
2237   if (nc_def_var(ncid, "AQ_SO2", NC_DOUBLERANK_AQ_SO2AQ_SO2_dims, &AQ_SO2_id)) ERR;
2238
2239   AQ_SOAG_dims[0] = time_dim;
2240   AQ_SOAG_dims[1] = lat_dim;
2241   AQ_SOAG_dims[2] = lon_dim;
2242   if (nc_def_var(ncid, "AQ_SOAG", NC_DOUBLERANK_AQ_SOAGAQ_SOAG_dims, &AQ_SOAG_id)) ERR;
2243
2244   AQ_bc_a1_dims[0] = time_dim;
2245   AQ_bc_a1_dims[1] = lat_dim;
2246   AQ_bc_a1_dims[2] = lon_dim;
2247   if (nc_def_var(ncid, "AQ_bc_a1", NC_DOUBLERANK_AQ_bc_a1AQ_bc_a1_dims, &AQ_bc_a1_id)) ERR;
2248
2249   AQ_dst_a1_dims[0] = time_dim;
2250   AQ_dst_a1_dims[1] = lat_dim;
2251   AQ_dst_a1_dims[2] = lon_dim;
2252   if (nc_def_var(ncid, "AQ_dst_a1", NC_DOUBLERANK_AQ_dst_a1AQ_dst_a1_dims, &AQ_dst_a1_id)) ERR;
2253
2254   AQ_dst_a3_dims[0] = time_dim;
2255   AQ_dst_a3_dims[1] = lat_dim;
2256   AQ_dst_a3_dims[2] = lon_dim;
2257   if (nc_def_var(ncid, "AQ_dst_a3", NC_DOUBLERANK_AQ_dst_a3AQ_dst_a3_dims, &AQ_dst_a3_id)) ERR;
2258
2259   AQ_ncl_a1_dims[0] = time_dim;
2260   AQ_ncl_a1_dims[1] = lat_dim;
2261   AQ_ncl_a1_dims[2] = lon_dim;
2262   if (nc_def_var(ncid, "AQ_ncl_a1", NC_DOUBLERANK_AQ_ncl_a1AQ_ncl_a1_dims, &AQ_ncl_a1_id)) ERR;
2263
2264   AQ_ncl_a2_dims[0] = time_dim;
2265   AQ_ncl_a2_dims[1] = lat_dim;
2266   AQ_ncl_a2_dims[2] = lon_dim;
2267   if (nc_def_var(ncid, "AQ_ncl_a2", NC_DOUBLERANK_AQ_ncl_a2AQ_ncl_a2_dims, &AQ_ncl_a2_id)) ERR;
2268
2269   AQ_ncl_a3_dims[0] = time_dim;
2270   AQ_ncl_a3_dims[1] = lat_dim;
2271   AQ_ncl_a3_dims[2] = lon_dim;
2272   if (nc_def_var(ncid, "AQ_ncl_a3", NC_DOUBLERANK_AQ_ncl_a3AQ_ncl_a3_dims, &AQ_ncl_a3_id)) ERR;
2273
2274   AQ_num_a1_dims[0] = time_dim;
2275   AQ_num_a1_dims[1] = lat_dim;
2276   AQ_num_a1_dims[2] = lon_dim;
2277   if (nc_def_var(ncid, "AQ_num_a1", NC_DOUBLERANK_AQ_num_a1AQ_num_a1_dims, &AQ_num_a1_id)) ERR;
2278
2279   AQ_num_a2_dims[0] = time_dim;
2280   AQ_num_a2_dims[1] = lat_dim;
2281   AQ_num_a2_dims[2] = lon_dim;
2282   if (nc_def_var(ncid, "AQ_num_a2", NC_DOUBLERANK_AQ_num_a2AQ_num_a2_dims, &AQ_num_a2_id)) ERR;
2283
2284   AQ_num_a3_dims[0] = time_dim;
2285   AQ_num_a3_dims[1] = lat_dim;
2286   AQ_num_a3_dims[2] = lon_dim;
2287   if (nc_def_var(ncid, "AQ_num_a3", NC_DOUBLERANK_AQ_num_a3AQ_num_a3_dims, &AQ_num_a3_id)) ERR;
2288
2289   AQ_pom_a1_dims[0] = time_dim;
2290   AQ_pom_a1_dims[1] = lat_dim;
2291   AQ_pom_a1_dims[2] = lon_dim;
2292   if (nc_def_var(ncid, "AQ_pom_a1", NC_DOUBLERANK_AQ_pom_a1AQ_pom_a1_dims, &AQ_pom_a1_id)) ERR;
2293
2294   AQ_so4_a1_dims[0] = time_dim;
2295   AQ_so4_a1_dims[1] = lat_dim;
2296   AQ_so4_a1_dims[2] = lon_dim;
2297   if (nc_def_var(ncid, "AQ_so4_a1", NC_DOUBLERANK_AQ_so4_a1AQ_so4_a1_dims, &AQ_so4_a1_id)) ERR;
2298
2299   AQ_so4_a2_dims[0] = time_dim;
2300   AQ_so4_a2_dims[1] = lat_dim;
2301   AQ_so4_a2_dims[2] = lon_dim;
2302   if (nc_def_var(ncid, "AQ_so4_a2", NC_DOUBLERANK_AQ_so4_a2AQ_so4_a2_dims, &AQ_so4_a2_id)) ERR;
2303
2304   AQ_so4_a3_dims[0] = time_dim;
2305   AQ_so4_a3_dims[1] = lat_dim;
2306   AQ_so4_a3_dims[2] = lon_dim;
2307   if (nc_def_var(ncid, "AQ_so4_a3", NC_DOUBLERANK_AQ_so4_a3AQ_so4_a3_dims, &AQ_so4_a3_id)) ERR;
2308
2309   AQ_soa_a1_dims[0] = time_dim;
2310   AQ_soa_a1_dims[1] = lat_dim;
2311   AQ_soa_a1_dims[2] = lon_dim;
2312   if (nc_def_var(ncid, "AQ_soa_a1", NC_DOUBLERANK_AQ_soa_a1AQ_soa_a1_dims, &AQ_soa_a1_id)) ERR;
2313
2314   AQ_soa_a2_dims[0] = time_dim;
2315   AQ_soa_a2_dims[1] = lat_dim;
2316   AQ_soa_a2_dims[2] = lon_dim;
2317   if (nc_def_var(ncid, "AQ_soa_a2", NC_DOUBLERANK_AQ_soa_a2AQ_soa_a2_dims, &AQ_soa_a2_id)) ERR;
2318
2319   BPROD_dims[0] = time_dim;
2320   BPROD_dims[1] = ilev_dim;
2321   BPROD_dims[2] = lat_dim;
2322   BPROD_dims[3] = lon_dim;
2323   if (nc_def_var(ncid, "BPROD", NC_DOUBLERANK_BPRODBPROD_dims, &BPROD_id)) ERR;
2324
2325   BURDEN1_dims[0] = time_dim;
2326   BURDEN1_dims[1] = lat_dim;
2327   BURDEN1_dims[2] = lon_dim;
2328   if (nc_def_var(ncid, "BURDEN1", NC_DOUBLERANK_BURDEN1BURDEN1_dims, &BURDEN1_id)) ERR;
2329
2330   BURDEN2_dims[0] = time_dim;
2331   BURDEN2_dims[1] = lat_dim;
2332   BURDEN2_dims[2] = lon_dim;
2333   if (nc_def_var(ncid, "BURDEN2", NC_DOUBLERANK_BURDEN2BURDEN2_dims, &BURDEN2_id)) ERR;
2334
2335   BURDEN3_dims[0] = time_dim;
2336   BURDEN3_dims[1] = lat_dim;
2337   BURDEN3_dims[2] = lon_dim;
2338   if (nc_def_var(ncid, "BURDEN3", NC_DOUBLERANK_BURDEN3BURDEN3_dims, &BURDEN3_id)) ERR;
2339
2340   CCN1_dims[0] = time_dim;
2341   CCN1_dims[1] = lev_dim;
2342   CCN1_dims[2] = lat_dim;
2343   CCN1_dims[3] = lon_dim;
2344   if (nc_def_var(ncid, "CCN1", NC_DOUBLERANK_CCN1CCN1_dims, &CCN1_id)) ERR;
2345
2346   CCN2_dims[0] = time_dim;
2347   CCN2_dims[1] = lev_dim;
2348   CCN2_dims[2] = lat_dim;
2349   CCN2_dims[3] = lon_dim;
2350   if (nc_def_var(ncid, "CCN2", NC_DOUBLERANK_CCN2CCN2_dims, &CCN2_id)) ERR;
2351
2352   CCN3_dims[0] = time_dim;
2353   CCN3_dims[1] = lev_dim;
2354   CCN3_dims[2] = lat_dim;
2355   CCN3_dims[3] = lon_dim;
2356   if (nc_def_var(ncid, "CCN3", NC_DOUBLERANK_CCN3CCN3_dims, &CCN3_id)) ERR;
2357
2358   CCN4_dims[0] = time_dim;
2359   CCN4_dims[1] = lev_dim;
2360   CCN4_dims[2] = lat_dim;
2361   CCN4_dims[3] = lon_dim;
2362   if (nc_def_var(ncid, "CCN4", NC_DOUBLERANK_CCN4CCN4_dims, &CCN4_id)) ERR;
2363
2364   CCN5_dims[0] = time_dim;
2365   CCN5_dims[1] = lev_dim;
2366   CCN5_dims[2] = lat_dim;
2367   CCN5_dims[3] = lon_dim;
2368   if (nc_def_var(ncid, "CCN5", NC_DOUBLERANK_CCN5CCN5_dims, &CCN5_id)) ERR;
2369
2370   CCN6_dims[0] = time_dim;
2371   CCN6_dims[1] = lev_dim;
2372   CCN6_dims[2] = lat_dim;
2373   CCN6_dims[3] = lon_dim;
2374   if (nc_def_var(ncid, "CCN6", NC_DOUBLERANK_CCN6CCN6_dims, &CCN6_id)) ERR;
2375
2376   CLDHGH_dims[0] = time_dim;
2377   CLDHGH_dims[1] = lat_dim;
2378   CLDHGH_dims[2] = lon_dim;
2379   if (nc_def_var(ncid, "CLDHGH", NC_DOUBLERANK_CLDHGHCLDHGH_dims, &CLDHGH_id)) ERR;
2380
2381   CLDICE_dims[0] = time_dim;
2382   CLDICE_dims[1] = lev_dim;
2383   CLDICE_dims[2] = lat_dim;
2384   CLDICE_dims[3] = lon_dim;
2385   if (nc_def_var(ncid, "CLDICE", NC_DOUBLERANK_CLDICECLDICE_dims, &CLDICE_id)) ERR;
2386
2387   CLDLIQ_dims[0] = time_dim;
2388   CLDLIQ_dims[1] = lev_dim;
2389   CLDLIQ_dims[2] = lat_dim;
2390   CLDLIQ_dims[3] = lon_dim;
2391   if (nc_def_var(ncid, "CLDLIQ", NC_DOUBLERANK_CLDLIQCLDLIQ_dims, &CLDLIQ_id)) ERR;
2392
2393   CLDLOW_dims[0] = time_dim;
2394   CLDLOW_dims[1] = lat_dim;
2395   CLDLOW_dims[2] = lon_dim;
2396   if (nc_def_var(ncid, "CLDLOW", NC_DOUBLERANK_CLDLOWCLDLOW_dims, &CLDLOW_id)) ERR;
2397
2398   CLDMED_dims[0] = time_dim;
2399   CLDMED_dims[1] = lat_dim;
2400   CLDMED_dims[2] = lon_dim;
2401   if (nc_def_var(ncid, "CLDMED", NC_DOUBLERANK_CLDMEDCLDMED_dims, &CLDMED_id)) ERR;
2402
2403   CLDTOT_dims[0] = time_dim;
2404   CLDTOT_dims[1] = lat_dim;
2405   CLDTOT_dims[2] = lon_dim;
2406   if (nc_def_var(ncid, "CLDTOT", NC_DOUBLERANK_CLDTOTCLDTOT_dims, &CLDTOT_id)) ERR;
2407
2408   CLOUD_dims[0] = time_dim;
2409   CLOUD_dims[1] = lev_dim;
2410   CLOUD_dims[2] = lat_dim;
2411   CLOUD_dims[3] = lon_dim;
2412   if (nc_def_var(ncid, "CLOUD", NC_DOUBLERANK_CLOUDCLOUD_dims, &CLOUD_id)) ERR;
2413
2414   CMFDQ_dims[0] = time_dim;
2415   CMFDQ_dims[1] = lev_dim;
2416   CMFDQ_dims[2] = lat_dim;
2417   CMFDQ_dims[3] = lon_dim;
2418   if (nc_def_var(ncid, "CMFDQ", NC_DOUBLERANK_CMFDQCMFDQ_dims, &CMFDQ_id)) ERR;
2419
2420   CMFDQR_dims[0] = time_dim;
2421   CMFDQR_dims[1] = lev_dim;
2422   CMFDQR_dims[2] = lat_dim;
2423   CMFDQR_dims[3] = lon_dim;
2424   if (nc_def_var(ncid, "CMFDQR", NC_DOUBLERANK_CMFDQRCMFDQR_dims, &CMFDQR_id)) ERR;
2425
2426   CMFDT_dims[0] = time_dim;
2427   CMFDT_dims[1] = lev_dim;
2428   CMFDT_dims[2] = lat_dim;
2429   CMFDT_dims[3] = lon_dim;
2430   if (nc_def_var(ncid, "CMFDT", NC_DOUBLERANK_CMFDTCMFDT_dims, &CMFDT_id)) ERR;
2431
2432   CMFMC_dims[0] = time_dim;
2433   CMFMC_dims[1] = ilev_dim;
2434   CMFMC_dims[2] = lat_dim;
2435   CMFMC_dims[3] = lon_dim;
2436   if (nc_def_var(ncid, "CMFMC", NC_DOUBLERANK_CMFMCCMFMC_dims, &CMFMC_id)) ERR;
2437
2438   CMFMCDZM_dims[0] = time_dim;
2439   CMFMCDZM_dims[1] = ilev_dim;
2440   CMFMCDZM_dims[2] = lat_dim;
2441   CMFMCDZM_dims[3] = lon_dim;
2442   if (nc_def_var(ncid, "CMFMCDZM", NC_DOUBLERANK_CMFMCDZMCMFMCDZM_dims, &CMFMCDZM_id)) ERR;
2443
2444   CONCLD_dims[0] = time_dim;
2445   CONCLD_dims[1] = lev_dim;
2446   CONCLD_dims[2] = lat_dim;
2447   CONCLD_dims[3] = lon_dim;
2448   if (nc_def_var(ncid, "CONCLD", NC_DOUBLERANK_CONCLDCONCLD_dims, &CONCLD_id)) ERR;
2449
2450   DCQ_dims[0] = time_dim;
2451   DCQ_dims[1] = lev_dim;
2452   DCQ_dims[2] = lat_dim;
2453   DCQ_dims[3] = lon_dim;
2454   if (nc_def_var(ncid, "DCQ", NC_DOUBLERANK_DCQDCQ_dims, &DCQ_id)) ERR;
2455
2456   DMS_dims[0] = time_dim;
2457   DMS_dims[1] = lev_dim;
2458   DMS_dims[2] = lat_dim;
2459   DMS_dims[3] = lon_dim;
2460   if (nc_def_var(ncid, "DMS", NC_DOUBLERANK_DMSDMS_dims, &DMS_id)) ERR;
2461
2462   DSTODXC_dims[0] = time_dim;
2463   DSTODXC_dims[1] = lat_dim;
2464   DSTODXC_dims[2] = lon_dim;
2465   if (nc_def_var(ncid, "DSTODXC", NC_DOUBLERANK_DSTODXCDSTODXC_dims, &DSTODXC_id)) ERR;
2466
2467   DSTSFDRY_dims[0] = time_dim;
2468   DSTSFDRY_dims[1] = lat_dim;
2469   DSTSFDRY_dims[2] = lon_dim;
2470   if (nc_def_var(ncid, "DSTSFDRY", NC_DOUBLERANK_DSTSFDRYDSTSFDRY_dims, &DSTSFDRY_id)) ERR;
2471
2472   DSTSFMBL_dims[0] = time_dim;
2473   DSTSFMBL_dims[1] = lat_dim;
2474   DSTSFMBL_dims[2] = lon_dim;
2475   if (nc_def_var(ncid, "DSTSFMBL", NC_DOUBLERANK_DSTSFMBLDSTSFMBL_dims, &DSTSFMBL_id)) ERR;
2476
2477   DSTSFWET_dims[0] = time_dim;
2478   DSTSFWET_dims[1] = lat_dim;
2479   DSTSFWET_dims[2] = lon_dim;
2480   if (nc_def_var(ncid, "DSTSFWET", NC_DOUBLERANK_DSTSFWETDSTSFWET_dims, &DSTSFWET_id)) ERR;
2481
2482   DTCOND_dims[0] = time_dim;
2483   DTCOND_dims[1] = lev_dim;
2484   DTCOND_dims[2] = lat_dim;
2485   DTCOND_dims[3] = lon_dim;
2486   if (nc_def_var(ncid, "DTCOND", NC_DOUBLERANK_DTCONDDTCOND_dims, &DTCOND_id)) ERR;
2487
2488   DTV_dims[0] = time_dim;
2489   DTV_dims[1] = lev_dim;
2490   DTV_dims[2] = lat_dim;
2491   DTV_dims[3] = lon_dim;
2492   if (nc_def_var(ncid, "DTV", NC_DOUBLERANK_DTVDTV_dims, &DTV_id)) ERR;
2493
2494   EXTINCT_dims[0] = time_dim;
2495   EXTINCT_dims[1] = lev_dim;
2496   EXTINCT_dims[2] = lat_dim;
2497   EXTINCT_dims[3] = lon_dim;
2498   if (nc_def_var(ncid, "EXTINCT", NC_DOUBLERANK_EXTINCTEXTINCT_dims, &EXTINCT_id)) ERR;
2499
2500   FICE_dims[0] = time_dim;
2501   FICE_dims[1] = lev_dim;
2502   FICE_dims[2] = lat_dim;
2503   FICE_dims[3] = lon_dim;
2504   if (nc_def_var(ncid, "FICE", NC_DOUBLERANK_FICEFICE_dims, &FICE_id)) ERR;
2505
2506   FLDS_dims[0] = time_dim;
2507   FLDS_dims[1] = lat_dim;
2508   FLDS_dims[2] = lon_dim;
2509   if (nc_def_var(ncid, "FLDS", NC_DOUBLERANK_FLDSFLDS_dims, &FLDS_id)) ERR;
2510
2511   FLNS_dims[0] = time_dim;
2512   FLNS_dims[1] = lat_dim;
2513   FLNS_dims[2] = lon_dim;
2514   if (nc_def_var(ncid, "FLNS", NC_DOUBLERANK_FLNSFLNS_dims, &FLNS_id)) ERR;
2515
2516   FLNSC_dims[0] = time_dim;
2517   FLNSC_dims[1] = lat_dim;
2518   FLNSC_dims[2] = lon_dim;
2519   if (nc_def_var(ncid, "FLNSC", NC_DOUBLERANK_FLNSCFLNSC_dims, &FLNSC_id)) ERR;
2520
2521   FLNT_dims[0] = time_dim;
2522   FLNT_dims[1] = lat_dim;
2523   FLNT_dims[2] = lon_dim;
2524   if (nc_def_var(ncid, "FLNT", NC_DOUBLERANK_FLNTFLNT_dims, &FLNT_id)) ERR;
2525
2526   FLNTC_dims[0] = time_dim;
2527   FLNTC_dims[1] = lat_dim;
2528   FLNTC_dims[2] = lon_dim;
2529   if (nc_def_var(ncid, "FLNTC", NC_DOUBLERANK_FLNTCFLNTC_dims, &FLNTC_id)) ERR;
2530
2531   FLUT_dims[0] = time_dim;
2532   FLUT_dims[1] = lat_dim;
2533   FLUT_dims[2] = lon_dim;
2534   if (nc_def_var(ncid, "FLUT", NC_DOUBLERANK_FLUTFLUT_dims, &FLUT_id)) ERR;
2535
2536   FLUTC_dims[0] = time_dim;
2537   FLUTC_dims[1] = lat_dim;
2538   FLUTC_dims[2] = lon_dim;
2539   if (nc_def_var(ncid, "FLUTC", NC_DOUBLERANK_FLUTCFLUTC_dims, &FLUTC_id)) ERR;
2540
2541   FREQSH_dims[0] = time_dim;
2542   FREQSH_dims[1] = lat_dim;
2543   FREQSH_dims[2] = lon_dim;
2544   if (nc_def_var(ncid, "FREQSH", NC_DOUBLERANK_FREQSHFREQSH_dims, &FREQSH_id)) ERR;
2545
2546   FREQZM_dims[0] = time_dim;
2547   FREQZM_dims[1] = lat_dim;
2548   FREQZM_dims[2] = lon_dim;
2549   if (nc_def_var(ncid, "FREQZM", NC_DOUBLERANK_FREQZMFREQZM_dims, &FREQZM_id)) ERR;
2550
2551   FSDS_dims[0] = time_dim;
2552   FSDS_dims[1] = lat_dim;
2553   FSDS_dims[2] = lon_dim;
2554   if (nc_def_var(ncid, "FSDS", NC_DOUBLERANK_FSDSFSDS_dims, &FSDS_id)) ERR;
2555
2556   FSDSC_dims[0] = time_dim;
2557   FSDSC_dims[1] = lat_dim;
2558   FSDSC_dims[2] = lon_dim;
2559   if (nc_def_var(ncid, "FSDSC", NC_DOUBLERANK_FSDSCFSDSC_dims, &FSDSC_id)) ERR;
2560
2561   FSNS_dims[0] = time_dim;
2562   FSNS_dims[1] = lat_dim;
2563   FSNS_dims[2] = lon_dim;
2564   if (nc_def_var(ncid, "FSNS", NC_DOUBLERANK_FSNSFSNS_dims, &FSNS_id)) ERR;
2565
2566   FSNSC_dims[0] = time_dim;
2567   FSNSC_dims[1] = lat_dim;
2568   FSNSC_dims[2] = lon_dim;
2569   if (nc_def_var(ncid, "FSNSC", NC_DOUBLERANK_FSNSCFSNSC_dims, &FSNSC_id)) ERR;
2570
2571   FSNT_dims[0] = time_dim;
2572   FSNT_dims[1] = lat_dim;
2573   FSNT_dims[2] = lon_dim;
2574   if (nc_def_var(ncid, "FSNT", NC_DOUBLERANK_FSNTFSNT_dims, &FSNT_id)) ERR;
2575
2576   FSNTC_dims[0] = time_dim;
2577   FSNTC_dims[1] = lat_dim;
2578   FSNTC_dims[2] = lon_dim;
2579   if (nc_def_var(ncid, "FSNTC", NC_DOUBLERANK_FSNTCFSNTC_dims, &FSNTC_id)) ERR;
2580
2581   FSNTOA_dims[0] = time_dim;
2582   FSNTOA_dims[1] = lat_dim;
2583   FSNTOA_dims[2] = lon_dim;
2584   if (nc_def_var(ncid, "FSNTOA", NC_DOUBLERANK_FSNTOAFSNTOA_dims, &FSNTOA_id)) ERR;
2585
2586   FSNTOAC_dims[0] = time_dim;
2587   FSNTOAC_dims[1] = lat_dim;
2588   FSNTOAC_dims[2] = lon_dim;
2589   if (nc_def_var(ncid, "FSNTOAC", NC_DOUBLERANK_FSNTOACFSNTOAC_dims, &FSNTOAC_id)) ERR;
2590
2591   FSUTOA_dims[0] = time_dim;
2592   FSUTOA_dims[1] = lat_dim;
2593   FSUTOA_dims[2] = lon_dim;
2594   if (nc_def_var(ncid, "FSUTOA", NC_DOUBLERANK_FSUTOAFSUTOA_dims, &FSUTOA_id)) ERR;
2595
2596   GS_DMS_dims[0] = time_dim;
2597   GS_DMS_dims[1] = lat_dim;
2598   GS_DMS_dims[2] = lon_dim;
2599   if (nc_def_var(ncid, "GS_DMS", NC_DOUBLERANK_GS_DMSGS_DMS_dims, &GS_DMS_id)) ERR;
2600
2601   GS_H2O2_dims[0] = time_dim;
2602   GS_H2O2_dims[1] = lat_dim;
2603   GS_H2O2_dims[2] = lon_dim;
2604   if (nc_def_var(ncid, "GS_H2O2", NC_DOUBLERANK_GS_H2O2GS_H2O2_dims, &GS_H2O2_id)) ERR;
2605
2606   GS_H2SO4_dims[0] = time_dim;
2607   GS_H2SO4_dims[1] = lat_dim;
2608   GS_H2SO4_dims[2] = lon_dim;
2609   if (nc_def_var(ncid, "GS_H2SO4", NC_DOUBLERANK_GS_H2SO4GS_H2SO4_dims, &GS_H2SO4_id)) ERR;
2610
2611   GS_SO2_dims[0] = time_dim;
2612   GS_SO2_dims[1] = lat_dim;
2613   GS_SO2_dims[2] = lon_dim;
2614   if (nc_def_var(ncid, "GS_SO2", NC_DOUBLERANK_GS_SO2GS_SO2_dims, &GS_SO2_id)) ERR;
2615
2616   GS_SOAG_dims[0] = time_dim;
2617   GS_SOAG_dims[1] = lat_dim;
2618   GS_SOAG_dims[2] = lon_dim;
2619   if (nc_def_var(ncid, "GS_SOAG", NC_DOUBLERANK_GS_SOAGGS_SOAG_dims, &GS_SOAG_id)) ERR;
2620
2621   GS_bc_a1_dims[0] = time_dim;
2622   GS_bc_a1_dims[1] = lat_dim;
2623   GS_bc_a1_dims[2] = lon_dim;
2624   if (nc_def_var(ncid, "GS_bc_a1", NC_DOUBLERANK_GS_bc_a1GS_bc_a1_dims, &GS_bc_a1_id)) ERR;
2625
2626   GS_dst_a1_dims[0] = time_dim;
2627   GS_dst_a1_dims[1] = lat_dim;
2628   GS_dst_a1_dims[2] = lon_dim;
2629   if (nc_def_var(ncid, "GS_dst_a1", NC_DOUBLERANK_GS_dst_a1GS_dst_a1_dims, &GS_dst_a1_id)) ERR;
2630
2631   GS_dst_a3_dims[0] = time_dim;
2632   GS_dst_a3_dims[1] = lat_dim;
2633   GS_dst_a3_dims[2] = lon_dim;
2634   if (nc_def_var(ncid, "GS_dst_a3", NC_DOUBLERANK_GS_dst_a3GS_dst_a3_dims, &GS_dst_a3_id)) ERR;
2635
2636   GS_ncl_a1_dims[0] = time_dim;
2637   GS_ncl_a1_dims[1] = lat_dim;
2638   GS_ncl_a1_dims[2] = lon_dim;
2639   if (nc_def_var(ncid, "GS_ncl_a1", NC_DOUBLERANK_GS_ncl_a1GS_ncl_a1_dims, &GS_ncl_a1_id)) ERR;
2640
2641   GS_ncl_a2_dims[0] = time_dim;
2642   GS_ncl_a2_dims[1] = lat_dim;
2643   GS_ncl_a2_dims[2] = lon_dim;
2644   if (nc_def_var(ncid, "GS_ncl_a2", NC_DOUBLERANK_GS_ncl_a2GS_ncl_a2_dims, &GS_ncl_a2_id)) ERR;
2645
2646   GS_ncl_a3_dims[0] = time_dim;
2647   GS_ncl_a3_dims[1] = lat_dim;
2648   GS_ncl_a3_dims[2] = lon_dim;
2649   if (nc_def_var(ncid, "GS_ncl_a3", NC_DOUBLERANK_GS_ncl_a3GS_ncl_a3_dims, &GS_ncl_a3_id)) ERR;
2650
2651   GS_num_a1_dims[0] = time_dim;
2652   GS_num_a1_dims[1] = lat_dim;
2653   GS_num_a1_dims[2] = lon_dim;
2654   if (nc_def_var(ncid, "GS_num_a1", NC_DOUBLERANK_GS_num_a1GS_num_a1_dims, &GS_num_a1_id)) ERR;
2655
2656   GS_num_a2_dims[0] = time_dim;
2657   GS_num_a2_dims[1] = lat_dim;
2658   GS_num_a2_dims[2] = lon_dim;
2659   if (nc_def_var(ncid, "GS_num_a2", NC_DOUBLERANK_GS_num_a2GS_num_a2_dims, &GS_num_a2_id)) ERR;
2660
2661   GS_num_a3_dims[0] = time_dim;
2662   GS_num_a3_dims[1] = lat_dim;
2663   GS_num_a3_dims[2] = lon_dim;
2664   if (nc_def_var(ncid, "GS_num_a3", NC_DOUBLERANK_GS_num_a3GS_num_a3_dims, &GS_num_a3_id)) ERR;
2665
2666   GS_pom_a1_dims[0] = time_dim;
2667   GS_pom_a1_dims[1] = lat_dim;
2668   GS_pom_a1_dims[2] = lon_dim;
2669   if (nc_def_var(ncid, "GS_pom_a1", NC_DOUBLERANK_GS_pom_a1GS_pom_a1_dims, &GS_pom_a1_id)) ERR;
2670
2671   GS_so4_a1_dims[0] = time_dim;
2672   GS_so4_a1_dims[1] = lat_dim;
2673   GS_so4_a1_dims[2] = lon_dim;
2674   if (nc_def_var(ncid, "GS_so4_a1", NC_DOUBLERANK_GS_so4_a1GS_so4_a1_dims, &GS_so4_a1_id)) ERR;
2675
2676   GS_so4_a2_dims[0] = time_dim;
2677   GS_so4_a2_dims[1] = lat_dim;
2678   GS_so4_a2_dims[2] = lon_dim;
2679   if (nc_def_var(ncid, "GS_so4_a2", NC_DOUBLERANK_GS_so4_a2GS_so4_a2_dims, &GS_so4_a2_id)) ERR;
2680
2681   GS_so4_a3_dims[0] = time_dim;
2682   GS_so4_a3_dims[1] = lat_dim;
2683   GS_so4_a3_dims[2] = lon_dim;
2684   if (nc_def_var(ncid, "GS_so4_a3", NC_DOUBLERANK_GS_so4_a3GS_so4_a3_dims, &GS_so4_a3_id)) ERR;
2685
2686   GS_soa_a1_dims[0] = time_dim;
2687   GS_soa_a1_dims[1] = lat_dim;
2688   GS_soa_a1_dims[2] = lon_dim;
2689   if (nc_def_var(ncid, "GS_soa_a1", NC_DOUBLERANK_GS_soa_a1GS_soa_a1_dims, &GS_soa_a1_id)) ERR;
2690
2691   GS_soa_a2_dims[0] = time_dim;
2692   GS_soa_a2_dims[1] = lat_dim;
2693   GS_soa_a2_dims[2] = lon_dim;
2694   if (nc_def_var(ncid, "GS_soa_a2", NC_DOUBLERANK_GS_soa_a2GS_soa_a2_dims, &GS_soa_a2_id)) ERR;
2695
2696   H2O2_dims[0] = time_dim;
2697   H2O2_dims[1] = lev_dim;
2698   H2O2_dims[2] = lat_dim;
2699   H2O2_dims[3] = lon_dim;
2700   if (nc_def_var(ncid, "H2O2", NC_DOUBLERANK_H2O2H2O2_dims, &H2O2_id)) ERR;
2701
2702   H2SO4_dims[0] = time_dim;
2703   H2SO4_dims[1] = lev_dim;
2704   H2SO4_dims[2] = lat_dim;
2705   H2SO4_dims[3] = lon_dim;
2706   if (nc_def_var(ncid, "H2SO4", NC_DOUBLERANK_H2SO4H2SO4_dims, &H2SO4_id)) ERR;
2707
2708   H2SO4_sfgaex1_dims[0] = time_dim;
2709   H2SO4_sfgaex1_dims[1] = lat_dim;
2710   H2SO4_sfgaex1_dims[2] = lon_dim;
2711   if (nc_def_var(ncid, "H2SO4_sfgaex1", NC_DOUBLERANK_H2SO4_sfgaex1H2SO4_sfgaex1_dims, &H2SO4_sfgaex1_id)) ERR;
2712
2713   H2SO4_sfnnuc1_dims[0] = time_dim;
2714   H2SO4_sfnnuc1_dims[1] = lat_dim;
2715   H2SO4_sfnnuc1_dims[2] = lon_dim;
2716   if (nc_def_var(ncid, "H2SO4_sfnnuc1", NC_DOUBLERANK_H2SO4_sfnnuc1H2SO4_sfnnuc1_dims, &H2SO4_sfnnuc1_id)) ERR;
2717
2718   ICEFRAC_dims[0] = time_dim;
2719   ICEFRAC_dims[1] = lat_dim;
2720   ICEFRAC_dims[2] = lon_dim;
2721   if (nc_def_var(ncid, "ICEFRAC", NC_DOUBLERANK_ICEFRACICEFRAC_dims, &ICEFRAC_id)) ERR;
2722
2723   ICIMR_dims[0] = time_dim;
2724   ICIMR_dims[1] = lev_dim;
2725   ICIMR_dims[2] = lat_dim;
2726   ICIMR_dims[3] = lon_dim;
2727   if (nc_def_var(ncid, "ICIMR", NC_DOUBLERANK_ICIMRICIMR_dims, &ICIMR_id)) ERR;
2728
2729   ICWMR_dims[0] = time_dim;
2730   ICWMR_dims[1] = lev_dim;
2731   ICWMR_dims[2] = lat_dim;
2732   ICWMR_dims[3] = lon_dim;
2733   if (nc_def_var(ncid, "ICWMR", NC_DOUBLERANK_ICWMRICWMR_dims, &ICWMR_id)) ERR;
2734
2735   KVH_dims[0] = time_dim;
2736   KVH_dims[1] = ilev_dim;
2737   KVH_dims[2] = lat_dim;
2738   KVH_dims[3] = lon_dim;
2739   if (nc_def_var(ncid, "KVH", NC_DOUBLERANK_KVHKVH_dims, &KVH_id)) ERR;
2740
2741   KVM_dims[0] = time_dim;
2742   KVM_dims[1] = ilev_dim;
2743   KVM_dims[2] = lat_dim;
2744   KVM_dims[3] = lon_dim;
2745   if (nc_def_var(ncid, "KVM", NC_DOUBLERANK_KVMKVM_dims, &KVM_id)) ERR;
2746
2747   LANDFRAC_dims[0] = time_dim;
2748   LANDFRAC_dims[1] = lat_dim;
2749   LANDFRAC_dims[2] = lon_dim;
2750   if (nc_def_var(ncid, "LANDFRAC", NC_DOUBLERANK_LANDFRACLANDFRAC_dims, &LANDFRAC_id)) ERR;
2751
2752   LCLOUD_dims[0] = time_dim;
2753   LCLOUD_dims[1] = lev_dim;
2754   LCLOUD_dims[2] = lat_dim;
2755   LCLOUD_dims[3] = lon_dim;
2756   if (nc_def_var(ncid, "LCLOUD", NC_DOUBLERANK_LCLOUDLCLOUD_dims, &LCLOUD_id)) ERR;
2757
2758   LHFLX_dims[0] = time_dim;
2759   LHFLX_dims[1] = lat_dim;
2760   LHFLX_dims[2] = lon_dim;
2761   if (nc_def_var(ncid, "LHFLX", NC_DOUBLERANK_LHFLXLHFLX_dims, &LHFLX_id)) ERR;
2762
2763   LND_MBL_dims[0] = time_dim;
2764   LND_MBL_dims[1] = lat_dim;
2765   LND_MBL_dims[2] = lon_dim;
2766   if (nc_def_var(ncid, "LND_MBL", NC_DOUBLERANK_LND_MBLLND_MBL_dims, &LND_MBL_id)) ERR;
2767
2768   LWCF_dims[0] = time_dim;
2769   LWCF_dims[1] = lat_dim;
2770   LWCF_dims[2] = lon_dim;
2771   if (nc_def_var(ncid, "LWCF", NC_DOUBLERANK_LWCFLWCF_dims, &LWCF_id)) ERR;
2772
2773   NDROPCOL_dims[0] = time_dim;
2774   NDROPCOL_dims[1] = lat_dim;
2775   NDROPCOL_dims[2] = lon_dim;
2776   if (nc_def_var(ncid, "NDROPCOL", NC_DOUBLERANK_NDROPCOLNDROPCOL_dims, &NDROPCOL_id)) ERR;
2777
2778   NDROPMIX_dims[0] = time_dim;
2779   NDROPMIX_dims[1] = lev_dim;
2780   NDROPMIX_dims[2] = lat_dim;
2781   NDROPMIX_dims[3] = lon_dim;
2782   if (nc_def_var(ncid, "NDROPMIX", NC_DOUBLERANK_NDROPMIXNDROPMIX_dims, &NDROPMIX_id)) ERR;
2783
2784   NDROPSNK_dims[0] = time_dim;
2785   NDROPSNK_dims[1] = lev_dim;
2786   NDROPSNK_dims[2] = lat_dim;
2787   NDROPSNK_dims[3] = lon_dim;
2788   if (nc_def_var(ncid, "NDROPSNK", NC_DOUBLERANK_NDROPSNKNDROPSNK_dims, &NDROPSNK_id)) ERR;
2789
2790   NDROPSRC_dims[0] = time_dim;
2791   NDROPSRC_dims[1] = lev_dim;
2792   NDROPSRC_dims[2] = lat_dim;
2793   NDROPSRC_dims[3] = lon_dim;
2794   if (nc_def_var(ncid, "NDROPSRC", NC_DOUBLERANK_NDROPSRCNDROPSRC_dims, &NDROPSRC_id)) ERR;
2795
2796   NUMICE_dims[0] = time_dim;
2797   NUMICE_dims[1] = lev_dim;
2798   NUMICE_dims[2] = lat_dim;
2799   NUMICE_dims[3] = lon_dim;
2800   if (nc_def_var(ncid, "NUMICE", NC_DOUBLERANK_NUMICENUMICE_dims, &NUMICE_id)) ERR;
2801
2802   NUMLIQ_dims[0] = time_dim;
2803   NUMLIQ_dims[1] = lev_dim;
2804   NUMLIQ_dims[2] = lat_dim;
2805   NUMLIQ_dims[3] = lon_dim;
2806   if (nc_def_var(ncid, "NUMLIQ", NC_DOUBLERANK_NUMLIQNUMLIQ_dims, &NUMLIQ_id)) ERR;
2807
2808   OCNFRAC_dims[0] = time_dim;
2809   OCNFRAC_dims[1] = lat_dim;
2810   OCNFRAC_dims[2] = lon_dim;
2811   if (nc_def_var(ncid, "OCNFRAC", NC_DOUBLERANK_OCNFRACOCNFRAC_dims, &OCNFRAC_id)) ERR;
2812
2813   ODV_bc_a1_dims[0] = time_dim;
2814   ODV_bc_a1_dims[1] = lat_dim;
2815   ODV_bc_a1_dims[2] = lon_dim;
2816   if (nc_def_var(ncid, "ODV_bc_a1", NC_DOUBLERANK_ODV_bc_a1ODV_bc_a1_dims, &ODV_bc_a1_id)) ERR;
2817
2818   ODV_dst_a1_dims[0] = time_dim;
2819   ODV_dst_a1_dims[1] = lat_dim;
2820   ODV_dst_a1_dims[2] = lon_dim;
2821   if (nc_def_var(ncid, "ODV_dst_a1", NC_DOUBLERANK_ODV_dst_a1ODV_dst_a1_dims, &ODV_dst_a1_id)) ERR;
2822
2823   ODV_dst_a3_dims[0] = time_dim;
2824   ODV_dst_a3_dims[1] = lat_dim;
2825   ODV_dst_a3_dims[2] = lon_dim;
2826   if (nc_def_var(ncid, "ODV_dst_a3", NC_DOUBLERANK_ODV_dst_a3ODV_dst_a3_dims, &ODV_dst_a3_id)) ERR;
2827
2828   ODV_ncl_a1_dims[0] = time_dim;
2829   ODV_ncl_a1_dims[1] = lat_dim;
2830   ODV_ncl_a1_dims[2] = lon_dim;
2831   if (nc_def_var(ncid, "ODV_ncl_a1", NC_DOUBLERANK_ODV_ncl_a1ODV_ncl_a1_dims, &ODV_ncl_a1_id)) ERR;
2832
2833   ODV_ncl_a3_dims[0] = time_dim;
2834   ODV_ncl_a3_dims[1] = lat_dim;
2835   ODV_ncl_a3_dims[2] = lon_dim;
2836   if (nc_def_var(ncid, "ODV_ncl_a3", NC_DOUBLERANK_ODV_ncl_a3ODV_ncl_a3_dims, &ODV_ncl_a3_id)) ERR;
2837
2838   ODV_pom_a1_dims[0] = time_dim;
2839   ODV_pom_a1_dims[1] = lat_dim;
2840   ODV_pom_a1_dims[2] = lon_dim;
2841   if (nc_def_var(ncid, "ODV_pom_a1", NC_DOUBLERANK_ODV_pom_a1ODV_pom_a1_dims, &ODV_pom_a1_id)) ERR;
2842
2843   ODV_so4_a1_dims[0] = time_dim;
2844   ODV_so4_a1_dims[1] = lat_dim;
2845   ODV_so4_a1_dims[2] = lon_dim;
2846   if (nc_def_var(ncid, "ODV_so4_a1", NC_DOUBLERANK_ODV_so4_a1ODV_so4_a1_dims, &ODV_so4_a1_id)) ERR;
2847
2848   ODV_soa_a1_dims[0] = time_dim;
2849   ODV_soa_a1_dims[1] = lat_dim;
2850   ODV_soa_a1_dims[2] = lon_dim;
2851   if (nc_def_var(ncid, "ODV_soa_a1", NC_DOUBLERANK_ODV_soa_a1ODV_soa_a1_dims, &ODV_soa_a1_id)) ERR;
2852
2853   OMEGA_dims[0] = time_dim;
2854   OMEGA_dims[1] = lev_dim;
2855   OMEGA_dims[2] = lat_dim;
2856   OMEGA_dims[3] = lon_dim;
2857   if (nc_def_var(ncid, "OMEGA", NC_DOUBLERANK_OMEGAOMEGA_dims, &OMEGA_id)) ERR;
2858
2859   OMEGAT_dims[0] = time_dim;
2860   OMEGAT_dims[1] = lev_dim;
2861   OMEGAT_dims[2] = lat_dim;
2862   OMEGAT_dims[3] = lon_dim;
2863   if (nc_def_var(ncid, "OMEGAT", NC_DOUBLERANK_OMEGATOMEGAT_dims, &OMEGAT_id)) ERR;
2864
2865   ORO_dims[0] = time_dim;
2866   ORO_dims[1] = lat_dim;
2867   ORO_dims[2] = lon_dim;
2868   if (nc_def_var(ncid, "ORO", NC_DOUBLERANK_OROORO_dims, &ORO_id)) ERR;
2869
2870   PBLH_dims[0] = time_dim;
2871   PBLH_dims[1] = lat_dim;
2872   PBLH_dims[2] = lon_dim;
2873   if (nc_def_var(ncid, "PBLH", NC_DOUBLERANK_PBLHPBLH_dims, &PBLH_id)) ERR;
2874
2875   PCONVB_dims[0] = time_dim;
2876   PCONVB_dims[1] = lat_dim;
2877   PCONVB_dims[2] = lon_dim;
2878   if (nc_def_var(ncid, "PCONVB", NC_DOUBLERANK_PCONVBPCONVB_dims, &PCONVB_id)) ERR;
2879
2880   PCONVT_dims[0] = time_dim;
2881   PCONVT_dims[1] = lat_dim;
2882   PCONVT_dims[2] = lon_dim;
2883   if (nc_def_var(ncid, "PCONVT", NC_DOUBLERANK_PCONVTPCONVT_dims, &PCONVT_id)) ERR;
2884
2885   PHIS_dims[0] = time_dim;
2886   PHIS_dims[1] = lat_dim;
2887   PHIS_dims[2] = lon_dim;
2888   if (nc_def_var(ncid, "PHIS", NC_DOUBLERANK_PHISPHIS_dims, &PHIS_id)) ERR;
2889
2890   PRECC_dims[0] = time_dim;
2891   PRECC_dims[1] = lat_dim;
2892   PRECC_dims[2] = lon_dim;
2893   if (nc_def_var(ncid, "PRECC", NC_DOUBLERANK_PRECCPRECC_dims, &PRECC_id)) ERR;
2894
2895   PRECCDZM_dims[0] = time_dim;
2896   PRECCDZM_dims[1] = lat_dim;
2897   PRECCDZM_dims[2] = lon_dim;
2898   if (nc_def_var(ncid, "PRECCDZM", NC_DOUBLERANK_PRECCDZMPRECCDZM_dims, &PRECCDZM_id)) ERR;
2899
2900   PRECL_dims[0] = time_dim;
2901   PRECL_dims[1] = lat_dim;
2902   PRECL_dims[2] = lon_dim;
2903   if (nc_def_var(ncid, "PRECL", NC_DOUBLERANK_PRECLPRECL_dims, &PRECL_id)) ERR;
2904
2905   PRECSC_dims[0] = time_dim;
2906   PRECSC_dims[1] = lat_dim;
2907   PRECSC_dims[2] = lon_dim;
2908   if (nc_def_var(ncid, "PRECSC", NC_DOUBLERANK_PRECSCPRECSC_dims, &PRECSC_id)) ERR;
2909
2910   PRECSH_dims[0] = time_dim;
2911   PRECSH_dims[1] = lat_dim;
2912   PRECSH_dims[2] = lon_dim;
2913   if (nc_def_var(ncid, "PRECSH", NC_DOUBLERANK_PRECSHPRECSH_dims, &PRECSH_id)) ERR;
2914
2915   PRECSL_dims[0] = time_dim;
2916   PRECSL_dims[1] = lat_dim;
2917   PRECSL_dims[2] = lon_dim;
2918   if (nc_def_var(ncid, "PRECSL", NC_DOUBLERANK_PRECSLPRECSL_dims, &PRECSL_id)) ERR;
2919
2920   PRECT_dims[0] = time_dim;
2921   PRECT_dims[1] = lat_dim;
2922   PRECT_dims[2] = lon_dim;
2923   if (nc_def_var(ncid, "PRECT", NC_DOUBLERANK_PRECTPRECT_dims, &PRECT_id)) ERR;
2924
2925   PS_dims[0] = time_dim;
2926   PS_dims[1] = lat_dim;
2927   PS_dims[2] = lon_dim;
2928   if (nc_def_var(ncid, "PS", NC_DOUBLERANK_PSPS_dims, &PS_id)) ERR;
2929
2930   PSL_dims[0] = time_dim;
2931   PSL_dims[1] = lat_dim;
2932   PSL_dims[2] = lon_dim;
2933   if (nc_def_var(ncid, "PSL", NC_DOUBLERANK_PSLPSL_dims, &PSL_id)) ERR;
2934
2935   Q_dims[0] = time_dim;
2936   Q_dims[1] = lev_dim;
2937   Q_dims[2] = lat_dim;
2938   Q_dims[3] = lon_dim;
2939   if (nc_def_var(ncid, "Q", NC_DOUBLERANK_QQ_dims, &Q_id)) ERR;
2940
2941   QC_dims[0] = time_dim;
2942   QC_dims[1] = lev_dim;
2943   QC_dims[2] = lat_dim;
2944   QC_dims[3] = lon_dim;
2945   if (nc_def_var(ncid, "QC", NC_DOUBLERANK_QCQC_dims, &QC_id)) ERR;
2946
2947   QFLX_dims[0] = time_dim;
2948   QFLX_dims[1] = lat_dim;
2949   QFLX_dims[2] = lon_dim;
2950   if (nc_def_var(ncid, "QFLX", NC_DOUBLERANK_QFLXQFLX_dims, &QFLX_id)) ERR;
2951
2952   QREFHT_dims[0] = time_dim;
2953   QREFHT_dims[1] = lat_dim;
2954   QREFHT_dims[2] = lon_dim;
2955   if (nc_def_var(ncid, "QREFHT", NC_DOUBLERANK_QREFHTQREFHT_dims, &QREFHT_id)) ERR;
2956
2957   QRL_dims[0] = time_dim;
2958   QRL_dims[1] = lev_dim;
2959   QRL_dims[2] = lat_dim;
2960   QRL_dims[3] = lon_dim;
2961   if (nc_def_var(ncid, "QRL", NC_DOUBLERANK_QRLQRL_dims, &QRL_id)) ERR;
2962
2963   QRS_dims[0] = time_dim;
2964   QRS_dims[1] = lev_dim;
2965   QRS_dims[2] = lat_dim;
2966   QRS_dims[3] = lon_dim;
2967   if (nc_def_var(ncid, "QRS", NC_DOUBLERANK_QRSQRS_dims, &QRS_id)) ERR;
2968
2969   QT_dims[0] = time_dim;
2970   QT_dims[1] = lev_dim;
2971   QT_dims[2] = lat_dim;
2972   QT_dims[3] = lon_dim;
2973   if (nc_def_var(ncid, "QT", NC_DOUBLERANK_QTQT_dims, &QT_id)) ERR;
2974
2975   QTFLX_dims[0] = time_dim;
2976   QTFLX_dims[1] = ilev_dim;
2977   QTFLX_dims[2] = lat_dim;
2978   QTFLX_dims[3] = lon_dim;
2979   if (nc_def_var(ncid, "QTFLX", NC_DOUBLERANK_QTFLXQTFLX_dims, &QTFLX_id)) ERR;
2980
2981   RAM1_dims[0] = time_dim;
2982   RAM1_dims[1] = lat_dim;
2983   RAM1_dims[2] = lon_dim;
2984   if (nc_def_var(ncid, "RAM1", NC_DOUBLERANK_RAM1RAM1_dims, &RAM1_id)) ERR;
2985
2986   RELHUM_dims[0] = time_dim;
2987   RELHUM_dims[1] = lev_dim;
2988   RELHUM_dims[2] = lat_dim;
2989   RELHUM_dims[3] = lon_dim;
2990   if (nc_def_var(ncid, "RELHUM", NC_DOUBLERANK_RELHUMRELHUM_dims, &RELHUM_id)) ERR;
2991
2992   RHREFHT_dims[0] = time_dim;
2993   RHREFHT_dims[1] = lat_dim;
2994   RHREFHT_dims[2] = lon_dim;
2995   if (nc_def_var(ncid, "RHREFHT", NC_DOUBLERANK_RHREFHTRHREFHT_dims, &RHREFHT_id)) ERR;
2996
2997   SFCLDICE_dims[0] = time_dim;
2998   SFCLDICE_dims[1] = lat_dim;
2999   SFCLDICE_dims[2] = lon_dim;
3000   if (nc_def_var(ncid, "SFCLDICE", NC_DOUBLERANK_SFCLDICESFCLDICE_dims, &SFCLDICE_id)) ERR;
3001
3002   SFCLDLIQ_dims[0] = time_dim;
3003   SFCLDLIQ_dims[1] = lat_dim;
3004   SFCLDLIQ_dims[2] = lon_dim;
3005   if (nc_def_var(ncid, "SFCLDLIQ", NC_DOUBLERANK_SFCLDLIQSFCLDLIQ_dims, &SFCLDLIQ_id)) ERR;
3006
3007   SFI_dims[0] = time_dim;
3008   SFI_dims[1] = ilev_dim;
3009   SFI_dims[2] = lat_dim;
3010   SFI_dims[3] = lon_dim;
3011   if (nc_def_var(ncid, "SFI", NC_DOUBLERANK_SFISFI_dims, &SFI_id)) ERR;
3012
3013   SFNUMICE_dims[0] = time_dim;
3014   SFNUMICE_dims[1] = lat_dim;
3015   SFNUMICE_dims[2] = lon_dim;
3016   if (nc_def_var(ncid, "SFNUMICE", NC_DOUBLERANK_SFNUMICESFNUMICE_dims, &SFNUMICE_id)) ERR;
3017
3018   SFNUMLIQ_dims[0] = time_dim;
3019   SFNUMLIQ_dims[1] = lat_dim;
3020   SFNUMLIQ_dims[2] = lon_dim;
3021   if (nc_def_var(ncid, "SFNUMLIQ", NC_DOUBLERANK_SFNUMLIQSFNUMLIQ_dims, &SFNUMLIQ_id)) ERR;
3022
3023   SHFLX_dims[0] = time_dim;
3024   SHFLX_dims[1] = lat_dim;
3025   SHFLX_dims[2] = lon_dim;
3026   if (nc_def_var(ncid, "SHFLX", NC_DOUBLERANK_SHFLXSHFLX_dims, &SHFLX_id)) ERR;
3027
3028   SL_dims[0] = time_dim;
3029   SL_dims[1] = lev_dim;
3030   SL_dims[2] = lat_dim;
3031   SL_dims[3] = lon_dim;
3032   if (nc_def_var(ncid, "SL", NC_DOUBLERANK_SLSL_dims, &SL_id)) ERR;
3033
3034   SLFLX_dims[0] = time_dim;
3035   SLFLX_dims[1] = ilev_dim;
3036   SLFLX_dims[2] = lat_dim;
3037   SLFLX_dims[3] = lon_dim;
3038   if (nc_def_var(ncid, "SLFLX", NC_DOUBLERANK_SLFLXSLFLX_dims, &SLFLX_id)) ERR;
3039
3040   SLV_dims[0] = time_dim;
3041   SLV_dims[1] = lev_dim;
3042   SLV_dims[2] = lat_dim;
3043   SLV_dims[3] = lon_dim;
3044   if (nc_def_var(ncid, "SLV", NC_DOUBLERANK_SLVSLV_dims, &SLV_id)) ERR;
3045
3046   SNOWHICE_dims[0] = time_dim;
3047   SNOWHICE_dims[1] = lat_dim;
3048   SNOWHICE_dims[2] = lon_dim;
3049   if (nc_def_var(ncid, "SNOWHICE", NC_DOUBLERANK_SNOWHICESNOWHICE_dims, &SNOWHICE_id)) ERR;
3050
3051   SNOWHLND_dims[0] = time_dim;
3052   SNOWHLND_dims[1] = lat_dim;
3053   SNOWHLND_dims[2] = lon_dim;
3054   if (nc_def_var(ncid, "SNOWHLND", NC_DOUBLERANK_SNOWHLNDSNOWHLND_dims, &SNOWHLND_id)) ERR;
3055
3056   SO2_dims[0] = time_dim;
3057   SO2_dims[1] = lev_dim;
3058   SO2_dims[2] = lat_dim;
3059   SO2_dims[3] = lon_dim;
3060   if (nc_def_var(ncid, "SO2", NC_DOUBLERANK_SO2SO2_dims, &SO2_id)) ERR;
3061
3062   SO2_CLXF_dims[0] = time_dim;
3063   SO2_CLXF_dims[1] = lat_dim;
3064   SO2_CLXF_dims[2] = lon_dim;
3065   if (nc_def_var(ncid, "SO2_CLXF", NC_DOUBLERANK_SO2_CLXFSO2_CLXF_dims, &SO2_CLXF_id)) ERR;
3066
3067   SO2_XFRC_dims[0] = time_dim;
3068   SO2_XFRC_dims[1] = lev_dim;
3069   SO2_XFRC_dims[2] = lat_dim;
3070   SO2_XFRC_dims[3] = lon_dim;
3071   if (nc_def_var(ncid, "SO2_XFRC", NC_DOUBLERANK_SO2_XFRCSO2_XFRC_dims, &SO2_XFRC_id)) ERR;
3072
3073   SOAG_dims[0] = time_dim;
3074   SOAG_dims[1] = lev_dim;
3075   SOAG_dims[2] = lat_dim;
3076   SOAG_dims[3] = lon_dim;
3077   if (nc_def_var(ncid, "SOAG", NC_DOUBLERANK_SOAGSOAG_dims, &SOAG_id)) ERR;
3078
3079   SOAG_sfgaex1_dims[0] = time_dim;
3080   SOAG_sfgaex1_dims[1] = lat_dim;
3081   SOAG_sfgaex1_dims[2] = lon_dim;
3082   if (nc_def_var(ncid, "SOAG_sfgaex1", NC_DOUBLERANK_SOAG_sfgaex1SOAG_sfgaex1_dims, &SOAG_sfgaex1_id)) ERR;
3083
3084   SOLIN_dims[0] = time_dim;
3085   SOLIN_dims[1] = lat_dim;
3086   SOLIN_dims[2] = lon_dim;
3087   if (nc_def_var(ncid, "SOLIN", NC_DOUBLERANK_SOLINSOLIN_dims, &SOLIN_id)) ERR;
3088
3089   SPROD_dims[0] = time_dim;
3090   SPROD_dims[1] = ilev_dim;
3091   SPROD_dims[2] = lat_dim;
3092   SPROD_dims[3] = lon_dim;
3093   if (nc_def_var(ncid, "SPROD", NC_DOUBLERANK_SPRODSPROD_dims, &SPROD_id)) ERR;
3094
3095   SRFRAD_dims[0] = time_dim;
3096   SRFRAD_dims[1] = lat_dim;
3097   SRFRAD_dims[2] = lon_dim;
3098   if (nc_def_var(ncid, "SRFRAD", NC_DOUBLERANK_SRFRADSRFRAD_dims, &SRFRAD_id)) ERR;
3099
3100   SSAVIS_dims[0] = time_dim;
3101   SSAVIS_dims[1] = lat_dim;
3102   SSAVIS_dims[2] = lon_dim;
3103   if (nc_def_var(ncid, "SSAVIS", NC_DOUBLERANK_SSAVISSSAVIS_dims, &SSAVIS_id)) ERR;
3104
3105   SSTODXC_dims[0] = time_dim;
3106   SSTODXC_dims[1] = lat_dim;
3107   SSTODXC_dims[2] = lon_dim;
3108   if (nc_def_var(ncid, "SSTODXC", NC_DOUBLERANK_SSTODXCSSTODXC_dims, &SSTODXC_id)) ERR;
3109
3110   SSTSFDRY_dims[0] = time_dim;
3111   SSTSFDRY_dims[1] = lat_dim;
3112   SSTSFDRY_dims[2] = lon_dim;
3113   if (nc_def_var(ncid, "SSTSFDRY", NC_DOUBLERANK_SSTSFDRYSSTSFDRY_dims, &SSTSFDRY_id)) ERR;
3114
3115   SSTSFMBL_dims[0] = time_dim;
3116   SSTSFMBL_dims[1] = lat_dim;
3117   SSTSFMBL_dims[2] = lon_dim;
3118   if (nc_def_var(ncid, "SSTSFMBL", NC_DOUBLERANK_SSTSFMBLSSTSFMBL_dims, &SSTSFMBL_id)) ERR;
3119
3120   SSTSFWET_dims[0] = time_dim;
3121   SSTSFWET_dims[1] = lat_dim;
3122   SSTSFWET_dims[2] = lon_dim;
3123   if (nc_def_var(ncid, "SSTSFWET", NC_DOUBLERANK_SSTSFWETSSTSFWET_dims, &SSTSFWET_id)) ERR;
3124
3125   SWCF_dims[0] = time_dim;
3126   SWCF_dims[1] = lat_dim;
3127   SWCF_dims[2] = lon_dim;
3128   if (nc_def_var(ncid, "SWCF", NC_DOUBLERANK_SWCFSWCF_dims, &SWCF_id)) ERR;
3129
3130   T_dims[0] = time_dim;
3131   T_dims[1] = lev_dim;
3132   T_dims[2] = lat_dim;
3133   T_dims[3] = lon_dim;
3134   if (nc_def_var(ncid, "T", NC_DOUBLERANK_TT_dims, &T_id)) ERR;
3135
3136   TAUTMSX_dims[0] = time_dim;
3137   TAUTMSX_dims[1] = lat_dim;
3138   TAUTMSX_dims[2] = lon_dim;
3139   if (nc_def_var(ncid, "TAUTMSX", NC_DOUBLERANK_TAUTMSXTAUTMSX_dims, &TAUTMSX_id)) ERR;
3140
3141   TAUTMSY_dims[0] = time_dim;
3142   TAUTMSY_dims[1] = lat_dim;
3143   TAUTMSY_dims[2] = lon_dim;
3144   if (nc_def_var(ncid, "TAUTMSY", NC_DOUBLERANK_TAUTMSYTAUTMSY_dims, &TAUTMSY_id)) ERR;
3145
3146   TAUX_dims[0] = time_dim;
3147   TAUX_dims[1] = lat_dim;
3148   TAUX_dims[2] = lon_dim;
3149   if (nc_def_var(ncid, "TAUX", NC_DOUBLERANK_TAUXTAUX_dims, &TAUX_id)) ERR;
3150
3151   TAUY_dims[0] = time_dim;
3152   TAUY_dims[1] = lat_dim;
3153   TAUY_dims[2] = lon_dim;
3154   if (nc_def_var(ncid, "TAUY", NC_DOUBLERANK_TAUYTAUY_dims, &TAUY_id)) ERR;
3155
3156   TGCLDCWP_dims[0] = time_dim;
3157   TGCLDCWP_dims[1] = lat_dim;
3158   TGCLDCWP_dims[2] = lon_dim;
3159   if (nc_def_var(ncid, "TGCLDCWP", NC_DOUBLERANK_TGCLDCWPTGCLDCWP_dims, &TGCLDCWP_id)) ERR;
3160
3161   TGCLDIWP_dims[0] = time_dim;
3162   TGCLDIWP_dims[1] = lat_dim;
3163   TGCLDIWP_dims[2] = lon_dim;
3164   if (nc_def_var(ncid, "TGCLDIWP", NC_DOUBLERANK_TGCLDIWPTGCLDIWP_dims, &TGCLDIWP_id)) ERR;
3165
3166   TGCLDLWP_dims[0] = time_dim;
3167   TGCLDLWP_dims[1] = lat_dim;
3168   TGCLDLWP_dims[2] = lon_dim;
3169   if (nc_def_var(ncid, "TGCLDLWP", NC_DOUBLERANK_TGCLDLWPTGCLDLWP_dims, &TGCLDLWP_id)) ERR;
3170
3171   TKE_dims[0] = time_dim;
3172   TKE_dims[1] = ilev_dim;
3173   TKE_dims[2] = lat_dim;
3174   TKE_dims[3] = lon_dim;
3175   if (nc_def_var(ncid, "TKE", NC_DOUBLERANK_TKETKE_dims, &TKE_id)) ERR;
3176
3177   TMQ_dims[0] = time_dim;
3178   TMQ_dims[1] = lat_dim;
3179   TMQ_dims[2] = lon_dim;
3180   if (nc_def_var(ncid, "TMQ", NC_DOUBLERANK_TMQTMQ_dims, &TMQ_id)) ERR;
3181
3182   TREFHT_dims[0] = time_dim;
3183   TREFHT_dims[1] = lat_dim;
3184   TREFHT_dims[2] = lon_dim;
3185   if (nc_def_var(ncid, "TREFHT", NC_DOUBLERANK_TREFHTTREFHT_dims, &TREFHT_id)) ERR;
3186
3187   TREFMNAV_dims[0] = time_dim;
3188   TREFMNAV_dims[1] = lat_dim;
3189   TREFMNAV_dims[2] = lon_dim;
3190   if (nc_def_var(ncid, "TREFMNAV", NC_DOUBLERANK_TREFMNAVTREFMNAV_dims, &TREFMNAV_id)) ERR;
3191
3192   TREFMXAV_dims[0] = time_dim;
3193   TREFMXAV_dims[1] = lat_dim;
3194   TREFMXAV_dims[2] = lon_dim;
3195   if (nc_def_var(ncid, "TREFMXAV", NC_DOUBLERANK_TREFMXAVTREFMXAV_dims, &TREFMXAV_id)) ERR;
3196
3197   TROP_FD_dims[0] = time_dim;
3198   TROP_FD_dims[1] = lat_dim;
3199   TROP_FD_dims[2] = lon_dim;
3200   if (nc_def_var(ncid, "TROP_FD", NC_DOUBLERANK_TROP_FDTROP_FD_dims, &TROP_FD_id)) ERR;
3201
3202   TROP_P_dims[0] = time_dim;
3203   TROP_P_dims[1] = lat_dim;
3204   TROP_P_dims[2] = lon_dim;
3205   if (nc_def_var(ncid, "TROP_P", NC_DOUBLERANK_TROP_PTROP_P_dims, &TROP_P_id)) ERR;
3206
3207   TROP_PD_dims[0] = time_dim;
3208   TROP_PD_dims[1] = lev_dim;
3209   TROP_PD_dims[2] = lat_dim;
3210   TROP_PD_dims[3] = lon_dim;
3211   if (nc_def_var(ncid, "TROP_PD", NC_DOUBLERANK_TROP_PDTROP_PD_dims, &TROP_PD_id)) ERR;
3212
3213   TROP_T_dims[0] = time_dim;
3214   TROP_T_dims[1] = lat_dim;
3215   TROP_T_dims[2] = lon_dim;
3216   if (nc_def_var(ncid, "TROP_T", NC_DOUBLERANK_TROP_TTROP_T_dims, &TROP_T_id)) ERR;
3217
3218   TROP_Z_dims[0] = time_dim;
3219   TROP_Z_dims[1] = lat_dim;
3220   TROP_Z_dims[2] = lon_dim;
3221   if (nc_def_var(ncid, "TROP_Z", NC_DOUBLERANK_TROP_ZTROP_Z_dims, &TROP_Z_id)) ERR;
3222
3223   TS_dims[0] = time_dim;
3224   TS_dims[1] = lat_dim;
3225   TS_dims[2] = lon_dim;
3226   if (nc_def_var(ncid, "TS", NC_DOUBLERANK_TSTS_dims, &TS_id)) ERR;
3227
3228   TSMN_dims[0] = time_dim;
3229   TSMN_dims[1] = lat_dim;
3230   TSMN_dims[2] = lon_dim;
3231   if (nc_def_var(ncid, "TSMN", NC_DOUBLERANK_TSMNTSMN_dims, &TSMN_id)) ERR;
3232
3233   TSMX_dims[0] = time_dim;
3234   TSMX_dims[1] = lat_dim;
3235   TSMX_dims[2] = lon_dim;
3236   if (nc_def_var(ncid, "TSMX", NC_DOUBLERANK_TSMXTSMX_dims, &TSMX_id)) ERR;
3237
3238   U_dims[0] = time_dim;
3239   U_dims[1] = lev_dim;
3240   U_dims[2] = lat_dim;
3241   U_dims[3] = lon_dim;
3242   if (nc_def_var(ncid, "U", NC_DOUBLERANK_UU_dims, &U_id)) ERR;
3243
3244   UFLX_dims[0] = time_dim;
3245   UFLX_dims[1] = ilev_dim;
3246   UFLX_dims[2] = lat_dim;
3247   UFLX_dims[3] = lon_dim;
3248   if (nc_def_var(ncid, "UFLX", NC_DOUBLERANK_UFLXUFLX_dims, &UFLX_id)) ERR;
3249
3250   US_dims[0] = time_dim;
3251   US_dims[1] = lev_dim;
3252   US_dims[2] = slat_dim;
3253   US_dims[3] = lon_dim;
3254   if (nc_def_var(ncid, "US", NC_DOUBLERANK_USUS_dims, &US_id)) ERR;
3255
3256   UU_dims[0] = time_dim;
3257   UU_dims[1] = lev_dim;
3258   UU_dims[2] = lat_dim;
3259   UU_dims[3] = lon_dim;
3260   if (nc_def_var(ncid, "UU", NC_DOUBLERANK_UUUU_dims, &UU_id)) ERR;
3261
3262   V_dims[0] = time_dim;
3263   V_dims[1] = lev_dim;
3264   V_dims[2] = lat_dim;
3265   V_dims[3] = lon_dim;
3266   if (nc_def_var(ncid, "V", NC_DOUBLERANK_VV_dims, &V_id)) ERR;
3267
3268   VD01_dims[0] = time_dim;
3269   VD01_dims[1] = lev_dim;
3270   VD01_dims[2] = lat_dim;
3271   VD01_dims[3] = lon_dim;
3272   if (nc_def_var(ncid, "VD01", NC_DOUBLERANK_VD01VD01_dims, &VD01_id)) ERR;
3273
3274   VFLX_dims[0] = time_dim;
3275   VFLX_dims[1] = ilev_dim;
3276   VFLX_dims[2] = lat_dim;
3277   VFLX_dims[3] = lon_dim;
3278   if (nc_def_var(ncid, "VFLX", NC_DOUBLERANK_VFLXVFLX_dims, &VFLX_id)) ERR;
3279
3280   VQ_dims[0] = time_dim;
3281   VQ_dims[1] = lev_dim;
3282   VQ_dims[2] = lat_dim;
3283   VQ_dims[3] = lon_dim;
3284   if (nc_def_var(ncid, "VQ", NC_DOUBLERANK_VQVQ_dims, &VQ_id)) ERR;
3285
3286   VS_dims[0] = time_dim;
3287   VS_dims[1] = lev_dim;
3288   VS_dims[2] = lat_dim;
3289   VS_dims[3] = slon_dim;
3290   if (nc_def_var(ncid, "VS", NC_DOUBLERANK_VSVS_dims, &VS_id)) ERR;
3291
3292   VT_dims[0] = time_dim;
3293   VT_dims[1] = lev_dim;
3294   VT_dims[2] = lat_dim;
3295   VT_dims[3] = lon_dim;
3296   if (nc_def_var(ncid, "VT", NC_DOUBLERANK_VTVT_dims, &VT_id)) ERR;
3297
3298   VU_dims[0] = time_dim;
3299   VU_dims[1] = lev_dim;
3300   VU_dims[2] = lat_dim;
3301   VU_dims[3] = lon_dim;
3302   if (nc_def_var(ncid, "VU", NC_DOUBLERANK_VUVU_dims, &VU_id)) ERR;
3303
3304   VV_dims[0] = time_dim;
3305   VV_dims[1] = lev_dim;
3306   VV_dims[2] = lat_dim;
3307   VV_dims[3] = lon_dim;
3308   if (nc_def_var(ncid, "VV", NC_DOUBLERANK_VVVV_dims, &VV_id)) ERR;
3309
3310   WGUSTD_dims[0] = time_dim;
3311   WGUSTD_dims[1] = lat_dim;
3312   WGUSTD_dims[2] = lon_dim;
3313   if (nc_def_var(ncid, "WGUSTD", NC_DOUBLERANK_WGUSTDWGUSTD_dims, &WGUSTD_id)) ERR;
3314
3315   WTKE_dims[0] = time_dim;
3316   WTKE_dims[1] = lev_dim;
3317   WTKE_dims[2] = lat_dim;
3318   WTKE_dims[3] = lon_dim;
3319   if (nc_def_var(ncid, "WTKE", NC_DOUBLERANK_WTKEWTKE_dims, &WTKE_id)) ERR;
3320
3321   XPH_LWC_dims[0] = time_dim;
3322   XPH_LWC_dims[1] = lev_dim;
3323   XPH_LWC_dims[2] = lat_dim;
3324   XPH_LWC_dims[3] = lon_dim;
3325   if (nc_def_var(ncid, "XPH_LWC", NC_DOUBLERANK_XPH_LWCXPH_LWC_dims, &XPH_LWC_id)) ERR;
3326
3327   Z3_dims[0] = time_dim;
3328   Z3_dims[1] = lev_dim;
3329   Z3_dims[2] = lat_dim;
3330   Z3_dims[3] = lon_dim;
3331   if (nc_def_var(ncid, "Z3", NC_DOUBLERANK_Z3Z3_dims, &Z3_id)) ERR;
3332
3333   airFV_dims[0] = time_dim;
3334   airFV_dims[1] = lat_dim;
3335   airFV_dims[2] = lon_dim;
3336   if (nc_def_var(ncid, "airFV", NC_DOUBLERANK_airFVairFV_dims, &airFV_id)) ERR;
3337
3338   bc_a1_dims[0] = time_dim;
3339   bc_a1_dims[1] = lev_dim;
3340   bc_a1_dims[2] = lat_dim;
3341   bc_a1_dims[3] = lon_dim;
3342   if (nc_def_var(ncid, "bc_a1", NC_DOUBLERANK_bc_a1bc_a1_dims, &bc_a1_id)) ERR;
3343
3344   bc_a1DDF_dims[0] = time_dim;
3345   bc_a1DDF_dims[1] = lat_dim;
3346   bc_a1DDF_dims[2] = lon_dim;
3347   if (nc_def_var(ncid, "bc_a1DDF", NC_DOUBLERANK_bc_a1DDFbc_a1DDF_dims, &bc_a1DDF_id)) ERR;
3348
3349   bc_a1GVF_dims[0] = time_dim;
3350   bc_a1GVF_dims[1] = lat_dim;
3351   bc_a1GVF_dims[2] = lon_dim;
3352   if (nc_def_var(ncid, "bc_a1GVF", NC_DOUBLERANK_bc_a1GVFbc_a1GVF_dims, &bc_a1GVF_id)) ERR;
3353
3354   bc_a1SFSBC_dims[0] = time_dim;
3355   bc_a1SFSBC_dims[1] = lat_dim;
3356   bc_a1SFSBC_dims[2] = lon_dim;
3357   if (nc_def_var(ncid, "bc_a1SFSBC", NC_DOUBLERANK_bc_a1SFSBCbc_a1SFSBC_dims, &bc_a1SFSBC_id)) ERR;
3358
3359   bc_a1SFSBS_dims[0] = time_dim;
3360   bc_a1SFSBS_dims[1] = lat_dim;
3361   bc_a1SFSBS_dims[2] = lon_dim;
3362   if (nc_def_var(ncid, "bc_a1SFSBS", NC_DOUBLERANK_bc_a1SFSBSbc_a1SFSBS_dims, &bc_a1SFSBS_id)) ERR;
3363
3364   bc_a1SFSIC_dims[0] = time_dim;
3365   bc_a1SFSIC_dims[1] = lat_dim;
3366   bc_a1SFSIC_dims[2] = lon_dim;
3367   if (nc_def_var(ncid, "bc_a1SFSIC", NC_DOUBLERANK_bc_a1SFSICbc_a1SFSIC_dims, &bc_a1SFSIC_id)) ERR;
3368
3369   bc_a1SFSIS_dims[0] = time_dim;
3370   bc_a1SFSIS_dims[1] = lat_dim;
3371   bc_a1SFSIS_dims[2] = lon_dim;
3372   if (nc_def_var(ncid, "bc_a1SFSIS", NC_DOUBLERANK_bc_a1SFSISbc_a1SFSIS_dims, &bc_a1SFSIS_id)) ERR;
3373
3374   bc_a1SFWET_dims[0] = time_dim;
3375   bc_a1SFWET_dims[1] = lat_dim;
3376   bc_a1SFWET_dims[2] = lon_dim;
3377   if (nc_def_var(ncid, "bc_a1SFWET", NC_DOUBLERANK_bc_a1SFWETbc_a1SFWET_dims, &bc_a1SFWET_id)) ERR;
3378
3379   bc_a1TBF_dims[0] = time_dim;
3380   bc_a1TBF_dims[1] = lat_dim;
3381   bc_a1TBF_dims[2] = lon_dim;
3382   if (nc_def_var(ncid, "bc_a1TBF", NC_DOUBLERANK_bc_a1TBFbc_a1TBF_dims, &bc_a1TBF_id)) ERR;
3383
3384   bc_a1_CLXF_dims[0] = time_dim;
3385   bc_a1_CLXF_dims[1] = lat_dim;
3386   bc_a1_CLXF_dims[2] = lon_dim;
3387   if (nc_def_var(ncid, "bc_a1_CLXF", NC_DOUBLERANK_bc_a1_CLXFbc_a1_CLXF_dims, &bc_a1_CLXF_id)) ERR;
3388
3389   bc_a1_XFRC_dims[0] = time_dim;
3390   bc_a1_XFRC_dims[1] = lev_dim;
3391   bc_a1_XFRC_dims[2] = lat_dim;
3392   bc_a1_XFRC_dims[3] = lon_dim;
3393   if (nc_def_var(ncid, "bc_a1_XFRC", NC_DOUBLERANK_bc_a1_XFRCbc_a1_XFRC_dims, &bc_a1_XFRC_id)) ERR;
3394
3395   bc_c1_dims[0] = time_dim;
3396   bc_c1_dims[1] = lev_dim;
3397   bc_c1_dims[2] = lat_dim;
3398   bc_c1_dims[3] = lon_dim;
3399   if (nc_def_var(ncid, "bc_c1", NC_DOUBLERANK_bc_c1bc_c1_dims, &bc_c1_id)) ERR;
3400
3401   bc_c1DDF_dims[0] = time_dim;
3402   bc_c1DDF_dims[1] = lat_dim;
3403   bc_c1DDF_dims[2] = lon_dim;
3404   if (nc_def_var(ncid, "bc_c1DDF", NC_DOUBLERANK_bc_c1DDFbc_c1DDF_dims, &bc_c1DDF_id)) ERR;
3405
3406   bc_c1GVF_dims[0] = time_dim;
3407   bc_c1GVF_dims[1] = lat_dim;
3408   bc_c1GVF_dims[2] = lon_dim;
3409   if (nc_def_var(ncid, "bc_c1GVF", NC_DOUBLERANK_bc_c1GVFbc_c1GVF_dims, &bc_c1GVF_id)) ERR;
3410
3411   bc_c1SFSBC_dims[0] = time_dim;
3412   bc_c1SFSBC_dims[1] = lat_dim;
3413   bc_c1SFSBC_dims[2] = lon_dim;
3414   if (nc_def_var(ncid, "bc_c1SFSBC", NC_DOUBLERANK_bc_c1SFSBCbc_c1SFSBC_dims, &bc_c1SFSBC_id)) ERR;
3415
3416   bc_c1SFSBS_dims[0] = time_dim;
3417   bc_c1SFSBS_dims[1] = lat_dim;
3418   bc_c1SFSBS_dims[2] = lon_dim;
3419   if (nc_def_var(ncid, "bc_c1SFSBS", NC_DOUBLERANK_bc_c1SFSBSbc_c1SFSBS_dims, &bc_c1SFSBS_id)) ERR;
3420
3421   bc_c1SFSIC_dims[0] = time_dim;
3422   bc_c1SFSIC_dims[1] = lat_dim;
3423   bc_c1SFSIC_dims[2] = lon_dim;
3424   if (nc_def_var(ncid, "bc_c1SFSIC", NC_DOUBLERANK_bc_c1SFSICbc_c1SFSIC_dims, &bc_c1SFSIC_id)) ERR;
3425
3426   bc_c1SFSIS_dims[0] = time_dim;
3427   bc_c1SFSIS_dims[1] = lat_dim;
3428   bc_c1SFSIS_dims[2] = lon_dim;
3429   if (nc_def_var(ncid, "bc_c1SFSIS", NC_DOUBLERANK_bc_c1SFSISbc_c1SFSIS_dims, &bc_c1SFSIS_id)) ERR;
3430
3431   bc_c1SFWET_dims[0] = time_dim;
3432   bc_c1SFWET_dims[1] = lat_dim;
3433   bc_c1SFWET_dims[2] = lon_dim;
3434   if (nc_def_var(ncid, "bc_c1SFWET", NC_DOUBLERANK_bc_c1SFWETbc_c1SFWET_dims, &bc_c1SFWET_id)) ERR;
3435
3436   bc_c1TBF_dims[0] = time_dim;
3437   bc_c1TBF_dims[1] = lat_dim;
3438   bc_c1TBF_dims[2] = lon_dim;
3439   if (nc_def_var(ncid, "bc_c1TBF", NC_DOUBLERANK_bc_c1TBFbc_c1TBF_dims, &bc_c1TBF_id)) ERR;
3440
3441   chem_trop_dims[0] = time_dim;
3442   chem_trop_dims[1] = lev_dim;
3443   chem_trop_dims[2] = lat_dim;
3444   chem_trop_dims[3] = lon_dim;
3445   if (nc_def_var(ncid, "chem_trop", NC_DOUBLERANK_chem_tropchem_trop_dims, &chem_trop_id)) ERR;
3446
3447   chem_trop_tropop_dims[0] = time_dim;
3448   chem_trop_tropop_dims[1] = lev_dim;
3449   chem_trop_tropop_dims[2] = lat_dim;
3450   chem_trop_tropop_dims[3] = lon_dim;
3451   if (nc_def_var(ncid, "chem_trop_tropop", NC_DOUBLERANK_chem_trop_tropopchem_trop_tropop_dims, &chem_trop_tropop_id)) ERR;
3452
3453   dgnd_a01_dims[0] = time_dim;
3454   dgnd_a01_dims[1] = lev_dim;
3455   dgnd_a01_dims[2] = lat_dim;
3456   dgnd_a01_dims[3] = lon_dim;
3457   if (nc_def_var(ncid, "dgnd_a01", NC_DOUBLERANK_dgnd_a01dgnd_a01_dims, &dgnd_a01_id)) ERR;
3458
3459   dgnd_a02_dims[0] = time_dim;
3460   dgnd_a02_dims[1] = lev_dim;
3461   dgnd_a02_dims[2] = lat_dim;
3462   dgnd_a02_dims[3] = lon_dim;
3463   if (nc_def_var(ncid, "dgnd_a02", NC_DOUBLERANK_dgnd_a02dgnd_a02_dims, &dgnd_a02_id)) ERR;
3464
3465   dgnd_a03_dims[0] = time_dim;
3466   dgnd_a03_dims[1] = lev_dim;
3467   dgnd_a03_dims[2] = lat_dim;
3468   dgnd_a03_dims[3] = lon_dim;
3469   if (nc_def_var(ncid, "dgnd_a03", NC_DOUBLERANK_dgnd_a03dgnd_a03_dims, &dgnd_a03_id)) ERR;
3470
3471   dgnw_a01_dims[0] = time_dim;
3472   dgnw_a01_dims[1] = lev_dim;
3473   dgnw_a01_dims[2] = lat_dim;
3474   dgnw_a01_dims[3] = lon_dim;
3475   if (nc_def_var(ncid, "dgnw_a01", NC_DOUBLERANK_dgnw_a01dgnw_a01_dims, &dgnw_a01_id)) ERR;
3476
3477   dgnw_a02_dims[0] = time_dim;
3478   dgnw_a02_dims[1] = lev_dim;
3479   dgnw_a02_dims[2] = lat_dim;
3480   dgnw_a02_dims[3] = lon_dim;
3481   if (nc_def_var(ncid, "dgnw_a02", NC_DOUBLERANK_dgnw_a02dgnw_a02_dims, &dgnw_a02_id)) ERR;
3482
3483   dgnw_a03_dims[0] = time_dim;
3484   dgnw_a03_dims[1] = lev_dim;
3485   dgnw_a03_dims[2] = lat_dim;
3486   dgnw_a03_dims[3] = lon_dim;
3487   if (nc_def_var(ncid, "dgnw_a03", NC_DOUBLERANK_dgnw_a03dgnw_a03_dims, &dgnw_a03_id)) ERR;
3488
3489   dst_a1_dims[0] = time_dim;
3490   dst_a1_dims[1] = lev_dim;
3491   dst_a1_dims[2] = lat_dim;
3492   dst_a1_dims[3] = lon_dim;
3493   if (nc_def_var(ncid, "dst_a1", NC_DOUBLERANK_dst_a1dst_a1_dims, &dst_a1_id)) ERR;
3494
3495   dst_a1DDF_dims[0] = time_dim;
3496   dst_a1DDF_dims[1] = lat_dim;
3497   dst_a1DDF_dims[2] = lon_dim;
3498   if (nc_def_var(ncid, "dst_a1DDF", NC_DOUBLERANK_dst_a1DDFdst_a1DDF_dims, &dst_a1DDF_id)) ERR;
3499
3500   dst_a1GVF_dims[0] = time_dim;
3501   dst_a1GVF_dims[1] = lat_dim;
3502   dst_a1GVF_dims[2] = lon_dim;
3503   if (nc_def_var(ncid, "dst_a1GVF", NC_DOUBLERANK_dst_a1GVFdst_a1GVF_dims, &dst_a1GVF_id)) ERR;
3504
3505   dst_a1SF_dims[0] = time_dim;
3506   dst_a1SF_dims[1] = lat_dim;
3507   dst_a1SF_dims[2] = lon_dim;
3508   if (nc_def_var(ncid, "dst_a1SF", NC_DOUBLERANK_dst_a1SFdst_a1SF_dims, &dst_a1SF_id)) ERR;
3509
3510   dst_a1SFSBC_dims[0] = time_dim;
3511   dst_a1SFSBC_dims[1] = lat_dim;
3512   dst_a1SFSBC_dims[2] = lon_dim;
3513   if (nc_def_var(ncid, "dst_a1SFSBC", NC_DOUBLERANK_dst_a1SFSBCdst_a1SFSBC_dims, &dst_a1SFSBC_id)) ERR;
3514
3515   dst_a1SFSBS_dims[0] = time_dim;
3516   dst_a1SFSBS_dims[1] = lat_dim;
3517   dst_a1SFSBS_dims[2] = lon_dim;
3518   if (nc_def_var(ncid, "dst_a1SFSBS", NC_DOUBLERANK_dst_a1SFSBSdst_a1SFSBS_dims, &dst_a1SFSBS_id)) ERR;
3519
3520   dst_a1SFSIC_dims[0] = time_dim;
3521   dst_a1SFSIC_dims[1] = lat_dim;
3522   dst_a1SFSIC_dims[2] = lon_dim;
3523   if (nc_def_var(ncid, "dst_a1SFSIC", NC_DOUBLERANK_dst_a1SFSICdst_a1SFSIC_dims, &dst_a1SFSIC_id)) ERR;
3524
3525   dst_a1SFSIS_dims[0] = time_dim;
3526   dst_a1SFSIS_dims[1] = lat_dim;
3527   dst_a1SFSIS_dims[2] = lon_dim;
3528   if (nc_def_var(ncid, "dst_a1SFSIS", NC_DOUBLERANK_dst_a1SFSISdst_a1SFSIS_dims, &dst_a1SFSIS_id)) ERR;
3529
3530   dst_a1SFWET_dims[0] = time_dim;
3531   dst_a1SFWET_dims[1] = lat_dim;
3532   dst_a1SFWET_dims[2] = lon_dim;
3533   if (nc_def_var(ncid, "dst_a1SFWET", NC_DOUBLERANK_dst_a1SFWETdst_a1SFWET_dims, &dst_a1SFWET_id)) ERR;
3534
3535   dst_a1TBF_dims[0] = time_dim;
3536   dst_a1TBF_dims[1] = lat_dim;
3537   dst_a1TBF_dims[2] = lon_dim;
3538   if (nc_def_var(ncid, "dst_a1TBF", NC_DOUBLERANK_dst_a1TBFdst_a1TBF_dims, &dst_a1TBF_id)) ERR;
3539
3540   dst_a3_dims[0] = time_dim;
3541   dst_a3_dims[1] = lev_dim;
3542   dst_a3_dims[2] = lat_dim;
3543   dst_a3_dims[3] = lon_dim;
3544   if (nc_def_var(ncid, "dst_a3", NC_DOUBLERANK_dst_a3dst_a3_dims, &dst_a3_id)) ERR;
3545
3546   dst_a3DDF_dims[0] = time_dim;
3547   dst_a3DDF_dims[1] = lat_dim;
3548   dst_a3DDF_dims[2] = lon_dim;
3549   if (nc_def_var(ncid, "dst_a3DDF", NC_DOUBLERANK_dst_a3DDFdst_a3DDF_dims, &dst_a3DDF_id)) ERR;
3550
3551   dst_a3GVF_dims[0] = time_dim;
3552   dst_a3GVF_dims[1] = lat_dim;
3553   dst_a3GVF_dims[2] = lon_dim;
3554   if (nc_def_var(ncid, "dst_a3GVF", NC_DOUBLERANK_dst_a3GVFdst_a3GVF_dims, &dst_a3GVF_id)) ERR;
3555
3556   dst_a3SF_dims[0] = time_dim;
3557   dst_a3SF_dims[1] = lat_dim;
3558   dst_a3SF_dims[2] = lon_dim;
3559   if (nc_def_var(ncid, "dst_a3SF", NC_DOUBLERANK_dst_a3SFdst_a3SF_dims, &dst_a3SF_id)) ERR;
3560
3561   dst_a3SFSBC_dims[0] = time_dim;
3562   dst_a3SFSBC_dims[1] = lat_dim;
3563   dst_a3SFSBC_dims[2] = lon_dim;
3564   if (nc_def_var(ncid, "dst_a3SFSBC", NC_DOUBLERANK_dst_a3SFSBCdst_a3SFSBC_dims, &dst_a3SFSBC_id)) ERR;
3565
3566   dst_a3SFSBS_dims[0] = time_dim;
3567   dst_a3SFSBS_dims[1] = lat_dim;
3568   dst_a3SFSBS_dims[2] = lon_dim;
3569   if (nc_def_var(ncid, "dst_a3SFSBS", NC_DOUBLERANK_dst_a3SFSBSdst_a3SFSBS_dims, &dst_a3SFSBS_id)) ERR;
3570
3571   dst_a3SFSIC_dims[0] = time_dim;
3572   dst_a3SFSIC_dims[1] = lat_dim;
3573   dst_a3SFSIC_dims[2] = lon_dim;
3574   if (nc_def_var(ncid, "dst_a3SFSIC", NC_DOUBLERANK_dst_a3SFSICdst_a3SFSIC_dims, &dst_a3SFSIC_id)) ERR;
3575
3576   dst_a3SFSIS_dims[0] = time_dim;
3577   dst_a3SFSIS_dims[1] = lat_dim;
3578   dst_a3SFSIS_dims[2] = lon_dim;
3579   if (nc_def_var(ncid, "dst_a3SFSIS", NC_DOUBLERANK_dst_a3SFSISdst_a3SFSIS_dims, &dst_a3SFSIS_id)) ERR;
3580
3581   dst_a3SFWET_dims[0] = time_dim;
3582   dst_a3SFWET_dims[1] = lat_dim;
3583   dst_a3SFWET_dims[2] = lon_dim;
3584   if (nc_def_var(ncid, "dst_a3SFWET", NC_DOUBLERANK_dst_a3SFWETdst_a3SFWET_dims, &dst_a3SFWET_id)) ERR;
3585
3586   dst_a3TBF_dims[0] = time_dim;
3587   dst_a3TBF_dims[1] = lat_dim;
3588   dst_a3TBF_dims[2] = lon_dim;
3589   if (nc_def_var(ncid, "dst_a3TBF", NC_DOUBLERANK_dst_a3TBFdst_a3TBF_dims, &dst_a3TBF_id)) ERR;
3590
3591   dst_c1_dims[0] = time_dim;
3592   dst_c1_dims[1] = lev_dim;
3593   dst_c1_dims[2] = lat_dim;
3594   dst_c1_dims[3] = lon_dim;
3595   if (nc_def_var(ncid, "dst_c1", NC_DOUBLERANK_dst_c1dst_c1_dims, &dst_c1_id)) ERR;
3596
3597   dst_c1DDF_dims[0] = time_dim;
3598   dst_c1DDF_dims[1] = lat_dim;
3599   dst_c1DDF_dims[2] = lon_dim;
3600   if (nc_def_var(ncid, "dst_c1DDF", NC_DOUBLERANK_dst_c1DDFdst_c1DDF_dims, &dst_c1DDF_id)) ERR;
3601
3602   dst_c1GVF_dims[0] = time_dim;
3603   dst_c1GVF_dims[1] = lat_dim;
3604   dst_c1GVF_dims[2] = lon_dim;
3605   if (nc_def_var(ncid, "dst_c1GVF", NC_DOUBLERANK_dst_c1GVFdst_c1GVF_dims, &dst_c1GVF_id)) ERR;
3606
3607   dst_c1SFSBC_dims[0] = time_dim;
3608   dst_c1SFSBC_dims[1] = lat_dim;
3609   dst_c1SFSBC_dims[2] = lon_dim;
3610   if (nc_def_var(ncid, "dst_c1SFSBC", NC_DOUBLERANK_dst_c1SFSBCdst_c1SFSBC_dims, &dst_c1SFSBC_id)) ERR;
3611
3612   dst_c1SFSBS_dims[0] = time_dim;
3613   dst_c1SFSBS_dims[1] = lat_dim;
3614   dst_c1SFSBS_dims[2] = lon_dim;
3615   if (nc_def_var(ncid, "dst_c1SFSBS", NC_DOUBLERANK_dst_c1SFSBSdst_c1SFSBS_dims, &dst_c1SFSBS_id)) ERR;
3616
3617   dst_c1SFSIC_dims[0] = time_dim;
3618   dst_c1SFSIC_dims[1] = lat_dim;
3619   dst_c1SFSIC_dims[2] = lon_dim;
3620   if (nc_def_var(ncid, "dst_c1SFSIC", NC_DOUBLERANK_dst_c1SFSICdst_c1SFSIC_dims, &dst_c1SFSIC_id)) ERR;
3621
3622   dst_c1SFSIS_dims[0] = time_dim;
3623   dst_c1SFSIS_dims[1] = lat_dim;
3624   dst_c1SFSIS_dims[2] = lon_dim;
3625   if (nc_def_var(ncid, "dst_c1SFSIS", NC_DOUBLERANK_dst_c1SFSISdst_c1SFSIS_dims, &dst_c1SFSIS_id)) ERR;
3626
3627   dst_c1SFWET_dims[0] = time_dim;
3628   dst_c1SFWET_dims[1] = lat_dim;
3629   dst_c1SFWET_dims[2] = lon_dim;
3630   if (nc_def_var(ncid, "dst_c1SFWET", NC_DOUBLERANK_dst_c1SFWETdst_c1SFWET_dims, &dst_c1SFWET_id)) ERR;
3631
3632   dst_c1TBF_dims[0] = time_dim;
3633   dst_c1TBF_dims[1] = lat_dim;
3634   dst_c1TBF_dims[2] = lon_dim;
3635   if (nc_def_var(ncid, "dst_c1TBF", NC_DOUBLERANK_dst_c1TBFdst_c1TBF_dims, &dst_c1TBF_id)) ERR;
3636
3637   dst_c3_dims[0] = time_dim;
3638   dst_c3_dims[1] = lev_dim;
3639   dst_c3_dims[2] = lat_dim;
3640   dst_c3_dims[3] = lon_dim;
3641   if (nc_def_var(ncid, "dst_c3", NC_DOUBLERANK_dst_c3dst_c3_dims, &dst_c3_id)) ERR;
3642
3643   dst_c3DDF_dims[0] = time_dim;
3644   dst_c3DDF_dims[1] = lat_dim;
3645   dst_c3DDF_dims[2] = lon_dim;
3646   if (nc_def_var(ncid, "dst_c3DDF", NC_DOUBLERANK_dst_c3DDFdst_c3DDF_dims, &dst_c3DDF_id)) ERR;
3647
3648   dst_c3GVF_dims[0] = time_dim;
3649   dst_c3GVF_dims[1] = lat_dim;
3650   dst_c3GVF_dims[2] = lon_dim;
3651   if (nc_def_var(ncid, "dst_c3GVF", NC_DOUBLERANK_dst_c3GVFdst_c3GVF_dims, &dst_c3GVF_id)) ERR;
3652
3653   dst_c3SFSBC_dims[0] = time_dim;
3654   dst_c3SFSBC_dims[1] = lat_dim;
3655   dst_c3SFSBC_dims[2] = lon_dim;
3656   if (nc_def_var(ncid, "dst_c3SFSBC", NC_DOUBLERANK_dst_c3SFSBCdst_c3SFSBC_dims, &dst_c3SFSBC_id)) ERR;
3657
3658   dst_c3SFSBS_dims[0] = time_dim;
3659   dst_c3SFSBS_dims[1] = lat_dim;
3660   dst_c3SFSBS_dims[2] = lon_dim;
3661   if (nc_def_var(ncid, "dst_c3SFSBS", NC_DOUBLERANK_dst_c3SFSBSdst_c3SFSBS_dims, &dst_c3SFSBS_id)) ERR;
3662
3663   dst_c3SFSIC_dims[0] = time_dim;
3664   dst_c3SFSIC_dims[1] = lat_dim;
3665   dst_c3SFSIC_dims[2] = lon_dim;
3666   if (nc_def_var(ncid, "dst_c3SFSIC", NC_DOUBLERANK_dst_c3SFSICdst_c3SFSIC_dims, &dst_c3SFSIC_id)) ERR;
3667
3668   dst_c3SFSIS_dims[0] = time_dim;
3669   dst_c3SFSIS_dims[1] = lat_dim;
3670   dst_c3SFSIS_dims[2] = lon_dim;
3671   if (nc_def_var(ncid, "dst_c3SFSIS", NC_DOUBLERANK_dst_c3SFSISdst_c3SFSIS_dims, &dst_c3SFSIS_id)) ERR;
3672
3673   dst_c3SFWET_dims[0] = time_dim;
3674   dst_c3SFWET_dims[1] = lat_dim;
3675   dst_c3SFWET_dims[2] = lon_dim;
3676   if (nc_def_var(ncid, "dst_c3SFWET", NC_DOUBLERANK_dst_c3SFWETdst_c3SFWET_dims, &dst_c3SFWET_id)) ERR;
3677
3678   dst_c3TBF_dims[0] = time_dim;
3679   dst_c3TBF_dims[1] = lat_dim;
3680   dst_c3TBF_dims[2] = lon_dim;
3681   if (nc_def_var(ncid, "dst_c3TBF", NC_DOUBLERANK_dst_c3TBFdst_c3TBF_dims, &dst_c3TBF_id)) ERR;
3682
3683   ncl_a1_dims[0] = time_dim;
3684   ncl_a1_dims[1] = lev_dim;
3685   ncl_a1_dims[2] = lat_dim;
3686   ncl_a1_dims[3] = lon_dim;
3687   if (nc_def_var(ncid, "ncl_a1", NC_DOUBLERANK_ncl_a1ncl_a1_dims, &ncl_a1_id)) ERR;
3688
3689   ncl_a1DDF_dims[0] = time_dim;
3690   ncl_a1DDF_dims[1] = lat_dim;
3691   ncl_a1DDF_dims[2] = lon_dim;
3692   if (nc_def_var(ncid, "ncl_a1DDF", NC_DOUBLERANK_ncl_a1DDFncl_a1DDF_dims, &ncl_a1DDF_id)) ERR;
3693
3694   ncl_a1GVF_dims[0] = time_dim;
3695   ncl_a1GVF_dims[1] = lat_dim;
3696   ncl_a1GVF_dims[2] = lon_dim;
3697   if (nc_def_var(ncid, "ncl_a1GVF", NC_DOUBLERANK_ncl_a1GVFncl_a1GVF_dims, &ncl_a1GVF_id)) ERR;
3698
3699   ncl_a1SF_dims[0] = time_dim;
3700   ncl_a1SF_dims[1] = lat_dim;
3701   ncl_a1SF_dims[2] = lon_dim;
3702   if (nc_def_var(ncid, "ncl_a1SF", NC_DOUBLERANK_ncl_a1SFncl_a1SF_dims, &ncl_a1SF_id)) ERR;
3703
3704   ncl_a1SFSBC_dims[0] = time_dim;
3705   ncl_a1SFSBC_dims[1] = lat_dim;
3706   ncl_a1SFSBC_dims[2] = lon_dim;
3707   if (nc_def_var(ncid, "ncl_a1SFSBC", NC_DOUBLERANK_ncl_a1SFSBCncl_a1SFSBC_dims, &ncl_a1SFSBC_id)) ERR;
3708
3709   ncl_a1SFSBS_dims[0] = time_dim;
3710   ncl_a1SFSBS_dims[1] = lat_dim;
3711   ncl_a1SFSBS_dims[2] = lon_dim;
3712   if (nc_def_var(ncid, "ncl_a1SFSBS", NC_DOUBLERANK_ncl_a1SFSBSncl_a1SFSBS_dims, &ncl_a1SFSBS_id)) ERR;
3713
3714   ncl_a1SFSIC_dims[0] = time_dim;
3715   ncl_a1SFSIC_dims[1] = lat_dim;
3716   ncl_a1SFSIC_dims[2] = lon_dim;
3717   if (nc_def_var(ncid, "ncl_a1SFSIC", NC_DOUBLERANK_ncl_a1SFSICncl_a1SFSIC_dims, &ncl_a1SFSIC_id)) ERR;
3718
3719   ncl_a1SFSIS_dims[0] = time_dim;
3720   ncl_a1SFSIS_dims[1] = lat_dim;
3721   ncl_a1SFSIS_dims[2] = lon_dim;
3722   if (nc_def_var(ncid, "ncl_a1SFSIS", NC_DOUBLERANK_ncl_a1SFSISncl_a1SFSIS_dims, &ncl_a1SFSIS_id)) ERR;
3723
3724   ncl_a1SFWET_dims[0] = time_dim;
3725   ncl_a1SFWET_dims[1] = lat_dim;
3726   ncl_a1SFWET_dims[2] = lon_dim;
3727   if (nc_def_var(ncid, "ncl_a1SFWET", NC_DOUBLERANK_ncl_a1SFWETncl_a1SFWET_dims, &ncl_a1SFWET_id)) ERR;
3728
3729   ncl_a1TBF_dims[0] = time_dim;
3730   ncl_a1TBF_dims[1] = lat_dim;
3731   ncl_a1TBF_dims[2] = lon_dim;
3732   if (nc_def_var(ncid, "ncl_a1TBF", NC_DOUBLERANK_ncl_a1TBFncl_a1TBF_dims, &ncl_a1TBF_id)) ERR;
3733
3734   ncl_a1_sfcoag1_dims[0] = time_dim;
3735   ncl_a1_sfcoag1_dims[1] = lat_dim;
3736   ncl_a1_sfcoag1_dims[2] = lon_dim;
3737   if (nc_def_var(ncid, "ncl_a1_sfcoag1", NC_DOUBLERANK_ncl_a1_sfcoag1ncl_a1_sfcoag1_dims, &ncl_a1_sfcoag1_id)) ERR;
3738
3739   ncl_a1_sfcsiz3_dims[0] = time_dim;
3740   ncl_a1_sfcsiz3_dims[1] = lat_dim;
3741   ncl_a1_sfcsiz3_dims[2] = lon_dim;
3742   if (nc_def_var(ncid, "ncl_a1_sfcsiz3", NC_DOUBLERANK_ncl_a1_sfcsiz3ncl_a1_sfcsiz3_dims, &ncl_a1_sfcsiz3_id)) ERR;
3743
3744   ncl_a1_sfcsiz4_dims[0] = time_dim;
3745   ncl_a1_sfcsiz4_dims[1] = lat_dim;
3746   ncl_a1_sfcsiz4_dims[2] = lon_dim;
3747   if (nc_def_var(ncid, "ncl_a1_sfcsiz4", NC_DOUBLERANK_ncl_a1_sfcsiz4ncl_a1_sfcsiz4_dims, &ncl_a1_sfcsiz4_id)) ERR;
3748
3749   ncl_a1_sfgaex2_dims[0] = time_dim;
3750   ncl_a1_sfgaex2_dims[1] = lat_dim;
3751   ncl_a1_sfgaex2_dims[2] = lon_dim;
3752   if (nc_def_var(ncid, "ncl_a1_sfgaex2", NC_DOUBLERANK_ncl_a1_sfgaex2ncl_a1_sfgaex2_dims, &ncl_a1_sfgaex2_id)) ERR;
3753
3754   ncl_a2_dims[0] = time_dim;
3755   ncl_a2_dims[1] = lev_dim;
3756   ncl_a2_dims[2] = lat_dim;
3757   ncl_a2_dims[3] = lon_dim;
3758   if (nc_def_var(ncid, "ncl_a2", NC_DOUBLERANK_ncl_a2ncl_a2_dims, &ncl_a2_id)) ERR;
3759
3760   ncl_a2DDF_dims[0] = time_dim;
3761   ncl_a2DDF_dims[1] = lat_dim;
3762   ncl_a2DDF_dims[2] = lon_dim;
3763   if (nc_def_var(ncid, "ncl_a2DDF", NC_DOUBLERANK_ncl_a2DDFncl_a2DDF_dims, &ncl_a2DDF_id)) ERR;
3764
3765   ncl_a2GVF_dims[0] = time_dim;
3766   ncl_a2GVF_dims[1] = lat_dim;
3767   ncl_a2GVF_dims[2] = lon_dim;
3768   if (nc_def_var(ncid, "ncl_a2GVF", NC_DOUBLERANK_ncl_a2GVFncl_a2GVF_dims, &ncl_a2GVF_id)) ERR;
3769
3770   ncl_a2SF_dims[0] = time_dim;
3771   ncl_a2SF_dims[1] = lat_dim;
3772   ncl_a2SF_dims[2] = lon_dim;
3773   if (nc_def_var(ncid, "ncl_a2SF", NC_DOUBLERANK_ncl_a2SFncl_a2SF_dims, &ncl_a2SF_id)) ERR;
3774
3775   ncl_a2SFSBC_dims[0] = time_dim;
3776   ncl_a2SFSBC_dims[1] = lat_dim;
3777   ncl_a2SFSBC_dims[2] = lon_dim;
3778   if (nc_def_var(ncid, "ncl_a2SFSBC", NC_DOUBLERANK_ncl_a2SFSBCncl_a2SFSBC_dims, &ncl_a2SFSBC_id)) ERR;
3779
3780   ncl_a2SFSBS_dims[0] = time_dim;
3781   ncl_a2SFSBS_dims[1] = lat_dim;
3782   ncl_a2SFSBS_dims[2] = lon_dim;
3783   if (nc_def_var(ncid, "ncl_a2SFSBS", NC_DOUBLERANK_ncl_a2SFSBSncl_a2SFSBS_dims, &ncl_a2SFSBS_id)) ERR;
3784
3785   ncl_a2SFSIC_dims[0] = time_dim;
3786   ncl_a2SFSIC_dims[1] = lat_dim;
3787   ncl_a2SFSIC_dims[2] = lon_dim;
3788   if (nc_def_var(ncid, "ncl_a2SFSIC", NC_DOUBLERANK_ncl_a2SFSICncl_a2SFSIC_dims, &ncl_a2SFSIC_id)) ERR;
3789
3790   ncl_a2SFSIS_dims[0] = time_dim;
3791   ncl_a2SFSIS_dims[1] = lat_dim;
3792   ncl_a2SFSIS_dims[2] = lon_dim;
3793   if (nc_def_var(ncid, "ncl_a2SFSIS", NC_DOUBLERANK_ncl_a2SFSISncl_a2SFSIS_dims, &ncl_a2SFSIS_id)) ERR;
3794
3795   ncl_a2SFWET_dims[0] = time_dim;
3796   ncl_a2SFWET_dims[1] = lat_dim;
3797   ncl_a2SFWET_dims[2] = lon_dim;
3798   if (nc_def_var(ncid, "ncl_a2SFWET", NC_DOUBLERANK_ncl_a2SFWETncl_a2SFWET_dims, &ncl_a2SFWET_id)) ERR;
3799
3800   ncl_a2TBF_dims[0] = time_dim;
3801   ncl_a2TBF_dims[1] = lat_dim;
3802   ncl_a2TBF_dims[2] = lon_dim;
3803   if (nc_def_var(ncid, "ncl_a2TBF", NC_DOUBLERANK_ncl_a2TBFncl_a2TBF_dims, &ncl_a2TBF_id)) ERR;
3804
3805   ncl_a2_sfcoag1_dims[0] = time_dim;
3806   ncl_a2_sfcoag1_dims[1] = lat_dim;
3807   ncl_a2_sfcoag1_dims[2] = lon_dim;
3808   if (nc_def_var(ncid, "ncl_a2_sfcoag1", NC_DOUBLERANK_ncl_a2_sfcoag1ncl_a2_sfcoag1_dims, &ncl_a2_sfcoag1_id)) ERR;
3809
3810   ncl_a2_sfcsiz3_dims[0] = time_dim;
3811   ncl_a2_sfcsiz3_dims[1] = lat_dim;
3812   ncl_a2_sfcsiz3_dims[2] = lon_dim;
3813   if (nc_def_var(ncid, "ncl_a2_sfcsiz3", NC_DOUBLERANK_ncl_a2_sfcsiz3ncl_a2_sfcsiz3_dims, &ncl_a2_sfcsiz3_id)) ERR;
3814
3815   ncl_a2_sfcsiz4_dims[0] = time_dim;
3816   ncl_a2_sfcsiz4_dims[1] = lat_dim;
3817   ncl_a2_sfcsiz4_dims[2] = lon_dim;
3818   if (nc_def_var(ncid, "ncl_a2_sfcsiz4", NC_DOUBLERANK_ncl_a2_sfcsiz4ncl_a2_sfcsiz4_dims, &ncl_a2_sfcsiz4_id)) ERR;
3819
3820   ncl_a2_sfgaex2_dims[0] = time_dim;
3821   ncl_a2_sfgaex2_dims[1] = lat_dim;
3822   ncl_a2_sfgaex2_dims[2] = lon_dim;
3823   if (nc_def_var(ncid, "ncl_a2_sfgaex2", NC_DOUBLERANK_ncl_a2_sfgaex2ncl_a2_sfgaex2_dims, &ncl_a2_sfgaex2_id)) ERR;
3824
3825   ncl_a3_dims[0] = time_dim;
3826   ncl_a3_dims[1] = lev_dim;
3827   ncl_a3_dims[2] = lat_dim;
3828   ncl_a3_dims[3] = lon_dim;
3829   if (nc_def_var(ncid, "ncl_a3", NC_DOUBLERANK_ncl_a3ncl_a3_dims, &ncl_a3_id)) ERR;
3830
3831   ncl_a3DDF_dims[0] = time_dim;
3832   ncl_a3DDF_dims[1] = lat_dim;
3833   ncl_a3DDF_dims[2] = lon_dim;
3834   if (nc_def_var(ncid, "ncl_a3DDF", NC_DOUBLERANK_ncl_a3DDFncl_a3DDF_dims, &ncl_a3DDF_id)) ERR;
3835
3836   ncl_a3GVF_dims[0] = time_dim;
3837   ncl_a3GVF_dims[1] = lat_dim;
3838   ncl_a3GVF_dims[2] = lon_dim;
3839   if (nc_def_var(ncid, "ncl_a3GVF", NC_DOUBLERANK_ncl_a3GVFncl_a3GVF_dims, &ncl_a3GVF_id)) ERR;
3840
3841   ncl_a3SF_dims[0] = time_dim;
3842   ncl_a3SF_dims[1] = lat_dim;
3843   ncl_a3SF_dims[2] = lon_dim;
3844   if (nc_def_var(ncid, "ncl_a3SF", NC_DOUBLERANK_ncl_a3SFncl_a3SF_dims, &ncl_a3SF_id)) ERR;
3845
3846   ncl_a3SFSBC_dims[0] = time_dim;
3847   ncl_a3SFSBC_dims[1] = lat_dim;
3848   ncl_a3SFSBC_dims[2] = lon_dim;
3849   if (nc_def_var(ncid, "ncl_a3SFSBC", NC_DOUBLERANK_ncl_a3SFSBCncl_a3SFSBC_dims, &ncl_a3SFSBC_id)) ERR;
3850
3851   ncl_a3SFSBS_dims[0] = time_dim;
3852   ncl_a3SFSBS_dims[1] = lat_dim;
3853   ncl_a3SFSBS_dims[2] = lon_dim;
3854   if (nc_def_var(ncid, "ncl_a3SFSBS", NC_DOUBLERANK_ncl_a3SFSBSncl_a3SFSBS_dims, &ncl_a3SFSBS_id)) ERR;
3855
3856   ncl_a3SFSIC_dims[0] = time_dim;
3857   ncl_a3SFSIC_dims[1] = lat_dim;
3858   ncl_a3SFSIC_dims[2] = lon_dim;
3859   if (nc_def_var(ncid, "ncl_a3SFSIC", NC_DOUBLERANK_ncl_a3SFSICncl_a3SFSIC_dims, &ncl_a3SFSIC_id)) ERR;
3860
3861   ncl_a3SFSIS_dims[0] = time_dim;
3862   ncl_a3SFSIS_dims[1] = lat_dim;
3863   ncl_a3SFSIS_dims[2] = lon_dim;
3864   if (nc_def_var(ncid, "ncl_a3SFSIS", NC_DOUBLERANK_ncl_a3SFSISncl_a3SFSIS_dims, &ncl_a3SFSIS_id)) ERR;
3865
3866   ncl_a3SFWET_dims[0] = time_dim;
3867   ncl_a3SFWET_dims[1] = lat_dim;
3868   ncl_a3SFWET_dims[2] = lon_dim;
3869   if (nc_def_var(ncid, "ncl_a3SFWET", NC_DOUBLERANK_ncl_a3SFWETncl_a3SFWET_dims, &ncl_a3SFWET_id)) ERR;
3870
3871   ncl_a3TBF_dims[0] = time_dim;
3872   ncl_a3TBF_dims[1] = lat_dim;
3873   ncl_a3TBF_dims[2] = lon_dim;
3874   if (nc_def_var(ncid, "ncl_a3TBF", NC_DOUBLERANK_ncl_a3TBFncl_a3TBF_dims, &ncl_a3TBF_id)) ERR;
3875
3876   ncl_c1_dims[0] = time_dim;
3877   ncl_c1_dims[1] = lev_dim;
3878   ncl_c1_dims[2] = lat_dim;
3879   ncl_c1_dims[3] = lon_dim;
3880   if (nc_def_var(ncid, "ncl_c1", NC_DOUBLERANK_ncl_c1ncl_c1_dims, &ncl_c1_id)) ERR;
3881
3882   ncl_c1DDF_dims[0] = time_dim;
3883   ncl_c1DDF_dims[1] = lat_dim;
3884   ncl_c1DDF_dims[2] = lon_dim;
3885   if (nc_def_var(ncid, "ncl_c1DDF", NC_DOUBLERANK_ncl_c1DDFncl_c1DDF_dims, &ncl_c1DDF_id)) ERR;
3886
3887   ncl_c1GVF_dims[0] = time_dim;
3888   ncl_c1GVF_dims[1] = lat_dim;
3889   ncl_c1GVF_dims[2] = lon_dim;
3890   if (nc_def_var(ncid, "ncl_c1GVF", NC_DOUBLERANK_ncl_c1GVFncl_c1GVF_dims, &ncl_c1GVF_id)) ERR;
3891
3892   ncl_c1SFSBC_dims[0] = time_dim;
3893   ncl_c1SFSBC_dims[1] = lat_dim;
3894   ncl_c1SFSBC_dims[2] = lon_dim;
3895   if (nc_def_var(ncid, "ncl_c1SFSBC", NC_DOUBLERANK_ncl_c1SFSBCncl_c1SFSBC_dims, &ncl_c1SFSBC_id)) ERR;
3896
3897   ncl_c1SFSBS_dims[0] = time_dim;
3898   ncl_c1SFSBS_dims[1] = lat_dim;
3899   ncl_c1SFSBS_dims[2] = lon_dim;
3900   if (nc_def_var(ncid, "ncl_c1SFSBS", NC_DOUBLERANK_ncl_c1SFSBSncl_c1SFSBS_dims, &ncl_c1SFSBS_id)) ERR;
3901
3902   ncl_c1SFSIC_dims[0] = time_dim;
3903   ncl_c1SFSIC_dims[1] = lat_dim;
3904   ncl_c1SFSIC_dims[2] = lon_dim;
3905   if (nc_def_var(ncid, "ncl_c1SFSIC", NC_DOUBLERANK_ncl_c1SFSICncl_c1SFSIC_dims, &ncl_c1SFSIC_id)) ERR;
3906
3907   ncl_c1SFSIS_dims[0] = time_dim;
3908   ncl_c1SFSIS_dims[1] = lat_dim;
3909   ncl_c1SFSIS_dims[2] = lon_dim;
3910   if (nc_def_var(ncid, "ncl_c1SFSIS", NC_DOUBLERANK_ncl_c1SFSISncl_c1SFSIS_dims, &ncl_c1SFSIS_id)) ERR;
3911
3912   ncl_c1SFWET_dims[0] = time_dim;
3913   ncl_c1SFWET_dims[1] = lat_dim;
3914   ncl_c1SFWET_dims[2] = lon_dim;
3915   if (nc_def_var(ncid, "ncl_c1SFWET", NC_DOUBLERANK_ncl_c1SFWETncl_c1SFWET_dims, &ncl_c1SFWET_id)) ERR;
3916
3917   ncl_c1TBF_dims[0] = time_dim;
3918   ncl_c1TBF_dims[1] = lat_dim;
3919   ncl_c1TBF_dims[2] = lon_dim;
3920   if (nc_def_var(ncid, "ncl_c1TBF", NC_DOUBLERANK_ncl_c1TBFncl_c1TBF_dims, &ncl_c1TBF_id)) ERR;
3921
3922   ncl_c1_sfcsiz3_dims[0] = time_dim;
3923   ncl_c1_sfcsiz3_dims[1] = lat_dim;
3924   ncl_c1_sfcsiz3_dims[2] = lon_dim;
3925   if (nc_def_var(ncid, "ncl_c1_sfcsiz3", NC_DOUBLERANK_ncl_c1_sfcsiz3ncl_c1_sfcsiz3_dims, &ncl_c1_sfcsiz3_id)) ERR;
3926
3927   ncl_c1_sfcsiz4_dims[0] = time_dim;
3928   ncl_c1_sfcsiz4_dims[1] = lat_dim;
3929   ncl_c1_sfcsiz4_dims[2] = lon_dim;
3930   if (nc_def_var(ncid, "ncl_c1_sfcsiz4", NC_DOUBLERANK_ncl_c1_sfcsiz4ncl_c1_sfcsiz4_dims, &ncl_c1_sfcsiz4_id)) ERR;
3931
3932   ncl_c1_sfgaex2_dims[0] = time_dim;
3933   ncl_c1_sfgaex2_dims[1] = lat_dim;
3934   ncl_c1_sfgaex2_dims[2] = lon_dim;
3935   if (nc_def_var(ncid, "ncl_c1_sfgaex2", NC_DOUBLERANK_ncl_c1_sfgaex2ncl_c1_sfgaex2_dims, &ncl_c1_sfgaex2_id)) ERR;
3936
3937   ncl_c2_dims[0] = time_dim;
3938   ncl_c2_dims[1] = lev_dim;
3939   ncl_c2_dims[2] = lat_dim;
3940   ncl_c2_dims[3] = lon_dim;
3941   if (nc_def_var(ncid, "ncl_c2", NC_DOUBLERANK_ncl_c2ncl_c2_dims, &ncl_c2_id)) ERR;
3942
3943   ncl_c2DDF_dims[0] = time_dim;
3944   ncl_c2DDF_dims[1] = lat_dim;
3945   ncl_c2DDF_dims[2] = lon_dim;
3946   if (nc_def_var(ncid, "ncl_c2DDF", NC_DOUBLERANK_ncl_c2DDFncl_c2DDF_dims, &ncl_c2DDF_id)) ERR;
3947
3948   ncl_c2GVF_dims[0] = time_dim;
3949   ncl_c2GVF_dims[1] = lat_dim;
3950   ncl_c2GVF_dims[2] = lon_dim;
3951   if (nc_def_var(ncid, "ncl_c2GVF", NC_DOUBLERANK_ncl_c2GVFncl_c2GVF_dims, &ncl_c2GVF_id)) ERR;
3952
3953   ncl_c2SFSBC_dims[0] = time_dim;
3954   ncl_c2SFSBC_dims[1] = lat_dim;
3955   ncl_c2SFSBC_dims[2] = lon_dim;
3956   if (nc_def_var(ncid, "ncl_c2SFSBC", NC_DOUBLERANK_ncl_c2SFSBCncl_c2SFSBC_dims, &ncl_c2SFSBC_id)) ERR;
3957
3958   ncl_c2SFSBS_dims[0] = time_dim;
3959   ncl_c2SFSBS_dims[1] = lat_dim;
3960   ncl_c2SFSBS_dims[2] = lon_dim;
3961   if (nc_def_var(ncid, "ncl_c2SFSBS", NC_DOUBLERANK_ncl_c2SFSBSncl_c2SFSBS_dims, &ncl_c2SFSBS_id)) ERR;
3962
3963   ncl_c2SFSIC_dims[0] = time_dim;
3964   ncl_c2SFSIC_dims[1] = lat_dim;
3965   ncl_c2SFSIC_dims[2] = lon_dim;
3966   if (nc_def_var(ncid, "ncl_c2SFSIC", NC_DOUBLERANK_ncl_c2SFSICncl_c2SFSIC_dims, &ncl_c2SFSIC_id)) ERR;
3967
3968   ncl_c2SFSIS_dims[0] = time_dim;
3969   ncl_c2SFSIS_dims[1] = lat_dim;
3970   ncl_c2SFSIS_dims[2] = lon_dim;
3971   if (nc_def_var(ncid, "ncl_c2SFSIS", NC_DOUBLERANK_ncl_c2SFSISncl_c2SFSIS_dims, &ncl_c2SFSIS_id)) ERR;
3972
3973   ncl_c2SFWET_dims[0] = time_dim;
3974   ncl_c2SFWET_dims[1] = lat_dim;
3975   ncl_c2SFWET_dims[2] = lon_dim;
3976   if (nc_def_var(ncid, "ncl_c2SFWET", NC_DOUBLERANK_ncl_c2SFWETncl_c2SFWET_dims, &ncl_c2SFWET_id)) ERR;
3977
3978   ncl_c2TBF_dims[0] = time_dim;
3979   ncl_c2TBF_dims[1] = lat_dim;
3980   ncl_c2TBF_dims[2] = lon_dim;
3981   if (nc_def_var(ncid, "ncl_c2TBF", NC_DOUBLERANK_ncl_c2TBFncl_c2TBF_dims, &ncl_c2TBF_id)) ERR;
3982
3983   ncl_c2_sfcsiz3_dims[0] = time_dim;
3984   ncl_c2_sfcsiz3_dims[1] = lat_dim;
3985   ncl_c2_sfcsiz3_dims[2] = lon_dim;
3986   if (nc_def_var(ncid, "ncl_c2_sfcsiz3", NC_DOUBLERANK_ncl_c2_sfcsiz3ncl_c2_sfcsiz3_dims, &ncl_c2_sfcsiz3_id)) ERR;
3987
3988   ncl_c2_sfcsiz4_dims[0] = time_dim;
3989   ncl_c2_sfcsiz4_dims[1] = lat_dim;
3990   ncl_c2_sfcsiz4_dims[2] = lon_dim;
3991   if (nc_def_var(ncid, "ncl_c2_sfcsiz4", NC_DOUBLERANK_ncl_c2_sfcsiz4ncl_c2_sfcsiz4_dims, &ncl_c2_sfcsiz4_id)) ERR;
3992
3993   ncl_c2_sfgaex2_dims[0] = time_dim;
3994   ncl_c2_sfgaex2_dims[1] = lat_dim;
3995   ncl_c2_sfgaex2_dims[2] = lon_dim;
3996   if (nc_def_var(ncid, "ncl_c2_sfgaex2", NC_DOUBLERANK_ncl_c2_sfgaex2ncl_c2_sfgaex2_dims, &ncl_c2_sfgaex2_id)) ERR;
3997
3998   ncl_c3_dims[0] = time_dim;
3999   ncl_c3_dims[1] = lev_dim;
4000   ncl_c3_dims[2] = lat_dim;
4001   ncl_c3_dims[3] = lon_dim;
4002   if (nc_def_var(ncid, "ncl_c3", NC_DOUBLERANK_ncl_c3ncl_c3_dims, &ncl_c3_id)) ERR;
4003
4004   ncl_c3DDF_dims[0] = time_dim;
4005   ncl_c3DDF_dims[1] = lat_dim;
4006   ncl_c3DDF_dims[2] = lon_dim;
4007   if (nc_def_var(ncid, "ncl_c3DDF", NC_DOUBLERANK_ncl_c3DDFncl_c3DDF_dims, &ncl_c3DDF_id)) ERR;
4008
4009   ncl_c3GVF_dims[0] = time_dim;
4010   ncl_c3GVF_dims[1] = lat_dim;
4011   ncl_c3GVF_dims[2] = lon_dim;
4012   if (nc_def_var(ncid, "ncl_c3GVF", NC_DOUBLERANK_ncl_c3GVFncl_c3GVF_dims, &ncl_c3GVF_id)) ERR;
4013
4014   ncl_c3SFSBC_dims[0] = time_dim;
4015   ncl_c3SFSBC_dims[1] = lat_dim;
4016   ncl_c3SFSBC_dims[2] = lon_dim;
4017   if (nc_def_var(ncid, "ncl_c3SFSBC", NC_DOUBLERANK_ncl_c3SFSBCncl_c3SFSBC_dims, &ncl_c3SFSBC_id)) ERR;
4018
4019   ncl_c3SFSBS_dims[0] = time_dim;
4020   ncl_c3SFSBS_dims[1] = lat_dim;
4021   ncl_c3SFSBS_dims[2] = lon_dim;
4022   if (nc_def_var(ncid, "ncl_c3SFSBS", NC_DOUBLERANK_ncl_c3SFSBSncl_c3SFSBS_dims, &ncl_c3SFSBS_id)) ERR;
4023
4024   ncl_c3SFSIC_dims[0] = time_dim;
4025   ncl_c3SFSIC_dims[1] = lat_dim;
4026   ncl_c3SFSIC_dims[2] = lon_dim;
4027   if (nc_def_var(ncid, "ncl_c3SFSIC", NC_DOUBLERANK_ncl_c3SFSICncl_c3SFSIC_dims, &ncl_c3SFSIC_id)) ERR;
4028
4029   ncl_c3SFSIS_dims[0] = time_dim;
4030   ncl_c3SFSIS_dims[1] = lat_dim;
4031   ncl_c3SFSIS_dims[2] = lon_dim;
4032   if (nc_def_var(ncid, "ncl_c3SFSIS", NC_DOUBLERANK_ncl_c3SFSISncl_c3SFSIS_dims, &ncl_c3SFSIS_id)) ERR;
4033
4034   ncl_c3SFWET_dims[0] = time_dim;
4035   ncl_c3SFWET_dims[1] = lat_dim;
4036   ncl_c3SFWET_dims[2] = lon_dim;
4037   if (nc_def_var(ncid, "ncl_c3SFWET", NC_DOUBLERANK_ncl_c3SFWETncl_c3SFWET_dims, &ncl_c3SFWET_id)) ERR;
4038
4039   ncl_c3TBF_dims[0] = time_dim;
4040   ncl_c3TBF_dims[1] = lat_dim;
4041   ncl_c3TBF_dims[2] = lon_dim;
4042   if (nc_def_var(ncid, "ncl_c3TBF", NC_DOUBLERANK_ncl_c3TBFncl_c3TBF_dims, &ncl_c3TBF_id)) ERR;
4043
4044   num_a1_dims[0] = time_dim;
4045   num_a1_dims[1] = lev_dim;
4046   num_a1_dims[2] = lat_dim;
4047   num_a1_dims[3] = lon_dim;
4048   if (nc_def_var(ncid, "num_a1", NC_DOUBLERANK_num_a1num_a1_dims, &num_a1_id)) ERR;
4049
4050   num_a1DDF_dims[0] = time_dim;
4051   num_a1DDF_dims[1] = lat_dim;
4052   num_a1DDF_dims[2] = lon_dim;
4053   if (nc_def_var(ncid, "num_a1DDF", NC_DOUBLERANK_num_a1DDFnum_a1DDF_dims, &num_a1DDF_id)) ERR;
4054
4055   num_a1GVF_dims[0] = time_dim;
4056   num_a1GVF_dims[1] = lat_dim;
4057   num_a1GVF_dims[2] = lon_dim;
4058   if (nc_def_var(ncid, "num_a1GVF", NC_DOUBLERANK_num_a1GVFnum_a1GVF_dims, &num_a1GVF_id)) ERR;
4059
4060   num_a1SFSBC_dims[0] = time_dim;
4061   num_a1SFSBC_dims[1] = lat_dim;
4062   num_a1SFSBC_dims[2] = lon_dim;
4063   if (nc_def_var(ncid, "num_a1SFSBC", NC_DOUBLERANK_num_a1SFSBCnum_a1SFSBC_dims, &num_a1SFSBC_id)) ERR;
4064
4065   num_a1SFSBS_dims[0] = time_dim;
4066   num_a1SFSBS_dims[1] = lat_dim;
4067   num_a1SFSBS_dims[2] = lon_dim;
4068   if (nc_def_var(ncid, "num_a1SFSBS", NC_DOUBLERANK_num_a1SFSBSnum_a1SFSBS_dims, &num_a1SFSBS_id)) ERR;
4069
4070   num_a1SFSIC_dims[0] = time_dim;
4071   num_a1SFSIC_dims[1] = lat_dim;
4072   num_a1SFSIC_dims[2] = lon_dim;
4073   if (nc_def_var(ncid, "num_a1SFSIC", NC_DOUBLERANK_num_a1SFSICnum_a1SFSIC_dims, &num_a1SFSIC_id)) ERR;
4074
4075   num_a1SFSIS_dims[0] = time_dim;
4076   num_a1SFSIS_dims[1] = lat_dim;
4077   num_a1SFSIS_dims[2] = lon_dim;
4078   if (nc_def_var(ncid, "num_a1SFSIS", NC_DOUBLERANK_num_a1SFSISnum_a1SFSIS_dims, &num_a1SFSIS_id)) ERR;
4079
4080   num_a1SFWET_dims[0] = time_dim;
4081   num_a1SFWET_dims[1] = lat_dim;
4082   num_a1SFWET_dims[2] = lon_dim;
4083   if (nc_def_var(ncid, "num_a1SFWET", NC_DOUBLERANK_num_a1SFWETnum_a1SFWET_dims, &num_a1SFWET_id)) ERR;
4084
4085   num_a1TBF_dims[0] = time_dim;
4086   num_a1TBF_dims[1] = lat_dim;
4087   num_a1TBF_dims[2] = lon_dim;
4088   if (nc_def_var(ncid, "num_a1TBF", NC_DOUBLERANK_num_a1TBFnum_a1TBF_dims, &num_a1TBF_id)) ERR;
4089
4090   num_a1_CLXF_dims[0] = time_dim;
4091   num_a1_CLXF_dims[1] = lat_dim;
4092   num_a1_CLXF_dims[2] = lon_dim;
4093   if (nc_def_var(ncid, "num_a1_CLXF", NC_DOUBLERANK_num_a1_CLXFnum_a1_CLXF_dims, &num_a1_CLXF_id)) ERR;
4094
4095   num_a1_XFRC_dims[0] = time_dim;
4096   num_a1_XFRC_dims[1] = lev_dim;
4097   num_a1_XFRC_dims[2] = lat_dim;
4098   num_a1_XFRC_dims[3] = lon_dim;
4099   if (nc_def_var(ncid, "num_a1_XFRC", NC_DOUBLERANK_num_a1_XFRCnum_a1_XFRC_dims, &num_a1_XFRC_id)) ERR;
4100
4101   num_a1_sfcoag1_dims[0] = time_dim;
4102   num_a1_sfcoag1_dims[1] = lat_dim;
4103   num_a1_sfcoag1_dims[2] = lon_dim;
4104   if (nc_def_var(ncid, "num_a1_sfcoag1", NC_DOUBLERANK_num_a1_sfcoag1num_a1_sfcoag1_dims, &num_a1_sfcoag1_id)) ERR;
4105
4106   num_a1_sfcsiz1_dims[0] = time_dim;
4107   num_a1_sfcsiz1_dims[1] = lat_dim;
4108   num_a1_sfcsiz1_dims[2] = lon_dim;
4109   if (nc_def_var(ncid, "num_a1_sfcsiz1", NC_DOUBLERANK_num_a1_sfcsiz1num_a1_sfcsiz1_dims, &num_a1_sfcsiz1_id)) ERR;
4110
4111   num_a1_sfcsiz2_dims[0] = time_dim;
4112   num_a1_sfcsiz2_dims[1] = lat_dim;
4113   num_a1_sfcsiz2_dims[2] = lon_dim;
4114   if (nc_def_var(ncid, "num_a1_sfcsiz2", NC_DOUBLERANK_num_a1_sfcsiz2num_a1_sfcsiz2_dims, &num_a1_sfcsiz2_id)) ERR;
4115
4116   num_a1_sfcsiz3_dims[0] = time_dim;
4117   num_a1_sfcsiz3_dims[1] = lat_dim;
4118   num_a1_sfcsiz3_dims[2] = lon_dim;
4119   if (nc_def_var(ncid, "num_a1_sfcsiz3", NC_DOUBLERANK_num_a1_sfcsiz3num_a1_sfcsiz3_dims, &num_a1_sfcsiz3_id)) ERR;
4120
4121   num_a1_sfcsiz4_dims[0] = time_dim;
4122   num_a1_sfcsiz4_dims[1] = lat_dim;
4123   num_a1_sfcsiz4_dims[2] = lon_dim;
4124   if (nc_def_var(ncid, "num_a1_sfcsiz4", NC_DOUBLERANK_num_a1_sfcsiz4num_a1_sfcsiz4_dims, &num_a1_sfcsiz4_id)) ERR;
4125
4126   num_a1_sfgaex2_dims[0] = time_dim;
4127   num_a1_sfgaex2_dims[1] = lat_dim;
4128   num_a1_sfgaex2_dims[2] = lon_dim;
4129   if (nc_def_var(ncid, "num_a1_sfgaex2", NC_DOUBLERANK_num_a1_sfgaex2num_a1_sfgaex2_dims, &num_a1_sfgaex2_id)) ERR;
4130
4131   num_a2_dims[0] = time_dim;
4132   num_a2_dims[1] = lev_dim;
4133   num_a2_dims[2] = lat_dim;
4134   num_a2_dims[3] = lon_dim;
4135   if (nc_def_var(ncid, "num_a2", NC_DOUBLERANK_num_a2num_a2_dims, &num_a2_id)) ERR;
4136
4137   num_a2DDF_dims[0] = time_dim;
4138   num_a2DDF_dims[1] = lat_dim;
4139   num_a2DDF_dims[2] = lon_dim;
4140   if (nc_def_var(ncid, "num_a2DDF", NC_DOUBLERANK_num_a2DDFnum_a2DDF_dims, &num_a2DDF_id)) ERR;
4141
4142   num_a2GVF_dims[0] = time_dim;
4143   num_a2GVF_dims[1] = lat_dim;
4144   num_a2GVF_dims[2] = lon_dim;
4145   if (nc_def_var(ncid, "num_a2GVF", NC_DOUBLERANK_num_a2GVFnum_a2GVF_dims, &num_a2GVF_id)) ERR;
4146
4147   num_a2SFSBC_dims[0] = time_dim;
4148   num_a2SFSBC_dims[1] = lat_dim;
4149   num_a2SFSBC_dims[2] = lon_dim;
4150   if (nc_def_var(ncid, "num_a2SFSBC", NC_DOUBLERANK_num_a2SFSBCnum_a2SFSBC_dims, &num_a2SFSBC_id)) ERR;
4151
4152   num_a2SFSBS_dims[0] = time_dim;
4153   num_a2SFSBS_dims[1] = lat_dim;
4154   num_a2SFSBS_dims[2] = lon_dim;
4155   if (nc_def_var(ncid, "num_a2SFSBS", NC_DOUBLERANK_num_a2SFSBSnum_a2SFSBS_dims, &num_a2SFSBS_id)) ERR;
4156
4157   num_a2SFSIC_dims[0] = time_dim;
4158   num_a2SFSIC_dims[1] = lat_dim;
4159   num_a2SFSIC_dims[2] = lon_dim;
4160   if (nc_def_var(ncid, "num_a2SFSIC", NC_DOUBLERANK_num_a2SFSICnum_a2SFSIC_dims, &num_a2SFSIC_id)) ERR;
4161
4162   num_a2SFSIS_dims[0] = time_dim;
4163   num_a2SFSIS_dims[1] = lat_dim;
4164   num_a2SFSIS_dims[2] = lon_dim;
4165   if (nc_def_var(ncid, "num_a2SFSIS", NC_DOUBLERANK_num_a2SFSISnum_a2SFSIS_dims, &num_a2SFSIS_id)) ERR;
4166
4167   num_a2SFWET_dims[0] = time_dim;
4168   num_a2SFWET_dims[1] = lat_dim;
4169   num_a2SFWET_dims[2] = lon_dim;
4170   if (nc_def_var(ncid, "num_a2SFWET", NC_DOUBLERANK_num_a2SFWETnum_a2SFWET_dims, &num_a2SFWET_id)) ERR;
4171
4172   num_a2TBF_dims[0] = time_dim;
4173   num_a2TBF_dims[1] = lat_dim;
4174   num_a2TBF_dims[2] = lon_dim;
4175   if (nc_def_var(ncid, "num_a2TBF", NC_DOUBLERANK_num_a2TBFnum_a2TBF_dims, &num_a2TBF_id)) ERR;
4176
4177   num_a2_CLXF_dims[0] = time_dim;
4178   num_a2_CLXF_dims[1] = lat_dim;
4179   num_a2_CLXF_dims[2] = lon_dim;
4180   if (nc_def_var(ncid, "num_a2_CLXF", NC_DOUBLERANK_num_a2_CLXFnum_a2_CLXF_dims, &num_a2_CLXF_id)) ERR;
4181
4182   num_a2_XFRC_dims[0] = time_dim;
4183   num_a2_XFRC_dims[1] = lev_dim;
4184   num_a2_XFRC_dims[2] = lat_dim;
4185   num_a2_XFRC_dims[3] = lon_dim;
4186   if (nc_def_var(ncid, "num_a2_XFRC", NC_DOUBLERANK_num_a2_XFRCnum_a2_XFRC_dims, &num_a2_XFRC_id)) ERR;
4187
4188   num_a2_sfcoag1_dims[0] = time_dim;
4189   num_a2_sfcoag1_dims[1] = lat_dim;
4190   num_a2_sfcoag1_dims[2] = lon_dim;
4191   if (nc_def_var(ncid, "num_a2_sfcoag1", NC_DOUBLERANK_num_a2_sfcoag1num_a2_sfcoag1_dims, &num_a2_sfcoag1_id)) ERR;
4192
4193   num_a2_sfcsiz1_dims[0] = time_dim;
4194   num_a2_sfcsiz1_dims[1] = lat_dim;
4195   num_a2_sfcsiz1_dims[2] = lon_dim;
4196   if (nc_def_var(ncid, "num_a2_sfcsiz1", NC_DOUBLERANK_num_a2_sfcsiz1num_a2_sfcsiz1_dims, &num_a2_sfcsiz1_id)) ERR;
4197
4198   num_a2_sfcsiz2_dims[0] = time_dim;
4199   num_a2_sfcsiz2_dims[1] = lat_dim;
4200   num_a2_sfcsiz2_dims[2] = lon_dim;
4201   if (nc_def_var(ncid, "num_a2_sfcsiz2", NC_DOUBLERANK_num_a2_sfcsiz2num_a2_sfcsiz2_dims, &num_a2_sfcsiz2_id)) ERR;
4202
4203   num_a2_sfcsiz3_dims[0] = time_dim;
4204   num_a2_sfcsiz3_dims[1] = lat_dim;
4205   num_a2_sfcsiz3_dims[2] = lon_dim;
4206   if (nc_def_var(ncid, "num_a2_sfcsiz3", NC_DOUBLERANK_num_a2_sfcsiz3num_a2_sfcsiz3_dims, &num_a2_sfcsiz3_id)) ERR;
4207
4208   num_a2_sfcsiz4_dims[0] = time_dim;
4209   num_a2_sfcsiz4_dims[1] = lat_dim;
4210   num_a2_sfcsiz4_dims[2] = lon_dim;
4211   if (nc_def_var(ncid, "num_a2_sfcsiz4", NC_DOUBLERANK_num_a2_sfcsiz4num_a2_sfcsiz4_dims, &num_a2_sfcsiz4_id)) ERR;
4212
4213   num_a2_sfgaex2_dims[0] = time_dim;
4214   num_a2_sfgaex2_dims[1] = lat_dim;
4215   num_a2_sfgaex2_dims[2] = lon_dim;
4216   if (nc_def_var(ncid, "num_a2_sfgaex2", NC_DOUBLERANK_num_a2_sfgaex2num_a2_sfgaex2_dims, &num_a2_sfgaex2_id)) ERR;
4217
4218   num_a2_sfnnuc1_dims[0] = time_dim;
4219   num_a2_sfnnuc1_dims[1] = lat_dim;
4220   num_a2_sfnnuc1_dims[2] = lon_dim;
4221   if (nc_def_var(ncid, "num_a2_sfnnuc1", NC_DOUBLERANK_num_a2_sfnnuc1num_a2_sfnnuc1_dims, &num_a2_sfnnuc1_id)) ERR;
4222
4223   num_a3_dims[0] = time_dim;
4224   num_a3_dims[1] = lev_dim;
4225   num_a3_dims[2] = lat_dim;
4226   num_a3_dims[3] = lon_dim;
4227   if (nc_def_var(ncid, "num_a3", NC_DOUBLERANK_num_a3num_a3_dims, &num_a3_id)) ERR;
4228
4229   num_a3DDF_dims[0] = time_dim;
4230   num_a3DDF_dims[1] = lat_dim;
4231   num_a3DDF_dims[2] = lon_dim;
4232   if (nc_def_var(ncid, "num_a3DDF", NC_DOUBLERANK_num_a3DDFnum_a3DDF_dims, &num_a3DDF_id)) ERR;
4233
4234   num_a3GVF_dims[0] = time_dim;
4235   num_a3GVF_dims[1] = lat_dim;
4236   num_a3GVF_dims[2] = lon_dim;
4237   if (nc_def_var(ncid, "num_a3GVF", NC_DOUBLERANK_num_a3GVFnum_a3GVF_dims, &num_a3GVF_id)) ERR;
4238
4239   num_a3SFSBC_dims[0] = time_dim;
4240   num_a3SFSBC_dims[1] = lat_dim;
4241   num_a3SFSBC_dims[2] = lon_dim;
4242   if (nc_def_var(ncid, "num_a3SFSBC", NC_DOUBLERANK_num_a3SFSBCnum_a3SFSBC_dims, &num_a3SFSBC_id)) ERR;
4243
4244   num_a3SFSBS_dims[0] = time_dim;
4245   num_a3SFSBS_dims[1] = lat_dim;
4246   num_a3SFSBS_dims[2] = lon_dim;
4247   if (nc_def_var(ncid, "num_a3SFSBS", NC_DOUBLERANK_num_a3SFSBSnum_a3SFSBS_dims, &num_a3SFSBS_id)) ERR;
4248
4249   num_a3SFSIC_dims[0] = time_dim;
4250   num_a3SFSIC_dims[1] = lat_dim;
4251   num_a3SFSIC_dims[2] = lon_dim;
4252   if (nc_def_var(ncid, "num_a3SFSIC", NC_DOUBLERANK_num_a3SFSICnum_a3SFSIC_dims, &num_a3SFSIC_id)) ERR;
4253
4254   num_a3SFSIS_dims[0] = time_dim;
4255   num_a3SFSIS_dims[1] = lat_dim;
4256   num_a3SFSIS_dims[2] = lon_dim;
4257   if (nc_def_var(ncid, "num_a3SFSIS", NC_DOUBLERANK_num_a3SFSISnum_a3SFSIS_dims, &num_a3SFSIS_id)) ERR;
4258
4259   num_a3SFWET_dims[0] = time_dim;
4260   num_a3SFWET_dims[1] = lat_dim;
4261   num_a3SFWET_dims[2] = lon_dim;
4262   if (nc_def_var(ncid, "num_a3SFWET", NC_DOUBLERANK_num_a3SFWETnum_a3SFWET_dims, &num_a3SFWET_id)) ERR;
4263
4264   num_a3TBF_dims[0] = time_dim;
4265   num_a3TBF_dims[1] = lat_dim;
4266   num_a3TBF_dims[2] = lon_dim;
4267   if (nc_def_var(ncid, "num_a3TBF", NC_DOUBLERANK_num_a3TBFnum_a3TBF_dims, &num_a3TBF_id)) ERR;
4268
4269   num_a3_sfcsiz1_dims[0] = time_dim;
4270   num_a3_sfcsiz1_dims[1] = lat_dim;
4271   num_a3_sfcsiz1_dims[2] = lon_dim;
4272   if (nc_def_var(ncid, "num_a3_sfcsiz1", NC_DOUBLERANK_num_a3_sfcsiz1num_a3_sfcsiz1_dims, &num_a3_sfcsiz1_id)) ERR;
4273
4274   num_a3_sfcsiz2_dims[0] = time_dim;
4275   num_a3_sfcsiz2_dims[1] = lat_dim;
4276   num_a3_sfcsiz2_dims[2] = lon_dim;
4277   if (nc_def_var(ncid, "num_a3_sfcsiz2", NC_DOUBLERANK_num_a3_sfcsiz2num_a3_sfcsiz2_dims, &num_a3_sfcsiz2_id)) ERR;
4278
4279   num_c1_dims[0] = time_dim;
4280   num_c1_dims[1] = lev_dim;
4281   num_c1_dims[2] = lat_dim;
4282   num_c1_dims[3] = lon_dim;
4283   if (nc_def_var(ncid, "num_c1", NC_DOUBLERANK_num_c1num_c1_dims, &num_c1_id)) ERR;
4284