netcdf-c/nc_test4/tst_camrun.c

/*
  Copyright 2010, UCAR/Unidata
  See COPYRIGHT file for copying and redistribution conditions.

  This program writes a data file from the CAM model run. (Thanks to
  Jim Edwards for contributing this example file.)

  This code originally generated by ncgen.

  $Id: tst_camrun.c,v 1.2 2010/05/20 13:17:50 ed Exp $
*/
#include <config.h>
#include <nc_tests.h>
#include <stdio.h>
#include <stdlib.h>
#include <netcdf.h>
#include <unistd.h>

#define FILE_NAME "tst_camrun.nc"
   /* rank (number of dimensions) for each variable */
#   define RANK_P0 0
#   define RANK_lat 1
#   define RANK_lon 1
#   define RANK_slat 1
#   define RANK_slon 1
#   define RANK_w_stag 1
#   define RANK_lev 1
#   define RANK_ilev 1
#   define RANK_isccp_prs 1
#   define RANK_isccp_tau 1
#   define RANK_isccp_prstau 1
#   define RANK_time 1
#   define RANK_time_bnds 2
#   define RANK_date_written 2
#   define RANK_time_written 2
#   define RANK_ntrm 0
#   define RANK_ntrn 0
#   define RANK_ntrk 0
#   define RANK_ndbase 0
#   define RANK_nsbase 0
#   define RANK_nbdate 0
#   define RANK_nbsec 0
#   define RANK_mdt 0
#   define RANK_nlon 1
#   define RANK_wnummax 1
#   define RANK_hyai 1
#   define RANK_hybi 1
#   define RANK_hyam 1
#   define RANK_hybm 1
#   define RANK_gw 1
#   define RANK_ndcur 1
#   define RANK_nscur 1
#   define RANK_date 1
#   define RANK_co2vmr 1
#   define RANK_ch4vmr 1
#   define RANK_n2ovmr 1
#   define RANK_f11vmr 1
#   define RANK_f12vmr 1
#   define RANK_sol_tsi 1
#   define RANK_datesec 1
#   define RANK_nsteph 1
#   define RANK_ABSORB 4
#   define RANK_AEROD_v 3
#   define RANK_AODABS 3
#   define RANK_AODDUST1 3
#   define RANK_AODDUST2 3
#   define RANK_AODDUST3 3
#   define RANK_AODMODE1 3
#   define RANK_AODMODE2 3
#   define RANK_AODMODE3 3
#   define RANK_AODVIS 3
#   define RANK_AQSO4_H2O2 3
#   define RANK_AQSO4_O3 3
#   define RANK_AQ_DMS 3
#   define RANK_AQ_H2O2 3
#   define RANK_AQ_H2SO4 3
#   define RANK_AQ_SO2 3
#   define RANK_AQ_SOAG 3
#   define RANK_AQ_bc_a1 3
#   define RANK_AQ_dst_a1 3
#   define RANK_AQ_dst_a3 3
#   define RANK_AQ_ncl_a1 3
#   define RANK_AQ_ncl_a2 3
#   define RANK_AQ_ncl_a3 3
#   define RANK_AQ_num_a1 3
#   define RANK_AQ_num_a2 3
#   define RANK_AQ_num_a3 3
#   define RANK_AQ_pom_a1 3
#   define RANK_AQ_so4_a1 3
#   define RANK_AQ_so4_a2 3
#   define RANK_AQ_so4_a3 3
#   define RANK_AQ_soa_a1 3
#   define RANK_AQ_soa_a2 3
#   define RANK_BPROD 4
#   define RANK_BURDEN1 3
#   define RANK_BURDEN2 3
#   define RANK_BURDEN3 3
#   define RANK_CCN1 4
#   define RANK_CCN2 4
#   define RANK_CCN3 4
#   define RANK_CCN4 4
#   define RANK_CCN5 4
#   define RANK_CCN6 4
#   define RANK_CLDHGH 3
#   define RANK_CLDICE 4
#   define RANK_CLDLIQ 4
#   define RANK_CLDLOW 3
#   define RANK_CLDMED 3
#   define RANK_CLDTOT 3
#   define RANK_CLOUD 4
#   define RANK_CMFDQ 4
#   define RANK_CMFDQR 4
#   define RANK_CMFDT 4
#   define RANK_CMFMC 4
#   define RANK_CMFMCDZM 4
#   define RANK_CONCLD 4
#   define RANK_DCQ 4
#   define RANK_DMS 4
#   define RANK_DSTODXC 3
#   define RANK_DSTSFDRY 3
#   define RANK_DSTSFMBL 3
#   define RANK_DSTSFWET 3
#   define RANK_DTCOND 4
#   define RANK_DTV 4
#   define RANK_EXTINCT 4
#   define RANK_FICE 4
#   define RANK_FLDS 3
#   define RANK_FLNS 3
#   define RANK_FLNSC 3
#   define RANK_FLNT 3
#   define RANK_FLNTC 3
#   define RANK_FLUT 3
#   define RANK_FLUTC 3
#   define RANK_FREQSH 3
#   define RANK_FREQZM 3
#   define RANK_FSDS 3
#   define RANK_FSDSC 3
#   define RANK_FSNS 3
#   define RANK_FSNSC 3
#   define RANK_FSNT 3
#   define RANK_FSNTC 3
#   define RANK_FSNTOA 3
#   define RANK_FSNTOAC 3
#   define RANK_FSUTOA 3
#   define RANK_GS_DMS 3
#   define RANK_GS_H2O2 3
#   define RANK_GS_H2SO4 3
#   define RANK_GS_SO2 3
#   define RANK_GS_SOAG 3
#   define RANK_GS_bc_a1 3
#   define RANK_GS_dst_a1 3
#   define RANK_GS_dst_a3 3
#   define RANK_GS_ncl_a1 3
#   define RANK_GS_ncl_a2 3
#   define RANK_GS_ncl_a3 3
#   define RANK_GS_num_a1 3
#   define RANK_GS_num_a2 3
#   define RANK_GS_num_a3 3
#   define RANK_GS_pom_a1 3
#   define RANK_GS_so4_a1 3
#   define RANK_GS_so4_a2 3
#   define RANK_GS_so4_a3 3
#   define RANK_GS_soa_a1 3
#   define RANK_GS_soa_a2 3
#   define RANK_H2O2 4
#   define RANK_H2SO4 4
#   define RANK_H2SO4_sfgaex1 3
#   define RANK_H2SO4_sfnnuc1 3
#   define RANK_ICEFRAC 3
#   define RANK_ICIMR 4
#   define RANK_ICWMR 4
#   define RANK_KVH 4
#   define RANK_KVM 4
#   define RANK_LANDFRAC 3
#   define RANK_LCLOUD 4
#   define RANK_LHFLX 3
#   define RANK_LND_MBL 3
#   define RANK_LWCF 3
#   define RANK_NDROPCOL 3
#   define RANK_NDROPMIX 4
#   define RANK_NDROPSNK 4
#   define RANK_NDROPSRC 4
#   define RANK_NUMICE 4
#   define RANK_NUMLIQ 4
#   define RANK_OCNFRAC 3
#   define RANK_ODV_bc_a1 3
#   define RANK_ODV_dst_a1 3
#   define RANK_ODV_dst_a3 3
#   define RANK_ODV_ncl_a1 3
#   define RANK_ODV_ncl_a3 3
#   define RANK_ODV_pom_a1 3
#   define RANK_ODV_so4_a1 3
#   define RANK_ODV_soa_a1 3
#   define RANK_OMEGA 4
#   define RANK_OMEGAT 4
#   define RANK_ORO 3
#   define RANK_PBLH 3
#   define RANK_PCONVB 3
#   define RANK_PCONVT 3
#   define RANK_PHIS 3
#   define RANK_PRECC 3
#   define RANK_PRECCDZM 3
#   define RANK_PRECL 3
#   define RANK_PRECSC 3
#   define RANK_PRECSH 3
#   define RANK_PRECSL 3
#   define RANK_PRECT 3
#   define RANK_PS 3
#   define RANK_PSL 3
#   define RANK_Q 4
#   define RANK_QC 4
#   define RANK_QFLX 3
#   define RANK_QREFHT 3
#   define RANK_QRL 4
#   define RANK_QRS 4
#   define RANK_QT 4
#   define RANK_QTFLX 4
#   define RANK_RAM1 3
#   define RANK_RELHUM 4
#   define RANK_RHREFHT 3
#   define RANK_SFCLDICE 3
#   define RANK_SFCLDLIQ 3
#   define RANK_SFI 4
#   define RANK_SFNUMICE 3
#   define RANK_SFNUMLIQ 3
#   define RANK_SHFLX 3
#   define RANK_SL 4
#   define RANK_SLFLX 4
#   define RANK_SLV 4
#   define RANK_SNOWHICE 3
#   define RANK_SNOWHLND 3
#   define RANK_SO2 4
#   define RANK_SO2_CLXF 3
#   define RANK_SO2_XFRC 4
#   define RANK_SOAG 4
#   define RANK_SOAG_sfgaex1 3
#   define RANK_SOLIN 3
#   define RANK_SPROD 4
#   define RANK_SRFRAD 3
#   define RANK_SSAVIS 3
#   define RANK_SSTODXC 3
#   define RANK_SSTSFDRY 3
#   define RANK_SSTSFMBL 3
#   define RANK_SSTSFWET 3
#   define RANK_SWCF 3
#   define RANK_T 4
#   define RANK_TAUTMSX 3
#   define RANK_TAUTMSY 3
#   define RANK_TAUX 3
#   define RANK_TAUY 3
#   define RANK_TGCLDCWP 3
#   define RANK_TGCLDIWP 3
#   define RANK_TGCLDLWP 3
#   define RANK_TKE 4
#   define RANK_TMQ 3
#   define RANK_TREFHT 3
#   define RANK_TREFMNAV 3
#   define RANK_TREFMXAV 3
#   define RANK_TROP_FD 3
#   define RANK_TROP_P 3
#   define RANK_TROP_PD 4
#   define RANK_TROP_T 3
#   define RANK_TROP_Z 3
#   define RANK_TS 3
#   define RANK_TSMN 3
#   define RANK_TSMX 3
#   define RANK_U 4
#   define RANK_UFLX 4
#   define RANK_US 4
#   define RANK_UU 4
#   define RANK_V 4
#   define RANK_VD01 4
#   define RANK_VFLX 4
#   define RANK_VQ 4
#   define RANK_VS 4
#   define RANK_VT 4
#   define RANK_VU 4
#   define RANK_VV 4
#   define RANK_WGUSTD 3
#   define RANK_WTKE 4
#   define RANK_XPH_LWC 4
#   define RANK_Z3 4
#   define RANK_airFV 3
#   define RANK_bc_a1 4
#   define RANK_bc_a1DDF 3
#   define RANK_bc_a1GVF 3
#   define RANK_bc_a1SFSBC 3
#   define RANK_bc_a1SFSBS 3
#   define RANK_bc_a1SFSIC 3
#   define RANK_bc_a1SFSIS 3
#   define RANK_bc_a1SFWET 3
#   define RANK_bc_a1TBF 3
#   define RANK_bc_a1_CLXF 3
#   define RANK_bc_a1_XFRC 4
#   define RANK_bc_c1 4
#   define RANK_bc_c1DDF 3
#   define RANK_bc_c1GVF 3
#   define RANK_bc_c1SFSBC 3
#   define RANK_bc_c1SFSBS 3
#   define RANK_bc_c1SFSIC 3
#   define RANK_bc_c1SFSIS 3
#   define RANK_bc_c1SFWET 3
#   define RANK_bc_c1TBF 3
#   define RANK_chem_trop 4
#   define RANK_chem_trop_tropop 4
#   define RANK_dgnd_a01 4
#   define RANK_dgnd_a02 4
#   define RANK_dgnd_a03 4
#   define RANK_dgnw_a01 4
#   define RANK_dgnw_a02 4
#   define RANK_dgnw_a03 4
#   define RANK_dst_a1 4
#   define RANK_dst_a1DDF 3
#   define RANK_dst_a1GVF 3
#   define RANK_dst_a1SF 3
#   define RANK_dst_a1SFSBC 3
#   define RANK_dst_a1SFSBS 3
#   define RANK_dst_a1SFSIC 3
#   define RANK_dst_a1SFSIS 3
#   define RANK_dst_a1SFWET 3
#   define RANK_dst_a1TBF 3
#   define RANK_dst_a3 4
#   define RANK_dst_a3DDF 3
#   define RANK_dst_a3GVF 3
#   define RANK_dst_a3SF 3
#   define RANK_dst_a3SFSBC 3
#   define RANK_dst_a3SFSBS 3
#   define RANK_dst_a3SFSIC 3
#   define RANK_dst_a3SFSIS 3
#   define RANK_dst_a3SFWET 3
#   define RANK_dst_a3TBF 3
#   define RANK_dst_c1 4
#   define RANK_dst_c1DDF 3
#   define RANK_dst_c1GVF 3
#   define RANK_dst_c1SFSBC 3
#   define RANK_dst_c1SFSBS 3
#   define RANK_dst_c1SFSIC 3
#   define RANK_dst_c1SFSIS 3
#   define RANK_dst_c1SFWET 3
#   define RANK_dst_c1TBF 3
#   define RANK_dst_c3 4
#   define RANK_dst_c3DDF 3
#   define RANK_dst_c3GVF 3
#   define RANK_dst_c3SFSBC 3
#   define RANK_dst_c3SFSBS 3
#   define RANK_dst_c3SFSIC 3
#   define RANK_dst_c3SFSIS 3
#   define RANK_dst_c3SFWET 3
#   define RANK_dst_c3TBF 3
#   define RANK_ncl_a1 4
#   define RANK_ncl_a1DDF 3
#   define RANK_ncl_a1GVF 3
#   define RANK_ncl_a1SF 3
#   define RANK_ncl_a1SFSBC 3
#   define RANK_ncl_a1SFSBS 3
#   define RANK_ncl_a1SFSIC 3
#   define RANK_ncl_a1SFSIS 3
#   define RANK_ncl_a1SFWET 3
#   define RANK_ncl_a1TBF 3
#   define RANK_ncl_a1_sfcoag1 3
#   define RANK_ncl_a1_sfcsiz3 3
#   define RANK_ncl_a1_sfcsiz4 3
#   define RANK_ncl_a1_sfgaex2 3
#   define RANK_ncl_a2 4
#   define RANK_ncl_a2DDF 3
#   define RANK_ncl_a2GVF 3
#   define RANK_ncl_a2SF 3
#   define RANK_ncl_a2SFSBC 3
#   define RANK_ncl_a2SFSBS 3
#   define RANK_ncl_a2SFSIC 3
#   define RANK_ncl_a2SFSIS 3
#   define RANK_ncl_a2SFWET 3
#   define RANK_ncl_a2TBF 3
#   define RANK_ncl_a2_sfcoag1 3
#   define RANK_ncl_a2_sfcsiz3 3
#   define RANK_ncl_a2_sfcsiz4 3
#   define RANK_ncl_a2_sfgaex2 3
#   define RANK_ncl_a3 4
#   define RANK_ncl_a3DDF 3
#   define RANK_ncl_a3GVF 3
#   define RANK_ncl_a3SF 3
#   define RANK_ncl_a3SFSBC 3
#   define RANK_ncl_a3SFSBS 3
#   define RANK_ncl_a3SFSIC 3
#   define RANK_ncl_a3SFSIS 3
#   define RANK_ncl_a3SFWET 3
#   define RANK_ncl_a3TBF 3
#   define RANK_ncl_c1 4
#   define RANK_ncl_c1DDF 3
#   define RANK_ncl_c1GVF 3
#   define RANK_ncl_c1SFSBC 3
#   define RANK_ncl_c1SFSBS 3
#   define RANK_ncl_c1SFSIC 3
#   define RANK_ncl_c1SFSIS 3
#   define RANK_ncl_c1SFWET 3
#   define RANK_ncl_c1TBF 3
#   define RANK_ncl_c1_sfcsiz3 3
#   define RANK_ncl_c1_sfcsiz4 3
#   define RANK_ncl_c1_sfgaex2 3
#   define RANK_ncl_c2 4
#   define RANK_ncl_c2DDF 3
#   define RANK_ncl_c2GVF 3
#   define RANK_ncl_c2SFSBC 3
#   define RANK_ncl_c2SFSBS 3
#   define RANK_ncl_c2SFSIC 3
#   define RANK_ncl_c2SFSIS 3
#   define RANK_ncl_c2SFWET 3
#   define RANK_ncl_c2TBF 3
#   define RANK_ncl_c2_sfcsiz3 3
#   define RANK_ncl_c2_sfcsiz4 3
#   define RANK_ncl_c2_sfgaex2 3
#   define RANK_ncl_c3 4
#   define RANK_ncl_c3DDF 3
#   define RANK_ncl_c3GVF 3
#   define RANK_ncl_c3SFSBC 3
#   define RANK_ncl_c3SFSBS 3
#   define RANK_ncl_c3SFSIC 3
#   define RANK_ncl_c3SFSIS 3
#   define RANK_ncl_c3SFWET 3
#   define RANK_ncl_c3TBF 3
#   define RANK_num_a1 4
#   define RANK_num_a1DDF 3
#   define RANK_num_a1GVF 3
#   define RANK_num_a1SFSBC 3
#   define RANK_num_a1SFSBS 3
#   define RANK_num_a1SFSIC 3
#   define RANK_num_a1SFSIS 3
#   define RANK_num_a1SFWET 3
#   define RANK_num_a1TBF 3
#   define RANK_num_a1_CLXF 3
#   define RANK_num_a1_XFRC 4
#   define RANK_num_a1_sfcoag1 3
#   define RANK_num_a1_sfcsiz1 3
#   define RANK_num_a1_sfcsiz2 3
#   define RANK_num_a1_sfcsiz3 3
#   define RANK_num_a1_sfcsiz4 3
#   define RANK_num_a1_sfgaex2 3
#   define RANK_num_a2 4
#   define RANK_num_a2DDF 3
#   define RANK_num_a2GVF 3
#   define RANK_num_a2SFSBC 3
#   define RANK_num_a2SFSBS 3
#   define RANK_num_a2SFSIC 3
#   define RANK_num_a2SFSIS 3
#   define RANK_num_a2SFWET 3
#   define RANK_num_a2TBF 3
#   define RANK_num_a2_CLXF 3
#   define RANK_num_a2_XFRC 4
#   define RANK_num_a2_sfcoag1 3
#   define RANK_num_a2_sfcsiz1 3
#   define RANK_num_a2_sfcsiz2 3
#   define RANK_num_a2_sfcsiz3 3
#   define RANK_num_a2_sfcsiz4 3
#   define RANK_num_a2_sfgaex2 3
#   define RANK_num_a2_sfnnuc1 3
#   define RANK_num_a3 4
#   define RANK_num_a3DDF 3
#   define RANK_num_a3GVF 3
#   define RANK_num_a3SFSBC 3
#   define RANK_num_a3SFSBS 3
#   define RANK_num_a3SFSIC 3
#   define RANK_num_a3SFSIS 3
#   define RANK_num_a3SFWET 3
#   define RANK_num_a3TBF 3
#   define RANK_num_a3_sfcsiz1 3
#   define RANK_num_a3_sfcsiz2 3
#   define RANK_num_c1 4
#   define RANK_num_c1DDF 3
#   define RANK_num_c1GVF 3
#   define RANK_num_c1SFSBC 3
#   define RANK_num_c1SFSBS 3
#   define RANK_num_c1SFSIC 3
#   define RANK_num_c1SFSIS 3
#   define RANK_num_c1SFWET 3
#   define RANK_num_c1TBF 3
#   define RANK_num_c1_sfcsiz1 3
#   define RANK_num_c1_sfcsiz2 3
#   define RANK_num_c1_sfcsiz3 3
#   define RANK_num_c1_sfcsiz4 3
#   define RANK_num_c1_sfgaex2 3
#   define RANK_num_c2 4
#   define RANK_num_c2DDF 3
#   define RANK_num_c2GVF 3
#   define RANK_num_c2SFSBC 3
#   define RANK_num_c2SFSBS 3
#   define RANK_num_c2SFSIC 3
#   define RANK_num_c2SFSIS 3
#   define RANK_num_c2SFWET 3
#   define RANK_num_c2TBF 3
#   define RANK_num_c2_sfcsiz1 3
#   define RANK_num_c2_sfcsiz2 3
#   define RANK_num_c2_sfcsiz3 3
#   define RANK_num_c2_sfcsiz4 3
#   define RANK_num_c2_sfgaex2 3
#   define RANK_num_c3 4
#   define RANK_num_c3DDF 3
#   define RANK_num_c3GVF 3
#   define RANK_num_c3SFSBC 3
#   define RANK_num_c3SFSBS 3
#   define RANK_num_c3SFSIC 3
#   define RANK_num_c3SFSIS 3
#   define RANK_num_c3SFWET 3
#   define RANK_num_c3TBF 3
#   define RANK_num_c3_sfcsiz1 3
#   define RANK_num_c3_sfcsiz2 3
#   define RANK_pom_a1 4
#   define RANK_pom_a1DDF 3
#   define RANK_pom_a1GVF 3
#   define RANK_pom_a1SFSBC 3
#   define RANK_pom_a1SFSBS 3
#   define RANK_pom_a1SFSIC 3
#   define RANK_pom_a1SFSIS 3
#   define RANK_pom_a1SFWET 3
#   define RANK_pom_a1TBF 3
#   define RANK_pom_a1_CLXF 3
#   define RANK_pom_a1_XFRC 4
#   define RANK_pom_c1 4
#   define RANK_pom_c1DDF 3
#   define RANK_pom_c1GVF 3
#   define RANK_pom_c1SFSBC 3
#   define RANK_pom_c1SFSBS 3
#   define RANK_pom_c1SFSIC 3
#   define RANK_pom_c1SFSIS 3
#   define RANK_pom_c1SFWET 3
#   define RANK_pom_c1TBF 3
#   define RANK_so4_a1 4
#   define RANK_so4_a1DDF 3
#   define RANK_so4_a1GVF 3
#   define RANK_so4_a1SFSBC 3
#   define RANK_so4_a1SFSBS 3
#   define RANK_so4_a1SFSIC 3
#   define RANK_so4_a1SFSIS 3
#   define RANK_so4_a1SFWET 3
#   define RANK_so4_a1TBF 3
#   define RANK_so4_a1_CLXF 3
#   define RANK_so4_a1_XFRC 4
#   define RANK_so4_a1_sfcoag1 3
#   define RANK_so4_a1_sfcsiz3 3
#   define RANK_so4_a1_sfcsiz4 3
#   define RANK_so4_a1_sfgaex1 3
#   define RANK_so4_a1_sfgaex2 3
#   define RANK_so4_a2 4
#   define RANK_so4_a2DDF 3
#   define RANK_so4_a2GVF 3
#   define RANK_so4_a2SFSBC 3
#   define RANK_so4_a2SFSBS 3
#   define RANK_so4_a2SFSIC 3
#   define RANK_so4_a2SFSIS 3
#   define RANK_so4_a2SFWET 3
#   define RANK_so4_a2TBF 3
#   define RANK_so4_a2_CLXF 3
#   define RANK_so4_a2_XFRC 4
#   define RANK_so4_a2_sfcoag1 3
#   define RANK_so4_a2_sfcsiz3 3
#   define RANK_so4_a2_sfcsiz4 3
#   define RANK_so4_a2_sfgaex1 3
#   define RANK_so4_a2_sfgaex2 3
#   define RANK_so4_a2_sfnnuc1 3
#   define RANK_so4_a3 4
#   define RANK_so4_a3DDF 3
#   define RANK_so4_a3GVF 3
#   define RANK_so4_a3SFSBC 3
#   define RANK_so4_a3SFSBS 3
#   define RANK_so4_a3SFSIC 3
#   define RANK_so4_a3SFSIS 3
#   define RANK_so4_a3SFWET 3
#   define RANK_so4_a3TBF 3
#   define RANK_so4_a3_sfgaex1 3
#   define RANK_so4_c1 4
#   define RANK_so4_c1AQH2SO4 3
#   define RANK_so4_c1AQSO4 3
#   define RANK_so4_c1DDF 3
#   define RANK_so4_c1GVF 3
#   define RANK_so4_c1SFSBC 3
#   define RANK_so4_c1SFSBS 3
#   define RANK_so4_c1SFSIC 3
#   define RANK_so4_c1SFSIS 3
#   define RANK_so4_c1SFWET 3
#   define RANK_so4_c1TBF 3
#   define RANK_so4_c1_sfcsiz3 3
#   define RANK_so4_c1_sfcsiz4 3
#   define RANK_so4_c1_sfgaex2 3
#   define RANK_so4_c2 4
#   define RANK_so4_c2AQH2SO4 3
#   define RANK_so4_c2AQSO4 3
#   define RANK_so4_c2DDF 3
#   define RANK_so4_c2GVF 3
#   define RANK_so4_c2SFSBC 3
#   define RANK_so4_c2SFSBS 3
#   define RANK_so4_c2SFSIC 3
#   define RANK_so4_c2SFSIS 3
#   define RANK_so4_c2SFWET 3
#   define RANK_so4_c2TBF 3
#   define RANK_so4_c2_sfcsiz3 3
#   define RANK_so4_c2_sfcsiz4 3
#   define RANK_so4_c2_sfgaex2 3
#   define RANK_so4_c3 4
#   define RANK_so4_c3AQH2SO4 3
#   define RANK_so4_c3AQSO4 3
#   define RANK_so4_c3DDF 3
#   define RANK_so4_c3GVF 3
#   define RANK_so4_c3SFSBC 3
#   define RANK_so4_c3SFSBS 3
#   define RANK_so4_c3SFSIC 3
#   define RANK_so4_c3SFSIS 3
#   define RANK_so4_c3SFWET 3
#   define RANK_so4_c3TBF 3
#   define RANK_soa_a1 4
#   define RANK_soa_a1DDF 3
#   define RANK_soa_a1GVF 3
#   define RANK_soa_a1SFSBC 3
#   define RANK_soa_a1SFSBS 3
#   define RANK_soa_a1SFSIC 3
#   define RANK_soa_a1SFSIS 3
#   define RANK_soa_a1SFWET 3
#   define RANK_soa_a1TBF 3
#   define RANK_soa_a1_sfcoag1 3
#   define RANK_soa_a1_sfcsiz3 3
#   define RANK_soa_a1_sfcsiz4 3
#   define RANK_soa_a1_sfgaex1 3
#   define RANK_soa_a1_sfgaex2 3
#   define RANK_soa_a2 4
#   define RANK_soa_a2DDF 3
#   define RANK_soa_a2GVF 3
#   define RANK_soa_a2SFSBC 3
#   define RANK_soa_a2SFSBS 3
#   define RANK_soa_a2SFSIC 3
#   define RANK_soa_a2SFSIS 3
#   define RANK_soa_a2SFWET 3
#   define RANK_soa_a2TBF 3
#   define RANK_soa_a2_sfcoag1 3
#   define RANK_soa_a2_sfcsiz3 3
#   define RANK_soa_a2_sfcsiz4 3
#   define RANK_soa_a2_sfgaex1 3
#   define RANK_soa_a2_sfgaex2 3
#   define RANK_soa_c1 4
#   define RANK_soa_c1DDF 3
#   define RANK_soa_c1GVF 3
#   define RANK_soa_c1SFSBC 3
#   define RANK_soa_c1SFSBS 3
#   define RANK_soa_c1SFSIC 3
#   define RANK_soa_c1SFSIS 3
#   define RANK_soa_c1SFWET 3
#   define RANK_soa_c1TBF 3
#   define RANK_soa_c1_sfcsiz3 3
#   define RANK_soa_c1_sfcsiz4 3
#   define RANK_soa_c1_sfgaex2 3
#   define RANK_soa_c2 4
#   define RANK_soa_c2DDF 3
#   define RANK_soa_c2GVF 3
#   define RANK_soa_c2SFSBC 3
#   define RANK_soa_c2SFSBS 3
#   define RANK_soa_c2SFSIC 3
#   define RANK_soa_c2SFSIS 3
#   define RANK_soa_c2SFWET 3
#   define RANK_soa_c2TBF 3
#   define RANK_soa_c2_sfcsiz3 3
#   define RANK_soa_c2_sfcsiz4 3
#   define RANK_soa_c2_sfgaex2 3
#   define RANK_wat_a1 4
#   define RANK_wat_a2 4
#   define RANK_wat_a3 4

#ifdef EXTRA_TESTS
#define MEGABYTE 1048576
void
get_mem_used2(int *mem_used)
{
   char buf[30];
   FILE *pf;
   size_t page_size = 4092; /* For spock... */
   unsigned size; /*       total program size */
   unsigned resident;/*   resident set size */
   unsigned share;/*      shared pages */
   unsigned text;/*       text (code) */
   unsigned lib;/*        library */
   unsigned data;/*       data/stack */
   /*unsigned dt;          dirty pages (unused in Linux 2.6)*/

   assert(mem_used);
   
   snprintf(buf, 30, "/proc/%u/statm", (unsigned)getpid());
   if ((pf = fopen(buf, "r"))) 
   {
      fscanf(pf, "%u %u %u %u %u %u", &size, &resident, &share, 
	     &text, &lib, &data);
      *mem_used = (data * page_size) / MEGABYTE;
   }
   else
      *mem_used = -1;
  fclose(pf);
}
#endif 

int
main() 
{
   int  ncid;  /* netCDF id */

   /* dimension ids */
   int lat_dim;
   int lon_dim;
   int slat_dim;
   int slon_dim;
   int lev_dim;
   int ilev_dim;
   int isccp_prs_dim;
   int isccp_tau_dim;
   int isccp_prstau_dim;
   int time_dim;
   int tbnd_dim;
   int chars_dim;

   /* dimension lengths */
   size_t lat_len = 96;
   size_t lon_len = 144;
   size_t slat_len = 95;
   size_t slon_len = 144;
   size_t lev_len = 30;
   size_t ilev_len = 31;
   size_t isccp_prs_len = 7;
   size_t isccp_tau_len = 7;
   size_t isccp_prstau_len = 49;
   size_t time_len = NC_UNLIMITED;
   size_t tbnd_len = 2;
   size_t chars_len = 8;

   /* variable ids */
   int P0_id;
   int lat_id;
   int lon_id;
   int slat_id;
   int slon_id;
   int w_stag_id;
   int lev_id;
   int ilev_id;
   int isccp_prs_id;
   int isccp_tau_id;
   int isccp_prstau_id;
   int time_id;
   int time_bnds_id;
   int date_written_id;
   int time_written_id;
   int ntrm_id;
   int ntrn_id;
   int ntrk_id;
   int ndbase_id;
   int nsbase_id;
   int nbdate_id;
   int nbsec_id;
   int mdt_id;
   int nlon_id;
   int wnummax_id;
   int hyai_id;
   int hybi_id;
   int hyam_id;
   int hybm_id;
   int gw_id;
   int ndcur_id;
   int nscur_id;
   int date_id;
   int co2vmr_id;
   int ch4vmr_id;
   int n2ovmr_id;
   int f11vmr_id;
   int f12vmr_id;
   int sol_tsi_id;
   int datesec_id;
   int nsteph_id;
   int ABSORB_id;
   int AEROD_v_id;
   int AODABS_id;
   int AODDUST1_id;
   int AODDUST2_id;
   int AODDUST3_id;
   int AODMODE1_id;
   int AODMODE2_id;
   int AODMODE3_id;
   int AODVIS_id;
   int AQSO4_H2O2_id;
   int AQSO4_O3_id;
   int AQ_DMS_id;
   int AQ_H2O2_id;
   int AQ_H2SO4_id;
   int AQ_SO2_id;
   int AQ_SOAG_id;
   int AQ_bc_a1_id;
   int AQ_dst_a1_id;
   int AQ_dst_a3_id;
   int AQ_ncl_a1_id;
   int AQ_ncl_a2_id;
   int AQ_ncl_a3_id;
   int AQ_num_a1_id;
   int AQ_num_a2_id;
   int AQ_num_a3_id;
   int AQ_pom_a1_id;
   int AQ_so4_a1_id;
   int AQ_so4_a2_id;
   int AQ_so4_a3_id;
   int AQ_soa_a1_id;
   int AQ_soa_a2_id;
   int BPROD_id;
   int BURDEN1_id;
   int BURDEN2_id;
   int BURDEN3_id;
   int CCN1_id;
   int CCN2_id;
   int CCN3_id;
   int CCN4_id;
   int CCN5_id;
   int CCN6_id;
   int CLDHGH_id;
   int CLDICE_id;
   int CLDLIQ_id;
   int CLDLOW_id;
   int CLDMED_id;
   int CLDTOT_id;
   int CLOUD_id;
   int CMFDQ_id;
   int CMFDQR_id;
   int CMFDT_id;
   int CMFMC_id;
   int CMFMCDZM_id;
   int CONCLD_id;
   int DCQ_id;
   int DMS_id;
   int DSTODXC_id;
   int DSTSFDRY_id;
   int DSTSFMBL_id;
   int DSTSFWET_id;
   int DTCOND_id;
   int DTV_id;
   int EXTINCT_id;
   int FICE_id;
   int FLDS_id;
   int FLNS_id;
   int FLNSC_id;
   int FLNT_id;
   int FLNTC_id;
   int FLUT_id;
   int FLUTC_id;
   int FREQSH_id;
   int FREQZM_id;
   int FSDS_id;
   int FSDSC_id;
   int FSNS_id;
   int FSNSC_id;
   int FSNT_id;
   int FSNTC_id;
   int FSNTOA_id;
   int FSNTOAC_id;
   int FSUTOA_id;
   int GS_DMS_id;
   int GS_H2O2_id;
   int GS_H2SO4_id;
   int GS_SO2_id;
   int GS_SOAG_id;
   int GS_bc_a1_id;
   int GS_dst_a1_id;
   int GS_dst_a3_id;
   int GS_ncl_a1_id;
   int GS_ncl_a2_id;
   int GS_ncl_a3_id;
   int GS_num_a1_id;
   int GS_num_a2_id;
   int GS_num_a3_id;
   int GS_pom_a1_id;
   int GS_so4_a1_id;
   int GS_so4_a2_id;
   int GS_so4_a3_id;
   int GS_soa_a1_id;
   int GS_soa_a2_id;
   int H2O2_id;
   int H2SO4_id;
   int H2SO4_sfgaex1_id;
   int H2SO4_sfnnuc1_id;
   int ICEFRAC_id;
   int ICIMR_id;
   int ICWMR_id;
   int KVH_id;
   int KVM_id;
   int LANDFRAC_id;
   int LCLOUD_id;
   int LHFLX_id;
   int LND_MBL_id;
   int LWCF_id;
   int NDROPCOL_id;
   int NDROPMIX_id;
   int NDROPSNK_id;
   int NDROPSRC_id;
   int NUMICE_id;
   int NUMLIQ_id;
   int OCNFRAC_id;
   int ODV_bc_a1_id;
   int ODV_dst_a1_id;
   int ODV_dst_a3_id;
   int ODV_ncl_a1_id;
   int ODV_ncl_a3_id;
   int ODV_pom_a1_id;
   int ODV_so4_a1_id;
   int ODV_soa_a1_id;
   int OMEGA_id;
   int OMEGAT_id;
   int ORO_id;
   int PBLH_id;
   int PCONVB_id;
   int PCONVT_id;
   int PHIS_id;
   int PRECC_id;
   int PRECCDZM_id;
   int PRECL_id;
   int PRECSC_id;
   int PRECSH_id;
   int PRECSL_id;
   int PRECT_id;
   int PS_id;
   int PSL_id;
   int Q_id;
   int QC_id;
   int QFLX_id;
   int QREFHT_id;
   int QRL_id;
   int QRS_id;
   int QT_id;
   int QTFLX_id;
   int RAM1_id;
   int RELHUM_id;
   int RHREFHT_id;
   int SFCLDICE_id;
   int SFCLDLIQ_id;
   int SFI_id;
   int SFNUMICE_id;
   int SFNUMLIQ_id;
   int SHFLX_id;
   int SL_id;
   int SLFLX_id;
   int SLV_id;
   int SNOWHICE_id;
   int SNOWHLND_id;
   int SO2_id;
   int SO2_CLXF_id;
   int SO2_XFRC_id;
   int SOAG_id;
   int SOAG_sfgaex1_id;
   int SOLIN_id;
   int SPROD_id;
   int SRFRAD_id;
   int SSAVIS_id;
   int SSTODXC_id;
   int SSTSFDRY_id;
   int SSTSFMBL_id;
   int SSTSFWET_id;
   int SWCF_id;
   int T_id;
   int TAUTMSX_id;
   int TAUTMSY_id;
   int TAUX_id;
   int TAUY_id;
   int TGCLDCWP_id;
   int TGCLDIWP_id;
   int TGCLDLWP_id;
   int TKE_id;
   int TMQ_id;
   int TREFHT_id;
   int TREFMNAV_id;
   int TREFMXAV_id;
   int TROP_FD_id;
   int TROP_P_id;
   int TROP_PD_id;
   int TROP_T_id;
   int TROP_Z_id;
   int TS_id;
   int TSMN_id;
   int TSMX_id;
   int U_id;
   int UFLX_id;
   int US_id;
   int UU_id;
   int V_id;
   int VD01_id;
   int VFLX_id;
   int VQ_id;
   int VS_id;
   int VT_id;
   int VU_id;
   int VV_id;
   int WGUSTD_id;
   int WTKE_id;
   int XPH_LWC_id;
   int Z3_id;
   int airFV_id;
   int bc_a1_id;
   int bc_a1DDF_id;
   int bc_a1GVF_id;
   int bc_a1SFSBC_id;
   int bc_a1SFSBS_id;
   int bc_a1SFSIC_id;
   int bc_a1SFSIS_id;
   int bc_a1SFWET_id;
   int bc_a1TBF_id;
   int bc_a1_CLXF_id;
   int bc_a1_XFRC_id;
   int bc_c1_id;
   int bc_c1DDF_id;
   int bc_c1GVF_id;
   int bc_c1SFSBC_id;
   int bc_c1SFSBS_id;
   int bc_c1SFSIC_id;
   int bc_c1SFSIS_id;
   int bc_c1SFWET_id;
   int bc_c1TBF_id;
   int chem_trop_id;
   int chem_trop_tropop_id;
   int dgnd_a01_id;
   int dgnd_a02_id;
   int dgnd_a03_id;
   int dgnw_a01_id;
   int dgnw_a02_id;
   int dgnw_a03_id;
   int dst_a1_id;
   int dst_a1DDF_id;
   int dst_a1GVF_id;
   int dst_a1SF_id;
   int dst_a1SFSBC_id;
   int dst_a1SFSBS_id;
   int dst_a1SFSIC_id;
   int dst_a1SFSIS_id;
   int dst_a1SFWET_id;
   int dst_a1TBF_id;
   int dst_a3_id;
   int dst_a3DDF_id;
   int dst_a3GVF_id;
   int dst_a3SF_id;
   int dst_a3SFSBC_id;
   int dst_a3SFSBS_id;
   int dst_a3SFSIC_id;
   int dst_a3SFSIS_id;
   int dst_a3SFWET_id;
   int dst_a3TBF_id;
   int dst_c1_id;
   int dst_c1DDF_id;
   int dst_c1GVF_id;
   int dst_c1SFSBC_id;
   int dst_c1SFSBS_id;
   int dst_c1SFSIC_id;
   int dst_c1SFSIS_id;
   int dst_c1SFWET_id;
   int dst_c1TBF_id;
   int dst_c3_id;
   int dst_c3DDF_id;
   int dst_c3GVF_id;
   int dst_c3SFSBC_id;
   int dst_c3SFSBS_id;
   int dst_c3SFSIC_id;
   int dst_c3SFSIS_id;
   int dst_c3SFWET_id;
   int dst_c3TBF_id;
   int ncl_a1_id;
   int ncl_a1DDF_id;
   int ncl_a1GVF_id;
   int ncl_a1SF_id;
   int ncl_a1SFSBC_id;
   int ncl_a1SFSBS_id;
   int ncl_a1SFSIC_id;
   int ncl_a1SFSIS_id;
   int ncl_a1SFWET_id;
   int ncl_a1TBF_id;
   int ncl_a1_sfcoag1_id;
   int ncl_a1_sfcsiz3_id;
   int ncl_a1_sfcsiz4_id;
   int ncl_a1_sfgaex2_id;
   int ncl_a2_id;
   int ncl_a2DDF_id;
   int ncl_a2GVF_id;
   int ncl_a2SF_id;
   int ncl_a2SFSBC_id;
   int ncl_a2SFSBS_id;
   int ncl_a2SFSIC_id;
   int ncl_a2SFSIS_id;
   int ncl_a2SFWET_id;
   int ncl_a2TBF_id;
   int ncl_a2_sfcoag1_id;
   int ncl_a2_sfcsiz3_id;
   int ncl_a2_sfcsiz4_id;
   int ncl_a2_sfgaex2_id;
   int ncl_a3_id;
   int ncl_a3DDF_id;
   int ncl_a3GVF_id;
   int ncl_a3SF_id;
   int ncl_a3SFSBC_id;
   int ncl_a3SFSBS_id;
   int ncl_a3SFSIC_id;
   int ncl_a3SFSIS_id;
   int ncl_a3SFWET_id;
   int ncl_a3TBF_id;
   int ncl_c1_id;
   int ncl_c1DDF_id;
   int ncl_c1GVF_id;
   int ncl_c1SFSBC_id;
   int ncl_c1SFSBS_id;
   int ncl_c1SFSIC_id;
   int ncl_c1SFSIS_id;
   int ncl_c1SFWET_id;
   int ncl_c1TBF_id;
   int ncl_c1_sfcsiz3_id;
   int ncl_c1_sfcsiz4_id;
   int ncl_c1_sfgaex2_id;
   int ncl_c2_id;
   int ncl_c2DDF_id;
   int ncl_c2GVF_id;
   int ncl_c2SFSBC_id;
   int ncl_c2SFSBS_id;
   int ncl_c2SFSIC_id;
   int ncl_c2SFSIS_id;
   int ncl_c2SFWET_id;
   int ncl_c2TBF_id;
   int ncl_c2_sfcsiz3_id;
   int ncl_c2_sfcsiz4_id;
   int ncl_c2_sfgaex2_id;
   int ncl_c3_id;
   int ncl_c3DDF_id;
   int ncl_c3GVF_id;
   int ncl_c3SFSBC_id;
   int ncl_c3SFSBS_id;
   int ncl_c3SFSIC_id;
   int ncl_c3SFSIS_id;
   int ncl_c3SFWET_id;
   int ncl_c3TBF_id;
   int num_a1_id;
   int num_a1DDF_id;
   int num_a1GVF_id;
   int num_a1SFSBC_id;
   int num_a1SFSBS_id;
   int num_a1SFSIC_id;
   int num_a1SFSIS_id;
   int num_a1SFWET_id;
   int num_a1TBF_id;
   int num_a1_CLXF_id;
   int num_a1_XFRC_id;
   int num_a1_sfcoag1_id;
   int num_a1_sfcsiz1_id;
   int num_a1_sfcsiz2_id;
   int num_a1_sfcsiz3_id;
   int num_a1_sfcsiz4_id;
   int num_a1_sfgaex2_id;
   int num_a2_id;
   int num_a2DDF_id;
   int num_a2GVF_id;
   int num_a2SFSBC_id;
   int num_a2SFSBS_id;
   int num_a2SFSIC_id;
   int num_a2SFSIS_id;
   int num_a2SFWET_id;
   int num_a2TBF_id;
   int num_a2_CLXF_id;
   int num_a2_XFRC_id;
   int num_a2_sfcoag1_id;
   int num_a2_sfcsiz1_id;
   int num_a2_sfcsiz2_id;
   int num_a2_sfcsiz3_id;
   int num_a2_sfcsiz4_id;
   int num_a2_sfgaex2_id;
   int num_a2_sfnnuc1_id;
   int num_a3_id;
   int num_a3DDF_id;
   int num_a3GVF_id;
   int num_a3SFSBC_id;
   int num_a3SFSBS_id;
   int num_a3SFSIC_id;
   int num_a3SFSIS_id;
   int num_a3SFWET_id;
   int num_a3TBF_id;
   int num_a3_sfcsiz1_id;
   int num_a3_sfcsiz2_id;
   int num_c1_id;
   int num_c1DDF_id;
   int num_c1GVF_id;
   int num_c1SFSBC_id;
   int num_c1SFSBS_id;
   int num_c1SFSIC_id;
   int num_c1SFSIS_id;
   int num_c1SFWET_id;
   int num_c1TBF_id;
   int num_c1_sfcsiz1_id;
   int num_c1_sfcsiz2_id;
   int num_c1_sfcsiz3_id;
   int num_c1_sfcsiz4_id;
   int num_c1_sfgaex2_id;
   int num_c2_id;
   int num_c2DDF_id;
   int num_c2GVF_id;
   int num_c2SFSBC_id;
   int num_c2SFSBS_id;
   int num_c2SFSIC_id;
   int num_c2SFSIS_id;
   int num_c2SFWET_id;
   int num_c2TBF_id;
   int num_c2_sfcsiz1_id;
   int num_c2_sfcsiz2_id;
   int num_c2_sfcsiz3_id;
   int num_c2_sfcsiz4_id;
   int num_c2_sfgaex2_id;
   int num_c3_id;
   int num_c3DDF_id;
   int num_c3GVF_id;
   int num_c3SFSBC_id;
   int num_c3SFSBS_id;
   int num_c3SFSIC_id;
   int num_c3SFSIS_id;
   int num_c3SFWET_id;
   int num_c3TBF_id;
   int num_c3_sfcsiz1_id;
   int num_c3_sfcsiz2_id;
   int pom_a1_id;
   int pom_a1DDF_id;
   int pom_a1GVF_id;
   int pom_a1SFSBC_id;
   int pom_a1SFSBS_id;
   int pom_a1SFSIC_id;
   int pom_a1SFSIS_id;
   int pom_a1SFWET_id;
   int pom_a1TBF_id;
   int pom_a1_CLXF_id;
   int pom_a1_XFRC_id;
   int pom_c1_id;
   int pom_c1DDF_id;
   int pom_c1GVF_id;
   int pom_c1SFSBC_id;
   int pom_c1SFSBS_id;
   int pom_c1SFSIC_id;
   int pom_c1SFSIS_id;
   int pom_c1SFWET_id;
   int pom_c1TBF_id;
   int so4_a1_id;
   int so4_a1DDF_id;
   int so4_a1GVF_id;
   int so4_a1SFSBC_id;
   int so4_a1SFSBS_id;
   int so4_a1SFSIC_id;
   int so4_a1SFSIS_id;
   int so4_a1SFWET_id;
   int so4_a1TBF_id;
   int so4_a1_CLXF_id;
   int so4_a1_XFRC_id;
   int so4_a1_sfcoag1_id;
   int so4_a1_sfcsiz3_id;
   int so4_a1_sfcsiz4_id;
   int so4_a1_sfgaex1_id;
   int so4_a1_sfgaex2_id;
   int so4_a2_id;
   int so4_a2DDF_id;
   int so4_a2GVF_id;
   int so4_a2SFSBC_id;
   int so4_a2SFSBS_id;
   int so4_a2SFSIC_id;
   int so4_a2SFSIS_id;
   int so4_a2SFWET_id;
   int so4_a2TBF_id;
   int so4_a2_CLXF_id;
   int so4_a2_XFRC_id;
   int so4_a2_sfcoag1_id;
   int so4_a2_sfcsiz3_id;
   int so4_a2_sfcsiz4_id;
   int so4_a2_sfgaex1_id;
   int so4_a2_sfgaex2_id;
   int so4_a2_sfnnuc1_id;
   int so4_a3_id;
   int so4_a3DDF_id;
   int so4_a3GVF_id;
   int so4_a3SFSBC_id;
   int so4_a3SFSBS_id;
   int so4_a3SFSIC_id;
   int so4_a3SFSIS_id;
   int so4_a3SFWET_id;
   int so4_a3TBF_id;
   int so4_a3_sfgaex1_id;
   int so4_c1_id;
   int so4_c1AQH2SO4_id;
   int so4_c1AQSO4_id;
   int so4_c1DDF_id;
   int so4_c1GVF_id;
   int so4_c1SFSBC_id;
   int so4_c1SFSBS_id;
   int so4_c1SFSIC_id;
   int so4_c1SFSIS_id;
   int so4_c1SFWET_id;
   int so4_c1TBF_id;
   int so4_c1_sfcsiz3_id;
   int so4_c1_sfcsiz4_id;
   int so4_c1_sfgaex2_id;
   int so4_c2_id;
   int so4_c2AQH2SO4_id;
   int so4_c2AQSO4_id;
   int so4_c2DDF_id;
   int so4_c2GVF_id;
   int so4_c2SFSBC_id;
   int so4_c2SFSBS_id;
   int so4_c2SFSIC_id;
   int so4_c2SFSIS_id;
   int so4_c2SFWET_id;
   int so4_c2TBF_id;
   int so4_c2_sfcsiz3_id;
   int so4_c2_sfcsiz4_id;
   int so4_c2_sfgaex2_id;
   int so4_c3_id;
   int so4_c3AQH2SO4_id;
   int so4_c3AQSO4_id;
   int so4_c3DDF_id;
   int so4_c3GVF_id;
   int so4_c3SFSBC_id;
   int so4_c3SFSBS_id;
   int so4_c3SFSIC_id;
   int so4_c3SFSIS_id;
   int so4_c3SFWET_id;
   int so4_c3TBF_id;
   int soa_a1_id;
   int soa_a1DDF_id;
   int soa_a1GVF_id;
   int soa_a1SFSBC_id;
   int soa_a1SFSBS_id;
   int soa_a1SFSIC_id;
   int soa_a1SFSIS_id;
   int soa_a1SFWET_id;
   int soa_a1TBF_id;
   int soa_a1_sfcoag1_id;
   int soa_a1_sfcsiz3_id;
   int soa_a1_sfcsiz4_id;
   int soa_a1_sfgaex1_id;
   int soa_a1_sfgaex2_id;
   int soa_a2_id;
   int soa_a2DDF_id;
   int soa_a2GVF_id;
   int soa_a2SFSBC_id;
   int soa_a2SFSBS_id;
   int soa_a2SFSIC_id;
   int soa_a2SFSIS_id;
   int soa_a2SFWET_id;
   int soa_a2TBF_id;
   int soa_a2_sfcoag1_id;
   int soa_a2_sfcsiz3_id;
   int soa_a2_sfcsiz4_id;
   int soa_a2_sfgaex1_id;
   int soa_a2_sfgaex2_id;
   int soa_c1_id;
   int soa_c1DDF_id;
   int soa_c1GVF_id;
   int soa_c1SFSBC_id;
   int soa_c1SFSBS_id;
   int soa_c1SFSIC_id;
   int soa_c1SFSIS_id;
   int soa_c1SFWET_id;
   int soa_c1TBF_id;
   int soa_c1_sfcsiz3_id;
   int soa_c1_sfcsiz4_id;
   int soa_c1_sfgaex2_id;
   int soa_c2_id;
   int soa_c2DDF_id;
   int soa_c2GVF_id;
   int soa_c2SFSBC_id;
   int soa_c2SFSBS_id;
   int soa_c2SFSIC_id;
   int soa_c2SFSIS_id;
   int soa_c2SFWET_id;
   int soa_c2TBF_id;
   int soa_c2_sfcsiz3_id;
   int soa_c2_sfcsiz4_id;
   int soa_c2_sfgaex2_id;
   int wat_a1_id;
   int wat_a2_id;
   int wat_a3_id;


   /* variable shapes */
   int lat_dims[RANK_lat];
   int lon_dims[RANK_lon];
   int slat_dims[RANK_slat];
   int slon_dims[RANK_slon];
   int w_stag_dims[RANK_w_stag];
   int lev_dims[RANK_lev];
   int ilev_dims[RANK_ilev];
   int isccp_prs_dims[RANK_isccp_prs];
   int isccp_tau_dims[RANK_isccp_tau];
   int isccp_prstau_dims[RANK_isccp_prstau];
   int time_dims[RANK_time];
   int time_bnds_dims[RANK_time_bnds];
   int date_written_dims[RANK_date_written];
   int time_written_dims[RANK_time_written];
   int nlon_dims[RANK_nlon];
   int wnummax_dims[RANK_wnummax];
   int hyai_dims[RANK_hyai];
   int hybi_dims[RANK_hybi];
   int hyam_dims[RANK_hyam];
   int hybm_dims[RANK_hybm];
   int gw_dims[RANK_gw];
   int ndcur_dims[RANK_ndcur];
   int nscur_dims[RANK_nscur];
   int date_dims[RANK_date];
   int co2vmr_dims[RANK_co2vmr];
   int ch4vmr_dims[RANK_ch4vmr];
   int n2ovmr_dims[RANK_n2ovmr];
   int f11vmr_dims[RANK_f11vmr];
   int f12vmr_dims[RANK_f12vmr];
   int sol_tsi_dims[RANK_sol_tsi];
   int datesec_dims[RANK_datesec];
   int nsteph_dims[RANK_nsteph];
   int ABSORB_dims[RANK_ABSORB];
   int AEROD_v_dims[RANK_AEROD_v];
   int AODABS_dims[RANK_AODABS];
   int AODDUST1_dims[RANK_AODDUST1];
   int AODDUST2_dims[RANK_AODDUST2];
   int AODDUST3_dims[RANK_AODDUST3];
   int AODMODE1_dims[RANK_AODMODE1];
   int AODMODE2_dims[RANK_AODMODE2];
   int AODMODE3_dims[RANK_AODMODE3];
   int AODVIS_dims[RANK_AODVIS];
   int AQSO4_H2O2_dims[RANK_AQSO4_H2O2];
   int AQSO4_O3_dims[RANK_AQSO4_O3];
   int AQ_DMS_dims[RANK_AQ_DMS];
   int AQ_H2O2_dims[RANK_AQ_H2O2];
   int AQ_H2SO4_dims[RANK_AQ_H2SO4];
   int AQ_SO2_dims[RANK_AQ_SO2];
   int AQ_SOAG_dims[RANK_AQ_SOAG];
   int AQ_bc_a1_dims[RANK_AQ_bc_a1];
   int AQ_dst_a1_dims[RANK_AQ_dst_a1];
   int AQ_dst_a3_dims[RANK_AQ_dst_a3];
   int AQ_ncl_a1_dims[RANK_AQ_ncl_a1];
   int AQ_ncl_a2_dims[RANK_AQ_ncl_a2];
   int AQ_ncl_a3_dims[RANK_AQ_ncl_a3];
   int AQ_num_a1_dims[RANK_AQ_num_a1];
   int AQ_num_a2_dims[RANK_AQ_num_a2];
   int AQ_num_a3_dims[RANK_AQ_num_a3];
   int AQ_pom_a1_dims[RANK_AQ_pom_a1];
   int AQ_so4_a1_dims[RANK_AQ_so4_a1];
   int AQ_so4_a2_dims[RANK_AQ_so4_a2];
   int AQ_so4_a3_dims[RANK_AQ_so4_a3];
   int AQ_soa_a1_dims[RANK_AQ_soa_a1];
   int AQ_soa_a2_dims[RANK_AQ_soa_a2];
   int BPROD_dims[RANK_BPROD];
   int BURDEN1_dims[RANK_BURDEN1];
   int BURDEN2_dims[RANK_BURDEN2];
   int BURDEN3_dims[RANK_BURDEN3];
   int CCN1_dims[RANK_CCN1];
   int CCN2_dims[RANK_CCN2];
   int CCN3_dims[RANK_CCN3];
   int CCN4_dims[RANK_CCN4];
   int CCN5_dims[RANK_CCN5];
   int CCN6_dims[RANK_CCN6];
   int CLDHGH_dims[RANK_CLDHGH];
   int CLDICE_dims[RANK_CLDICE];
   int CLDLIQ_dims[RANK_CLDLIQ];
   int CLDLOW_dims[RANK_CLDLOW];
   int CLDMED_dims[RANK_CLDMED];
   int CLDTOT_dims[RANK_CLDTOT];
   int CLOUD_dims[RANK_CLOUD];
   int CMFDQ_dims[RANK_CMFDQ];
   int CMFDQR_dims[RANK_CMFDQR];
   int CMFDT_dims[RANK_CMFDT];
   int CMFMC_dims[RANK_CMFMC];
   int CMFMCDZM_dims[RANK_CMFMCDZM];
   int CONCLD_dims[RANK_CONCLD];
   int DCQ_dims[RANK_DCQ];
   int DMS_dims[RANK_DMS];
   int DSTODXC_dims[RANK_DSTODXC];
   int DSTSFDRY_dims[RANK_DSTSFDRY];
   int DSTSFMBL_dims[RANK_DSTSFMBL];
   int DSTSFWET_dims[RANK_DSTSFWET];
   int DTCOND_dims[RANK_DTCOND];
   int DTV_dims[RANK_DTV];
   int EXTINCT_dims[RANK_EXTINCT];
   int FICE_dims[RANK_FICE];
   int FLDS_dims[RANK_FLDS];
   int FLNS_dims[RANK_FLNS];
   int FLNSC_dims[RANK_FLNSC];
   int FLNT_dims[RANK_FLNT];
   int FLNTC_dims[RANK_FLNTC];
   int FLUT_dims[RANK_FLUT];
   int FLUTC_dims[RANK_FLUTC];
   int FREQSH_dims[RANK_FREQSH];
   int FREQZM_dims[RANK_FREQZM];
   int FSDS_dims[RANK_FSDS];
   int FSDSC_dims[RANK_FSDSC];
   int FSNS_dims[RANK_FSNS];
   int FSNSC_dims[RANK_FSNSC];
   int FSNT_dims[RANK_FSNT];
   int FSNTC_dims[RANK_FSNTC];
   int FSNTOA_dims[RANK_FSNTOA];
   int FSNTOAC_dims[RANK_FSNTOAC];
   int FSUTOA_dims[RANK_FSUTOA];
   int GS_DMS_dims[RANK_GS_DMS];
   int GS_H2O2_dims[RANK_GS_H2O2];
   int GS_H2SO4_dims[RANK_GS_H2SO4];
   int GS_SO2_dims[RANK_GS_SO2];
   int GS_SOAG_dims[RANK_GS_SOAG];
   int GS_bc_a1_dims[RANK_GS_bc_a1];
   int GS_dst_a1_dims[RANK_GS_dst_a1];
   int GS_dst_a3_dims[RANK_GS_dst_a3];
   int GS_ncl_a1_dims[RANK_GS_ncl_a1];
   int GS_ncl_a2_dims[RANK_GS_ncl_a2];
   int GS_ncl_a3_dims[RANK_GS_ncl_a3];
   int GS_num_a1_dims[RANK_GS_num_a1];
   int GS_num_a2_dims[RANK_GS_num_a2];
   int GS_num_a3_dims[RANK_GS_num_a3];
   int GS_pom_a1_dims[RANK_GS_pom_a1];
   int GS_so4_a1_dims[RANK_GS_so4_a1];
   int GS_so4_a2_dims[RANK_GS_so4_a2];
   int GS_so4_a3_dims[RANK_GS_so4_a3];
   int GS_soa_a1_dims[RANK_GS_soa_a1];
   int GS_soa_a2_dims[RANK_GS_soa_a2];
   int H2O2_dims[RANK_H2O2];
   int H2SO4_dims[RANK_H2SO4];
   int H2SO4_sfgaex1_dims[RANK_H2SO4_sfgaex1];
   int H2SO4_sfnnuc1_dims[RANK_H2SO4_sfnnuc1];
   int ICEFRAC_dims[RANK_ICEFRAC];
   int ICIMR_dims[RANK_ICIMR];
   int ICWMR_dims[RANK_ICWMR];
   int KVH_dims[RANK_KVH];
   int KVM_dims[RANK_KVM];
   int LANDFRAC_dims[RANK_LANDFRAC];
   int LCLOUD_dims[RANK_LCLOUD];
   int LHFLX_dims[RANK_LHFLX];
   int LND_MBL_dims[RANK_LND_MBL];
   int LWCF_dims[RANK_LWCF];
   int NDROPCOL_dims[RANK_NDROPCOL];
   int NDROPMIX_dims[RANK_NDROPMIX];
   int NDROPSNK_dims[RANK_NDROPSNK];
   int NDROPSRC_dims[RANK_NDROPSRC];
   int NUMICE_dims[RANK_NUMICE];
   int NUMLIQ_dims[RANK_NUMLIQ];
   int OCNFRAC_dims[RANK_OCNFRAC];
   int ODV_bc_a1_dims[RANK_ODV_bc_a1];
   int ODV_dst_a1_dims[RANK_ODV_dst_a1];
   int ODV_dst_a3_dims[RANK_ODV_dst_a3];
   int ODV_ncl_a1_dims[RANK_ODV_ncl_a1];
   int ODV_ncl_a3_dims[RANK_ODV_ncl_a3];
   int ODV_pom_a1_dims[RANK_ODV_pom_a1];
   int ODV_so4_a1_dims[RANK_ODV_so4_a1];
   int ODV_soa_a1_dims[RANK_ODV_soa_a1];
   int OMEGA_dims[RANK_OMEGA];
   int OMEGAT_dims[RANK_OMEGAT];
   int ORO_dims[RANK_ORO];
   int PBLH_dims[RANK_PBLH];
   int PCONVB_dims[RANK_PCONVB];
   int PCONVT_dims[RANK_PCONVT];
   int PHIS_dims[RANK_PHIS];
   int PRECC_dims[RANK_PRECC];
   int PRECCDZM_dims[RANK_PRECCDZM];
   int PRECL_dims[RANK_PRECL];
   int PRECSC_dims[RANK_PRECSC];
   int PRECSH_dims[RANK_PRECSH];
   int PRECSL_dims[RANK_PRECSL];
   int PRECT_dims[RANK_PRECT];
   int PS_dims[RANK_PS];
   int PSL_dims[RANK_PSL];
   int Q_dims[RANK_Q];
   int QC_dims[RANK_QC];
   int QFLX_dims[RANK_QFLX];
   int QREFHT_dims[RANK_QREFHT];
   int QRL_dims[RANK_QRL];
   int QRS_dims[RANK_QRS];
   int QT_dims[RANK_QT];
   int QTFLX_dims[RANK_QTFLX];
   int RAM1_dims[RANK_RAM1];
   int RELHUM_dims[RANK_RELHUM];
   int RHREFHT_dims[RANK_RHREFHT];
   int SFCLDICE_dims[RANK_SFCLDICE];
   int SFCLDLIQ_dims[RANK_SFCLDLIQ];
   int SFI_dims[RANK_SFI];
   int SFNUMICE_dims[RANK_SFNUMICE];
   int SFNUMLIQ_dims[RANK_SFNUMLIQ];
   int SHFLX_dims[RANK_SHFLX];
   int SL_dims[RANK_SL];
   int SLFLX_dims[RANK_SLFLX];
   int SLV_dims[RANK_SLV];
   int SNOWHICE_dims[RANK_SNOWHICE];
   int SNOWHLND_dims[RANK_SNOWHLND];
   int SO2_dims[RANK_SO2];
   int SO2_CLXF_dims[RANK_SO2_CLXF];
   int SO2_XFRC_dims[RANK_SO2_XFRC];
   int SOAG_dims[RANK_SOAG];
   int SOAG_sfgaex1_dims[RANK_SOAG_sfgaex1];
   int SOLIN_dims[RANK_SOLIN];
   int SPROD_dims[RANK_SPROD];
   int SRFRAD_dims[RANK_SRFRAD];
   int SSAVIS_dims[RANK_SSAVIS];
   int SSTODXC_dims[RANK_SSTODXC];
   int SSTSFDRY_dims[RANK_SSTSFDRY];
   int SSTSFMBL_dims[RANK_SSTSFMBL];
   int SSTSFWET_dims[RANK_SSTSFWET];
   int SWCF_dims[RANK_SWCF];
   int T_dims[RANK_T];
   int TAUTMSX_dims[RANK_TAUTMSX];
   int TAUTMSY_dims[RANK_TAUTMSY];
   int TAUX_dims[RANK_TAUX];
   int TAUY_dims[RANK_TAUY];
   int TGCLDCWP_dims[RANK_TGCLDCWP];
   int TGCLDIWP_dims[RANK_TGCLDIWP];
   int TGCLDLWP_dims[RANK_TGCLDLWP];
   int TKE_dims[RANK_TKE];
   int TMQ_dims[RANK_TMQ];
   int TREFHT_dims[RANK_TREFHT];
   int TREFMNAV_dims[RANK_TREFMNAV];
   int TREFMXAV_dims[RANK_TREFMXAV];
   int TROP_FD_dims[RANK_TROP_FD];
   int TROP_P_dims[RANK_TROP_P];
   int TROP_PD_dims[RANK_TROP_PD];
   int TROP_T_dims[RANK_TROP_T];
   int TROP_Z_dims[RANK_TROP_Z];
   int TS_dims[RANK_TS];
   int TSMN_dims[RANK_TSMN];
   int TSMX_dims[RANK_TSMX];
   int U_dims[RANK_U];
   int UFLX_dims[RANK_UFLX];
   int US_dims[RANK_US];
   int UU_dims[RANK_UU];
   int V_dims[RANK_V];
   int VD01_dims[RANK_VD01];
   int VFLX_dims[RANK_VFLX];
   int VQ_dims[RANK_VQ];
   int VS_dims[RANK_VS];
   int VT_dims[RANK_VT];
   int VU_dims[RANK_VU];
   int VV_dims[RANK_VV];
   int WGUSTD_dims[RANK_WGUSTD];
   int WTKE_dims[RANK_WTKE];
   int XPH_LWC_dims[RANK_XPH_LWC];
   int Z3_dims[RANK_Z3];
   int airFV_dims[RANK_airFV];
   int bc_a1_dims[RANK_bc_a1];
   int bc_a1DDF_dims[RANK_bc_a1DDF];
   int bc_a1GVF_dims[RANK_bc_a1GVF];
   int bc_a1SFSBC_dims[RANK_bc_a1SFSBC];
   int bc_a1SFSBS_dims[RANK_bc_a1SFSBS];
   int bc_a1SFSIC_dims[RANK_bc_a1SFSIC];
   int bc_a1SFSIS_dims[RANK_bc_a1SFSIS];
   int bc_a1SFWET_dims[RANK_bc_a1SFWET];
   int bc_a1TBF_dims[RANK_bc_a1TBF];
   int bc_a1_CLXF_dims[RANK_bc_a1_CLXF];
   int bc_a1_XFRC_dims[RANK_bc_a1_XFRC];
   int bc_c1_dims[RANK_bc_c1];
   int bc_c1DDF_dims[RANK_bc_c1DDF];
   int bc_c1GVF_dims[RANK_bc_c1GVF];
   int bc_c1SFSBC_dims[RANK_bc_c1SFSBC];
   int bc_c1SFSBS_dims[RANK_bc_c1SFSBS];
   int bc_c1SFSIC_dims[RANK_bc_c1SFSIC];
   int bc_c1SFSIS_dims[RANK_bc_c1SFSIS];
   int bc_c1SFWET_dims[RANK_bc_c1SFWET];
   int bc_c1TBF_dims[RANK_bc_c1TBF];
   int chem_trop_dims[RANK_chem_trop];
   int chem_trop_tropop_dims[RANK_chem_trop_tropop];
   int dgnd_a01_dims[RANK_dgnd_a01];
   int dgnd_a02_dims[RANK_dgnd_a02];
   int dgnd_a03_dims[RANK_dgnd_a03];
   int dgnw_a01_dims[RANK_dgnw_a01];
   int dgnw_a02_dims[RANK_dgnw_a02];
   int dgnw_a03_dims[RANK_dgnw_a03];
   int dst_a1_dims[RANK_dst_a1];
   int dst_a1DDF_dims[RANK_dst_a1DDF];
   int dst_a1GVF_dims[RANK_dst_a1GVF];
   int dst_a1SF_dims[RANK_dst_a1SF];
   int dst_a1SFSBC_dims[RANK_dst_a1SFSBC];
   int dst_a1SFSBS_dims[RANK_dst_a1SFSBS];
   int dst_a1SFSIC_dims[RANK_dst_a1SFSIC];
   int dst_a1SFSIS_dims[RANK_dst_a1SFSIS];
   int dst_a1SFWET_dims[RANK_dst_a1SFWET];
   int dst_a1TBF_dims[RANK_dst_a1TBF];
   int dst_a3_dims[RANK_dst_a3];
   int dst_a3DDF_dims[RANK_dst_a3DDF];
   int dst_a3GVF_dims[RANK_dst_a3GVF];
   int dst_a3SF_dims[RANK_dst_a3SF];
   int dst_a3SFSBC_dims[RANK_dst_a3SFSBC];
   int dst_a3SFSBS_dims[RANK_dst_a3SFSBS];
   int dst_a3SFSIC_dims[RANK_dst_a3SFSIC];
   int dst_a3SFSIS_dims[RANK_dst_a3SFSIS];
   int dst_a3SFWET_dims[RANK_dst_a3SFWET];
   int dst_a3TBF_dims[RANK_dst_a3TBF];
   int dst_c1_dims[RANK_dst_c1];
   int dst_c1DDF_dims[RANK_dst_c1DDF];
   int dst_c1GVF_dims[RANK_dst_c1GVF];
   int dst_c1SFSBC_dims[RANK_dst_c1SFSBC];
   int dst_c1SFSBS_dims[RANK_dst_c1SFSBS];
   int dst_c1SFSIC_dims[RANK_dst_c1SFSIC];
   int dst_c1SFSIS_dims[RANK_dst_c1SFSIS];
   int dst_c1SFWET_dims[RANK_dst_c1SFWET];
   int dst_c1TBF_dims[RANK_dst_c1TBF];
   int dst_c3_dims[RANK_dst_c3];
   int dst_c3DDF_dims[RANK_dst_c3DDF];
   int dst_c3GVF_dims[RANK_dst_c3GVF];
   int dst_c3SFSBC_dims[RANK_dst_c3SFSBC];
   int dst_c3SFSBS_dims[RANK_dst_c3SFSBS];
   int dst_c3SFSIC_dims[RANK_dst_c3SFSIC];
   int dst_c3SFSIS_dims[RANK_dst_c3SFSIS];
   int dst_c3SFWET_dims[RANK_dst_c3SFWET];
   int dst_c3TBF_dims[RANK_dst_c3TBF];
   int ncl_a1_dims[RANK_ncl_a1];
   int ncl_a1DDF_dims[RANK_ncl_a1DDF];
   int ncl_a1GVF_dims[RANK_ncl_a1GVF];
   int ncl_a1SF_dims[RANK_ncl_a1SF];
   int ncl_a1SFSBC_dims[RANK_ncl_a1SFSBC];
   int ncl_a1SFSBS_dims[RANK_ncl_a1SFSBS];
   int ncl_a1SFSIC_dims[RANK_ncl_a1SFSIC];
   int ncl_a1SFSIS_dims[RANK_ncl_a1SFSIS];
   int ncl_a1SFWET_dims[RANK_ncl_a1SFWET];
   int ncl_a1TBF_dims[RANK_ncl_a1TBF];
   int ncl_a1_sfcoag1_dims[RANK_ncl_a1_sfcoag1];
   int ncl_a1_sfcsiz3_dims[RANK_ncl_a1_sfcsiz3];
   int ncl_a1_sfcsiz4_dims[RANK_ncl_a1_sfcsiz4];
   int ncl_a1_sfgaex2_dims[RANK_ncl_a1_sfgaex2];
   int ncl_a2_dims[RANK_ncl_a2];
   int ncl_a2DDF_dims[RANK_ncl_a2DDF];
   int ncl_a2GVF_dims[RANK_ncl_a2GVF];
   int ncl_a2SF_dims[RANK_ncl_a2SF];
   int ncl_a2SFSBC_dims[RANK_ncl_a2SFSBC];
   int ncl_a2SFSBS_dims[RANK_ncl_a2SFSBS];
   int ncl_a2SFSIC_dims[RANK_ncl_a2SFSIC];
   int ncl_a2SFSIS_dims[RANK_ncl_a2SFSIS];
   int ncl_a2SFWET_dims[RANK_ncl_a2SFWET];
   int ncl_a2TBF_dims[RANK_ncl_a2TBF];
   int ncl_a2_sfcoag1_dims[RANK_ncl_a2_sfcoag1];
   int ncl_a2_sfcsiz3_dims[RANK_ncl_a2_sfcsiz3];
   int ncl_a2_sfcsiz4_dims[RANK_ncl_a2_sfcsiz4];
   int ncl_a2_sfgaex2_dims[RANK_ncl_a2_sfgaex2];
   int ncl_a3_dims[RANK_ncl_a3];
   int ncl_a3DDF_dims[RANK_ncl_a3DDF];
   int ncl_a3GVF_dims[RANK_ncl_a3GVF];
   int ncl_a3SF_dims[RANK_ncl_a3SF];
   int ncl_a3SFSBC_dims[RANK_ncl_a3SFSBC];
   int ncl_a3SFSBS_dims[RANK_ncl_a3SFSBS];
   int ncl_a3SFSIC_dims[RANK_ncl_a3SFSIC];
   int ncl_a3SFSIS_dims[RANK_ncl_a3SFSIS];
   int ncl_a3SFWET_dims[RANK_ncl_a3SFWET];
   int ncl_a3TBF_dims[RANK_ncl_a3TBF];
   int ncl_c1_dims[RANK_ncl_c1];
   int ncl_c1DDF_dims[RANK_ncl_c1DDF];
   int ncl_c1GVF_dims[RANK_ncl_c1GVF];
   int ncl_c1SFSBC_dims[RANK_ncl_c1SFSBC];
   int ncl_c1SFSBS_dims[RANK_ncl_c1SFSBS];
   int ncl_c1SFSIC_dims[RANK_ncl_c1SFSIC];
   int ncl_c1SFSIS_dims[RANK_ncl_c1SFSIS];
   int ncl_c1SFWET_dims[RANK_ncl_c1SFWET];
   int ncl_c1TBF_dims[RANK_ncl_c1TBF];
   int ncl_c1_sfcsiz3_dims[RANK_ncl_c1_sfcsiz3];
   int ncl_c1_sfcsiz4_dims[RANK_ncl_c1_sfcsiz4];
   int ncl_c1_sfgaex2_dims[RANK_ncl_c1_sfgaex2];
   int ncl_c2_dims[RANK_ncl_c2];
   int ncl_c2DDF_dims[RANK_ncl_c2DDF];
   int ncl_c2GVF_dims[RANK_ncl_c2GVF];
   int ncl_c2SFSBC_dims[RANK_ncl_c2SFSBC];
   int ncl_c2SFSBS_dims[RANK_ncl_c2SFSBS];
   int ncl_c2SFSIC_dims[RANK_ncl_c2SFSIC];
   int ncl_c2SFSIS_dims[RANK_ncl_c2SFSIS];
   int ncl_c2SFWET_dims[RANK_ncl_c2SFWET];
   int ncl_c2TBF_dims[RANK_ncl_c2TBF];
   int ncl_c2_sfcsiz3_dims[RANK_ncl_c2_sfcsiz3];
   int ncl_c2_sfcsiz4_dims[RANK_ncl_c2_sfcsiz4];
   int ncl_c2_sfgaex2_dims[RANK_ncl_c2_sfgaex2];
   int ncl_c3_dims[RANK_ncl_c3];
   int ncl_c3DDF_dims[RANK_ncl_c3DDF];
   int ncl_c3GVF_dims[RANK_ncl_c3GVF];
   int ncl_c3SFSBC_dims[RANK_ncl_c3SFSBC];
   int ncl_c3SFSBS_dims[RANK_ncl_c3SFSBS];
   int ncl_c3SFSIC_dims[RANK_ncl_c3SFSIC];
   int ncl_c3SFSIS_dims[RANK_ncl_c3SFSIS];
   int ncl_c3SFWET_dims[RANK_ncl_c3SFWET];
   int ncl_c3TBF_dims[RANK_ncl_c3TBF];
   int num_a1_dims[RANK_num_a1];
   int num_a1DDF_dims[RANK_num_a1DDF];
   int num_a1GVF_dims[RANK_num_a1GVF];
   int num_a1SFSBC_dims[RANK_num_a1SFSBC];
   int num_a1SFSBS_dims[RANK_num_a1SFSBS];
   int num_a1SFSIC_dims[RANK_num_a1SFSIC];
   int num_a1SFSIS_dims[RANK_num_a1SFSIS];
   int num_a1SFWET_dims[RANK_num_a1SFWET];
   int num_a1TBF_dims[RANK_num_a1TBF];
   int num_a1_CLXF_dims[RANK_num_a1_CLXF];
   int num_a1_XFRC_dims[RANK_num_a1_XFRC];
   int num_a1_sfcoag1_dims[RANK_num_a1_sfcoag1];
   int num_a1_sfcsiz1_dims[RANK_num_a1_sfcsiz1];
   int num_a1_sfcsiz2_dims[RANK_num_a1_sfcsiz2];
   int num_a1_sfcsiz3_dims[RANK_num_a1_sfcsiz3];
   int num_a1_sfcsiz4_dims[RANK_num_a1_sfcsiz4];
   int num_a1_sfgaex2_dims[RANK_num_a1_sfgaex2];
   int num_a2_dims[RANK_num_a2];
   int num_a2DDF_dims[RANK_num_a2DDF];
   int num_a2GVF_dims[RANK_num_a2GVF];
   int num_a2SFSBC_dims[RANK_num_a2SFSBC];
   int num_a2SFSBS_dims[RANK_num_a2SFSBS];
   int num_a2SFSIC_dims[RANK_num_a2SFSIC];
   int num_a2SFSIS_dims[RANK_num_a2SFSIS];
   int num_a2SFWET_dims[RANK_num_a2SFWET];
   int num_a2TBF_dims[RANK_num_a2TBF];
   int num_a2_CLXF_dims[RANK_num_a2_CLXF];
   int num_a2_XFRC_dims[RANK_num_a2_XFRC];
   int num_a2_sfcoag1_dims[RANK_num_a2_sfcoag1];
   int num_a2_sfcsiz1_dims[RANK_num_a2_sfcsiz1];
   int num_a2_sfcsiz2_dims[RANK_num_a2_sfcsiz2];
   int num_a2_sfcsiz3_dims[RANK_num_a2_sfcsiz3];
   int num_a2_sfcsiz4_dims[RANK_num_a2_sfcsiz4];
   int num_a2_sfgaex2_dims[RANK_num_a2_sfgaex2];
   int num_a2_sfnnuc1_dims[RANK_num_a2_sfnnuc1];
   int num_a3_dims[RANK_num_a3];
   int num_a3DDF_dims[RANK_num_a3DDF];
   int num_a3GVF_dims[RANK_num_a3GVF];
   int num_a3SFSBC_dims[RANK_num_a3SFSBC];
   int num_a3SFSBS_dims[RANK_num_a3SFSBS];
   int num_a3SFSIC_dims[RANK_num_a3SFSIC];
   int num_a3SFSIS_dims[RANK_num_a3SFSIS];
   int num_a3SFWET_dims[RANK_num_a3SFWET];
   int num_a3TBF_dims[RANK_num_a3TBF];
   int num_a3_sfcsiz1_dims[RANK_num_a3_sfcsiz1];
   int num_a3_sfcsiz2_dims[RANK_num_a3_sfcsiz2];
   int num_c1_dims[RANK_num_c1];
   int num_c1DDF_dims[RANK_num_c1DDF];
   int num_c1GVF_dims[RANK_num_c1GVF];
   int num_c1SFSBC_dims[RANK_num_c1SFSBC];
   int num_c1SFSBS_dims[RANK_num_c1SFSBS];
   int num_c1SFSIC_dims[RANK_num_c1SFSIC];
   int num_c1SFSIS_dims[RANK_num_c1SFSIS];
   int num_c1SFWET_dims[RANK_num_c1SFWET];
   int num_c1TBF_dims[RANK_num_c1TBF];
   int num_c1_sfcsiz1_dims[RANK_num_c1_sfcsiz1];
   int num_c1_sfcsiz2_dims[RANK_num_c1_sfcsiz2];
   int num_c1_sfcsiz3_dims[RANK_num_c1_sfcsiz3];
   int num_c1_sfcsiz4_dims[RANK_num_c1_sfcsiz4];
   int num_c1_sfgaex2_dims[RANK_num_c1_sfgaex2];
   int num_c2_dims[RANK_num_c2];
   int num_c2DDF_dims[RANK_num_c2DDF];
   int num_c2GVF_dims[RANK_num_c2GVF];
   int num_c2SFSBC_dims[RANK_num_c2SFSBC];
   int num_c2SFSBS_dims[RANK_num_c2SFSBS];
   int num_c2SFSIC_dims[RANK_num_c2SFSIC];
   int num_c2SFSIS_dims[RANK_num_c2SFSIS];
   int num_c2SFWET_dims[RANK_num_c2SFWET];
   int num_c2TBF_dims[RANK_num_c2TBF];
   int num_c2_sfcsiz1_dims[RANK_num_c2_sfcsiz1];
   int num_c2_sfcsiz2_dims[RANK_num_c2_sfcsiz2];
   int num_c2_sfcsiz3_dims[RANK_num_c2_sfcsiz3];
   int num_c2_sfcsiz4_dims[RANK_num_c2_sfcsiz4];
   int num_c2_sfgaex2_dims[RANK_num_c2_sfgaex2];
   int num_c3_dims[RANK_num_c3];
   int num_c3DDF_dims[RANK_num_c3DDF];
   int num_c3GVF_dims[RANK_num_c3GVF];
   int num_c3SFSBC_dims[RANK_num_c3SFSBC];
   int num_c3SFSBS_dims[RANK_num_c3SFSBS];
   int num_c3SFSIC_dims[RANK_num_c3SFSIC];
   int num_c3SFSIS_dims[RANK_num_c3SFSIS];
   int num_c3SFWET_dims[RANK_num_c3SFWET];
   int num_c3TBF_dims[RANK_num_c3TBF];
   int num_c3_sfcsiz1_dims[RANK_num_c3_sfcsiz1];
   int num_c3_sfcsiz2_dims[RANK_num_c3_sfcsiz2];
   int pom_a1_dims[RANK_pom_a1];
   int pom_a1DDF_dims[RANK_pom_a1DDF];
   int pom_a1GVF_dims[RANK_pom_a1GVF];
   int pom_a1SFSBC_dims[RANK_pom_a1SFSBC];
   int pom_a1SFSBS_dims[RANK_pom_a1SFSBS];
   int pom_a1SFSIC_dims[RANK_pom_a1SFSIC];
   int pom_a1SFSIS_dims[RANK_pom_a1SFSIS];
   int pom_a1SFWET_dims[RANK_pom_a1SFWET];
   int pom_a1TBF_dims[RANK_pom_a1TBF];
   int pom_a1_CLXF_dims[RANK_pom_a1_CLXF];
   int pom_a1_XFRC_dims[RANK_pom_a1_XFRC];
   int pom_c1_dims[RANK_pom_c1];
   int pom_c1DDF_dims[RANK_pom_c1DDF];
   int pom_c1GVF_dims[RANK_pom_c1GVF];
   int pom_c1SFSBC_dims[RANK_pom_c1SFSBC];
   int pom_c1SFSBS_dims[RANK_pom_c1SFSBS];
   int pom_c1SFSIC_dims[RANK_pom_c1SFSIC];
   int pom_c1SFSIS_dims[RANK_pom_c1SFSIS];
   int pom_c1SFWET_dims[RANK_pom_c1SFWET];
   int pom_c1TBF_dims[RANK_pom_c1TBF];
   int so4_a1_dims[RANK_so4_a1];
   int so4_a1DDF_dims[RANK_so4_a1DDF];
   int so4_a1GVF_dims[RANK_so4_a1GVF];
   int so4_a1SFSBC_dims[RANK_so4_a1SFSBC];
   int so4_a1SFSBS_dims[RANK_so4_a1SFSBS];
   int so4_a1SFSIC_dims[RANK_so4_a1SFSIC];
   int so4_a1SFSIS_dims[RANK_so4_a1SFSIS];
   int so4_a1SFWET_dims[RANK_so4_a1SFWET];
   int so4_a1TBF_dims[RANK_so4_a1TBF];
   int so4_a1_CLXF_dims[RANK_so4_a1_CLXF];
   int so4_a1_XFRC_dims[RANK_so4_a1_XFRC];
   int so4_a1_sfcoag1_dims[RANK_so4_a1_sfcoag1];
   int so4_a1_sfcsiz3_dims[RANK_so4_a1_sfcsiz3];
   int so4_a1_sfcsiz4_dims[RANK_so4_a1_sfcsiz4];
   int so4_a1_sfgaex1_dims[RANK_so4_a1_sfgaex1];
   int so4_a1_sfgaex2_dims[RANK_so4_a1_sfgaex2];
   int so4_a2_dims[RANK_so4_a2];
   int so4_a2DDF_dims[RANK_so4_a2DDF];
   int so4_a2GVF_dims[RANK_so4_a2GVF];
   int so4_a2SFSBC_dims[RANK_so4_a2SFSBC];
   int so4_a2SFSBS_dims[RANK_so4_a2SFSBS];
   int so4_a2SFSIC_dims[RANK_so4_a2SFSIC];
   int so4_a2SFSIS_dims[RANK_so4_a2SFSIS];
   int so4_a2SFWET_dims[RANK_so4_a2SFWET];
   int so4_a2TBF_dims[RANK_so4_a2TBF];
   int so4_a2_CLXF_dims[RANK_so4_a2_CLXF];
   int so4_a2_XFRC_dims[RANK_so4_a2_XFRC];
   int so4_a2_sfcoag1_dims[RANK_so4_a2_sfcoag1];
   int so4_a2_sfcsiz3_dims[RANK_so4_a2_sfcsiz3];
   int so4_a2_sfcsiz4_dims[RANK_so4_a2_sfcsiz4];
   int so4_a2_sfgaex1_dims[RANK_so4_a2_sfgaex1];
   int so4_a2_sfgaex2_dims[RANK_so4_a2_sfgaex2];
   int so4_a2_sfnnuc1_dims[RANK_so4_a2_sfnnuc1];
   int so4_a3_dims[RANK_so4_a3];
   int so4_a3DDF_dims[RANK_so4_a3DDF];
   int so4_a3GVF_dims[RANK_so4_a3GVF];
   int so4_a3SFSBC_dims[RANK_so4_a3SFSBC];
   int so4_a3SFSBS_dims[RANK_so4_a3SFSBS];
   int so4_a3SFSIC_dims[RANK_so4_a3SFSIC];
   int so4_a3SFSIS_dims[RANK_so4_a3SFSIS];
   int so4_a3SFWET_dims[RANK_so4_a3SFWET];
   int so4_a3TBF_dims[RANK_so4_a3TBF];
   int so4_a3_sfgaex1_dims[RANK_so4_a3_sfgaex1];
   int so4_c1_dims[RANK_so4_c1];
   int so4_c1AQH2SO4_dims[RANK_so4_c1AQH2SO4];
   int so4_c1AQSO4_dims[RANK_so4_c1AQSO4];
   int so4_c1DDF_dims[RANK_so4_c1DDF];
   int so4_c1GVF_dims[RANK_so4_c1GVF];
   int so4_c1SFSBC_dims[RANK_so4_c1SFSBC];
   int so4_c1SFSBS_dims[RANK_so4_c1SFSBS];
   int so4_c1SFSIC_dims[RANK_so4_c1SFSIC];
   int so4_c1SFSIS_dims[RANK_so4_c1SFSIS];
   int so4_c1SFWET_dims[RANK_so4_c1SFWET];
   int so4_c1TBF_dims[RANK_so4_c1TBF];
   int so4_c1_sfcsiz3_dims[RANK_so4_c1_sfcsiz3];
   int so4_c1_sfcsiz4_dims[RANK_so4_c1_sfcsiz4];
   int so4_c1_sfgaex2_dims[RANK_so4_c1_sfgaex2];
   int so4_c2_dims[RANK_so4_c2];
   int so4_c2AQH2SO4_dims[RANK_so4_c2AQH2SO4];
   int so4_c2AQSO4_dims[RANK_so4_c2AQSO4];
   int so4_c2DDF_dims[RANK_so4_c2DDF];
   int so4_c2GVF_dims[RANK_so4_c2GVF];
   int so4_c2SFSBC_dims[RANK_so4_c2SFSBC];
   int so4_c2SFSBS_dims[RANK_so4_c2SFSBS];
   int so4_c2SFSIC_dims[RANK_so4_c2SFSIC];
   int so4_c2SFSIS_dims[RANK_so4_c2SFSIS];
   int so4_c2SFWET_dims[RANK_so4_c2SFWET];
   int so4_c2TBF_dims[RANK_so4_c2TBF];
   int so4_c2_sfcsiz3_dims[RANK_so4_c2_sfcsiz3];
   int so4_c2_sfcsiz4_dims[RANK_so4_c2_sfcsiz4];
   int so4_c2_sfgaex2_dims[RANK_so4_c2_sfgaex2];
   int so4_c3_dims[RANK_so4_c3];
   int so4_c3AQH2SO4_dims[RANK_so4_c3AQH2SO4];
   int so4_c3AQSO4_dims[RANK_so4_c3AQSO4];
   int so4_c3DDF_dims[RANK_so4_c3DDF];
   int so4_c3GVF_dims[RANK_so4_c3GVF];
   int so4_c3SFSBC_dims[RANK_so4_c3SFSBC];
   int so4_c3SFSBS_dims[RANK_so4_c3SFSBS];
   int so4_c3SFSIC_dims[RANK_so4_c3SFSIC];
   int so4_c3SFSIS_dims[RANK_so4_c3SFSIS];
   int so4_c3SFWET_dims[RANK_so4_c3SFWET];
   int so4_c3TBF_dims[RANK_so4_c3TBF];
   int soa_a1_dims[RANK_soa_a1];
   int soa_a1DDF_dims[RANK_soa_a1DDF];
   int soa_a1GVF_dims[RANK_soa_a1GVF];
   int soa_a1SFSBC_dims[RANK_soa_a1SFSBC];
   int soa_a1SFSBS_dims[RANK_soa_a1SFSBS];
   int soa_a1SFSIC_dims[RANK_soa_a1SFSIC];
   int soa_a1SFSIS_dims[RANK_soa_a1SFSIS];
   int soa_a1SFWET_dims[RANK_soa_a1SFWET];
   int soa_a1TBF_dims[RANK_soa_a1TBF];
   int soa_a1_sfcoag1_dims[RANK_soa_a1_sfcoag1];
   int soa_a1_sfcsiz3_dims[RANK_soa_a1_sfcsiz3];
   int soa_a1_sfcsiz4_dims[RANK_soa_a1_sfcsiz4];
   int soa_a1_sfgaex1_dims[RANK_soa_a1_sfgaex1];
   int soa_a1_sfgaex2_dims[RANK_soa_a1_sfgaex2];
   int soa_a2_dims[RANK_soa_a2];
   int soa_a2DDF_dims[RANK_soa_a2DDF];
   int soa_a2GVF_dims[RANK_soa_a2GVF];
   int soa_a2SFSBC_dims[RANK_soa_a2SFSBC];
   int soa_a2SFSBS_dims[RANK_soa_a2SFSBS];
   int soa_a2SFSIC_dims[RANK_soa_a2SFSIC];
   int soa_a2SFSIS_dims[RANK_soa_a2SFSIS];
   int soa_a2SFWET_dims[RANK_soa_a2SFWET];
   int soa_a2TBF_dims[RANK_soa_a2TBF];
   int soa_a2_sfcoag1_dims[RANK_soa_a2_sfcoag1];
   int soa_a2_sfcsiz3_dims[RANK_soa_a2_sfcsiz3];
   int soa_a2_sfcsiz4_dims[RANK_soa_a2_sfcsiz4];
   int soa_a2_sfgaex1_dims[RANK_soa_a2_sfgaex1];
   int soa_a2_sfgaex2_dims[RANK_soa_a2_sfgaex2];
   int soa_c1_dims[RANK_soa_c1];
   int soa_c1DDF_dims[RANK_soa_c1DDF];
   int soa_c1GVF_dims[RANK_soa_c1GVF];
   int soa_c1SFSBC_dims[RANK_soa_c1SFSBC];
   int soa_c1SFSBS_dims[RANK_soa_c1SFSBS];
   int soa_c1SFSIC_dims[RANK_soa_c1SFSIC];
   int soa_c1SFSIS_dims[RANK_soa_c1SFSIS];
   int soa_c1SFWET_dims[RANK_soa_c1SFWET];
   int soa_c1TBF_dims[RANK_soa_c1TBF];
   int soa_c1_sfcsiz3_dims[RANK_soa_c1_sfcsiz3];
   int soa_c1_sfcsiz4_dims[RANK_soa_c1_sfcsiz4];
   int soa_c1_sfgaex2_dims[RANK_soa_c1_sfgaex2];
   int soa_c2_dims[RANK_soa_c2];
   int soa_c2DDF_dims[RANK_soa_c2DDF];
   int soa_c2GVF_dims[RANK_soa_c2GVF];
   int soa_c2SFSBC_dims[RANK_soa_c2SFSBC];
   int soa_c2SFSBS_dims[RANK_soa_c2SFSBS];
   int soa_c2SFSIC_dims[RANK_soa_c2SFSIC];
   int soa_c2SFSIS_dims[RANK_soa_c2SFSIS];
   int soa_c2SFWET_dims[RANK_soa_c2SFWET];
   int soa_c2TBF_dims[RANK_soa_c2TBF];
   int soa_c2_sfcsiz3_dims[RANK_soa_c2_sfcsiz3];
   int soa_c2_sfcsiz4_dims[RANK_soa_c2_sfcsiz4];
   int soa_c2_sfgaex2_dims[RANK_soa_c2_sfgaex2];
   int wat_a1_dims[RANK_wat_a1];
   int wat_a2_dims[RANK_wat_a2];
   int wat_a3_dims[RANK_wat_a3];
#ifdef EXTRA_TESTS
   int memused;
#endif /* EXTRA_TESTS */

   printf("\n*** Testing CAM output file in netCDF-4.\n");
   printf("*** creating file...");

#ifdef EXTRA_TESTS
   get_mem_used2(&memused);
   printf("data memory %d MB\n", memused);
#endif /* EXTRA_TESTS */

   if (nc_set_chunk_cache(0, 1009, .75)) ERR;

   /* enter define mode */
   if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;

   /* define dimensions */
   if (nc_def_dim(ncid, "lat", lat_len, &lat_dim)) ERR;
   if (nc_def_dim(ncid, "lon", lon_len, &lon_dim)) ERR;
   if (nc_def_dim(ncid, "slat", slat_len, &slat_dim)) ERR;
   if (nc_def_dim(ncid, "slon", slon_len, &slon_dim)) ERR;
   if (nc_def_dim(ncid, "lev", lev_len, &lev_dim)) ERR;
   if (nc_def_dim(ncid, "ilev", ilev_len, &ilev_dim)) ERR;
   if (nc_def_dim(ncid, "isccp_prs", isccp_prs_len, &isccp_prs_dim)) ERR;
   if (nc_def_dim(ncid, "isccp_tau", isccp_tau_len, &isccp_tau_dim)) ERR;
   if (nc_def_dim(ncid, "isccp_prstau", isccp_prstau_len, &isccp_prstau_dim)) ERR;
   if (nc_def_dim(ncid, "time", time_len, &time_dim)) ERR;
   if (nc_def_dim(ncid, "tbnd", tbnd_len, &tbnd_dim)) ERR;
   if (nc_def_dim(ncid, "chars", chars_len, &chars_dim)) ERR;

   /* define variables */

   if (nc_def_var(ncid, "P0", NC_DOUBLE, RANK_P0, 0, &P0_id)) ERR;

   lat_dims[0] = lat_dim;
   if (nc_def_var(ncid, "lat", NC_DOUBLE, RANK_lat, lat_dims, &lat_id)) ERR;

   lon_dims[0] = lon_dim;
   if (nc_def_var(ncid, "lon", NC_DOUBLE, RANK_lon, lon_dims, &lon_id)) ERR;

   slat_dims[0] = slat_dim;
   if (nc_def_var(ncid, "slat", NC_DOUBLE, RANK_slat, slat_dims, &slat_id)) ERR;

   slon_dims[0] = slon_dim;
   if (nc_def_var(ncid, "slon", NC_DOUBLE, RANK_slon, slon_dims, &slon_id)) ERR;

   w_stag_dims[0] = slat_dim;
   if (nc_def_var(ncid, "w_stag", NC_DOUBLE, RANK_w_stag, w_stag_dims, &w_stag_id)) ERR;

   lev_dims[0] = lev_dim;
   if (nc_def_var(ncid, "lev", NC_DOUBLE, RANK_lev, lev_dims, &lev_id)) ERR;

   ilev_dims[0] = ilev_dim;
   if (nc_def_var(ncid, "ilev", NC_DOUBLE, RANK_ilev, ilev_dims, &ilev_id)) ERR;

   isccp_prs_dims[0] = isccp_prs_dim;
   if (nc_def_var(ncid, "isccp_prs", NC_DOUBLE, RANK_isccp_prs, isccp_prs_dims, &isccp_prs_id)) ERR;

   isccp_tau_dims[0] = isccp_tau_dim;
   if (nc_def_var(ncid, "isccp_tau", NC_DOUBLE, RANK_isccp_tau, isccp_tau_dims, &isccp_tau_id)) ERR;

   isccp_prstau_dims[0] = isccp_prstau_dim;
   if (nc_def_var(ncid, "isccp_prstau", NC_DOUBLE, RANK_isccp_prstau, isccp_prstau_dims, &isccp_prstau_id)) ERR;

   time_dims[0] = time_dim;
   if (nc_def_var(ncid, "time", NC_DOUBLE, RANK_time, time_dims, &time_id)) ERR;

   time_bnds_dims[0] = time_dim;
   time_bnds_dims[1] = tbnd_dim;
   if (nc_def_var(ncid, "time_bnds", NC_DOUBLE, RANK_time_bnds, time_bnds_dims, &time_bnds_id)) ERR;

   date_written_dims[0] = time_dim;
   date_written_dims[1] = chars_dim;
   if (nc_def_var(ncid, "date_written", NC_CHAR, RANK_date_written, date_written_dims, &date_written_id)) ERR;

   time_written_dims[0] = time_dim;
   time_written_dims[1] = chars_dim;
   if (nc_def_var(ncid, "time_written", NC_CHAR, RANK_time_written, time_written_dims, &time_written_id)) ERR;

   if (nc_def_var(ncid, "ntrm", NC_INT, RANK_ntrm, 0, &ntrm_id)) ERR;

   if (nc_def_var(ncid, "ntrn", NC_INT, RANK_ntrn, 0, &ntrn_id)) ERR;

   if (nc_def_var(ncid, "ntrk", NC_INT, RANK_ntrk, 0, &ntrk_id)) ERR;

   if (nc_def_var(ncid, "ndbase", NC_INT, RANK_ndbase, 0, &ndbase_id)) ERR;

   if (nc_def_var(ncid, "nsbase", NC_INT, RANK_nsbase, 0, &nsbase_id)) ERR;

   if (nc_def_var(ncid, "nbdate", NC_INT, RANK_nbdate, 0, &nbdate_id)) ERR;

   if (nc_def_var(ncid, "nbsec", NC_INT, RANK_nbsec, 0, &nbsec_id)) ERR;

   if (nc_def_var(ncid, "mdt", NC_INT, RANK_mdt, 0, &mdt_id)) ERR;

   nlon_dims[0] = lat_dim;
   if (nc_def_var(ncid, "nlon", NC_INT, RANK_nlon, nlon_dims, &nlon_id)) ERR;

   wnummax_dims[0] = lat_dim;
   if (nc_def_var(ncid, "wnummax", NC_INT, RANK_wnummax, wnummax_dims, &wnummax_id)) ERR;

   hyai_dims[0] = ilev_dim;
   if (nc_def_var(ncid, "hyai", NC_DOUBLE, RANK_hyai, hyai_dims, &hyai_id)) ERR;

   hybi_dims[0] = ilev_dim;
   if (nc_def_var(ncid, "hybi", NC_DOUBLE, RANK_hybi, hybi_dims, &hybi_id)) ERR;

   hyam_dims[0] = lev_dim;
   if (nc_def_var(ncid, "hyam", NC_DOUBLE, RANK_hyam, hyam_dims, &hyam_id)) ERR;

   hybm_dims[0] = lev_dim;
   if (nc_def_var(ncid, "hybm", NC_DOUBLE, RANK_hybm, hybm_dims, &hybm_id)) ERR;

   gw_dims[0] = lat_dim;
   if (nc_def_var(ncid, "gw", NC_DOUBLE, RANK_gw, gw_dims, &gw_id)) ERR;

   ndcur_dims[0] = time_dim;
   if (nc_def_var(ncid, "ndcur", NC_INT, RANK_ndcur, ndcur_dims, &ndcur_id)) ERR;

   nscur_dims[0] = time_dim;
   if (nc_def_var(ncid, "nscur", NC_INT, RANK_nscur, nscur_dims, &nscur_id)) ERR;

   date_dims[0] = time_dim;
   if (nc_def_var(ncid, "date", NC_INT, RANK_date, date_dims, &date_id)) ERR;

   co2vmr_dims[0] = time_dim;
   if (nc_def_var(ncid, "co2vmr", NC_DOUBLE, RANK_co2vmr, co2vmr_dims, &co2vmr_id)) ERR;

   ch4vmr_dims[0] = time_dim;
   if (nc_def_var(ncid, "ch4vmr", NC_DOUBLE, RANK_ch4vmr, ch4vmr_dims, &ch4vmr_id)) ERR;

   n2ovmr_dims[0] = time_dim;
   if (nc_def_var(ncid, "n2ovmr", NC_DOUBLE, RANK_n2ovmr, n2ovmr_dims, &n2ovmr_id)) ERR;

   f11vmr_dims[0] = time_dim;
   if (nc_def_var(ncid, "f11vmr", NC_DOUBLE, RANK_f11vmr, f11vmr_dims, &f11vmr_id)) ERR;

   f12vmr_dims[0] = time_dim;
   if (nc_def_var(ncid, "f12vmr", NC_DOUBLE, RANK_f12vmr, f12vmr_dims, &f12vmr_id)) ERR;

   sol_tsi_dims[0] = time_dim;
   if (nc_def_var(ncid, "sol_tsi", NC_DOUBLE, RANK_sol_tsi, sol_tsi_dims, &sol_tsi_id)) ERR;

   datesec_dims[0] = time_dim;
   if (nc_def_var(ncid, "datesec", NC_INT, RANK_datesec, datesec_dims, &datesec_id)) ERR;

   nsteph_dims[0] = time_dim;
   if (nc_def_var(ncid, "nsteph", NC_INT, RANK_nsteph, nsteph_dims, &nsteph_id)) ERR;

   ABSORB_dims[0] = time_dim;
   ABSORB_dims[1] = lev_dim;
   ABSORB_dims[2] = lat_dim;
   ABSORB_dims[3] = lon_dim;
   if (nc_def_var(ncid, "ABSORB", NC_DOUBLE, RANK_ABSORB, ABSORB_dims, &ABSORB_id)) ERR;

   AEROD_v_dims[0] = time_dim;
   AEROD_v_dims[1] = lat_dim;
   AEROD_v_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AEROD_v", NC_DOUBLE, RANK_AEROD_v, AEROD_v_dims, &AEROD_v_id)) ERR;

   AODABS_dims[0] = time_dim;
   AODABS_dims[1] = lat_dim;
   AODABS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AODABS", NC_DOUBLE, RANK_AODABS, AODABS_dims, &AODABS_id)) ERR;

   AODDUST1_dims[0] = time_dim;
   AODDUST1_dims[1] = lat_dim;
   AODDUST1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AODDUST1", NC_DOUBLE, RANK_AODDUST1, AODDUST1_dims, &AODDUST1_id)) ERR;

   AODDUST2_dims[0] = time_dim;
   AODDUST2_dims[1] = lat_dim;
   AODDUST2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AODDUST2", NC_DOUBLE, RANK_AODDUST2, AODDUST2_dims, &AODDUST2_id)) ERR;

   AODDUST3_dims[0] = time_dim;
   AODDUST3_dims[1] = lat_dim;
   AODDUST3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AODDUST3", NC_DOUBLE, RANK_AODDUST3, AODDUST3_dims, &AODDUST3_id)) ERR;

   AODMODE1_dims[0] = time_dim;
   AODMODE1_dims[1] = lat_dim;
   AODMODE1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AODMODE1", NC_DOUBLE, RANK_AODMODE1, AODMODE1_dims, &AODMODE1_id)) ERR;

   AODMODE2_dims[0] = time_dim;
   AODMODE2_dims[1] = lat_dim;
   AODMODE2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AODMODE2", NC_DOUBLE, RANK_AODMODE2, AODMODE2_dims, &AODMODE2_id)) ERR;

   AODMODE3_dims[0] = time_dim;
   AODMODE3_dims[1] = lat_dim;
   AODMODE3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AODMODE3", NC_DOUBLE, RANK_AODMODE3, AODMODE3_dims, &AODMODE3_id)) ERR;

   AODVIS_dims[0] = time_dim;
   AODVIS_dims[1] = lat_dim;
   AODVIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AODVIS", NC_DOUBLE, RANK_AODVIS, AODVIS_dims, &AODVIS_id)) ERR;

   AQSO4_H2O2_dims[0] = time_dim;
   AQSO4_H2O2_dims[1] = lat_dim;
   AQSO4_H2O2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQSO4_H2O2", NC_DOUBLE, RANK_AQSO4_H2O2, AQSO4_H2O2_dims, &AQSO4_H2O2_id)) ERR;

   AQSO4_O3_dims[0] = time_dim;
   AQSO4_O3_dims[1] = lat_dim;
   AQSO4_O3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQSO4_O3", NC_DOUBLE, RANK_AQSO4_O3, AQSO4_O3_dims, &AQSO4_O3_id)) ERR;

   AQ_DMS_dims[0] = time_dim;
   AQ_DMS_dims[1] = lat_dim;
   AQ_DMS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_DMS", NC_DOUBLE, RANK_AQ_DMS, AQ_DMS_dims, &AQ_DMS_id)) ERR;

   AQ_H2O2_dims[0] = time_dim;
   AQ_H2O2_dims[1] = lat_dim;
   AQ_H2O2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_H2O2", NC_DOUBLE, RANK_AQ_H2O2, AQ_H2O2_dims, &AQ_H2O2_id)) ERR;

   AQ_H2SO4_dims[0] = time_dim;
   AQ_H2SO4_dims[1] = lat_dim;
   AQ_H2SO4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_H2SO4", NC_DOUBLE, RANK_AQ_H2SO4, AQ_H2SO4_dims, &AQ_H2SO4_id)) ERR;

   AQ_SO2_dims[0] = time_dim;
   AQ_SO2_dims[1] = lat_dim;
   AQ_SO2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_SO2", NC_DOUBLE, RANK_AQ_SO2, AQ_SO2_dims, &AQ_SO2_id)) ERR;

   AQ_SOAG_dims[0] = time_dim;
   AQ_SOAG_dims[1] = lat_dim;
   AQ_SOAG_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_SOAG", NC_DOUBLE, RANK_AQ_SOAG, AQ_SOAG_dims, &AQ_SOAG_id)) ERR;

   AQ_bc_a1_dims[0] = time_dim;
   AQ_bc_a1_dims[1] = lat_dim;
   AQ_bc_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_bc_a1", NC_DOUBLE, RANK_AQ_bc_a1, AQ_bc_a1_dims, &AQ_bc_a1_id)) ERR;

   AQ_dst_a1_dims[0] = time_dim;
   AQ_dst_a1_dims[1] = lat_dim;
   AQ_dst_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_dst_a1", NC_DOUBLE, RANK_AQ_dst_a1, AQ_dst_a1_dims, &AQ_dst_a1_id)) ERR;

   AQ_dst_a3_dims[0] = time_dim;
   AQ_dst_a3_dims[1] = lat_dim;
   AQ_dst_a3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_dst_a3", NC_DOUBLE, RANK_AQ_dst_a3, AQ_dst_a3_dims, &AQ_dst_a3_id)) ERR;

   AQ_ncl_a1_dims[0] = time_dim;
   AQ_ncl_a1_dims[1] = lat_dim;
   AQ_ncl_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_ncl_a1", NC_DOUBLE, RANK_AQ_ncl_a1, AQ_ncl_a1_dims, &AQ_ncl_a1_id)) ERR;

   AQ_ncl_a2_dims[0] = time_dim;
   AQ_ncl_a2_dims[1] = lat_dim;
   AQ_ncl_a2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_ncl_a2", NC_DOUBLE, RANK_AQ_ncl_a2, AQ_ncl_a2_dims, &AQ_ncl_a2_id)) ERR;

   AQ_ncl_a3_dims[0] = time_dim;
   AQ_ncl_a3_dims[1] = lat_dim;
   AQ_ncl_a3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_ncl_a3", NC_DOUBLE, RANK_AQ_ncl_a3, AQ_ncl_a3_dims, &AQ_ncl_a3_id)) ERR;

   AQ_num_a1_dims[0] = time_dim;
   AQ_num_a1_dims[1] = lat_dim;
   AQ_num_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_num_a1", NC_DOUBLE, RANK_AQ_num_a1, AQ_num_a1_dims, &AQ_num_a1_id)) ERR;

   AQ_num_a2_dims[0] = time_dim;
   AQ_num_a2_dims[1] = lat_dim;
   AQ_num_a2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_num_a2", NC_DOUBLE, RANK_AQ_num_a2, AQ_num_a2_dims, &AQ_num_a2_id)) ERR;

   AQ_num_a3_dims[0] = time_dim;
   AQ_num_a3_dims[1] = lat_dim;
   AQ_num_a3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_num_a3", NC_DOUBLE, RANK_AQ_num_a3, AQ_num_a3_dims, &AQ_num_a3_id)) ERR;

   AQ_pom_a1_dims[0] = time_dim;
   AQ_pom_a1_dims[1] = lat_dim;
   AQ_pom_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_pom_a1", NC_DOUBLE, RANK_AQ_pom_a1, AQ_pom_a1_dims, &AQ_pom_a1_id)) ERR;

   AQ_so4_a1_dims[0] = time_dim;
   AQ_so4_a1_dims[1] = lat_dim;
   AQ_so4_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_so4_a1", NC_DOUBLE, RANK_AQ_so4_a1, AQ_so4_a1_dims, &AQ_so4_a1_id)) ERR;

   AQ_so4_a2_dims[0] = time_dim;
   AQ_so4_a2_dims[1] = lat_dim;
   AQ_so4_a2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_so4_a2", NC_DOUBLE, RANK_AQ_so4_a2, AQ_so4_a2_dims, &AQ_so4_a2_id)) ERR;

   AQ_so4_a3_dims[0] = time_dim;
   AQ_so4_a3_dims[1] = lat_dim;
   AQ_so4_a3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_so4_a3", NC_DOUBLE, RANK_AQ_so4_a3, AQ_so4_a3_dims, &AQ_so4_a3_id)) ERR;

   AQ_soa_a1_dims[0] = time_dim;
   AQ_soa_a1_dims[1] = lat_dim;
   AQ_soa_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_soa_a1", NC_DOUBLE, RANK_AQ_soa_a1, AQ_soa_a1_dims, &AQ_soa_a1_id)) ERR;

   AQ_soa_a2_dims[0] = time_dim;
   AQ_soa_a2_dims[1] = lat_dim;
   AQ_soa_a2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "AQ_soa_a2", NC_DOUBLE, RANK_AQ_soa_a2, AQ_soa_a2_dims, &AQ_soa_a2_id)) ERR;

   BPROD_dims[0] = time_dim;
   BPROD_dims[1] = ilev_dim;
   BPROD_dims[2] = lat_dim;
   BPROD_dims[3] = lon_dim;
   if (nc_def_var(ncid, "BPROD", NC_DOUBLE, RANK_BPROD, BPROD_dims, &BPROD_id)) ERR;

   BURDEN1_dims[0] = time_dim;
   BURDEN1_dims[1] = lat_dim;
   BURDEN1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "BURDEN1", NC_DOUBLE, RANK_BURDEN1, BURDEN1_dims, &BURDEN1_id)) ERR;

   BURDEN2_dims[0] = time_dim;
   BURDEN2_dims[1] = lat_dim;
   BURDEN2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "BURDEN2", NC_DOUBLE, RANK_BURDEN2, BURDEN2_dims, &BURDEN2_id)) ERR;

   BURDEN3_dims[0] = time_dim;
   BURDEN3_dims[1] = lat_dim;
   BURDEN3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "BURDEN3", NC_DOUBLE, RANK_BURDEN3, BURDEN3_dims, &BURDEN3_id)) ERR;

   CCN1_dims[0] = time_dim;
   CCN1_dims[1] = lev_dim;
   CCN1_dims[2] = lat_dim;
   CCN1_dims[3] = lon_dim;
   if (nc_def_var(ncid, "CCN1", NC_DOUBLE, RANK_CCN1, CCN1_dims, &CCN1_id)) ERR;

   CCN2_dims[0] = time_dim;
   CCN2_dims[1] = lev_dim;
   CCN2_dims[2] = lat_dim;
   CCN2_dims[3] = lon_dim;
   if (nc_def_var(ncid, "CCN2", NC_DOUBLE, RANK_CCN2, CCN2_dims, &CCN2_id)) ERR;

   CCN3_dims[0] = time_dim;
   CCN3_dims[1] = lev_dim;
   CCN3_dims[2] = lat_dim;
   CCN3_dims[3] = lon_dim;
   if (nc_def_var(ncid, "CCN3", NC_DOUBLE, RANK_CCN3, CCN3_dims, &CCN3_id)) ERR;

   CCN4_dims[0] = time_dim;
   CCN4_dims[1] = lev_dim;
   CCN4_dims[2] = lat_dim;
   CCN4_dims[3] = lon_dim;
   if (nc_def_var(ncid, "CCN4", NC_DOUBLE, RANK_CCN4, CCN4_dims, &CCN4_id)) ERR;

   CCN5_dims[0] = time_dim;
   CCN5_dims[1] = lev_dim;
   CCN5_dims[2] = lat_dim;
   CCN5_dims[3] = lon_dim;
   if (nc_def_var(ncid, "CCN5", NC_DOUBLE, RANK_CCN5, CCN5_dims, &CCN5_id)) ERR;

   CCN6_dims[0] = time_dim;
   CCN6_dims[1] = lev_dim;
   CCN6_dims[2] = lat_dim;
   CCN6_dims[3] = lon_dim;
   if (nc_def_var(ncid, "CCN6", NC_DOUBLE, RANK_CCN6, CCN6_dims, &CCN6_id)) ERR;

   CLDHGH_dims[0] = time_dim;
   CLDHGH_dims[1] = lat_dim;
   CLDHGH_dims[2] = lon_dim;
   if (nc_def_var(ncid, "CLDHGH", NC_DOUBLE, RANK_CLDHGH, CLDHGH_dims, &CLDHGH_id)) ERR;

   CLDICE_dims[0] = time_dim;
   CLDICE_dims[1] = lev_dim;
   CLDICE_dims[2] = lat_dim;
   CLDICE_dims[3] = lon_dim;
   if (nc_def_var(ncid, "CLDICE", NC_DOUBLE, RANK_CLDICE, CLDICE_dims, &CLDICE_id)) ERR;

   CLDLIQ_dims[0] = time_dim;
   CLDLIQ_dims[1] = lev_dim;
   CLDLIQ_dims[2] = lat_dim;
   CLDLIQ_dims[3] = lon_dim;
   if (nc_def_var(ncid, "CLDLIQ", NC_DOUBLE, RANK_CLDLIQ, CLDLIQ_dims, &CLDLIQ_id)) ERR;

   CLDLOW_dims[0] = time_dim;
   CLDLOW_dims[1] = lat_dim;
   CLDLOW_dims[2] = lon_dim;
   if (nc_def_var(ncid, "CLDLOW", NC_DOUBLE, RANK_CLDLOW, CLDLOW_dims, &CLDLOW_id)) ERR;

   CLDMED_dims[0] = time_dim;
   CLDMED_dims[1] = lat_dim;
   CLDMED_dims[2] = lon_dim;
   if (nc_def_var(ncid, "CLDMED", NC_DOUBLE, RANK_CLDMED, CLDMED_dims, &CLDMED_id)) ERR;

   CLDTOT_dims[0] = time_dim;
   CLDTOT_dims[1] = lat_dim;
   CLDTOT_dims[2] = lon_dim;
   if (nc_def_var(ncid, "CLDTOT", NC_DOUBLE, RANK_CLDTOT, CLDTOT_dims, &CLDTOT_id)) ERR;

   CLOUD_dims[0] = time_dim;
   CLOUD_dims[1] = lev_dim;
   CLOUD_dims[2] = lat_dim;
   CLOUD_dims[3] = lon_dim;
   if (nc_def_var(ncid, "CLOUD", NC_DOUBLE, RANK_CLOUD, CLOUD_dims, &CLOUD_id)) ERR;

   CMFDQ_dims[0] = time_dim;
   CMFDQ_dims[1] = lev_dim;
   CMFDQ_dims[2] = lat_dim;
   CMFDQ_dims[3] = lon_dim;
   if (nc_def_var(ncid, "CMFDQ", NC_DOUBLE, RANK_CMFDQ, CMFDQ_dims, &CMFDQ_id)) ERR;

   CMFDQR_dims[0] = time_dim;
   CMFDQR_dims[1] = lev_dim;
   CMFDQR_dims[2] = lat_dim;
   CMFDQR_dims[3] = lon_dim;
   if (nc_def_var(ncid, "CMFDQR", NC_DOUBLE, RANK_CMFDQR, CMFDQR_dims, &CMFDQR_id)) ERR;

   CMFDT_dims[0] = time_dim;
   CMFDT_dims[1] = lev_dim;
   CMFDT_dims[2] = lat_dim;
   CMFDT_dims[3] = lon_dim;
   if (nc_def_var(ncid, "CMFDT", NC_DOUBLE, RANK_CMFDT, CMFDT_dims, &CMFDT_id)) ERR;

   CMFMC_dims[0] = time_dim;
   CMFMC_dims[1] = ilev_dim;
   CMFMC_dims[2] = lat_dim;
   CMFMC_dims[3] = lon_dim;
   if (nc_def_var(ncid, "CMFMC", NC_DOUBLE, RANK_CMFMC, CMFMC_dims, &CMFMC_id)) ERR;

   CMFMCDZM_dims[0] = time_dim;
   CMFMCDZM_dims[1] = ilev_dim;
   CMFMCDZM_dims[2] = lat_dim;
   CMFMCDZM_dims[3] = lon_dim;
   if (nc_def_var(ncid, "CMFMCDZM", NC_DOUBLE, RANK_CMFMCDZM, CMFMCDZM_dims, &CMFMCDZM_id)) ERR;

   CONCLD_dims[0] = time_dim;
   CONCLD_dims[1] = lev_dim;
   CONCLD_dims[2] = lat_dim;
   CONCLD_dims[3] = lon_dim;
   if (nc_def_var(ncid, "CONCLD", NC_DOUBLE, RANK_CONCLD, CONCLD_dims, &CONCLD_id)) ERR;

   DCQ_dims[0] = time_dim;
   DCQ_dims[1] = lev_dim;
   DCQ_dims[2] = lat_dim;
   DCQ_dims[3] = lon_dim;
   if (nc_def_var(ncid, "DCQ", NC_DOUBLE, RANK_DCQ, DCQ_dims, &DCQ_id)) ERR;

   DMS_dims[0] = time_dim;
   DMS_dims[1] = lev_dim;
   DMS_dims[2] = lat_dim;
   DMS_dims[3] = lon_dim;
   if (nc_def_var(ncid, "DMS", NC_DOUBLE, RANK_DMS, DMS_dims, &DMS_id)) ERR;

   DSTODXC_dims[0] = time_dim;
   DSTODXC_dims[1] = lat_dim;
   DSTODXC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "DSTODXC", NC_DOUBLE, RANK_DSTODXC, DSTODXC_dims, &DSTODXC_id)) ERR;

   DSTSFDRY_dims[0] = time_dim;
   DSTSFDRY_dims[1] = lat_dim;
   DSTSFDRY_dims[2] = lon_dim;
   if (nc_def_var(ncid, "DSTSFDRY", NC_DOUBLE, RANK_DSTSFDRY, DSTSFDRY_dims, &DSTSFDRY_id)) ERR;

   DSTSFMBL_dims[0] = time_dim;
   DSTSFMBL_dims[1] = lat_dim;
   DSTSFMBL_dims[2] = lon_dim;
   if (nc_def_var(ncid, "DSTSFMBL", NC_DOUBLE, RANK_DSTSFMBL, DSTSFMBL_dims, &DSTSFMBL_id)) ERR;

   DSTSFWET_dims[0] = time_dim;
   DSTSFWET_dims[1] = lat_dim;
   DSTSFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "DSTSFWET", NC_DOUBLE, RANK_DSTSFWET, DSTSFWET_dims, &DSTSFWET_id)) ERR;

   DTCOND_dims[0] = time_dim;
   DTCOND_dims[1] = lev_dim;
   DTCOND_dims[2] = lat_dim;
   DTCOND_dims[3] = lon_dim;
   if (nc_def_var(ncid, "DTCOND", NC_DOUBLE, RANK_DTCOND, DTCOND_dims, &DTCOND_id)) ERR;

   DTV_dims[0] = time_dim;
   DTV_dims[1] = lev_dim;
   DTV_dims[2] = lat_dim;
   DTV_dims[3] = lon_dim;
   if (nc_def_var(ncid, "DTV", NC_DOUBLE, RANK_DTV, DTV_dims, &DTV_id)) ERR;

   EXTINCT_dims[0] = time_dim;
   EXTINCT_dims[1] = lev_dim;
   EXTINCT_dims[2] = lat_dim;
   EXTINCT_dims[3] = lon_dim;
   if (nc_def_var(ncid, "EXTINCT", NC_DOUBLE, RANK_EXTINCT, EXTINCT_dims, &EXTINCT_id)) ERR;

   FICE_dims[0] = time_dim;
   FICE_dims[1] = lev_dim;
   FICE_dims[2] = lat_dim;
   FICE_dims[3] = lon_dim;
   if (nc_def_var(ncid, "FICE", NC_DOUBLE, RANK_FICE, FICE_dims, &FICE_id)) ERR;

   FLDS_dims[0] = time_dim;
   FLDS_dims[1] = lat_dim;
   FLDS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FLDS", NC_DOUBLE, RANK_FLDS, FLDS_dims, &FLDS_id)) ERR;

   FLNS_dims[0] = time_dim;
   FLNS_dims[1] = lat_dim;
   FLNS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FLNS", NC_DOUBLE, RANK_FLNS, FLNS_dims, &FLNS_id)) ERR;

   FLNSC_dims[0] = time_dim;
   FLNSC_dims[1] = lat_dim;
   FLNSC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FLNSC", NC_DOUBLE, RANK_FLNSC, FLNSC_dims, &FLNSC_id)) ERR;

   FLNT_dims[0] = time_dim;
   FLNT_dims[1] = lat_dim;
   FLNT_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FLNT", NC_DOUBLE, RANK_FLNT, FLNT_dims, &FLNT_id)) ERR;

   FLNTC_dims[0] = time_dim;
   FLNTC_dims[1] = lat_dim;
   FLNTC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FLNTC", NC_DOUBLE, RANK_FLNTC, FLNTC_dims, &FLNTC_id)) ERR;

   FLUT_dims[0] = time_dim;
   FLUT_dims[1] = lat_dim;
   FLUT_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FLUT", NC_DOUBLE, RANK_FLUT, FLUT_dims, &FLUT_id)) ERR;

   FLUTC_dims[0] = time_dim;
   FLUTC_dims[1] = lat_dim;
   FLUTC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FLUTC", NC_DOUBLE, RANK_FLUTC, FLUTC_dims, &FLUTC_id)) ERR;

   FREQSH_dims[0] = time_dim;
   FREQSH_dims[1] = lat_dim;
   FREQSH_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FREQSH", NC_DOUBLE, RANK_FREQSH, FREQSH_dims, &FREQSH_id)) ERR;

   FREQZM_dims[0] = time_dim;
   FREQZM_dims[1] = lat_dim;
   FREQZM_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FREQZM", NC_DOUBLE, RANK_FREQZM, FREQZM_dims, &FREQZM_id)) ERR;

   FSDS_dims[0] = time_dim;
   FSDS_dims[1] = lat_dim;
   FSDS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FSDS", NC_DOUBLE, RANK_FSDS, FSDS_dims, &FSDS_id)) ERR;

   FSDSC_dims[0] = time_dim;
   FSDSC_dims[1] = lat_dim;
   FSDSC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FSDSC", NC_DOUBLE, RANK_FSDSC, FSDSC_dims, &FSDSC_id)) ERR;

   FSNS_dims[0] = time_dim;
   FSNS_dims[1] = lat_dim;
   FSNS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FSNS", NC_DOUBLE, RANK_FSNS, FSNS_dims, &FSNS_id)) ERR;

   FSNSC_dims[0] = time_dim;
   FSNSC_dims[1] = lat_dim;
   FSNSC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FSNSC", NC_DOUBLE, RANK_FSNSC, FSNSC_dims, &FSNSC_id)) ERR;

   FSNT_dims[0] = time_dim;
   FSNT_dims[1] = lat_dim;
   FSNT_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FSNT", NC_DOUBLE, RANK_FSNT, FSNT_dims, &FSNT_id)) ERR;

   FSNTC_dims[0] = time_dim;
   FSNTC_dims[1] = lat_dim;
   FSNTC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FSNTC", NC_DOUBLE, RANK_FSNTC, FSNTC_dims, &FSNTC_id)) ERR;

   FSNTOA_dims[0] = time_dim;
   FSNTOA_dims[1] = lat_dim;
   FSNTOA_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FSNTOA", NC_DOUBLE, RANK_FSNTOA, FSNTOA_dims, &FSNTOA_id)) ERR;

   FSNTOAC_dims[0] = time_dim;
   FSNTOAC_dims[1] = lat_dim;
   FSNTOAC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FSNTOAC", NC_DOUBLE, RANK_FSNTOAC, FSNTOAC_dims, &FSNTOAC_id)) ERR;

   FSUTOA_dims[0] = time_dim;
   FSUTOA_dims[1] = lat_dim;
   FSUTOA_dims[2] = lon_dim;
   if (nc_def_var(ncid, "FSUTOA", NC_DOUBLE, RANK_FSUTOA, FSUTOA_dims, &FSUTOA_id)) ERR;

   GS_DMS_dims[0] = time_dim;
   GS_DMS_dims[1] = lat_dim;
   GS_DMS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_DMS", NC_DOUBLE, RANK_GS_DMS, GS_DMS_dims, &GS_DMS_id)) ERR;

   GS_H2O2_dims[0] = time_dim;
   GS_H2O2_dims[1] = lat_dim;
   GS_H2O2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_H2O2", NC_DOUBLE, RANK_GS_H2O2, GS_H2O2_dims, &GS_H2O2_id)) ERR;

   GS_H2SO4_dims[0] = time_dim;
   GS_H2SO4_dims[1] = lat_dim;
   GS_H2SO4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_H2SO4", NC_DOUBLE, RANK_GS_H2SO4, GS_H2SO4_dims, &GS_H2SO4_id)) ERR;

   GS_SO2_dims[0] = time_dim;
   GS_SO2_dims[1] = lat_dim;
   GS_SO2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_SO2", NC_DOUBLE, RANK_GS_SO2, GS_SO2_dims, &GS_SO2_id)) ERR;

   GS_SOAG_dims[0] = time_dim;
   GS_SOAG_dims[1] = lat_dim;
   GS_SOAG_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_SOAG", NC_DOUBLE, RANK_GS_SOAG, GS_SOAG_dims, &GS_SOAG_id)) ERR;

   GS_bc_a1_dims[0] = time_dim;
   GS_bc_a1_dims[1] = lat_dim;
   GS_bc_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_bc_a1", NC_DOUBLE, RANK_GS_bc_a1, GS_bc_a1_dims, &GS_bc_a1_id)) ERR;

   GS_dst_a1_dims[0] = time_dim;
   GS_dst_a1_dims[1] = lat_dim;
   GS_dst_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_dst_a1", NC_DOUBLE, RANK_GS_dst_a1, GS_dst_a1_dims, &GS_dst_a1_id)) ERR;

   GS_dst_a3_dims[0] = time_dim;
   GS_dst_a3_dims[1] = lat_dim;
   GS_dst_a3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_dst_a3", NC_DOUBLE, RANK_GS_dst_a3, GS_dst_a3_dims, &GS_dst_a3_id)) ERR;

   GS_ncl_a1_dims[0] = time_dim;
   GS_ncl_a1_dims[1] = lat_dim;
   GS_ncl_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_ncl_a1", NC_DOUBLE, RANK_GS_ncl_a1, GS_ncl_a1_dims, &GS_ncl_a1_id)) ERR;

   GS_ncl_a2_dims[0] = time_dim;
   GS_ncl_a2_dims[1] = lat_dim;
   GS_ncl_a2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_ncl_a2", NC_DOUBLE, RANK_GS_ncl_a2, GS_ncl_a2_dims, &GS_ncl_a2_id)) ERR;

   GS_ncl_a3_dims[0] = time_dim;
   GS_ncl_a3_dims[1] = lat_dim;
   GS_ncl_a3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_ncl_a3", NC_DOUBLE, RANK_GS_ncl_a3, GS_ncl_a3_dims, &GS_ncl_a3_id)) ERR;

   GS_num_a1_dims[0] = time_dim;
   GS_num_a1_dims[1] = lat_dim;
   GS_num_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_num_a1", NC_DOUBLE, RANK_GS_num_a1, GS_num_a1_dims, &GS_num_a1_id)) ERR;

   GS_num_a2_dims[0] = time_dim;
   GS_num_a2_dims[1] = lat_dim;
   GS_num_a2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_num_a2", NC_DOUBLE, RANK_GS_num_a2, GS_num_a2_dims, &GS_num_a2_id)) ERR;

   GS_num_a3_dims[0] = time_dim;
   GS_num_a3_dims[1] = lat_dim;
   GS_num_a3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_num_a3", NC_DOUBLE, RANK_GS_num_a3, GS_num_a3_dims, &GS_num_a3_id)) ERR;

   GS_pom_a1_dims[0] = time_dim;
   GS_pom_a1_dims[1] = lat_dim;
   GS_pom_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_pom_a1", NC_DOUBLE, RANK_GS_pom_a1, GS_pom_a1_dims, &GS_pom_a1_id)) ERR;

   GS_so4_a1_dims[0] = time_dim;
   GS_so4_a1_dims[1] = lat_dim;
   GS_so4_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_so4_a1", NC_DOUBLE, RANK_GS_so4_a1, GS_so4_a1_dims, &GS_so4_a1_id)) ERR;

   GS_so4_a2_dims[0] = time_dim;
   GS_so4_a2_dims[1] = lat_dim;
   GS_so4_a2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_so4_a2", NC_DOUBLE, RANK_GS_so4_a2, GS_so4_a2_dims, &GS_so4_a2_id)) ERR;

   GS_so4_a3_dims[0] = time_dim;
   GS_so4_a3_dims[1] = lat_dim;
   GS_so4_a3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_so4_a3", NC_DOUBLE, RANK_GS_so4_a3, GS_so4_a3_dims, &GS_so4_a3_id)) ERR;

   GS_soa_a1_dims[0] = time_dim;
   GS_soa_a1_dims[1] = lat_dim;
   GS_soa_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_soa_a1", NC_DOUBLE, RANK_GS_soa_a1, GS_soa_a1_dims, &GS_soa_a1_id)) ERR;

   GS_soa_a2_dims[0] = time_dim;
   GS_soa_a2_dims[1] = lat_dim;
   GS_soa_a2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "GS_soa_a2", NC_DOUBLE, RANK_GS_soa_a2, GS_soa_a2_dims, &GS_soa_a2_id)) ERR;

   H2O2_dims[0] = time_dim;
   H2O2_dims[1] = lev_dim;
   H2O2_dims[2] = lat_dim;
   H2O2_dims[3] = lon_dim;
   if (nc_def_var(ncid, "H2O2", NC_DOUBLE, RANK_H2O2, H2O2_dims, &H2O2_id)) ERR;

   H2SO4_dims[0] = time_dim;
   H2SO4_dims[1] = lev_dim;
   H2SO4_dims[2] = lat_dim;
   H2SO4_dims[3] = lon_dim;
   if (nc_def_var(ncid, "H2SO4", NC_DOUBLE, RANK_H2SO4, H2SO4_dims, &H2SO4_id)) ERR;

   H2SO4_sfgaex1_dims[0] = time_dim;
   H2SO4_sfgaex1_dims[1] = lat_dim;
   H2SO4_sfgaex1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "H2SO4_sfgaex1", NC_DOUBLE, RANK_H2SO4_sfgaex1, H2SO4_sfgaex1_dims, &H2SO4_sfgaex1_id)) ERR;

   H2SO4_sfnnuc1_dims[0] = time_dim;
   H2SO4_sfnnuc1_dims[1] = lat_dim;
   H2SO4_sfnnuc1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "H2SO4_sfnnuc1", NC_DOUBLE, RANK_H2SO4_sfnnuc1, H2SO4_sfnnuc1_dims, &H2SO4_sfnnuc1_id)) ERR;

   ICEFRAC_dims[0] = time_dim;
   ICEFRAC_dims[1] = lat_dim;
   ICEFRAC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ICEFRAC", NC_DOUBLE, RANK_ICEFRAC, ICEFRAC_dims, &ICEFRAC_id)) ERR;

   ICIMR_dims[0] = time_dim;
   ICIMR_dims[1] = lev_dim;
   ICIMR_dims[2] = lat_dim;
   ICIMR_dims[3] = lon_dim;
   if (nc_def_var(ncid, "ICIMR", NC_DOUBLE, RANK_ICIMR, ICIMR_dims, &ICIMR_id)) ERR;

   ICWMR_dims[0] = time_dim;
   ICWMR_dims[1] = lev_dim;
   ICWMR_dims[2] = lat_dim;
   ICWMR_dims[3] = lon_dim;
   if (nc_def_var(ncid, "ICWMR", NC_DOUBLE, RANK_ICWMR, ICWMR_dims, &ICWMR_id)) ERR;

   KVH_dims[0] = time_dim;
   KVH_dims[1] = ilev_dim;
   KVH_dims[2] = lat_dim;
   KVH_dims[3] = lon_dim;
   if (nc_def_var(ncid, "KVH", NC_DOUBLE, RANK_KVH, KVH_dims, &KVH_id)) ERR;

   KVM_dims[0] = time_dim;
   KVM_dims[1] = ilev_dim;
   KVM_dims[2] = lat_dim;
   KVM_dims[3] = lon_dim;
   if (nc_def_var(ncid, "KVM", NC_DOUBLE, RANK_KVM, KVM_dims, &KVM_id)) ERR;

   LANDFRAC_dims[0] = time_dim;
   LANDFRAC_dims[1] = lat_dim;
   LANDFRAC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "LANDFRAC", NC_DOUBLE, RANK_LANDFRAC, LANDFRAC_dims, &LANDFRAC_id)) ERR;

   LCLOUD_dims[0] = time_dim;
   LCLOUD_dims[1] = lev_dim;
   LCLOUD_dims[2] = lat_dim;
   LCLOUD_dims[3] = lon_dim;
   if (nc_def_var(ncid, "LCLOUD", NC_DOUBLE, RANK_LCLOUD, LCLOUD_dims, &LCLOUD_id)) ERR;

   LHFLX_dims[0] = time_dim;
   LHFLX_dims[1] = lat_dim;
   LHFLX_dims[2] = lon_dim;
   if (nc_def_var(ncid, "LHFLX", NC_DOUBLE, RANK_LHFLX, LHFLX_dims, &LHFLX_id)) ERR;

   LND_MBL_dims[0] = time_dim;
   LND_MBL_dims[1] = lat_dim;
   LND_MBL_dims[2] = lon_dim;
   if (nc_def_var(ncid, "LND_MBL", NC_DOUBLE, RANK_LND_MBL, LND_MBL_dims, &LND_MBL_id)) ERR;

   LWCF_dims[0] = time_dim;
   LWCF_dims[1] = lat_dim;
   LWCF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "LWCF", NC_DOUBLE, RANK_LWCF, LWCF_dims, &LWCF_id)) ERR;

   NDROPCOL_dims[0] = time_dim;
   NDROPCOL_dims[1] = lat_dim;
   NDROPCOL_dims[2] = lon_dim;
   if (nc_def_var(ncid, "NDROPCOL", NC_DOUBLE, RANK_NDROPCOL, NDROPCOL_dims, &NDROPCOL_id)) ERR;

   NDROPMIX_dims[0] = time_dim;
   NDROPMIX_dims[1] = lev_dim;
   NDROPMIX_dims[2] = lat_dim;
   NDROPMIX_dims[3] = lon_dim;
   if (nc_def_var(ncid, "NDROPMIX", NC_DOUBLE, RANK_NDROPMIX, NDROPMIX_dims, &NDROPMIX_id)) ERR;

   NDROPSNK_dims[0] = time_dim;
   NDROPSNK_dims[1] = lev_dim;
   NDROPSNK_dims[2] = lat_dim;
   NDROPSNK_dims[3] = lon_dim;
   if (nc_def_var(ncid, "NDROPSNK", NC_DOUBLE, RANK_NDROPSNK, NDROPSNK_dims, &NDROPSNK_id)) ERR;

   NDROPSRC_dims[0] = time_dim;
   NDROPSRC_dims[1] = lev_dim;
   NDROPSRC_dims[2] = lat_dim;
   NDROPSRC_dims[3] = lon_dim;
   if (nc_def_var(ncid, "NDROPSRC", NC_DOUBLE, RANK_NDROPSRC, NDROPSRC_dims, &NDROPSRC_id)) ERR;

   NUMICE_dims[0] = time_dim;
   NUMICE_dims[1] = lev_dim;
   NUMICE_dims[2] = lat_dim;
   NUMICE_dims[3] = lon_dim;
   if (nc_def_var(ncid, "NUMICE", NC_DOUBLE, RANK_NUMICE, NUMICE_dims, &NUMICE_id)) ERR;

   NUMLIQ_dims[0] = time_dim;
   NUMLIQ_dims[1] = lev_dim;
   NUMLIQ_dims[2] = lat_dim;
   NUMLIQ_dims[3] = lon_dim;
   if (nc_def_var(ncid, "NUMLIQ", NC_DOUBLE, RANK_NUMLIQ, NUMLIQ_dims, &NUMLIQ_id)) ERR;

   OCNFRAC_dims[0] = time_dim;
   OCNFRAC_dims[1] = lat_dim;
   OCNFRAC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "OCNFRAC", NC_DOUBLE, RANK_OCNFRAC, OCNFRAC_dims, &OCNFRAC_id)) ERR;

   ODV_bc_a1_dims[0] = time_dim;
   ODV_bc_a1_dims[1] = lat_dim;
   ODV_bc_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ODV_bc_a1", NC_DOUBLE, RANK_ODV_bc_a1, ODV_bc_a1_dims, &ODV_bc_a1_id)) ERR;

   ODV_dst_a1_dims[0] = time_dim;
   ODV_dst_a1_dims[1] = lat_dim;
   ODV_dst_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ODV_dst_a1", NC_DOUBLE, RANK_ODV_dst_a1, ODV_dst_a1_dims, &ODV_dst_a1_id)) ERR;

   ODV_dst_a3_dims[0] = time_dim;
   ODV_dst_a3_dims[1] = lat_dim;
   ODV_dst_a3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ODV_dst_a3", NC_DOUBLE, RANK_ODV_dst_a3, ODV_dst_a3_dims, &ODV_dst_a3_id)) ERR;

   ODV_ncl_a1_dims[0] = time_dim;
   ODV_ncl_a1_dims[1] = lat_dim;
   ODV_ncl_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ODV_ncl_a1", NC_DOUBLE, RANK_ODV_ncl_a1, ODV_ncl_a1_dims, &ODV_ncl_a1_id)) ERR;

   ODV_ncl_a3_dims[0] = time_dim;
   ODV_ncl_a3_dims[1] = lat_dim;
   ODV_ncl_a3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ODV_ncl_a3", NC_DOUBLE, RANK_ODV_ncl_a3, ODV_ncl_a3_dims, &ODV_ncl_a3_id)) ERR;

   ODV_pom_a1_dims[0] = time_dim;
   ODV_pom_a1_dims[1] = lat_dim;
   ODV_pom_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ODV_pom_a1", NC_DOUBLE, RANK_ODV_pom_a1, ODV_pom_a1_dims, &ODV_pom_a1_id)) ERR;

   ODV_so4_a1_dims[0] = time_dim;
   ODV_so4_a1_dims[1] = lat_dim;
   ODV_so4_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ODV_so4_a1", NC_DOUBLE, RANK_ODV_so4_a1, ODV_so4_a1_dims, &ODV_so4_a1_id)) ERR;

   ODV_soa_a1_dims[0] = time_dim;
   ODV_soa_a1_dims[1] = lat_dim;
   ODV_soa_a1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ODV_soa_a1", NC_DOUBLE, RANK_ODV_soa_a1, ODV_soa_a1_dims, &ODV_soa_a1_id)) ERR;

   OMEGA_dims[0] = time_dim;
   OMEGA_dims[1] = lev_dim;
   OMEGA_dims[2] = lat_dim;
   OMEGA_dims[3] = lon_dim;
   if (nc_def_var(ncid, "OMEGA", NC_DOUBLE, RANK_OMEGA, OMEGA_dims, &OMEGA_id)) ERR;

   OMEGAT_dims[0] = time_dim;
   OMEGAT_dims[1] = lev_dim;
   OMEGAT_dims[2] = lat_dim;
   OMEGAT_dims[3] = lon_dim;
   if (nc_def_var(ncid, "OMEGAT", NC_DOUBLE, RANK_OMEGAT, OMEGAT_dims, &OMEGAT_id)) ERR;

   ORO_dims[0] = time_dim;
   ORO_dims[1] = lat_dim;
   ORO_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ORO", NC_DOUBLE, RANK_ORO, ORO_dims, &ORO_id)) ERR;

   PBLH_dims[0] = time_dim;
   PBLH_dims[1] = lat_dim;
   PBLH_dims[2] = lon_dim;
   if (nc_def_var(ncid, "PBLH", NC_DOUBLE, RANK_PBLH, PBLH_dims, &PBLH_id)) ERR;

   PCONVB_dims[0] = time_dim;
   PCONVB_dims[1] = lat_dim;
   PCONVB_dims[2] = lon_dim;
   if (nc_def_var(ncid, "PCONVB", NC_DOUBLE, RANK_PCONVB, PCONVB_dims, &PCONVB_id)) ERR;

   PCONVT_dims[0] = time_dim;
   PCONVT_dims[1] = lat_dim;
   PCONVT_dims[2] = lon_dim;
   if (nc_def_var(ncid, "PCONVT", NC_DOUBLE, RANK_PCONVT, PCONVT_dims, &PCONVT_id)) ERR;

   PHIS_dims[0] = time_dim;
   PHIS_dims[1] = lat_dim;
   PHIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "PHIS", NC_DOUBLE, RANK_PHIS, PHIS_dims, &PHIS_id)) ERR;

   PRECC_dims[0] = time_dim;
   PRECC_dims[1] = lat_dim;
   PRECC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "PRECC", NC_DOUBLE, RANK_PRECC, PRECC_dims, &PRECC_id)) ERR;

   PRECCDZM_dims[0] = time_dim;
   PRECCDZM_dims[1] = lat_dim;
   PRECCDZM_dims[2] = lon_dim;
   if (nc_def_var(ncid, "PRECCDZM", NC_DOUBLE, RANK_PRECCDZM, PRECCDZM_dims, &PRECCDZM_id)) ERR;

   PRECL_dims[0] = time_dim;
   PRECL_dims[1] = lat_dim;
   PRECL_dims[2] = lon_dim;
   if (nc_def_var(ncid, "PRECL", NC_DOUBLE, RANK_PRECL, PRECL_dims, &PRECL_id)) ERR;

   PRECSC_dims[0] = time_dim;
   PRECSC_dims[1] = lat_dim;
   PRECSC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "PRECSC", NC_DOUBLE, RANK_PRECSC, PRECSC_dims, &PRECSC_id)) ERR;

   PRECSH_dims[0] = time_dim;
   PRECSH_dims[1] = lat_dim;
   PRECSH_dims[2] = lon_dim;
   if (nc_def_var(ncid, "PRECSH", NC_DOUBLE, RANK_PRECSH, PRECSH_dims, &PRECSH_id)) ERR;

   PRECSL_dims[0] = time_dim;
   PRECSL_dims[1] = lat_dim;
   PRECSL_dims[2] = lon_dim;
   if (nc_def_var(ncid, "PRECSL", NC_DOUBLE, RANK_PRECSL, PRECSL_dims, &PRECSL_id)) ERR;

   PRECT_dims[0] = time_dim;
   PRECT_dims[1] = lat_dim;
   PRECT_dims[2] = lon_dim;
   if (nc_def_var(ncid, "PRECT", NC_DOUBLE, RANK_PRECT, PRECT_dims, &PRECT_id)) ERR;

   PS_dims[0] = time_dim;
   PS_dims[1] = lat_dim;
   PS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "PS", NC_DOUBLE, RANK_PS, PS_dims, &PS_id)) ERR;

   PSL_dims[0] = time_dim;
   PSL_dims[1] = lat_dim;
   PSL_dims[2] = lon_dim;
   if (nc_def_var(ncid, "PSL", NC_DOUBLE, RANK_PSL, PSL_dims, &PSL_id)) ERR;

   Q_dims[0] = time_dim;
   Q_dims[1] = lev_dim;
   Q_dims[2] = lat_dim;
   Q_dims[3] = lon_dim;
   if (nc_def_var(ncid, "Q", NC_DOUBLE, RANK_Q, Q_dims, &Q_id)) ERR;

   QC_dims[0] = time_dim;
   QC_dims[1] = lev_dim;
   QC_dims[2] = lat_dim;
   QC_dims[3] = lon_dim;
   if (nc_def_var(ncid, "QC", NC_DOUBLE, RANK_QC, QC_dims, &QC_id)) ERR;

   QFLX_dims[0] = time_dim;
   QFLX_dims[1] = lat_dim;
   QFLX_dims[2] = lon_dim;
   if (nc_def_var(ncid, "QFLX", NC_DOUBLE, RANK_QFLX, QFLX_dims, &QFLX_id)) ERR;

   QREFHT_dims[0] = time_dim;
   QREFHT_dims[1] = lat_dim;
   QREFHT_dims[2] = lon_dim;
   if (nc_def_var(ncid, "QREFHT", NC_DOUBLE, RANK_QREFHT, QREFHT_dims, &QREFHT_id)) ERR;

   QRL_dims[0] = time_dim;
   QRL_dims[1] = lev_dim;
   QRL_dims[2] = lat_dim;
   QRL_dims[3] = lon_dim;
   if (nc_def_var(ncid, "QRL", NC_DOUBLE, RANK_QRL, QRL_dims, &QRL_id)) ERR;

   QRS_dims[0] = time_dim;
   QRS_dims[1] = lev_dim;
   QRS_dims[2] = lat_dim;
   QRS_dims[3] = lon_dim;
   if (nc_def_var(ncid, "QRS", NC_DOUBLE, RANK_QRS, QRS_dims, &QRS_id)) ERR;

   QT_dims[0] = time_dim;
   QT_dims[1] = lev_dim;
   QT_dims[2] = lat_dim;
   QT_dims[3] = lon_dim;
   if (nc_def_var(ncid, "QT", NC_DOUBLE, RANK_QT, QT_dims, &QT_id)) ERR;

   QTFLX_dims[0] = time_dim;
   QTFLX_dims[1] = ilev_dim;
   QTFLX_dims[2] = lat_dim;
   QTFLX_dims[3] = lon_dim;
   if (nc_def_var(ncid, "QTFLX", NC_DOUBLE, RANK_QTFLX, QTFLX_dims, &QTFLX_id)) ERR;

   RAM1_dims[0] = time_dim;
   RAM1_dims[1] = lat_dim;
   RAM1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "RAM1", NC_DOUBLE, RANK_RAM1, RAM1_dims, &RAM1_id)) ERR;

   RELHUM_dims[0] = time_dim;
   RELHUM_dims[1] = lev_dim;
   RELHUM_dims[2] = lat_dim;
   RELHUM_dims[3] = lon_dim;
   if (nc_def_var(ncid, "RELHUM", NC_DOUBLE, RANK_RELHUM, RELHUM_dims, &RELHUM_id)) ERR;

   RHREFHT_dims[0] = time_dim;
   RHREFHT_dims[1] = lat_dim;
   RHREFHT_dims[2] = lon_dim;
   if (nc_def_var(ncid, "RHREFHT", NC_DOUBLE, RANK_RHREFHT, RHREFHT_dims, &RHREFHT_id)) ERR;

   SFCLDICE_dims[0] = time_dim;
   SFCLDICE_dims[1] = lat_dim;
   SFCLDICE_dims[2] = lon_dim;
   if (nc_def_var(ncid, "SFCLDICE", NC_DOUBLE, RANK_SFCLDICE, SFCLDICE_dims, &SFCLDICE_id)) ERR;

   SFCLDLIQ_dims[0] = time_dim;
   SFCLDLIQ_dims[1] = lat_dim;
   SFCLDLIQ_dims[2] = lon_dim;
   if (nc_def_var(ncid, "SFCLDLIQ", NC_DOUBLE, RANK_SFCLDLIQ, SFCLDLIQ_dims, &SFCLDLIQ_id)) ERR;

   SFI_dims[0] = time_dim;
   SFI_dims[1] = ilev_dim;
   SFI_dims[2] = lat_dim;
   SFI_dims[3] = lon_dim;
   if (nc_def_var(ncid, "SFI", NC_DOUBLE, RANK_SFI, SFI_dims, &SFI_id)) ERR;

   SFNUMICE_dims[0] = time_dim;
   SFNUMICE_dims[1] = lat_dim;
   SFNUMICE_dims[2] = lon_dim;
   if (nc_def_var(ncid, "SFNUMICE", NC_DOUBLE, RANK_SFNUMICE, SFNUMICE_dims, &SFNUMICE_id)) ERR;

   SFNUMLIQ_dims[0] = time_dim;
   SFNUMLIQ_dims[1] = lat_dim;
   SFNUMLIQ_dims[2] = lon_dim;
   if (nc_def_var(ncid, "SFNUMLIQ", NC_DOUBLE, RANK_SFNUMLIQ, SFNUMLIQ_dims, &SFNUMLIQ_id)) ERR;

   SHFLX_dims[0] = time_dim;
   SHFLX_dims[1] = lat_dim;
   SHFLX_dims[2] = lon_dim;
   if (nc_def_var(ncid, "SHFLX", NC_DOUBLE, RANK_SHFLX, SHFLX_dims, &SHFLX_id)) ERR;

   SL_dims[0] = time_dim;
   SL_dims[1] = lev_dim;
   SL_dims[2] = lat_dim;
   SL_dims[3] = lon_dim;
   if (nc_def_var(ncid, "SL", NC_DOUBLE, RANK_SL, SL_dims, &SL_id)) ERR;

   SLFLX_dims[0] = time_dim;
   SLFLX_dims[1] = ilev_dim;
   SLFLX_dims[2] = lat_dim;
   SLFLX_dims[3] = lon_dim;
   if (nc_def_var(ncid, "SLFLX", NC_DOUBLE, RANK_SLFLX, SLFLX_dims, &SLFLX_id)) ERR;

   SLV_dims[0] = time_dim;
   SLV_dims[1] = lev_dim;
   SLV_dims[2] = lat_dim;
   SLV_dims[3] = lon_dim;
   if (nc_def_var(ncid, "SLV", NC_DOUBLE, RANK_SLV, SLV_dims, &SLV_id)) ERR;

   SNOWHICE_dims[0] = time_dim;
   SNOWHICE_dims[1] = lat_dim;
   SNOWHICE_dims[2] = lon_dim;
   if (nc_def_var(ncid, "SNOWHICE", NC_DOUBLE, RANK_SNOWHICE, SNOWHICE_dims, &SNOWHICE_id)) ERR;

   SNOWHLND_dims[0] = time_dim;
   SNOWHLND_dims[1] = lat_dim;
   SNOWHLND_dims[2] = lon_dim;
   if (nc_def_var(ncid, "SNOWHLND", NC_DOUBLE, RANK_SNOWHLND, SNOWHLND_dims, &SNOWHLND_id)) ERR;

   SO2_dims[0] = time_dim;
   SO2_dims[1] = lev_dim;
   SO2_dims[2] = lat_dim;
   SO2_dims[3] = lon_dim;
   if (nc_def_var(ncid, "SO2", NC_DOUBLE, RANK_SO2, SO2_dims, &SO2_id)) ERR;

   SO2_CLXF_dims[0] = time_dim;
   SO2_CLXF_dims[1] = lat_dim;
   SO2_CLXF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "SO2_CLXF", NC_DOUBLE, RANK_SO2_CLXF, SO2_CLXF_dims, &SO2_CLXF_id)) ERR;

   SO2_XFRC_dims[0] = time_dim;
   SO2_XFRC_dims[1] = lev_dim;
   SO2_XFRC_dims[2] = lat_dim;
   SO2_XFRC_dims[3] = lon_dim;
   if (nc_def_var(ncid, "SO2_XFRC", NC_DOUBLE, RANK_SO2_XFRC, SO2_XFRC_dims, &SO2_XFRC_id)) ERR;

   SOAG_dims[0] = time_dim;
   SOAG_dims[1] = lev_dim;
   SOAG_dims[2] = lat_dim;
   SOAG_dims[3] = lon_dim;
   if (nc_def_var(ncid, "SOAG", NC_DOUBLE, RANK_SOAG, SOAG_dims, &SOAG_id)) ERR;

   SOAG_sfgaex1_dims[0] = time_dim;
   SOAG_sfgaex1_dims[1] = lat_dim;
   SOAG_sfgaex1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "SOAG_sfgaex1", NC_DOUBLE, RANK_SOAG_sfgaex1, SOAG_sfgaex1_dims, &SOAG_sfgaex1_id)) ERR;

   SOLIN_dims[0] = time_dim;
   SOLIN_dims[1] = lat_dim;
   SOLIN_dims[2] = lon_dim;
   if (nc_def_var(ncid, "SOLIN", NC_DOUBLE, RANK_SOLIN, SOLIN_dims, &SOLIN_id)) ERR;

   SPROD_dims[0] = time_dim;
   SPROD_dims[1] = ilev_dim;
   SPROD_dims[2] = lat_dim;
   SPROD_dims[3] = lon_dim;
   if (nc_def_var(ncid, "SPROD", NC_DOUBLE, RANK_SPROD, SPROD_dims, &SPROD_id)) ERR;

   SRFRAD_dims[0] = time_dim;
   SRFRAD_dims[1] = lat_dim;
   SRFRAD_dims[2] = lon_dim;
   if (nc_def_var(ncid, "SRFRAD", NC_DOUBLE, RANK_SRFRAD, SRFRAD_dims, &SRFRAD_id)) ERR;

   SSAVIS_dims[0] = time_dim;
   SSAVIS_dims[1] = lat_dim;
   SSAVIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "SSAVIS", NC_DOUBLE, RANK_SSAVIS, SSAVIS_dims, &SSAVIS_id)) ERR;

   SSTODXC_dims[0] = time_dim;
   SSTODXC_dims[1] = lat_dim;
   SSTODXC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "SSTODXC", NC_DOUBLE, RANK_SSTODXC, SSTODXC_dims, &SSTODXC_id)) ERR;

   SSTSFDRY_dims[0] = time_dim;
   SSTSFDRY_dims[1] = lat_dim;
   SSTSFDRY_dims[2] = lon_dim;
   if (nc_def_var(ncid, "SSTSFDRY", NC_DOUBLE, RANK_SSTSFDRY, SSTSFDRY_dims, &SSTSFDRY_id)) ERR;

   SSTSFMBL_dims[0] = time_dim;
   SSTSFMBL_dims[1] = lat_dim;
   SSTSFMBL_dims[2] = lon_dim;
   if (nc_def_var(ncid, "SSTSFMBL", NC_DOUBLE, RANK_SSTSFMBL, SSTSFMBL_dims, &SSTSFMBL_id)) ERR;

   SSTSFWET_dims[0] = time_dim;
   SSTSFWET_dims[1] = lat_dim;
   SSTSFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "SSTSFWET", NC_DOUBLE, RANK_SSTSFWET, SSTSFWET_dims, &SSTSFWET_id)) ERR;

   SWCF_dims[0] = time_dim;
   SWCF_dims[1] = lat_dim;
   SWCF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "SWCF", NC_DOUBLE, RANK_SWCF, SWCF_dims, &SWCF_id)) ERR;

   T_dims[0] = time_dim;
   T_dims[1] = lev_dim;
   T_dims[2] = lat_dim;
   T_dims[3] = lon_dim;
   if (nc_def_var(ncid, "T", NC_DOUBLE, RANK_T, T_dims, &T_id)) ERR;

   TAUTMSX_dims[0] = time_dim;
   TAUTMSX_dims[1] = lat_dim;
   TAUTMSX_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TAUTMSX", NC_DOUBLE, RANK_TAUTMSX, TAUTMSX_dims, &TAUTMSX_id)) ERR;

   TAUTMSY_dims[0] = time_dim;
   TAUTMSY_dims[1] = lat_dim;
   TAUTMSY_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TAUTMSY", NC_DOUBLE, RANK_TAUTMSY, TAUTMSY_dims, &TAUTMSY_id)) ERR;

   TAUX_dims[0] = time_dim;
   TAUX_dims[1] = lat_dim;
   TAUX_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TAUX", NC_DOUBLE, RANK_TAUX, TAUX_dims, &TAUX_id)) ERR;

   TAUY_dims[0] = time_dim;
   TAUY_dims[1] = lat_dim;
   TAUY_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TAUY", NC_DOUBLE, RANK_TAUY, TAUY_dims, &TAUY_id)) ERR;

   TGCLDCWP_dims[0] = time_dim;
   TGCLDCWP_dims[1] = lat_dim;
   TGCLDCWP_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TGCLDCWP", NC_DOUBLE, RANK_TGCLDCWP, TGCLDCWP_dims, &TGCLDCWP_id)) ERR;

   TGCLDIWP_dims[0] = time_dim;
   TGCLDIWP_dims[1] = lat_dim;
   TGCLDIWP_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TGCLDIWP", NC_DOUBLE, RANK_TGCLDIWP, TGCLDIWP_dims, &TGCLDIWP_id)) ERR;

   TGCLDLWP_dims[0] = time_dim;
   TGCLDLWP_dims[1] = lat_dim;
   TGCLDLWP_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TGCLDLWP", NC_DOUBLE, RANK_TGCLDLWP, TGCLDLWP_dims, &TGCLDLWP_id)) ERR;

   TKE_dims[0] = time_dim;
   TKE_dims[1] = ilev_dim;
   TKE_dims[2] = lat_dim;
   TKE_dims[3] = lon_dim;
   if (nc_def_var(ncid, "TKE", NC_DOUBLE, RANK_TKE, TKE_dims, &TKE_id)) ERR;

   TMQ_dims[0] = time_dim;
   TMQ_dims[1] = lat_dim;
   TMQ_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TMQ", NC_DOUBLE, RANK_TMQ, TMQ_dims, &TMQ_id)) ERR;

   TREFHT_dims[0] = time_dim;
   TREFHT_dims[1] = lat_dim;
   TREFHT_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TREFHT", NC_DOUBLE, RANK_TREFHT, TREFHT_dims, &TREFHT_id)) ERR;

   TREFMNAV_dims[0] = time_dim;
   TREFMNAV_dims[1] = lat_dim;
   TREFMNAV_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TREFMNAV", NC_DOUBLE, RANK_TREFMNAV, TREFMNAV_dims, &TREFMNAV_id)) ERR;

   TREFMXAV_dims[0] = time_dim;
   TREFMXAV_dims[1] = lat_dim;
   TREFMXAV_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TREFMXAV", NC_DOUBLE, RANK_TREFMXAV, TREFMXAV_dims, &TREFMXAV_id)) ERR;

   TROP_FD_dims[0] = time_dim;
   TROP_FD_dims[1] = lat_dim;
   TROP_FD_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TROP_FD", NC_DOUBLE, RANK_TROP_FD, TROP_FD_dims, &TROP_FD_id)) ERR;

   TROP_P_dims[0] = time_dim;
   TROP_P_dims[1] = lat_dim;
   TROP_P_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TROP_P", NC_DOUBLE, RANK_TROP_P, TROP_P_dims, &TROP_P_id)) ERR;

   TROP_PD_dims[0] = time_dim;
   TROP_PD_dims[1] = lev_dim;
   TROP_PD_dims[2] = lat_dim;
   TROP_PD_dims[3] = lon_dim;
   if (nc_def_var(ncid, "TROP_PD", NC_DOUBLE, RANK_TROP_PD, TROP_PD_dims, &TROP_PD_id)) ERR;

   TROP_T_dims[0] = time_dim;
   TROP_T_dims[1] = lat_dim;
   TROP_T_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TROP_T", NC_DOUBLE, RANK_TROP_T, TROP_T_dims, &TROP_T_id)) ERR;

   TROP_Z_dims[0] = time_dim;
   TROP_Z_dims[1] = lat_dim;
   TROP_Z_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TROP_Z", NC_DOUBLE, RANK_TROP_Z, TROP_Z_dims, &TROP_Z_id)) ERR;

   TS_dims[0] = time_dim;
   TS_dims[1] = lat_dim;
   TS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TS", NC_DOUBLE, RANK_TS, TS_dims, &TS_id)) ERR;

   TSMN_dims[0] = time_dim;
   TSMN_dims[1] = lat_dim;
   TSMN_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TSMN", NC_DOUBLE, RANK_TSMN, TSMN_dims, &TSMN_id)) ERR;

   TSMX_dims[0] = time_dim;
   TSMX_dims[1] = lat_dim;
   TSMX_dims[2] = lon_dim;
   if (nc_def_var(ncid, "TSMX", NC_DOUBLE, RANK_TSMX, TSMX_dims, &TSMX_id)) ERR;

   U_dims[0] = time_dim;
   U_dims[1] = lev_dim;
   U_dims[2] = lat_dim;
   U_dims[3] = lon_dim;
   if (nc_def_var(ncid, "U", NC_DOUBLE, RANK_U, U_dims, &U_id)) ERR;

   UFLX_dims[0] = time_dim;
   UFLX_dims[1] = ilev_dim;
   UFLX_dims[2] = lat_dim;
   UFLX_dims[3] = lon_dim;
   if (nc_def_var(ncid, "UFLX", NC_DOUBLE, RANK_UFLX, UFLX_dims, &UFLX_id)) ERR;

   US_dims[0] = time_dim;
   US_dims[1] = lev_dim;
   US_dims[2] = slat_dim;
   US_dims[3] = lon_dim;
   if (nc_def_var(ncid, "US", NC_DOUBLE, RANK_US, US_dims, &US_id)) ERR;

   UU_dims[0] = time_dim;
   UU_dims[1] = lev_dim;
   UU_dims[2] = lat_dim;
   UU_dims[3] = lon_dim;
   if (nc_def_var(ncid, "UU", NC_DOUBLE, RANK_UU, UU_dims, &UU_id)) ERR;

   V_dims[0] = time_dim;
   V_dims[1] = lev_dim;
   V_dims[2] = lat_dim;
   V_dims[3] = lon_dim;
   if (nc_def_var(ncid, "V", NC_DOUBLE, RANK_V, V_dims, &V_id)) ERR;

   VD01_dims[0] = time_dim;
   VD01_dims[1] = lev_dim;
   VD01_dims[2] = lat_dim;
   VD01_dims[3] = lon_dim;
   if (nc_def_var(ncid, "VD01", NC_DOUBLE, RANK_VD01, VD01_dims, &VD01_id)) ERR;

   VFLX_dims[0] = time_dim;
   VFLX_dims[1] = ilev_dim;
   VFLX_dims[2] = lat_dim;
   VFLX_dims[3] = lon_dim;
   if (nc_def_var(ncid, "VFLX", NC_DOUBLE, RANK_VFLX, VFLX_dims, &VFLX_id)) ERR;

   VQ_dims[0] = time_dim;
   VQ_dims[1] = lev_dim;
   VQ_dims[2] = lat_dim;
   VQ_dims[3] = lon_dim;
   if (nc_def_var(ncid, "VQ", NC_DOUBLE, RANK_VQ, VQ_dims, &VQ_id)) ERR;

   VS_dims[0] = time_dim;
   VS_dims[1] = lev_dim;
   VS_dims[2] = lat_dim;
   VS_dims[3] = slon_dim;
   if (nc_def_var(ncid, "VS", NC_DOUBLE, RANK_VS, VS_dims, &VS_id)) ERR;

   VT_dims[0] = time_dim;
   VT_dims[1] = lev_dim;
   VT_dims[2] = lat_dim;
   VT_dims[3] = lon_dim;
   if (nc_def_var(ncid, "VT", NC_DOUBLE, RANK_VT, VT_dims, &VT_id)) ERR;

   VU_dims[0] = time_dim;
   VU_dims[1] = lev_dim;
   VU_dims[2] = lat_dim;
   VU_dims[3] = lon_dim;
   if (nc_def_var(ncid, "VU", NC_DOUBLE, RANK_VU, VU_dims, &VU_id)) ERR;

   VV_dims[0] = time_dim;
   VV_dims[1] = lev_dim;
   VV_dims[2] = lat_dim;
   VV_dims[3] = lon_dim;
   if (nc_def_var(ncid, "VV", NC_DOUBLE, RANK_VV, VV_dims, &VV_id)) ERR;

   WGUSTD_dims[0] = time_dim;
   WGUSTD_dims[1] = lat_dim;
   WGUSTD_dims[2] = lon_dim;
   if (nc_def_var(ncid, "WGUSTD", NC_DOUBLE, RANK_WGUSTD, WGUSTD_dims, &WGUSTD_id)) ERR;

   WTKE_dims[0] = time_dim;
   WTKE_dims[1] = lev_dim;
   WTKE_dims[2] = lat_dim;
   WTKE_dims[3] = lon_dim;
   if (nc_def_var(ncid, "WTKE", NC_DOUBLE, RANK_WTKE, WTKE_dims, &WTKE_id)) ERR;

   XPH_LWC_dims[0] = time_dim;
   XPH_LWC_dims[1] = lev_dim;
   XPH_LWC_dims[2] = lat_dim;
   XPH_LWC_dims[3] = lon_dim;
   if (nc_def_var(ncid, "XPH_LWC", NC_DOUBLE, RANK_XPH_LWC, XPH_LWC_dims, &XPH_LWC_id)) ERR;

   Z3_dims[0] = time_dim;
   Z3_dims[1] = lev_dim;
   Z3_dims[2] = lat_dim;
   Z3_dims[3] = lon_dim;
   if (nc_def_var(ncid, "Z3", NC_DOUBLE, RANK_Z3, Z3_dims, &Z3_id)) ERR;

   airFV_dims[0] = time_dim;
   airFV_dims[1] = lat_dim;
   airFV_dims[2] = lon_dim;
   if (nc_def_var(ncid, "airFV", NC_DOUBLE, RANK_airFV, airFV_dims, &airFV_id)) ERR;

   bc_a1_dims[0] = time_dim;
   bc_a1_dims[1] = lev_dim;
   bc_a1_dims[2] = lat_dim;
   bc_a1_dims[3] = lon_dim;
   if (nc_def_var(ncid, "bc_a1", NC_DOUBLE, RANK_bc_a1, bc_a1_dims, &bc_a1_id)) ERR;

   bc_a1DDF_dims[0] = time_dim;
   bc_a1DDF_dims[1] = lat_dim;
   bc_a1DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "bc_a1DDF", NC_DOUBLE, RANK_bc_a1DDF, bc_a1DDF_dims, &bc_a1DDF_id)) ERR;

   bc_a1GVF_dims[0] = time_dim;
   bc_a1GVF_dims[1] = lat_dim;
   bc_a1GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "bc_a1GVF", NC_DOUBLE, RANK_bc_a1GVF, bc_a1GVF_dims, &bc_a1GVF_id)) ERR;

   bc_a1SFSBC_dims[0] = time_dim;
   bc_a1SFSBC_dims[1] = lat_dim;
   bc_a1SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "bc_a1SFSBC", NC_DOUBLE, RANK_bc_a1SFSBC, bc_a1SFSBC_dims, &bc_a1SFSBC_id)) ERR;

   bc_a1SFSBS_dims[0] = time_dim;
   bc_a1SFSBS_dims[1] = lat_dim;
   bc_a1SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "bc_a1SFSBS", NC_DOUBLE, RANK_bc_a1SFSBS, bc_a1SFSBS_dims, &bc_a1SFSBS_id)) ERR;

   bc_a1SFSIC_dims[0] = time_dim;
   bc_a1SFSIC_dims[1] = lat_dim;
   bc_a1SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "bc_a1SFSIC", NC_DOUBLE, RANK_bc_a1SFSIC, bc_a1SFSIC_dims, &bc_a1SFSIC_id)) ERR;

   bc_a1SFSIS_dims[0] = time_dim;
   bc_a1SFSIS_dims[1] = lat_dim;
   bc_a1SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "bc_a1SFSIS", NC_DOUBLE, RANK_bc_a1SFSIS, bc_a1SFSIS_dims, &bc_a1SFSIS_id)) ERR;

   bc_a1SFWET_dims[0] = time_dim;
   bc_a1SFWET_dims[1] = lat_dim;
   bc_a1SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "bc_a1SFWET", NC_DOUBLE, RANK_bc_a1SFWET, bc_a1SFWET_dims, &bc_a1SFWET_id)) ERR;

   bc_a1TBF_dims[0] = time_dim;
   bc_a1TBF_dims[1] = lat_dim;
   bc_a1TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "bc_a1TBF", NC_DOUBLE, RANK_bc_a1TBF, bc_a1TBF_dims, &bc_a1TBF_id)) ERR;

   bc_a1_CLXF_dims[0] = time_dim;
   bc_a1_CLXF_dims[1] = lat_dim;
   bc_a1_CLXF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "bc_a1_CLXF", NC_DOUBLE, RANK_bc_a1_CLXF, bc_a1_CLXF_dims, &bc_a1_CLXF_id)) ERR;

   bc_a1_XFRC_dims[0] = time_dim;
   bc_a1_XFRC_dims[1] = lev_dim;
   bc_a1_XFRC_dims[2] = lat_dim;
   bc_a1_XFRC_dims[3] = lon_dim;
   if (nc_def_var(ncid, "bc_a1_XFRC", NC_DOUBLE, RANK_bc_a1_XFRC, bc_a1_XFRC_dims, &bc_a1_XFRC_id)) ERR;

   bc_c1_dims[0] = time_dim;
   bc_c1_dims[1] = lev_dim;
   bc_c1_dims[2] = lat_dim;
   bc_c1_dims[3] = lon_dim;
   if (nc_def_var(ncid, "bc_c1", NC_DOUBLE, RANK_bc_c1, bc_c1_dims, &bc_c1_id)) ERR;

   bc_c1DDF_dims[0] = time_dim;
   bc_c1DDF_dims[1] = lat_dim;
   bc_c1DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "bc_c1DDF", NC_DOUBLE, RANK_bc_c1DDF, bc_c1DDF_dims, &bc_c1DDF_id)) ERR;

   bc_c1GVF_dims[0] = time_dim;
   bc_c1GVF_dims[1] = lat_dim;
   bc_c1GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "bc_c1GVF", NC_DOUBLE, RANK_bc_c1GVF, bc_c1GVF_dims, &bc_c1GVF_id)) ERR;

   bc_c1SFSBC_dims[0] = time_dim;
   bc_c1SFSBC_dims[1] = lat_dim;
   bc_c1SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "bc_c1SFSBC", NC_DOUBLE, RANK_bc_c1SFSBC, bc_c1SFSBC_dims, &bc_c1SFSBC_id)) ERR;

   bc_c1SFSBS_dims[0] = time_dim;
   bc_c1SFSBS_dims[1] = lat_dim;
   bc_c1SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "bc_c1SFSBS", NC_DOUBLE, RANK_bc_c1SFSBS, bc_c1SFSBS_dims, &bc_c1SFSBS_id)) ERR;

   bc_c1SFSIC_dims[0] = time_dim;
   bc_c1SFSIC_dims[1] = lat_dim;
   bc_c1SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "bc_c1SFSIC", NC_DOUBLE, RANK_bc_c1SFSIC, bc_c1SFSIC_dims, &bc_c1SFSIC_id)) ERR;

   bc_c1SFSIS_dims[0] = time_dim;
   bc_c1SFSIS_dims[1] = lat_dim;
   bc_c1SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "bc_c1SFSIS", NC_DOUBLE, RANK_bc_c1SFSIS, bc_c1SFSIS_dims, &bc_c1SFSIS_id)) ERR;

   bc_c1SFWET_dims[0] = time_dim;
   bc_c1SFWET_dims[1] = lat_dim;
   bc_c1SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "bc_c1SFWET", NC_DOUBLE, RANK_bc_c1SFWET, bc_c1SFWET_dims, &bc_c1SFWET_id)) ERR;

   bc_c1TBF_dims[0] = time_dim;
   bc_c1TBF_dims[1] = lat_dim;
   bc_c1TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "bc_c1TBF", NC_DOUBLE, RANK_bc_c1TBF, bc_c1TBF_dims, &bc_c1TBF_id)) ERR;

   chem_trop_dims[0] = time_dim;
   chem_trop_dims[1] = lev_dim;
   chem_trop_dims[2] = lat_dim;
   chem_trop_dims[3] = lon_dim;
   if (nc_def_var(ncid, "chem_trop", NC_DOUBLE, RANK_chem_trop, chem_trop_dims, &chem_trop_id)) ERR;

   chem_trop_tropop_dims[0] = time_dim;
   chem_trop_tropop_dims[1] = lev_dim;
   chem_trop_tropop_dims[2] = lat_dim;
   chem_trop_tropop_dims[3] = lon_dim;
   if (nc_def_var(ncid, "chem_trop_tropop", NC_DOUBLE, RANK_chem_trop_tropop, chem_trop_tropop_dims, &chem_trop_tropop_id)) ERR;

   dgnd_a01_dims[0] = time_dim;
   dgnd_a01_dims[1] = lev_dim;
   dgnd_a01_dims[2] = lat_dim;
   dgnd_a01_dims[3] = lon_dim;
   if (nc_def_var(ncid, "dgnd_a01", NC_DOUBLE, RANK_dgnd_a01, dgnd_a01_dims, &dgnd_a01_id)) ERR;

   dgnd_a02_dims[0] = time_dim;
   dgnd_a02_dims[1] = lev_dim;
   dgnd_a02_dims[2] = lat_dim;
   dgnd_a02_dims[3] = lon_dim;
   if (nc_def_var(ncid, "dgnd_a02", NC_DOUBLE, RANK_dgnd_a02, dgnd_a02_dims, &dgnd_a02_id)) ERR;

   dgnd_a03_dims[0] = time_dim;
   dgnd_a03_dims[1] = lev_dim;
   dgnd_a03_dims[2] = lat_dim;
   dgnd_a03_dims[3] = lon_dim;
   if (nc_def_var(ncid, "dgnd_a03", NC_DOUBLE, RANK_dgnd_a03, dgnd_a03_dims, &dgnd_a03_id)) ERR;

   dgnw_a01_dims[0] = time_dim;
   dgnw_a01_dims[1] = lev_dim;
   dgnw_a01_dims[2] = lat_dim;
   dgnw_a01_dims[3] = lon_dim;
   if (nc_def_var(ncid, "dgnw_a01", NC_DOUBLE, RANK_dgnw_a01, dgnw_a01_dims, &dgnw_a01_id)) ERR;

   dgnw_a02_dims[0] = time_dim;
   dgnw_a02_dims[1] = lev_dim;
   dgnw_a02_dims[2] = lat_dim;
   dgnw_a02_dims[3] = lon_dim;
   if (nc_def_var(ncid, "dgnw_a02", NC_DOUBLE, RANK_dgnw_a02, dgnw_a02_dims, &dgnw_a02_id)) ERR;

   dgnw_a03_dims[0] = time_dim;
   dgnw_a03_dims[1] = lev_dim;
   dgnw_a03_dims[2] = lat_dim;
   dgnw_a03_dims[3] = lon_dim;
   if (nc_def_var(ncid, "dgnw_a03", NC_DOUBLE, RANK_dgnw_a03, dgnw_a03_dims, &dgnw_a03_id)) ERR;

   dst_a1_dims[0] = time_dim;
   dst_a1_dims[1] = lev_dim;
   dst_a1_dims[2] = lat_dim;
   dst_a1_dims[3] = lon_dim;
   if (nc_def_var(ncid, "dst_a1", NC_DOUBLE, RANK_dst_a1, dst_a1_dims, &dst_a1_id)) ERR;

   dst_a1DDF_dims[0] = time_dim;
   dst_a1DDF_dims[1] = lat_dim;
   dst_a1DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a1DDF", NC_DOUBLE, RANK_dst_a1DDF, dst_a1DDF_dims, &dst_a1DDF_id)) ERR;

   dst_a1GVF_dims[0] = time_dim;
   dst_a1GVF_dims[1] = lat_dim;
   dst_a1GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a1GVF", NC_DOUBLE, RANK_dst_a1GVF, dst_a1GVF_dims, &dst_a1GVF_id)) ERR;

   dst_a1SF_dims[0] = time_dim;
   dst_a1SF_dims[1] = lat_dim;
   dst_a1SF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a1SF", NC_DOUBLE, RANK_dst_a1SF, dst_a1SF_dims, &dst_a1SF_id)) ERR;

   dst_a1SFSBC_dims[0] = time_dim;
   dst_a1SFSBC_dims[1] = lat_dim;
   dst_a1SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a1SFSBC", NC_DOUBLE, RANK_dst_a1SFSBC, dst_a1SFSBC_dims, &dst_a1SFSBC_id)) ERR;

   dst_a1SFSBS_dims[0] = time_dim;
   dst_a1SFSBS_dims[1] = lat_dim;
   dst_a1SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a1SFSBS", NC_DOUBLE, RANK_dst_a1SFSBS, dst_a1SFSBS_dims, &dst_a1SFSBS_id)) ERR;

   dst_a1SFSIC_dims[0] = time_dim;
   dst_a1SFSIC_dims[1] = lat_dim;
   dst_a1SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a1SFSIC", NC_DOUBLE, RANK_dst_a1SFSIC, dst_a1SFSIC_dims, &dst_a1SFSIC_id)) ERR;

   dst_a1SFSIS_dims[0] = time_dim;
   dst_a1SFSIS_dims[1] = lat_dim;
   dst_a1SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a1SFSIS", NC_DOUBLE, RANK_dst_a1SFSIS, dst_a1SFSIS_dims, &dst_a1SFSIS_id)) ERR;

   dst_a1SFWET_dims[0] = time_dim;
   dst_a1SFWET_dims[1] = lat_dim;
   dst_a1SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a1SFWET", NC_DOUBLE, RANK_dst_a1SFWET, dst_a1SFWET_dims, &dst_a1SFWET_id)) ERR;

   dst_a1TBF_dims[0] = time_dim;
   dst_a1TBF_dims[1] = lat_dim;
   dst_a1TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a1TBF", NC_DOUBLE, RANK_dst_a1TBF, dst_a1TBF_dims, &dst_a1TBF_id)) ERR;

   dst_a3_dims[0] = time_dim;
   dst_a3_dims[1] = lev_dim;
   dst_a3_dims[2] = lat_dim;
   dst_a3_dims[3] = lon_dim;
   if (nc_def_var(ncid, "dst_a3", NC_DOUBLE, RANK_dst_a3, dst_a3_dims, &dst_a3_id)) ERR;

   dst_a3DDF_dims[0] = time_dim;
   dst_a3DDF_dims[1] = lat_dim;
   dst_a3DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a3DDF", NC_DOUBLE, RANK_dst_a3DDF, dst_a3DDF_dims, &dst_a3DDF_id)) ERR;

   dst_a3GVF_dims[0] = time_dim;
   dst_a3GVF_dims[1] = lat_dim;
   dst_a3GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a3GVF", NC_DOUBLE, RANK_dst_a3GVF, dst_a3GVF_dims, &dst_a3GVF_id)) ERR;

   dst_a3SF_dims[0] = time_dim;
   dst_a3SF_dims[1] = lat_dim;
   dst_a3SF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a3SF", NC_DOUBLE, RANK_dst_a3SF, dst_a3SF_dims, &dst_a3SF_id)) ERR;

   dst_a3SFSBC_dims[0] = time_dim;
   dst_a3SFSBC_dims[1] = lat_dim;
   dst_a3SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a3SFSBC", NC_DOUBLE, RANK_dst_a3SFSBC, dst_a3SFSBC_dims, &dst_a3SFSBC_id)) ERR;

   dst_a3SFSBS_dims[0] = time_dim;
   dst_a3SFSBS_dims[1] = lat_dim;
   dst_a3SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a3SFSBS", NC_DOUBLE, RANK_dst_a3SFSBS, dst_a3SFSBS_dims, &dst_a3SFSBS_id)) ERR;

   dst_a3SFSIC_dims[0] = time_dim;
   dst_a3SFSIC_dims[1] = lat_dim;
   dst_a3SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a3SFSIC", NC_DOUBLE, RANK_dst_a3SFSIC, dst_a3SFSIC_dims, &dst_a3SFSIC_id)) ERR;

   dst_a3SFSIS_dims[0] = time_dim;
   dst_a3SFSIS_dims[1] = lat_dim;
   dst_a3SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a3SFSIS", NC_DOUBLE, RANK_dst_a3SFSIS, dst_a3SFSIS_dims, &dst_a3SFSIS_id)) ERR;

   dst_a3SFWET_dims[0] = time_dim;
   dst_a3SFWET_dims[1] = lat_dim;
   dst_a3SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a3SFWET", NC_DOUBLE, RANK_dst_a3SFWET, dst_a3SFWET_dims, &dst_a3SFWET_id)) ERR;

   dst_a3TBF_dims[0] = time_dim;
   dst_a3TBF_dims[1] = lat_dim;
   dst_a3TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_a3TBF", NC_DOUBLE, RANK_dst_a3TBF, dst_a3TBF_dims, &dst_a3TBF_id)) ERR;

   dst_c1_dims[0] = time_dim;
   dst_c1_dims[1] = lev_dim;
   dst_c1_dims[2] = lat_dim;
   dst_c1_dims[3] = lon_dim;
   if (nc_def_var(ncid, "dst_c1", NC_DOUBLE, RANK_dst_c1, dst_c1_dims, &dst_c1_id)) ERR;

   dst_c1DDF_dims[0] = time_dim;
   dst_c1DDF_dims[1] = lat_dim;
   dst_c1DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_c1DDF", NC_DOUBLE, RANK_dst_c1DDF, dst_c1DDF_dims, &dst_c1DDF_id)) ERR;

   dst_c1GVF_dims[0] = time_dim;
   dst_c1GVF_dims[1] = lat_dim;
   dst_c1GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_c1GVF", NC_DOUBLE, RANK_dst_c1GVF, dst_c1GVF_dims, &dst_c1GVF_id)) ERR;

   dst_c1SFSBC_dims[0] = time_dim;
   dst_c1SFSBC_dims[1] = lat_dim;
   dst_c1SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_c1SFSBC", NC_DOUBLE, RANK_dst_c1SFSBC, dst_c1SFSBC_dims, &dst_c1SFSBC_id)) ERR;

   dst_c1SFSBS_dims[0] = time_dim;
   dst_c1SFSBS_dims[1] = lat_dim;
   dst_c1SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_c1SFSBS", NC_DOUBLE, RANK_dst_c1SFSBS, dst_c1SFSBS_dims, &dst_c1SFSBS_id)) ERR;

   dst_c1SFSIC_dims[0] = time_dim;
   dst_c1SFSIC_dims[1] = lat_dim;
   dst_c1SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_c1SFSIC", NC_DOUBLE, RANK_dst_c1SFSIC, dst_c1SFSIC_dims, &dst_c1SFSIC_id)) ERR;

   dst_c1SFSIS_dims[0] = time_dim;
   dst_c1SFSIS_dims[1] = lat_dim;
   dst_c1SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_c1SFSIS", NC_DOUBLE, RANK_dst_c1SFSIS, dst_c1SFSIS_dims, &dst_c1SFSIS_id)) ERR;

   dst_c1SFWET_dims[0] = time_dim;
   dst_c1SFWET_dims[1] = lat_dim;
   dst_c1SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_c1SFWET", NC_DOUBLE, RANK_dst_c1SFWET, dst_c1SFWET_dims, &dst_c1SFWET_id)) ERR;

   dst_c1TBF_dims[0] = time_dim;
   dst_c1TBF_dims[1] = lat_dim;
   dst_c1TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_c1TBF", NC_DOUBLE, RANK_dst_c1TBF, dst_c1TBF_dims, &dst_c1TBF_id)) ERR;

   dst_c3_dims[0] = time_dim;
   dst_c3_dims[1] = lev_dim;
   dst_c3_dims[2] = lat_dim;
   dst_c3_dims[3] = lon_dim;
   if (nc_def_var(ncid, "dst_c3", NC_DOUBLE, RANK_dst_c3, dst_c3_dims, &dst_c3_id)) ERR;

   dst_c3DDF_dims[0] = time_dim;
   dst_c3DDF_dims[1] = lat_dim;
   dst_c3DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_c3DDF", NC_DOUBLE, RANK_dst_c3DDF, dst_c3DDF_dims, &dst_c3DDF_id)) ERR;

   dst_c3GVF_dims[0] = time_dim;
   dst_c3GVF_dims[1] = lat_dim;
   dst_c3GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_c3GVF", NC_DOUBLE, RANK_dst_c3GVF, dst_c3GVF_dims, &dst_c3GVF_id)) ERR;

   dst_c3SFSBC_dims[0] = time_dim;
   dst_c3SFSBC_dims[1] = lat_dim;
   dst_c3SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_c3SFSBC", NC_DOUBLE, RANK_dst_c3SFSBC, dst_c3SFSBC_dims, &dst_c3SFSBC_id)) ERR;

   dst_c3SFSBS_dims[0] = time_dim;
   dst_c3SFSBS_dims[1] = lat_dim;
   dst_c3SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_c3SFSBS", NC_DOUBLE, RANK_dst_c3SFSBS, dst_c3SFSBS_dims, &dst_c3SFSBS_id)) ERR;

   dst_c3SFSIC_dims[0] = time_dim;
   dst_c3SFSIC_dims[1] = lat_dim;
   dst_c3SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_c3SFSIC", NC_DOUBLE, RANK_dst_c3SFSIC, dst_c3SFSIC_dims, &dst_c3SFSIC_id)) ERR;

   dst_c3SFSIS_dims[0] = time_dim;
   dst_c3SFSIS_dims[1] = lat_dim;
   dst_c3SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_c3SFSIS", NC_DOUBLE, RANK_dst_c3SFSIS, dst_c3SFSIS_dims, &dst_c3SFSIS_id)) ERR;

   dst_c3SFWET_dims[0] = time_dim;
   dst_c3SFWET_dims[1] = lat_dim;
   dst_c3SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_c3SFWET", NC_DOUBLE, RANK_dst_c3SFWET, dst_c3SFWET_dims, &dst_c3SFWET_id)) ERR;

   dst_c3TBF_dims[0] = time_dim;
   dst_c3TBF_dims[1] = lat_dim;
   dst_c3TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "dst_c3TBF", NC_DOUBLE, RANK_dst_c3TBF, dst_c3TBF_dims, &dst_c3TBF_id)) ERR;

   ncl_a1_dims[0] = time_dim;
   ncl_a1_dims[1] = lev_dim;
   ncl_a1_dims[2] = lat_dim;
   ncl_a1_dims[3] = lon_dim;
   if (nc_def_var(ncid, "ncl_a1", NC_DOUBLE, RANK_ncl_a1, ncl_a1_dims, &ncl_a1_id)) ERR;

   ncl_a1DDF_dims[0] = time_dim;
   ncl_a1DDF_dims[1] = lat_dim;
   ncl_a1DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a1DDF", NC_DOUBLE, RANK_ncl_a1DDF, ncl_a1DDF_dims, &ncl_a1DDF_id)) ERR;

   ncl_a1GVF_dims[0] = time_dim;
   ncl_a1GVF_dims[1] = lat_dim;
   ncl_a1GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a1GVF", NC_DOUBLE, RANK_ncl_a1GVF, ncl_a1GVF_dims, &ncl_a1GVF_id)) ERR;

   ncl_a1SF_dims[0] = time_dim;
   ncl_a1SF_dims[1] = lat_dim;
   ncl_a1SF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a1SF", NC_DOUBLE, RANK_ncl_a1SF, ncl_a1SF_dims, &ncl_a1SF_id)) ERR;

   ncl_a1SFSBC_dims[0] = time_dim;
   ncl_a1SFSBC_dims[1] = lat_dim;
   ncl_a1SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a1SFSBC", NC_DOUBLE, RANK_ncl_a1SFSBC, ncl_a1SFSBC_dims, &ncl_a1SFSBC_id)) ERR;

   ncl_a1SFSBS_dims[0] = time_dim;
   ncl_a1SFSBS_dims[1] = lat_dim;
   ncl_a1SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a1SFSBS", NC_DOUBLE, RANK_ncl_a1SFSBS, ncl_a1SFSBS_dims, &ncl_a1SFSBS_id)) ERR;

   ncl_a1SFSIC_dims[0] = time_dim;
   ncl_a1SFSIC_dims[1] = lat_dim;
   ncl_a1SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a1SFSIC", NC_DOUBLE, RANK_ncl_a1SFSIC, ncl_a1SFSIC_dims, &ncl_a1SFSIC_id)) ERR;

   ncl_a1SFSIS_dims[0] = time_dim;
   ncl_a1SFSIS_dims[1] = lat_dim;
   ncl_a1SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a1SFSIS", NC_DOUBLE, RANK_ncl_a1SFSIS, ncl_a1SFSIS_dims, &ncl_a1SFSIS_id)) ERR;

   ncl_a1SFWET_dims[0] = time_dim;
   ncl_a1SFWET_dims[1] = lat_dim;
   ncl_a1SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a1SFWET", NC_DOUBLE, RANK_ncl_a1SFWET, ncl_a1SFWET_dims, &ncl_a1SFWET_id)) ERR;

   ncl_a1TBF_dims[0] = time_dim;
   ncl_a1TBF_dims[1] = lat_dim;
   ncl_a1TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a1TBF", NC_DOUBLE, RANK_ncl_a1TBF, ncl_a1TBF_dims, &ncl_a1TBF_id)) ERR;

   ncl_a1_sfcoag1_dims[0] = time_dim;
   ncl_a1_sfcoag1_dims[1] = lat_dim;
   ncl_a1_sfcoag1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a1_sfcoag1", NC_DOUBLE, RANK_ncl_a1_sfcoag1, ncl_a1_sfcoag1_dims, &ncl_a1_sfcoag1_id)) ERR;

   ncl_a1_sfcsiz3_dims[0] = time_dim;
   ncl_a1_sfcsiz3_dims[1] = lat_dim;
   ncl_a1_sfcsiz3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a1_sfcsiz3", NC_DOUBLE, RANK_ncl_a1_sfcsiz3, ncl_a1_sfcsiz3_dims, &ncl_a1_sfcsiz3_id)) ERR;

   ncl_a1_sfcsiz4_dims[0] = time_dim;
   ncl_a1_sfcsiz4_dims[1] = lat_dim;
   ncl_a1_sfcsiz4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a1_sfcsiz4", NC_DOUBLE, RANK_ncl_a1_sfcsiz4, ncl_a1_sfcsiz4_dims, &ncl_a1_sfcsiz4_id)) ERR;

   ncl_a1_sfgaex2_dims[0] = time_dim;
   ncl_a1_sfgaex2_dims[1] = lat_dim;
   ncl_a1_sfgaex2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a1_sfgaex2", NC_DOUBLE, RANK_ncl_a1_sfgaex2, ncl_a1_sfgaex2_dims, &ncl_a1_sfgaex2_id)) ERR;

   ncl_a2_dims[0] = time_dim;
   ncl_a2_dims[1] = lev_dim;
   ncl_a2_dims[2] = lat_dim;
   ncl_a2_dims[3] = lon_dim;
   if (nc_def_var(ncid, "ncl_a2", NC_DOUBLE, RANK_ncl_a2, ncl_a2_dims, &ncl_a2_id)) ERR;

   ncl_a2DDF_dims[0] = time_dim;
   ncl_a2DDF_dims[1] = lat_dim;
   ncl_a2DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a2DDF", NC_DOUBLE, RANK_ncl_a2DDF, ncl_a2DDF_dims, &ncl_a2DDF_id)) ERR;

   ncl_a2GVF_dims[0] = time_dim;
   ncl_a2GVF_dims[1] = lat_dim;
   ncl_a2GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a2GVF", NC_DOUBLE, RANK_ncl_a2GVF, ncl_a2GVF_dims, &ncl_a2GVF_id)) ERR;

   ncl_a2SF_dims[0] = time_dim;
   ncl_a2SF_dims[1] = lat_dim;
   ncl_a2SF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a2SF", NC_DOUBLE, RANK_ncl_a2SF, ncl_a2SF_dims, &ncl_a2SF_id)) ERR;

   ncl_a2SFSBC_dims[0] = time_dim;
   ncl_a2SFSBC_dims[1] = lat_dim;
   ncl_a2SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a2SFSBC", NC_DOUBLE, RANK_ncl_a2SFSBC, ncl_a2SFSBC_dims, &ncl_a2SFSBC_id)) ERR;

   ncl_a2SFSBS_dims[0] = time_dim;
   ncl_a2SFSBS_dims[1] = lat_dim;
   ncl_a2SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a2SFSBS", NC_DOUBLE, RANK_ncl_a2SFSBS, ncl_a2SFSBS_dims, &ncl_a2SFSBS_id)) ERR;

   ncl_a2SFSIC_dims[0] = time_dim;
   ncl_a2SFSIC_dims[1] = lat_dim;
   ncl_a2SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a2SFSIC", NC_DOUBLE, RANK_ncl_a2SFSIC, ncl_a2SFSIC_dims, &ncl_a2SFSIC_id)) ERR;

   ncl_a2SFSIS_dims[0] = time_dim;
   ncl_a2SFSIS_dims[1] = lat_dim;
   ncl_a2SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a2SFSIS", NC_DOUBLE, RANK_ncl_a2SFSIS, ncl_a2SFSIS_dims, &ncl_a2SFSIS_id)) ERR;

   ncl_a2SFWET_dims[0] = time_dim;
   ncl_a2SFWET_dims[1] = lat_dim;
   ncl_a2SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a2SFWET", NC_DOUBLE, RANK_ncl_a2SFWET, ncl_a2SFWET_dims, &ncl_a2SFWET_id)) ERR;

   ncl_a2TBF_dims[0] = time_dim;
   ncl_a2TBF_dims[1] = lat_dim;
   ncl_a2TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a2TBF", NC_DOUBLE, RANK_ncl_a2TBF, ncl_a2TBF_dims, &ncl_a2TBF_id)) ERR;

   ncl_a2_sfcoag1_dims[0] = time_dim;
   ncl_a2_sfcoag1_dims[1] = lat_dim;
   ncl_a2_sfcoag1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a2_sfcoag1", NC_DOUBLE, RANK_ncl_a2_sfcoag1, ncl_a2_sfcoag1_dims, &ncl_a2_sfcoag1_id)) ERR;

   ncl_a2_sfcsiz3_dims[0] = time_dim;
   ncl_a2_sfcsiz3_dims[1] = lat_dim;
   ncl_a2_sfcsiz3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a2_sfcsiz3", NC_DOUBLE, RANK_ncl_a2_sfcsiz3, ncl_a2_sfcsiz3_dims, &ncl_a2_sfcsiz3_id)) ERR;

   ncl_a2_sfcsiz4_dims[0] = time_dim;
   ncl_a2_sfcsiz4_dims[1] = lat_dim;
   ncl_a2_sfcsiz4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a2_sfcsiz4", NC_DOUBLE, RANK_ncl_a2_sfcsiz4, ncl_a2_sfcsiz4_dims, &ncl_a2_sfcsiz4_id)) ERR;

   ncl_a2_sfgaex2_dims[0] = time_dim;
   ncl_a2_sfgaex2_dims[1] = lat_dim;
   ncl_a2_sfgaex2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a2_sfgaex2", NC_DOUBLE, RANK_ncl_a2_sfgaex2, ncl_a2_sfgaex2_dims, &ncl_a2_sfgaex2_id)) ERR;

   ncl_a3_dims[0] = time_dim;
   ncl_a3_dims[1] = lev_dim;
   ncl_a3_dims[2] = lat_dim;
   ncl_a3_dims[3] = lon_dim;
   if (nc_def_var(ncid, "ncl_a3", NC_DOUBLE, RANK_ncl_a3, ncl_a3_dims, &ncl_a3_id)) ERR;

   ncl_a3DDF_dims[0] = time_dim;
   ncl_a3DDF_dims[1] = lat_dim;
   ncl_a3DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a3DDF", NC_DOUBLE, RANK_ncl_a3DDF, ncl_a3DDF_dims, &ncl_a3DDF_id)) ERR;

   ncl_a3GVF_dims[0] = time_dim;
   ncl_a3GVF_dims[1] = lat_dim;
   ncl_a3GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a3GVF", NC_DOUBLE, RANK_ncl_a3GVF, ncl_a3GVF_dims, &ncl_a3GVF_id)) ERR;

   ncl_a3SF_dims[0] = time_dim;
   ncl_a3SF_dims[1] = lat_dim;
   ncl_a3SF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a3SF", NC_DOUBLE, RANK_ncl_a3SF, ncl_a3SF_dims, &ncl_a3SF_id)) ERR;

   ncl_a3SFSBC_dims[0] = time_dim;
   ncl_a3SFSBC_dims[1] = lat_dim;
   ncl_a3SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a3SFSBC", NC_DOUBLE, RANK_ncl_a3SFSBC, ncl_a3SFSBC_dims, &ncl_a3SFSBC_id)) ERR;

   ncl_a3SFSBS_dims[0] = time_dim;
   ncl_a3SFSBS_dims[1] = lat_dim;
   ncl_a3SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a3SFSBS", NC_DOUBLE, RANK_ncl_a3SFSBS, ncl_a3SFSBS_dims, &ncl_a3SFSBS_id)) ERR;

   ncl_a3SFSIC_dims[0] = time_dim;
   ncl_a3SFSIC_dims[1] = lat_dim;
   ncl_a3SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a3SFSIC", NC_DOUBLE, RANK_ncl_a3SFSIC, ncl_a3SFSIC_dims, &ncl_a3SFSIC_id)) ERR;

   ncl_a3SFSIS_dims[0] = time_dim;
   ncl_a3SFSIS_dims[1] = lat_dim;
   ncl_a3SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a3SFSIS", NC_DOUBLE, RANK_ncl_a3SFSIS, ncl_a3SFSIS_dims, &ncl_a3SFSIS_id)) ERR;

   ncl_a3SFWET_dims[0] = time_dim;
   ncl_a3SFWET_dims[1] = lat_dim;
   ncl_a3SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a3SFWET", NC_DOUBLE, RANK_ncl_a3SFWET, ncl_a3SFWET_dims, &ncl_a3SFWET_id)) ERR;

   ncl_a3TBF_dims[0] = time_dim;
   ncl_a3TBF_dims[1] = lat_dim;
   ncl_a3TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_a3TBF", NC_DOUBLE, RANK_ncl_a3TBF, ncl_a3TBF_dims, &ncl_a3TBF_id)) ERR;

   ncl_c1_dims[0] = time_dim;
   ncl_c1_dims[1] = lev_dim;
   ncl_c1_dims[2] = lat_dim;
   ncl_c1_dims[3] = lon_dim;
   if (nc_def_var(ncid, "ncl_c1", NC_DOUBLE, RANK_ncl_c1, ncl_c1_dims, &ncl_c1_id)) ERR;

   ncl_c1DDF_dims[0] = time_dim;
   ncl_c1DDF_dims[1] = lat_dim;
   ncl_c1DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c1DDF", NC_DOUBLE, RANK_ncl_c1DDF, ncl_c1DDF_dims, &ncl_c1DDF_id)) ERR;

   ncl_c1GVF_dims[0] = time_dim;
   ncl_c1GVF_dims[1] = lat_dim;
   ncl_c1GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c1GVF", NC_DOUBLE, RANK_ncl_c1GVF, ncl_c1GVF_dims, &ncl_c1GVF_id)) ERR;

   ncl_c1SFSBC_dims[0] = time_dim;
   ncl_c1SFSBC_dims[1] = lat_dim;
   ncl_c1SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c1SFSBC", NC_DOUBLE, RANK_ncl_c1SFSBC, ncl_c1SFSBC_dims, &ncl_c1SFSBC_id)) ERR;

   ncl_c1SFSBS_dims[0] = time_dim;
   ncl_c1SFSBS_dims[1] = lat_dim;
   ncl_c1SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c1SFSBS", NC_DOUBLE, RANK_ncl_c1SFSBS, ncl_c1SFSBS_dims, &ncl_c1SFSBS_id)) ERR;

   ncl_c1SFSIC_dims[0] = time_dim;
   ncl_c1SFSIC_dims[1] = lat_dim;
   ncl_c1SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c1SFSIC", NC_DOUBLE, RANK_ncl_c1SFSIC, ncl_c1SFSIC_dims, &ncl_c1SFSIC_id)) ERR;

   ncl_c1SFSIS_dims[0] = time_dim;
   ncl_c1SFSIS_dims[1] = lat_dim;
   ncl_c1SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c1SFSIS", NC_DOUBLE, RANK_ncl_c1SFSIS, ncl_c1SFSIS_dims, &ncl_c1SFSIS_id)) ERR;

   ncl_c1SFWET_dims[0] = time_dim;
   ncl_c1SFWET_dims[1] = lat_dim;
   ncl_c1SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c1SFWET", NC_DOUBLE, RANK_ncl_c1SFWET, ncl_c1SFWET_dims, &ncl_c1SFWET_id)) ERR;

   ncl_c1TBF_dims[0] = time_dim;
   ncl_c1TBF_dims[1] = lat_dim;
   ncl_c1TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c1TBF", NC_DOUBLE, RANK_ncl_c1TBF, ncl_c1TBF_dims, &ncl_c1TBF_id)) ERR;

   ncl_c1_sfcsiz3_dims[0] = time_dim;
   ncl_c1_sfcsiz3_dims[1] = lat_dim;
   ncl_c1_sfcsiz3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c1_sfcsiz3", NC_DOUBLE, RANK_ncl_c1_sfcsiz3, ncl_c1_sfcsiz3_dims, &ncl_c1_sfcsiz3_id)) ERR;

   ncl_c1_sfcsiz4_dims[0] = time_dim;
   ncl_c1_sfcsiz4_dims[1] = lat_dim;
   ncl_c1_sfcsiz4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c1_sfcsiz4", NC_DOUBLE, RANK_ncl_c1_sfcsiz4, ncl_c1_sfcsiz4_dims, &ncl_c1_sfcsiz4_id)) ERR;

   ncl_c1_sfgaex2_dims[0] = time_dim;
   ncl_c1_sfgaex2_dims[1] = lat_dim;
   ncl_c1_sfgaex2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c1_sfgaex2", NC_DOUBLE, RANK_ncl_c1_sfgaex2, ncl_c1_sfgaex2_dims, &ncl_c1_sfgaex2_id)) ERR;

   ncl_c2_dims[0] = time_dim;
   ncl_c2_dims[1] = lev_dim;
   ncl_c2_dims[2] = lat_dim;
   ncl_c2_dims[3] = lon_dim;
   if (nc_def_var(ncid, "ncl_c2", NC_DOUBLE, RANK_ncl_c2, ncl_c2_dims, &ncl_c2_id)) ERR;

   ncl_c2DDF_dims[0] = time_dim;
   ncl_c2DDF_dims[1] = lat_dim;
   ncl_c2DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c2DDF", NC_DOUBLE, RANK_ncl_c2DDF, ncl_c2DDF_dims, &ncl_c2DDF_id)) ERR;

   ncl_c2GVF_dims[0] = time_dim;
   ncl_c2GVF_dims[1] = lat_dim;
   ncl_c2GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c2GVF", NC_DOUBLE, RANK_ncl_c2GVF, ncl_c2GVF_dims, &ncl_c2GVF_id)) ERR;

   ncl_c2SFSBC_dims[0] = time_dim;
   ncl_c2SFSBC_dims[1] = lat_dim;
   ncl_c2SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c2SFSBC", NC_DOUBLE, RANK_ncl_c2SFSBC, ncl_c2SFSBC_dims, &ncl_c2SFSBC_id)) ERR;

   ncl_c2SFSBS_dims[0] = time_dim;
   ncl_c2SFSBS_dims[1] = lat_dim;
   ncl_c2SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c2SFSBS", NC_DOUBLE, RANK_ncl_c2SFSBS, ncl_c2SFSBS_dims, &ncl_c2SFSBS_id)) ERR;

   ncl_c2SFSIC_dims[0] = time_dim;
   ncl_c2SFSIC_dims[1] = lat_dim;
   ncl_c2SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c2SFSIC", NC_DOUBLE, RANK_ncl_c2SFSIC, ncl_c2SFSIC_dims, &ncl_c2SFSIC_id)) ERR;

   ncl_c2SFSIS_dims[0] = time_dim;
   ncl_c2SFSIS_dims[1] = lat_dim;
   ncl_c2SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c2SFSIS", NC_DOUBLE, RANK_ncl_c2SFSIS, ncl_c2SFSIS_dims, &ncl_c2SFSIS_id)) ERR;

   ncl_c2SFWET_dims[0] = time_dim;
   ncl_c2SFWET_dims[1] = lat_dim;
   ncl_c2SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c2SFWET", NC_DOUBLE, RANK_ncl_c2SFWET, ncl_c2SFWET_dims, &ncl_c2SFWET_id)) ERR;

   ncl_c2TBF_dims[0] = time_dim;
   ncl_c2TBF_dims[1] = lat_dim;
   ncl_c2TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c2TBF", NC_DOUBLE, RANK_ncl_c2TBF, ncl_c2TBF_dims, &ncl_c2TBF_id)) ERR;

   ncl_c2_sfcsiz3_dims[0] = time_dim;
   ncl_c2_sfcsiz3_dims[1] = lat_dim;
   ncl_c2_sfcsiz3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c2_sfcsiz3", NC_DOUBLE, RANK_ncl_c2_sfcsiz3, ncl_c2_sfcsiz3_dims, &ncl_c2_sfcsiz3_id)) ERR;

   ncl_c2_sfcsiz4_dims[0] = time_dim;
   ncl_c2_sfcsiz4_dims[1] = lat_dim;
   ncl_c2_sfcsiz4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c2_sfcsiz4", NC_DOUBLE, RANK_ncl_c2_sfcsiz4, ncl_c2_sfcsiz4_dims, &ncl_c2_sfcsiz4_id)) ERR;

   ncl_c2_sfgaex2_dims[0] = time_dim;
   ncl_c2_sfgaex2_dims[1] = lat_dim;
   ncl_c2_sfgaex2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c2_sfgaex2", NC_DOUBLE, RANK_ncl_c2_sfgaex2, ncl_c2_sfgaex2_dims, &ncl_c2_sfgaex2_id)) ERR;

   ncl_c3_dims[0] = time_dim;
   ncl_c3_dims[1] = lev_dim;
   ncl_c3_dims[2] = lat_dim;
   ncl_c3_dims[3] = lon_dim;
   if (nc_def_var(ncid, "ncl_c3", NC_DOUBLE, RANK_ncl_c3, ncl_c3_dims, &ncl_c3_id)) ERR;

   ncl_c3DDF_dims[0] = time_dim;
   ncl_c3DDF_dims[1] = lat_dim;
   ncl_c3DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c3DDF", NC_DOUBLE, RANK_ncl_c3DDF, ncl_c3DDF_dims, &ncl_c3DDF_id)) ERR;

   ncl_c3GVF_dims[0] = time_dim;
   ncl_c3GVF_dims[1] = lat_dim;
   ncl_c3GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c3GVF", NC_DOUBLE, RANK_ncl_c3GVF, ncl_c3GVF_dims, &ncl_c3GVF_id)) ERR;

   ncl_c3SFSBC_dims[0] = time_dim;
   ncl_c3SFSBC_dims[1] = lat_dim;
   ncl_c3SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c3SFSBC", NC_DOUBLE, RANK_ncl_c3SFSBC, ncl_c3SFSBC_dims, &ncl_c3SFSBC_id)) ERR;

   ncl_c3SFSBS_dims[0] = time_dim;
   ncl_c3SFSBS_dims[1] = lat_dim;
   ncl_c3SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c3SFSBS", NC_DOUBLE, RANK_ncl_c3SFSBS, ncl_c3SFSBS_dims, &ncl_c3SFSBS_id)) ERR;

   ncl_c3SFSIC_dims[0] = time_dim;
   ncl_c3SFSIC_dims[1] = lat_dim;
   ncl_c3SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c3SFSIC", NC_DOUBLE, RANK_ncl_c3SFSIC, ncl_c3SFSIC_dims, &ncl_c3SFSIC_id)) ERR;

   ncl_c3SFSIS_dims[0] = time_dim;
   ncl_c3SFSIS_dims[1] = lat_dim;
   ncl_c3SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c3SFSIS", NC_DOUBLE, RANK_ncl_c3SFSIS, ncl_c3SFSIS_dims, &ncl_c3SFSIS_id)) ERR;

   ncl_c3SFWET_dims[0] = time_dim;
   ncl_c3SFWET_dims[1] = lat_dim;
   ncl_c3SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c3SFWET", NC_DOUBLE, RANK_ncl_c3SFWET, ncl_c3SFWET_dims, &ncl_c3SFWET_id)) ERR;

   ncl_c3TBF_dims[0] = time_dim;
   ncl_c3TBF_dims[1] = lat_dim;
   ncl_c3TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "ncl_c3TBF", NC_DOUBLE, RANK_ncl_c3TBF, ncl_c3TBF_dims, &ncl_c3TBF_id)) ERR;

   num_a1_dims[0] = time_dim;
   num_a1_dims[1] = lev_dim;
   num_a1_dims[2] = lat_dim;
   num_a1_dims[3] = lon_dim;
   if (nc_def_var(ncid, "num_a1", NC_DOUBLE, RANK_num_a1, num_a1_dims, &num_a1_id)) ERR;

   num_a1DDF_dims[0] = time_dim;
   num_a1DDF_dims[1] = lat_dim;
   num_a1DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a1DDF", NC_DOUBLE, RANK_num_a1DDF, num_a1DDF_dims, &num_a1DDF_id)) ERR;

   num_a1GVF_dims[0] = time_dim;
   num_a1GVF_dims[1] = lat_dim;
   num_a1GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a1GVF", NC_DOUBLE, RANK_num_a1GVF, num_a1GVF_dims, &num_a1GVF_id)) ERR;

   num_a1SFSBC_dims[0] = time_dim;
   num_a1SFSBC_dims[1] = lat_dim;
   num_a1SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a1SFSBC", NC_DOUBLE, RANK_num_a1SFSBC, num_a1SFSBC_dims, &num_a1SFSBC_id)) ERR;

   num_a1SFSBS_dims[0] = time_dim;
   num_a1SFSBS_dims[1] = lat_dim;
   num_a1SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a1SFSBS", NC_DOUBLE, RANK_num_a1SFSBS, num_a1SFSBS_dims, &num_a1SFSBS_id)) ERR;

   num_a1SFSIC_dims[0] = time_dim;
   num_a1SFSIC_dims[1] = lat_dim;
   num_a1SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a1SFSIC", NC_DOUBLE, RANK_num_a1SFSIC, num_a1SFSIC_dims, &num_a1SFSIC_id)) ERR;

   num_a1SFSIS_dims[0] = time_dim;
   num_a1SFSIS_dims[1] = lat_dim;
   num_a1SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a1SFSIS", NC_DOUBLE, RANK_num_a1SFSIS, num_a1SFSIS_dims, &num_a1SFSIS_id)) ERR;

   num_a1SFWET_dims[0] = time_dim;
   num_a1SFWET_dims[1] = lat_dim;
   num_a1SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a1SFWET", NC_DOUBLE, RANK_num_a1SFWET, num_a1SFWET_dims, &num_a1SFWET_id)) ERR;

   num_a1TBF_dims[0] = time_dim;
   num_a1TBF_dims[1] = lat_dim;
   num_a1TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a1TBF", NC_DOUBLE, RANK_num_a1TBF, num_a1TBF_dims, &num_a1TBF_id)) ERR;

   num_a1_CLXF_dims[0] = time_dim;
   num_a1_CLXF_dims[1] = lat_dim;
   num_a1_CLXF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a1_CLXF", NC_DOUBLE, RANK_num_a1_CLXF, num_a1_CLXF_dims, &num_a1_CLXF_id)) ERR;

   num_a1_XFRC_dims[0] = time_dim;
   num_a1_XFRC_dims[1] = lev_dim;
   num_a1_XFRC_dims[2] = lat_dim;
   num_a1_XFRC_dims[3] = lon_dim;
   if (nc_def_var(ncid, "num_a1_XFRC", NC_DOUBLE, RANK_num_a1_XFRC, num_a1_XFRC_dims, &num_a1_XFRC_id)) ERR;

   num_a1_sfcoag1_dims[0] = time_dim;
   num_a1_sfcoag1_dims[1] = lat_dim;
   num_a1_sfcoag1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a1_sfcoag1", NC_DOUBLE, RANK_num_a1_sfcoag1, num_a1_sfcoag1_dims, &num_a1_sfcoag1_id)) ERR;

   num_a1_sfcsiz1_dims[0] = time_dim;
   num_a1_sfcsiz1_dims[1] = lat_dim;
   num_a1_sfcsiz1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a1_sfcsiz1", NC_DOUBLE, RANK_num_a1_sfcsiz1, num_a1_sfcsiz1_dims, &num_a1_sfcsiz1_id)) ERR;

   num_a1_sfcsiz2_dims[0] = time_dim;
   num_a1_sfcsiz2_dims[1] = lat_dim;
   num_a1_sfcsiz2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a1_sfcsiz2", NC_DOUBLE, RANK_num_a1_sfcsiz2, num_a1_sfcsiz2_dims, &num_a1_sfcsiz2_id)) ERR;

   num_a1_sfcsiz3_dims[0] = time_dim;
   num_a1_sfcsiz3_dims[1] = lat_dim;
   num_a1_sfcsiz3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a1_sfcsiz3", NC_DOUBLE, RANK_num_a1_sfcsiz3, num_a1_sfcsiz3_dims, &num_a1_sfcsiz3_id)) ERR;

   num_a1_sfcsiz4_dims[0] = time_dim;
   num_a1_sfcsiz4_dims[1] = lat_dim;
   num_a1_sfcsiz4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a1_sfcsiz4", NC_DOUBLE, RANK_num_a1_sfcsiz4, num_a1_sfcsiz4_dims, &num_a1_sfcsiz4_id)) ERR;

   num_a1_sfgaex2_dims[0] = time_dim;
   num_a1_sfgaex2_dims[1] = lat_dim;
   num_a1_sfgaex2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a1_sfgaex2", NC_DOUBLE, RANK_num_a1_sfgaex2, num_a1_sfgaex2_dims, &num_a1_sfgaex2_id)) ERR;

   num_a2_dims[0] = time_dim;
   num_a2_dims[1] = lev_dim;
   num_a2_dims[2] = lat_dim;
   num_a2_dims[3] = lon_dim;
   if (nc_def_var(ncid, "num_a2", NC_DOUBLE, RANK_num_a2, num_a2_dims, &num_a2_id)) ERR;

   num_a2DDF_dims[0] = time_dim;
   num_a2DDF_dims[1] = lat_dim;
   num_a2DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a2DDF", NC_DOUBLE, RANK_num_a2DDF, num_a2DDF_dims, &num_a2DDF_id)) ERR;

   num_a2GVF_dims[0] = time_dim;
   num_a2GVF_dims[1] = lat_dim;
   num_a2GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a2GVF", NC_DOUBLE, RANK_num_a2GVF, num_a2GVF_dims, &num_a2GVF_id)) ERR;

   num_a2SFSBC_dims[0] = time_dim;
   num_a2SFSBC_dims[1] = lat_dim;
   num_a2SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a2SFSBC", NC_DOUBLE, RANK_num_a2SFSBC, num_a2SFSBC_dims, &num_a2SFSBC_id)) ERR;

   num_a2SFSBS_dims[0] = time_dim;
   num_a2SFSBS_dims[1] = lat_dim;
   num_a2SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a2SFSBS", NC_DOUBLE, RANK_num_a2SFSBS, num_a2SFSBS_dims, &num_a2SFSBS_id)) ERR;

   num_a2SFSIC_dims[0] = time_dim;
   num_a2SFSIC_dims[1] = lat_dim;
   num_a2SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a2SFSIC", NC_DOUBLE, RANK_num_a2SFSIC, num_a2SFSIC_dims, &num_a2SFSIC_id)) ERR;

   num_a2SFSIS_dims[0] = time_dim;
   num_a2SFSIS_dims[1] = lat_dim;
   num_a2SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a2SFSIS", NC_DOUBLE, RANK_num_a2SFSIS, num_a2SFSIS_dims, &num_a2SFSIS_id)) ERR;

   num_a2SFWET_dims[0] = time_dim;
   num_a2SFWET_dims[1] = lat_dim;
   num_a2SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a2SFWET", NC_DOUBLE, RANK_num_a2SFWET, num_a2SFWET_dims, &num_a2SFWET_id)) ERR;

   num_a2TBF_dims[0] = time_dim;
   num_a2TBF_dims[1] = lat_dim;
   num_a2TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a2TBF", NC_DOUBLE, RANK_num_a2TBF, num_a2TBF_dims, &num_a2TBF_id)) ERR;

   num_a2_CLXF_dims[0] = time_dim;
   num_a2_CLXF_dims[1] = lat_dim;
   num_a2_CLXF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a2_CLXF", NC_DOUBLE, RANK_num_a2_CLXF, num_a2_CLXF_dims, &num_a2_CLXF_id)) ERR;

   num_a2_XFRC_dims[0] = time_dim;
   num_a2_XFRC_dims[1] = lev_dim;
   num_a2_XFRC_dims[2] = lat_dim;
   num_a2_XFRC_dims[3] = lon_dim;
   if (nc_def_var(ncid, "num_a2_XFRC", NC_DOUBLE, RANK_num_a2_XFRC, num_a2_XFRC_dims, &num_a2_XFRC_id)) ERR;

   num_a2_sfcoag1_dims[0] = time_dim;
   num_a2_sfcoag1_dims[1] = lat_dim;
   num_a2_sfcoag1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a2_sfcoag1", NC_DOUBLE, RANK_num_a2_sfcoag1, num_a2_sfcoag1_dims, &num_a2_sfcoag1_id)) ERR;

   num_a2_sfcsiz1_dims[0] = time_dim;
   num_a2_sfcsiz1_dims[1] = lat_dim;
   num_a2_sfcsiz1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a2_sfcsiz1", NC_DOUBLE, RANK_num_a2_sfcsiz1, num_a2_sfcsiz1_dims, &num_a2_sfcsiz1_id)) ERR;

   num_a2_sfcsiz2_dims[0] = time_dim;
   num_a2_sfcsiz2_dims[1] = lat_dim;
   num_a2_sfcsiz2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a2_sfcsiz2", NC_DOUBLE, RANK_num_a2_sfcsiz2, num_a2_sfcsiz2_dims, &num_a2_sfcsiz2_id)) ERR;

   num_a2_sfcsiz3_dims[0] = time_dim;
   num_a2_sfcsiz3_dims[1] = lat_dim;
   num_a2_sfcsiz3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a2_sfcsiz3", NC_DOUBLE, RANK_num_a2_sfcsiz3, num_a2_sfcsiz3_dims, &num_a2_sfcsiz3_id)) ERR;

   num_a2_sfcsiz4_dims[0] = time_dim;
   num_a2_sfcsiz4_dims[1] = lat_dim;
   num_a2_sfcsiz4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a2_sfcsiz4", NC_DOUBLE, RANK_num_a2_sfcsiz4, num_a2_sfcsiz4_dims, &num_a2_sfcsiz4_id)) ERR;

   num_a2_sfgaex2_dims[0] = time_dim;
   num_a2_sfgaex2_dims[1] = lat_dim;
   num_a2_sfgaex2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a2_sfgaex2", NC_DOUBLE, RANK_num_a2_sfgaex2, num_a2_sfgaex2_dims, &num_a2_sfgaex2_id)) ERR;

   num_a2_sfnnuc1_dims[0] = time_dim;
   num_a2_sfnnuc1_dims[1] = lat_dim;
   num_a2_sfnnuc1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a2_sfnnuc1", NC_DOUBLE, RANK_num_a2_sfnnuc1, num_a2_sfnnuc1_dims, &num_a2_sfnnuc1_id)) ERR;

   num_a3_dims[0] = time_dim;
   num_a3_dims[1] = lev_dim;
   num_a3_dims[2] = lat_dim;
   num_a3_dims[3] = lon_dim;
   if (nc_def_var(ncid, "num_a3", NC_DOUBLE, RANK_num_a3, num_a3_dims, &num_a3_id)) ERR;

   num_a3DDF_dims[0] = time_dim;
   num_a3DDF_dims[1] = lat_dim;
   num_a3DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a3DDF", NC_DOUBLE, RANK_num_a3DDF, num_a3DDF_dims, &num_a3DDF_id)) ERR;

   num_a3GVF_dims[0] = time_dim;
   num_a3GVF_dims[1] = lat_dim;
   num_a3GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a3GVF", NC_DOUBLE, RANK_num_a3GVF, num_a3GVF_dims, &num_a3GVF_id)) ERR;

   num_a3SFSBC_dims[0] = time_dim;
   num_a3SFSBC_dims[1] = lat_dim;
   num_a3SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a3SFSBC", NC_DOUBLE, RANK_num_a3SFSBC, num_a3SFSBC_dims, &num_a3SFSBC_id)) ERR;

   num_a3SFSBS_dims[0] = time_dim;
   num_a3SFSBS_dims[1] = lat_dim;
   num_a3SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a3SFSBS", NC_DOUBLE, RANK_num_a3SFSBS, num_a3SFSBS_dims, &num_a3SFSBS_id)) ERR;

   num_a3SFSIC_dims[0] = time_dim;
   num_a3SFSIC_dims[1] = lat_dim;
   num_a3SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a3SFSIC", NC_DOUBLE, RANK_num_a3SFSIC, num_a3SFSIC_dims, &num_a3SFSIC_id)) ERR;

   num_a3SFSIS_dims[0] = time_dim;
   num_a3SFSIS_dims[1] = lat_dim;
   num_a3SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a3SFSIS", NC_DOUBLE, RANK_num_a3SFSIS, num_a3SFSIS_dims, &num_a3SFSIS_id)) ERR;

   num_a3SFWET_dims[0] = time_dim;
   num_a3SFWET_dims[1] = lat_dim;
   num_a3SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a3SFWET", NC_DOUBLE, RANK_num_a3SFWET, num_a3SFWET_dims, &num_a3SFWET_id)) ERR;

   num_a3TBF_dims[0] = time_dim;
   num_a3TBF_dims[1] = lat_dim;
   num_a3TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a3TBF", NC_DOUBLE, RANK_num_a3TBF, num_a3TBF_dims, &num_a3TBF_id)) ERR;

   num_a3_sfcsiz1_dims[0] = time_dim;
   num_a3_sfcsiz1_dims[1] = lat_dim;
   num_a3_sfcsiz1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a3_sfcsiz1", NC_DOUBLE, RANK_num_a3_sfcsiz1, num_a3_sfcsiz1_dims, &num_a3_sfcsiz1_id)) ERR;

   num_a3_sfcsiz2_dims[0] = time_dim;
   num_a3_sfcsiz2_dims[1] = lat_dim;
   num_a3_sfcsiz2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_a3_sfcsiz2", NC_DOUBLE, RANK_num_a3_sfcsiz2, num_a3_sfcsiz2_dims, &num_a3_sfcsiz2_id)) ERR;

   num_c1_dims[0] = time_dim;
   num_c1_dims[1] = lev_dim;
   num_c1_dims[2] = lat_dim;
   num_c1_dims[3] = lon_dim;
   if (nc_def_var(ncid, "num_c1", NC_DOUBLE, RANK_num_c1, num_c1_dims, &num_c1_id)) ERR;

   num_c1DDF_dims[0] = time_dim;
   num_c1DDF_dims[1] = lat_dim;
   num_c1DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c1DDF", NC_DOUBLE, RANK_num_c1DDF, num_c1DDF_dims, &num_c1DDF_id)) ERR;

   num_c1GVF_dims[0] = time_dim;
   num_c1GVF_dims[1] = lat_dim;
   num_c1GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c1GVF", NC_DOUBLE, RANK_num_c1GVF, num_c1GVF_dims, &num_c1GVF_id)) ERR;

   num_c1SFSBC_dims[0] = time_dim;
   num_c1SFSBC_dims[1] = lat_dim;
   num_c1SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c1SFSBC", NC_DOUBLE, RANK_num_c1SFSBC, num_c1SFSBC_dims, &num_c1SFSBC_id)) ERR;

   num_c1SFSBS_dims[0] = time_dim;
   num_c1SFSBS_dims[1] = lat_dim;
   num_c1SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c1SFSBS", NC_DOUBLE, RANK_num_c1SFSBS, num_c1SFSBS_dims, &num_c1SFSBS_id)) ERR;

   num_c1SFSIC_dims[0] = time_dim;
   num_c1SFSIC_dims[1] = lat_dim;
   num_c1SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c1SFSIC", NC_DOUBLE, RANK_num_c1SFSIC, num_c1SFSIC_dims, &num_c1SFSIC_id)) ERR;

   num_c1SFSIS_dims[0] = time_dim;
   num_c1SFSIS_dims[1] = lat_dim;
   num_c1SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c1SFSIS", NC_DOUBLE, RANK_num_c1SFSIS, num_c1SFSIS_dims, &num_c1SFSIS_id)) ERR;

   num_c1SFWET_dims[0] = time_dim;
   num_c1SFWET_dims[1] = lat_dim;
   num_c1SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c1SFWET", NC_DOUBLE, RANK_num_c1SFWET, num_c1SFWET_dims, &num_c1SFWET_id)) ERR;

   num_c1TBF_dims[0] = time_dim;
   num_c1TBF_dims[1] = lat_dim;
   num_c1TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c1TBF", NC_DOUBLE, RANK_num_c1TBF, num_c1TBF_dims, &num_c1TBF_id)) ERR;

   num_c1_sfcsiz1_dims[0] = time_dim;
   num_c1_sfcsiz1_dims[1] = lat_dim;
   num_c1_sfcsiz1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c1_sfcsiz1", NC_DOUBLE, RANK_num_c1_sfcsiz1, num_c1_sfcsiz1_dims, &num_c1_sfcsiz1_id)) ERR;

   num_c1_sfcsiz2_dims[0] = time_dim;
   num_c1_sfcsiz2_dims[1] = lat_dim;
   num_c1_sfcsiz2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c1_sfcsiz2", NC_DOUBLE, RANK_num_c1_sfcsiz2, num_c1_sfcsiz2_dims, &num_c1_sfcsiz2_id)) ERR;

   num_c1_sfcsiz3_dims[0] = time_dim;
   num_c1_sfcsiz3_dims[1] = lat_dim;
   num_c1_sfcsiz3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c1_sfcsiz3", NC_DOUBLE, RANK_num_c1_sfcsiz3, num_c1_sfcsiz3_dims, &num_c1_sfcsiz3_id)) ERR;

   num_c1_sfcsiz4_dims[0] = time_dim;
   num_c1_sfcsiz4_dims[1] = lat_dim;
   num_c1_sfcsiz4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c1_sfcsiz4", NC_DOUBLE, RANK_num_c1_sfcsiz4, num_c1_sfcsiz4_dims, &num_c1_sfcsiz4_id)) ERR;

   num_c1_sfgaex2_dims[0] = time_dim;
   num_c1_sfgaex2_dims[1] = lat_dim;
   num_c1_sfgaex2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c1_sfgaex2", NC_DOUBLE, RANK_num_c1_sfgaex2, num_c1_sfgaex2_dims, &num_c1_sfgaex2_id)) ERR;

   num_c2_dims[0] = time_dim;
   num_c2_dims[1] = lev_dim;
   num_c2_dims[2] = lat_dim;
   num_c2_dims[3] = lon_dim;
   if (nc_def_var(ncid, "num_c2", NC_DOUBLE, RANK_num_c2, num_c2_dims, &num_c2_id)) ERR;

   num_c2DDF_dims[0] = time_dim;
   num_c2DDF_dims[1] = lat_dim;
   num_c2DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c2DDF", NC_DOUBLE, RANK_num_c2DDF, num_c2DDF_dims, &num_c2DDF_id)) ERR;

   num_c2GVF_dims[0] = time_dim;
   num_c2GVF_dims[1] = lat_dim;
   num_c2GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c2GVF", NC_DOUBLE, RANK_num_c2GVF, num_c2GVF_dims, &num_c2GVF_id)) ERR;

   num_c2SFSBC_dims[0] = time_dim;
   num_c2SFSBC_dims[1] = lat_dim;
   num_c2SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c2SFSBC", NC_DOUBLE, RANK_num_c2SFSBC, num_c2SFSBC_dims, &num_c2SFSBC_id)) ERR;

   num_c2SFSBS_dims[0] = time_dim;
   num_c2SFSBS_dims[1] = lat_dim;
   num_c2SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c2SFSBS", NC_DOUBLE, RANK_num_c2SFSBS, num_c2SFSBS_dims, &num_c2SFSBS_id)) ERR;

   num_c2SFSIC_dims[0] = time_dim;
   num_c2SFSIC_dims[1] = lat_dim;
   num_c2SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c2SFSIC", NC_DOUBLE, RANK_num_c2SFSIC, num_c2SFSIC_dims, &num_c2SFSIC_id)) ERR;

   num_c2SFSIS_dims[0] = time_dim;
   num_c2SFSIS_dims[1] = lat_dim;
   num_c2SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c2SFSIS", NC_DOUBLE, RANK_num_c2SFSIS, num_c2SFSIS_dims, &num_c2SFSIS_id)) ERR;

   num_c2SFWET_dims[0] = time_dim;
   num_c2SFWET_dims[1] = lat_dim;
   num_c2SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c2SFWET", NC_DOUBLE, RANK_num_c2SFWET, num_c2SFWET_dims, &num_c2SFWET_id)) ERR;

   num_c2TBF_dims[0] = time_dim;
   num_c2TBF_dims[1] = lat_dim;
   num_c2TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c2TBF", NC_DOUBLE, RANK_num_c2TBF, num_c2TBF_dims, &num_c2TBF_id)) ERR;

   num_c2_sfcsiz1_dims[0] = time_dim;
   num_c2_sfcsiz1_dims[1] = lat_dim;
   num_c2_sfcsiz1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c2_sfcsiz1", NC_DOUBLE, RANK_num_c2_sfcsiz1, num_c2_sfcsiz1_dims, &num_c2_sfcsiz1_id)) ERR;

   num_c2_sfcsiz2_dims[0] = time_dim;
   num_c2_sfcsiz2_dims[1] = lat_dim;
   num_c2_sfcsiz2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c2_sfcsiz2", NC_DOUBLE, RANK_num_c2_sfcsiz2, num_c2_sfcsiz2_dims, &num_c2_sfcsiz2_id)) ERR;

   num_c2_sfcsiz3_dims[0] = time_dim;
   num_c2_sfcsiz3_dims[1] = lat_dim;
   num_c2_sfcsiz3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c2_sfcsiz3", NC_DOUBLE, RANK_num_c2_sfcsiz3, num_c2_sfcsiz3_dims, &num_c2_sfcsiz3_id)) ERR;

   num_c2_sfcsiz4_dims[0] = time_dim;
   num_c2_sfcsiz4_dims[1] = lat_dim;
   num_c2_sfcsiz4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c2_sfcsiz4", NC_DOUBLE, RANK_num_c2_sfcsiz4, num_c2_sfcsiz4_dims, &num_c2_sfcsiz4_id)) ERR;

   num_c2_sfgaex2_dims[0] = time_dim;
   num_c2_sfgaex2_dims[1] = lat_dim;
   num_c2_sfgaex2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c2_sfgaex2", NC_DOUBLE, RANK_num_c2_sfgaex2, num_c2_sfgaex2_dims, &num_c2_sfgaex2_id)) ERR;

   num_c3_dims[0] = time_dim;
   num_c3_dims[1] = lev_dim;
   num_c3_dims[2] = lat_dim;
   num_c3_dims[3] = lon_dim;
   if (nc_def_var(ncid, "num_c3", NC_DOUBLE, RANK_num_c3, num_c3_dims, &num_c3_id)) ERR;

   num_c3DDF_dims[0] = time_dim;
   num_c3DDF_dims[1] = lat_dim;
   num_c3DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c3DDF", NC_DOUBLE, RANK_num_c3DDF, num_c3DDF_dims, &num_c3DDF_id)) ERR;

   num_c3GVF_dims[0] = time_dim;
   num_c3GVF_dims[1] = lat_dim;
   num_c3GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c3GVF", NC_DOUBLE, RANK_num_c3GVF, num_c3GVF_dims, &num_c3GVF_id)) ERR;

   num_c3SFSBC_dims[0] = time_dim;
   num_c3SFSBC_dims[1] = lat_dim;
   num_c3SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c3SFSBC", NC_DOUBLE, RANK_num_c3SFSBC, num_c3SFSBC_dims, &num_c3SFSBC_id)) ERR;

   num_c3SFSBS_dims[0] = time_dim;
   num_c3SFSBS_dims[1] = lat_dim;
   num_c3SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c3SFSBS", NC_DOUBLE, RANK_num_c3SFSBS, num_c3SFSBS_dims, &num_c3SFSBS_id)) ERR;

   num_c3SFSIC_dims[0] = time_dim;
   num_c3SFSIC_dims[1] = lat_dim;
   num_c3SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c3SFSIC", NC_DOUBLE, RANK_num_c3SFSIC, num_c3SFSIC_dims, &num_c3SFSIC_id)) ERR;

   num_c3SFSIS_dims[0] = time_dim;
   num_c3SFSIS_dims[1] = lat_dim;
   num_c3SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c3SFSIS", NC_DOUBLE, RANK_num_c3SFSIS, num_c3SFSIS_dims, &num_c3SFSIS_id)) ERR;

   num_c3SFWET_dims[0] = time_dim;
   num_c3SFWET_dims[1] = lat_dim;
   num_c3SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c3SFWET", NC_DOUBLE, RANK_num_c3SFWET, num_c3SFWET_dims, &num_c3SFWET_id)) ERR;

   num_c3TBF_dims[0] = time_dim;
   num_c3TBF_dims[1] = lat_dim;
   num_c3TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c3TBF", NC_DOUBLE, RANK_num_c3TBF, num_c3TBF_dims, &num_c3TBF_id)) ERR;

   num_c3_sfcsiz1_dims[0] = time_dim;
   num_c3_sfcsiz1_dims[1] = lat_dim;
   num_c3_sfcsiz1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c3_sfcsiz1", NC_DOUBLE, RANK_num_c3_sfcsiz1, num_c3_sfcsiz1_dims, &num_c3_sfcsiz1_id)) ERR;

   num_c3_sfcsiz2_dims[0] = time_dim;
   num_c3_sfcsiz2_dims[1] = lat_dim;
   num_c3_sfcsiz2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "num_c3_sfcsiz2", NC_DOUBLE, RANK_num_c3_sfcsiz2, num_c3_sfcsiz2_dims, &num_c3_sfcsiz2_id)) ERR;

   pom_a1_dims[0] = time_dim;
   pom_a1_dims[1] = lev_dim;
   pom_a1_dims[2] = lat_dim;
   pom_a1_dims[3] = lon_dim;
   if (nc_def_var(ncid, "pom_a1", NC_DOUBLE, RANK_pom_a1, pom_a1_dims, &pom_a1_id)) ERR;

   pom_a1DDF_dims[0] = time_dim;
   pom_a1DDF_dims[1] = lat_dim;
   pom_a1DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "pom_a1DDF", NC_DOUBLE, RANK_pom_a1DDF, pom_a1DDF_dims, &pom_a1DDF_id)) ERR;

   pom_a1GVF_dims[0] = time_dim;
   pom_a1GVF_dims[1] = lat_dim;
   pom_a1GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "pom_a1GVF", NC_DOUBLE, RANK_pom_a1GVF, pom_a1GVF_dims, &pom_a1GVF_id)) ERR;

   pom_a1SFSBC_dims[0] = time_dim;
   pom_a1SFSBC_dims[1] = lat_dim;
   pom_a1SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "pom_a1SFSBC", NC_DOUBLE, RANK_pom_a1SFSBC, pom_a1SFSBC_dims, &pom_a1SFSBC_id)) ERR;

   pom_a1SFSBS_dims[0] = time_dim;
   pom_a1SFSBS_dims[1] = lat_dim;
   pom_a1SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "pom_a1SFSBS", NC_DOUBLE, RANK_pom_a1SFSBS, pom_a1SFSBS_dims, &pom_a1SFSBS_id)) ERR;

   pom_a1SFSIC_dims[0] = time_dim;
   pom_a1SFSIC_dims[1] = lat_dim;
   pom_a1SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "pom_a1SFSIC", NC_DOUBLE, RANK_pom_a1SFSIC, pom_a1SFSIC_dims, &pom_a1SFSIC_id)) ERR;

   pom_a1SFSIS_dims[0] = time_dim;
   pom_a1SFSIS_dims[1] = lat_dim;
   pom_a1SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "pom_a1SFSIS", NC_DOUBLE, RANK_pom_a1SFSIS, pom_a1SFSIS_dims, &pom_a1SFSIS_id)) ERR;

   pom_a1SFWET_dims[0] = time_dim;
   pom_a1SFWET_dims[1] = lat_dim;
   pom_a1SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "pom_a1SFWET", NC_DOUBLE, RANK_pom_a1SFWET, pom_a1SFWET_dims, &pom_a1SFWET_id)) ERR;

   pom_a1TBF_dims[0] = time_dim;
   pom_a1TBF_dims[1] = lat_dim;
   pom_a1TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "pom_a1TBF", NC_DOUBLE, RANK_pom_a1TBF, pom_a1TBF_dims, &pom_a1TBF_id)) ERR;

   pom_a1_CLXF_dims[0] = time_dim;
   pom_a1_CLXF_dims[1] = lat_dim;
   pom_a1_CLXF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "pom_a1_CLXF", NC_DOUBLE, RANK_pom_a1_CLXF, pom_a1_CLXF_dims, &pom_a1_CLXF_id)) ERR;

   pom_a1_XFRC_dims[0] = time_dim;
   pom_a1_XFRC_dims[1] = lev_dim;
   pom_a1_XFRC_dims[2] = lat_dim;
   pom_a1_XFRC_dims[3] = lon_dim;
   if (nc_def_var(ncid, "pom_a1_XFRC", NC_DOUBLE, RANK_pom_a1_XFRC, pom_a1_XFRC_dims, &pom_a1_XFRC_id)) ERR;

   pom_c1_dims[0] = time_dim;
   pom_c1_dims[1] = lev_dim;
   pom_c1_dims[2] = lat_dim;
   pom_c1_dims[3] = lon_dim;
   if (nc_def_var(ncid, "pom_c1", NC_DOUBLE, RANK_pom_c1, pom_c1_dims, &pom_c1_id)) ERR;

   pom_c1DDF_dims[0] = time_dim;
   pom_c1DDF_dims[1] = lat_dim;
   pom_c1DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "pom_c1DDF", NC_DOUBLE, RANK_pom_c1DDF, pom_c1DDF_dims, &pom_c1DDF_id)) ERR;

   pom_c1GVF_dims[0] = time_dim;
   pom_c1GVF_dims[1] = lat_dim;
   pom_c1GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "pom_c1GVF", NC_DOUBLE, RANK_pom_c1GVF, pom_c1GVF_dims, &pom_c1GVF_id)) ERR;

   pom_c1SFSBC_dims[0] = time_dim;
   pom_c1SFSBC_dims[1] = lat_dim;
   pom_c1SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "pom_c1SFSBC", NC_DOUBLE, RANK_pom_c1SFSBC, pom_c1SFSBC_dims, &pom_c1SFSBC_id)) ERR;

   pom_c1SFSBS_dims[0] = time_dim;
   pom_c1SFSBS_dims[1] = lat_dim;
   pom_c1SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "pom_c1SFSBS", NC_DOUBLE, RANK_pom_c1SFSBS, pom_c1SFSBS_dims, &pom_c1SFSBS_id)) ERR;

   pom_c1SFSIC_dims[0] = time_dim;
   pom_c1SFSIC_dims[1] = lat_dim;
   pom_c1SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "pom_c1SFSIC", NC_DOUBLE, RANK_pom_c1SFSIC, pom_c1SFSIC_dims, &pom_c1SFSIC_id)) ERR;

   pom_c1SFSIS_dims[0] = time_dim;
   pom_c1SFSIS_dims[1] = lat_dim;
   pom_c1SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "pom_c1SFSIS", NC_DOUBLE, RANK_pom_c1SFSIS, pom_c1SFSIS_dims, &pom_c1SFSIS_id)) ERR;

   pom_c1SFWET_dims[0] = time_dim;
   pom_c1SFWET_dims[1] = lat_dim;
   pom_c1SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "pom_c1SFWET", NC_DOUBLE, RANK_pom_c1SFWET, pom_c1SFWET_dims, &pom_c1SFWET_id)) ERR;

   pom_c1TBF_dims[0] = time_dim;
   pom_c1TBF_dims[1] = lat_dim;
   pom_c1TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "pom_c1TBF", NC_DOUBLE, RANK_pom_c1TBF, pom_c1TBF_dims, &pom_c1TBF_id)) ERR;

   so4_a1_dims[0] = time_dim;
   so4_a1_dims[1] = lev_dim;
   so4_a1_dims[2] = lat_dim;
   so4_a1_dims[3] = lon_dim;
   if (nc_def_var(ncid, "so4_a1", NC_DOUBLE, RANK_so4_a1, so4_a1_dims, &so4_a1_id)) ERR;

   so4_a1DDF_dims[0] = time_dim;
   so4_a1DDF_dims[1] = lat_dim;
   so4_a1DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a1DDF", NC_DOUBLE, RANK_so4_a1DDF, so4_a1DDF_dims, &so4_a1DDF_id)) ERR;

   so4_a1GVF_dims[0] = time_dim;
   so4_a1GVF_dims[1] = lat_dim;
   so4_a1GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a1GVF", NC_DOUBLE, RANK_so4_a1GVF, so4_a1GVF_dims, &so4_a1GVF_id)) ERR;

   so4_a1SFSBC_dims[0] = time_dim;
   so4_a1SFSBC_dims[1] = lat_dim;
   so4_a1SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a1SFSBC", NC_DOUBLE, RANK_so4_a1SFSBC, so4_a1SFSBC_dims, &so4_a1SFSBC_id)) ERR;

   so4_a1SFSBS_dims[0] = time_dim;
   so4_a1SFSBS_dims[1] = lat_dim;
   so4_a1SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a1SFSBS", NC_DOUBLE, RANK_so4_a1SFSBS, so4_a1SFSBS_dims, &so4_a1SFSBS_id)) ERR;

   so4_a1SFSIC_dims[0] = time_dim;
   so4_a1SFSIC_dims[1] = lat_dim;
   so4_a1SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a1SFSIC", NC_DOUBLE, RANK_so4_a1SFSIC, so4_a1SFSIC_dims, &so4_a1SFSIC_id)) ERR;

   so4_a1SFSIS_dims[0] = time_dim;
   so4_a1SFSIS_dims[1] = lat_dim;
   so4_a1SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a1SFSIS", NC_DOUBLE, RANK_so4_a1SFSIS, so4_a1SFSIS_dims, &so4_a1SFSIS_id)) ERR;

   so4_a1SFWET_dims[0] = time_dim;
   so4_a1SFWET_dims[1] = lat_dim;
   so4_a1SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a1SFWET", NC_DOUBLE, RANK_so4_a1SFWET, so4_a1SFWET_dims, &so4_a1SFWET_id)) ERR;

   so4_a1TBF_dims[0] = time_dim;
   so4_a1TBF_dims[1] = lat_dim;
   so4_a1TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a1TBF", NC_DOUBLE, RANK_so4_a1TBF, so4_a1TBF_dims, &so4_a1TBF_id)) ERR;

   so4_a1_CLXF_dims[0] = time_dim;
   so4_a1_CLXF_dims[1] = lat_dim;
   so4_a1_CLXF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a1_CLXF", NC_DOUBLE, RANK_so4_a1_CLXF, so4_a1_CLXF_dims, &so4_a1_CLXF_id)) ERR;

   so4_a1_XFRC_dims[0] = time_dim;
   so4_a1_XFRC_dims[1] = lev_dim;
   so4_a1_XFRC_dims[2] = lat_dim;
   so4_a1_XFRC_dims[3] = lon_dim;
   if (nc_def_var(ncid, "so4_a1_XFRC", NC_DOUBLE, RANK_so4_a1_XFRC, so4_a1_XFRC_dims, &so4_a1_XFRC_id)) ERR;

   so4_a1_sfcoag1_dims[0] = time_dim;
   so4_a1_sfcoag1_dims[1] = lat_dim;
   so4_a1_sfcoag1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a1_sfcoag1", NC_DOUBLE, RANK_so4_a1_sfcoag1, so4_a1_sfcoag1_dims, &so4_a1_sfcoag1_id)) ERR;

   so4_a1_sfcsiz3_dims[0] = time_dim;
   so4_a1_sfcsiz3_dims[1] = lat_dim;
   so4_a1_sfcsiz3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a1_sfcsiz3", NC_DOUBLE, RANK_so4_a1_sfcsiz3, so4_a1_sfcsiz3_dims, &so4_a1_sfcsiz3_id)) ERR;

   so4_a1_sfcsiz4_dims[0] = time_dim;
   so4_a1_sfcsiz4_dims[1] = lat_dim;
   so4_a1_sfcsiz4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a1_sfcsiz4", NC_DOUBLE, RANK_so4_a1_sfcsiz4, so4_a1_sfcsiz4_dims, &so4_a1_sfcsiz4_id)) ERR;

   so4_a1_sfgaex1_dims[0] = time_dim;
   so4_a1_sfgaex1_dims[1] = lat_dim;
   so4_a1_sfgaex1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a1_sfgaex1", NC_DOUBLE, RANK_so4_a1_sfgaex1, so4_a1_sfgaex1_dims, &so4_a1_sfgaex1_id)) ERR;

   so4_a1_sfgaex2_dims[0] = time_dim;
   so4_a1_sfgaex2_dims[1] = lat_dim;
   so4_a1_sfgaex2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a1_sfgaex2", NC_DOUBLE, RANK_so4_a1_sfgaex2, so4_a1_sfgaex2_dims, &so4_a1_sfgaex2_id)) ERR;

   so4_a2_dims[0] = time_dim;
   so4_a2_dims[1] = lev_dim;
   so4_a2_dims[2] = lat_dim;
   so4_a2_dims[3] = lon_dim;
   if (nc_def_var(ncid, "so4_a2", NC_DOUBLE, RANK_so4_a2, so4_a2_dims, &so4_a2_id)) ERR;

   so4_a2DDF_dims[0] = time_dim;
   so4_a2DDF_dims[1] = lat_dim;
   so4_a2DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a2DDF", NC_DOUBLE, RANK_so4_a2DDF, so4_a2DDF_dims, &so4_a2DDF_id)) ERR;

   so4_a2GVF_dims[0] = time_dim;
   so4_a2GVF_dims[1] = lat_dim;
   so4_a2GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a2GVF", NC_DOUBLE, RANK_so4_a2GVF, so4_a2GVF_dims, &so4_a2GVF_id)) ERR;

   so4_a2SFSBC_dims[0] = time_dim;
   so4_a2SFSBC_dims[1] = lat_dim;
   so4_a2SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a2SFSBC", NC_DOUBLE, RANK_so4_a2SFSBC, so4_a2SFSBC_dims, &so4_a2SFSBC_id)) ERR;

   so4_a2SFSBS_dims[0] = time_dim;
   so4_a2SFSBS_dims[1] = lat_dim;
   so4_a2SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a2SFSBS", NC_DOUBLE, RANK_so4_a2SFSBS, so4_a2SFSBS_dims, &so4_a2SFSBS_id)) ERR;

   so4_a2SFSIC_dims[0] = time_dim;
   so4_a2SFSIC_dims[1] = lat_dim;
   so4_a2SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a2SFSIC", NC_DOUBLE, RANK_so4_a2SFSIC, so4_a2SFSIC_dims, &so4_a2SFSIC_id)) ERR;

   so4_a2SFSIS_dims[0] = time_dim;
   so4_a2SFSIS_dims[1] = lat_dim;
   so4_a2SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a2SFSIS", NC_DOUBLE, RANK_so4_a2SFSIS, so4_a2SFSIS_dims, &so4_a2SFSIS_id)) ERR;

   so4_a2SFWET_dims[0] = time_dim;
   so4_a2SFWET_dims[1] = lat_dim;
   so4_a2SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a2SFWET", NC_DOUBLE, RANK_so4_a2SFWET, so4_a2SFWET_dims, &so4_a2SFWET_id)) ERR;

   so4_a2TBF_dims[0] = time_dim;
   so4_a2TBF_dims[1] = lat_dim;
   so4_a2TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a2TBF", NC_DOUBLE, RANK_so4_a2TBF, so4_a2TBF_dims, &so4_a2TBF_id)) ERR;

   so4_a2_CLXF_dims[0] = time_dim;
   so4_a2_CLXF_dims[1] = lat_dim;
   so4_a2_CLXF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a2_CLXF", NC_DOUBLE, RANK_so4_a2_CLXF, so4_a2_CLXF_dims, &so4_a2_CLXF_id)) ERR;

   so4_a2_XFRC_dims[0] = time_dim;
   so4_a2_XFRC_dims[1] = lev_dim;
   so4_a2_XFRC_dims[2] = lat_dim;
   so4_a2_XFRC_dims[3] = lon_dim;
   if (nc_def_var(ncid, "so4_a2_XFRC", NC_DOUBLE, RANK_so4_a2_XFRC, so4_a2_XFRC_dims, &so4_a2_XFRC_id)) ERR;

   so4_a2_sfcoag1_dims[0] = time_dim;
   so4_a2_sfcoag1_dims[1] = lat_dim;
   so4_a2_sfcoag1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a2_sfcoag1", NC_DOUBLE, RANK_so4_a2_sfcoag1, so4_a2_sfcoag1_dims, &so4_a2_sfcoag1_id)) ERR;

   so4_a2_sfcsiz3_dims[0] = time_dim;
   so4_a2_sfcsiz3_dims[1] = lat_dim;
   so4_a2_sfcsiz3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a2_sfcsiz3", NC_DOUBLE, RANK_so4_a2_sfcsiz3, so4_a2_sfcsiz3_dims, &so4_a2_sfcsiz3_id)) ERR;

   so4_a2_sfcsiz4_dims[0] = time_dim;
   so4_a2_sfcsiz4_dims[1] = lat_dim;
   so4_a2_sfcsiz4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a2_sfcsiz4", NC_DOUBLE, RANK_so4_a2_sfcsiz4, so4_a2_sfcsiz4_dims, &so4_a2_sfcsiz4_id)) ERR;

   so4_a2_sfgaex1_dims[0] = time_dim;
   so4_a2_sfgaex1_dims[1] = lat_dim;
   so4_a2_sfgaex1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a2_sfgaex1", NC_DOUBLE, RANK_so4_a2_sfgaex1, so4_a2_sfgaex1_dims, &so4_a2_sfgaex1_id)) ERR;

   so4_a2_sfgaex2_dims[0] = time_dim;
   so4_a2_sfgaex2_dims[1] = lat_dim;
   so4_a2_sfgaex2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a2_sfgaex2", NC_DOUBLE, RANK_so4_a2_sfgaex2, so4_a2_sfgaex2_dims, &so4_a2_sfgaex2_id)) ERR;

   so4_a2_sfnnuc1_dims[0] = time_dim;
   so4_a2_sfnnuc1_dims[1] = lat_dim;
   so4_a2_sfnnuc1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a2_sfnnuc1", NC_DOUBLE, RANK_so4_a2_sfnnuc1, so4_a2_sfnnuc1_dims, &so4_a2_sfnnuc1_id)) ERR;

   so4_a3_dims[0] = time_dim;
   so4_a3_dims[1] = lev_dim;
   so4_a3_dims[2] = lat_dim;
   so4_a3_dims[3] = lon_dim;
   if (nc_def_var(ncid, "so4_a3", NC_DOUBLE, RANK_so4_a3, so4_a3_dims, &so4_a3_id)) ERR;

   so4_a3DDF_dims[0] = time_dim;
   so4_a3DDF_dims[1] = lat_dim;
   so4_a3DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a3DDF", NC_DOUBLE, RANK_so4_a3DDF, so4_a3DDF_dims, &so4_a3DDF_id)) ERR;

   so4_a3GVF_dims[0] = time_dim;
   so4_a3GVF_dims[1] = lat_dim;
   so4_a3GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a3GVF", NC_DOUBLE, RANK_so4_a3GVF, so4_a3GVF_dims, &so4_a3GVF_id)) ERR;

   so4_a3SFSBC_dims[0] = time_dim;
   so4_a3SFSBC_dims[1] = lat_dim;
   so4_a3SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a3SFSBC", NC_DOUBLE, RANK_so4_a3SFSBC, so4_a3SFSBC_dims, &so4_a3SFSBC_id)) ERR;

   so4_a3SFSBS_dims[0] = time_dim;
   so4_a3SFSBS_dims[1] = lat_dim;
   so4_a3SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a3SFSBS", NC_DOUBLE, RANK_so4_a3SFSBS, so4_a3SFSBS_dims, &so4_a3SFSBS_id)) ERR;

   so4_a3SFSIC_dims[0] = time_dim;
   so4_a3SFSIC_dims[1] = lat_dim;
   so4_a3SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a3SFSIC", NC_DOUBLE, RANK_so4_a3SFSIC, so4_a3SFSIC_dims, &so4_a3SFSIC_id)) ERR;

   so4_a3SFSIS_dims[0] = time_dim;
   so4_a3SFSIS_dims[1] = lat_dim;
   so4_a3SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a3SFSIS", NC_DOUBLE, RANK_so4_a3SFSIS, so4_a3SFSIS_dims, &so4_a3SFSIS_id)) ERR;

   so4_a3SFWET_dims[0] = time_dim;
   so4_a3SFWET_dims[1] = lat_dim;
   so4_a3SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a3SFWET", NC_DOUBLE, RANK_so4_a3SFWET, so4_a3SFWET_dims, &so4_a3SFWET_id)) ERR;

   so4_a3TBF_dims[0] = time_dim;
   so4_a3TBF_dims[1] = lat_dim;
   so4_a3TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a3TBF", NC_DOUBLE, RANK_so4_a3TBF, so4_a3TBF_dims, &so4_a3TBF_id)) ERR;

   so4_a3_sfgaex1_dims[0] = time_dim;
   so4_a3_sfgaex1_dims[1] = lat_dim;
   so4_a3_sfgaex1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_a3_sfgaex1", NC_DOUBLE, RANK_so4_a3_sfgaex1, so4_a3_sfgaex1_dims, &so4_a3_sfgaex1_id)) ERR;

   so4_c1_dims[0] = time_dim;
   so4_c1_dims[1] = lev_dim;
   so4_c1_dims[2] = lat_dim;
   so4_c1_dims[3] = lon_dim;
   if (nc_def_var(ncid, "so4_c1", NC_DOUBLE, RANK_so4_c1, so4_c1_dims, &so4_c1_id)) ERR;

   so4_c1AQH2SO4_dims[0] = time_dim;
   so4_c1AQH2SO4_dims[1] = lat_dim;
   so4_c1AQH2SO4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c1AQH2SO4", NC_DOUBLE, RANK_so4_c1AQH2SO4, so4_c1AQH2SO4_dims, &so4_c1AQH2SO4_id)) ERR;

   so4_c1AQSO4_dims[0] = time_dim;
   so4_c1AQSO4_dims[1] = lat_dim;
   so4_c1AQSO4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c1AQSO4", NC_DOUBLE, RANK_so4_c1AQSO4, so4_c1AQSO4_dims, &so4_c1AQSO4_id)) ERR;

   so4_c1DDF_dims[0] = time_dim;
   so4_c1DDF_dims[1] = lat_dim;
   so4_c1DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c1DDF", NC_DOUBLE, RANK_so4_c1DDF, so4_c1DDF_dims, &so4_c1DDF_id)) ERR;

   so4_c1GVF_dims[0] = time_dim;
   so4_c1GVF_dims[1] = lat_dim;
   so4_c1GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c1GVF", NC_DOUBLE, RANK_so4_c1GVF, so4_c1GVF_dims, &so4_c1GVF_id)) ERR;

   so4_c1SFSBC_dims[0] = time_dim;
   so4_c1SFSBC_dims[1] = lat_dim;
   so4_c1SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c1SFSBC", NC_DOUBLE, RANK_so4_c1SFSBC, so4_c1SFSBC_dims, &so4_c1SFSBC_id)) ERR;

   so4_c1SFSBS_dims[0] = time_dim;
   so4_c1SFSBS_dims[1] = lat_dim;
   so4_c1SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c1SFSBS", NC_DOUBLE, RANK_so4_c1SFSBS, so4_c1SFSBS_dims, &so4_c1SFSBS_id)) ERR;

   so4_c1SFSIC_dims[0] = time_dim;
   so4_c1SFSIC_dims[1] = lat_dim;
   so4_c1SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c1SFSIC", NC_DOUBLE, RANK_so4_c1SFSIC, so4_c1SFSIC_dims, &so4_c1SFSIC_id)) ERR;

   so4_c1SFSIS_dims[0] = time_dim;
   so4_c1SFSIS_dims[1] = lat_dim;
   so4_c1SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c1SFSIS", NC_DOUBLE, RANK_so4_c1SFSIS, so4_c1SFSIS_dims, &so4_c1SFSIS_id)) ERR;

   so4_c1SFWET_dims[0] = time_dim;
   so4_c1SFWET_dims[1] = lat_dim;
   so4_c1SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c1SFWET", NC_DOUBLE, RANK_so4_c1SFWET, so4_c1SFWET_dims, &so4_c1SFWET_id)) ERR;

   so4_c1TBF_dims[0] = time_dim;
   so4_c1TBF_dims[1] = lat_dim;
   so4_c1TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c1TBF", NC_DOUBLE, RANK_so4_c1TBF, so4_c1TBF_dims, &so4_c1TBF_id)) ERR;

   so4_c1_sfcsiz3_dims[0] = time_dim;
   so4_c1_sfcsiz3_dims[1] = lat_dim;
   so4_c1_sfcsiz3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c1_sfcsiz3", NC_DOUBLE, RANK_so4_c1_sfcsiz3, so4_c1_sfcsiz3_dims, &so4_c1_sfcsiz3_id)) ERR;

   so4_c1_sfcsiz4_dims[0] = time_dim;
   so4_c1_sfcsiz4_dims[1] = lat_dim;
   so4_c1_sfcsiz4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c1_sfcsiz4", NC_DOUBLE, RANK_so4_c1_sfcsiz4, so4_c1_sfcsiz4_dims, &so4_c1_sfcsiz4_id)) ERR;

   so4_c1_sfgaex2_dims[0] = time_dim;
   so4_c1_sfgaex2_dims[1] = lat_dim;
   so4_c1_sfgaex2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c1_sfgaex2", NC_DOUBLE, RANK_so4_c1_sfgaex2, so4_c1_sfgaex2_dims, &so4_c1_sfgaex2_id)) ERR;

   so4_c2_dims[0] = time_dim;
   so4_c2_dims[1] = lev_dim;
   so4_c2_dims[2] = lat_dim;
   so4_c2_dims[3] = lon_dim;
   if (nc_def_var(ncid, "so4_c2", NC_DOUBLE, RANK_so4_c2, so4_c2_dims, &so4_c2_id)) ERR;

   so4_c2AQH2SO4_dims[0] = time_dim;
   so4_c2AQH2SO4_dims[1] = lat_dim;
   so4_c2AQH2SO4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c2AQH2SO4", NC_DOUBLE, RANK_so4_c2AQH2SO4, so4_c2AQH2SO4_dims, &so4_c2AQH2SO4_id)) ERR;

   so4_c2AQSO4_dims[0] = time_dim;
   so4_c2AQSO4_dims[1] = lat_dim;
   so4_c2AQSO4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c2AQSO4", NC_DOUBLE, RANK_so4_c2AQSO4, so4_c2AQSO4_dims, &so4_c2AQSO4_id)) ERR;

   so4_c2DDF_dims[0] = time_dim;
   so4_c2DDF_dims[1] = lat_dim;
   so4_c2DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c2DDF", NC_DOUBLE, RANK_so4_c2DDF, so4_c2DDF_dims, &so4_c2DDF_id)) ERR;

   so4_c2GVF_dims[0] = time_dim;
   so4_c2GVF_dims[1] = lat_dim;
   so4_c2GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c2GVF", NC_DOUBLE, RANK_so4_c2GVF, so4_c2GVF_dims, &so4_c2GVF_id)) ERR;

   so4_c2SFSBC_dims[0] = time_dim;
   so4_c2SFSBC_dims[1] = lat_dim;
   so4_c2SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c2SFSBC", NC_DOUBLE, RANK_so4_c2SFSBC, so4_c2SFSBC_dims, &so4_c2SFSBC_id)) ERR;

   so4_c2SFSBS_dims[0] = time_dim;
   so4_c2SFSBS_dims[1] = lat_dim;
   so4_c2SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c2SFSBS", NC_DOUBLE, RANK_so4_c2SFSBS, so4_c2SFSBS_dims, &so4_c2SFSBS_id)) ERR;

   so4_c2SFSIC_dims[0] = time_dim;
   so4_c2SFSIC_dims[1] = lat_dim;
   so4_c2SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c2SFSIC", NC_DOUBLE, RANK_so4_c2SFSIC, so4_c2SFSIC_dims, &so4_c2SFSIC_id)) ERR;

   so4_c2SFSIS_dims[0] = time_dim;
   so4_c2SFSIS_dims[1] = lat_dim;
   so4_c2SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c2SFSIS", NC_DOUBLE, RANK_so4_c2SFSIS, so4_c2SFSIS_dims, &so4_c2SFSIS_id)) ERR;

   so4_c2SFWET_dims[0] = time_dim;
   so4_c2SFWET_dims[1] = lat_dim;
   so4_c2SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c2SFWET", NC_DOUBLE, RANK_so4_c2SFWET, so4_c2SFWET_dims, &so4_c2SFWET_id)) ERR;

   so4_c2TBF_dims[0] = time_dim;
   so4_c2TBF_dims[1] = lat_dim;
   so4_c2TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c2TBF", NC_DOUBLE, RANK_so4_c2TBF, so4_c2TBF_dims, &so4_c2TBF_id)) ERR;

   so4_c2_sfcsiz3_dims[0] = time_dim;
   so4_c2_sfcsiz3_dims[1] = lat_dim;
   so4_c2_sfcsiz3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c2_sfcsiz3", NC_DOUBLE, RANK_so4_c2_sfcsiz3, so4_c2_sfcsiz3_dims, &so4_c2_sfcsiz3_id)) ERR;

   so4_c2_sfcsiz4_dims[0] = time_dim;
   so4_c2_sfcsiz4_dims[1] = lat_dim;
   so4_c2_sfcsiz4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c2_sfcsiz4", NC_DOUBLE, RANK_so4_c2_sfcsiz4, so4_c2_sfcsiz4_dims, &so4_c2_sfcsiz4_id)) ERR;

   so4_c2_sfgaex2_dims[0] = time_dim;
   so4_c2_sfgaex2_dims[1] = lat_dim;
   so4_c2_sfgaex2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c2_sfgaex2", NC_DOUBLE, RANK_so4_c2_sfgaex2, so4_c2_sfgaex2_dims, &so4_c2_sfgaex2_id)) ERR;

   so4_c3_dims[0] = time_dim;
   so4_c3_dims[1] = lev_dim;
   so4_c3_dims[2] = lat_dim;
   so4_c3_dims[3] = lon_dim;
   if (nc_def_var(ncid, "so4_c3", NC_DOUBLE, RANK_so4_c3, so4_c3_dims, &so4_c3_id)) ERR;

   so4_c3AQH2SO4_dims[0] = time_dim;
   so4_c3AQH2SO4_dims[1] = lat_dim;
   so4_c3AQH2SO4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c3AQH2SO4", NC_DOUBLE, RANK_so4_c3AQH2SO4, so4_c3AQH2SO4_dims, &so4_c3AQH2SO4_id)) ERR;

   so4_c3AQSO4_dims[0] = time_dim;
   so4_c3AQSO4_dims[1] = lat_dim;
   so4_c3AQSO4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c3AQSO4", NC_DOUBLE, RANK_so4_c3AQSO4, so4_c3AQSO4_dims, &so4_c3AQSO4_id)) ERR;

   so4_c3DDF_dims[0] = time_dim;
   so4_c3DDF_dims[1] = lat_dim;
   so4_c3DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c3DDF", NC_DOUBLE, RANK_so4_c3DDF, so4_c3DDF_dims, &so4_c3DDF_id)) ERR;

   so4_c3GVF_dims[0] = time_dim;
   so4_c3GVF_dims[1] = lat_dim;
   so4_c3GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c3GVF", NC_DOUBLE, RANK_so4_c3GVF, so4_c3GVF_dims, &so4_c3GVF_id)) ERR;

   so4_c3SFSBC_dims[0] = time_dim;
   so4_c3SFSBC_dims[1] = lat_dim;
   so4_c3SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c3SFSBC", NC_DOUBLE, RANK_so4_c3SFSBC, so4_c3SFSBC_dims, &so4_c3SFSBC_id)) ERR;

   so4_c3SFSBS_dims[0] = time_dim;
   so4_c3SFSBS_dims[1] = lat_dim;
   so4_c3SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c3SFSBS", NC_DOUBLE, RANK_so4_c3SFSBS, so4_c3SFSBS_dims, &so4_c3SFSBS_id)) ERR;

   so4_c3SFSIC_dims[0] = time_dim;
   so4_c3SFSIC_dims[1] = lat_dim;
   so4_c3SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c3SFSIC", NC_DOUBLE, RANK_so4_c3SFSIC, so4_c3SFSIC_dims, &so4_c3SFSIC_id)) ERR;

   so4_c3SFSIS_dims[0] = time_dim;
   so4_c3SFSIS_dims[1] = lat_dim;
   so4_c3SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c3SFSIS", NC_DOUBLE, RANK_so4_c3SFSIS, so4_c3SFSIS_dims, &so4_c3SFSIS_id)) ERR;

   so4_c3SFWET_dims[0] = time_dim;
   so4_c3SFWET_dims[1] = lat_dim;
   so4_c3SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c3SFWET", NC_DOUBLE, RANK_so4_c3SFWET, so4_c3SFWET_dims, &so4_c3SFWET_id)) ERR;

   so4_c3TBF_dims[0] = time_dim;
   so4_c3TBF_dims[1] = lat_dim;
   so4_c3TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "so4_c3TBF", NC_DOUBLE, RANK_so4_c3TBF, so4_c3TBF_dims, &so4_c3TBF_id)) ERR;

   soa_a1_dims[0] = time_dim;
   soa_a1_dims[1] = lev_dim;
   soa_a1_dims[2] = lat_dim;
   soa_a1_dims[3] = lon_dim;
   if (nc_def_var(ncid, "soa_a1", NC_DOUBLE, RANK_soa_a1, soa_a1_dims, &soa_a1_id)) ERR;

   soa_a1DDF_dims[0] = time_dim;
   soa_a1DDF_dims[1] = lat_dim;
   soa_a1DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a1DDF", NC_DOUBLE, RANK_soa_a1DDF, soa_a1DDF_dims, &soa_a1DDF_id)) ERR;

   soa_a1GVF_dims[0] = time_dim;
   soa_a1GVF_dims[1] = lat_dim;
   soa_a1GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a1GVF", NC_DOUBLE, RANK_soa_a1GVF, soa_a1GVF_dims, &soa_a1GVF_id)) ERR;

   soa_a1SFSBC_dims[0] = time_dim;
   soa_a1SFSBC_dims[1] = lat_dim;
   soa_a1SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a1SFSBC", NC_DOUBLE, RANK_soa_a1SFSBC, soa_a1SFSBC_dims, &soa_a1SFSBC_id)) ERR;

   soa_a1SFSBS_dims[0] = time_dim;
   soa_a1SFSBS_dims[1] = lat_dim;
   soa_a1SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a1SFSBS", NC_DOUBLE, RANK_soa_a1SFSBS, soa_a1SFSBS_dims, &soa_a1SFSBS_id)) ERR;

   soa_a1SFSIC_dims[0] = time_dim;
   soa_a1SFSIC_dims[1] = lat_dim;
   soa_a1SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a1SFSIC", NC_DOUBLE, RANK_soa_a1SFSIC, soa_a1SFSIC_dims, &soa_a1SFSIC_id)) ERR;

   soa_a1SFSIS_dims[0] = time_dim;
   soa_a1SFSIS_dims[1] = lat_dim;
   soa_a1SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a1SFSIS", NC_DOUBLE, RANK_soa_a1SFSIS, soa_a1SFSIS_dims, &soa_a1SFSIS_id)) ERR;

   soa_a1SFWET_dims[0] = time_dim;
   soa_a1SFWET_dims[1] = lat_dim;
   soa_a1SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a1SFWET", NC_DOUBLE, RANK_soa_a1SFWET, soa_a1SFWET_dims, &soa_a1SFWET_id)) ERR;

   soa_a1TBF_dims[0] = time_dim;
   soa_a1TBF_dims[1] = lat_dim;
   soa_a1TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a1TBF", NC_DOUBLE, RANK_soa_a1TBF, soa_a1TBF_dims, &soa_a1TBF_id)) ERR;

   soa_a1_sfcoag1_dims[0] = time_dim;
   soa_a1_sfcoag1_dims[1] = lat_dim;
   soa_a1_sfcoag1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a1_sfcoag1", NC_DOUBLE, RANK_soa_a1_sfcoag1, soa_a1_sfcoag1_dims, &soa_a1_sfcoag1_id)) ERR;

   soa_a1_sfcsiz3_dims[0] = time_dim;
   soa_a1_sfcsiz3_dims[1] = lat_dim;
   soa_a1_sfcsiz3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a1_sfcsiz3", NC_DOUBLE, RANK_soa_a1_sfcsiz3, soa_a1_sfcsiz3_dims, &soa_a1_sfcsiz3_id)) ERR;

   soa_a1_sfcsiz4_dims[0] = time_dim;
   soa_a1_sfcsiz4_dims[1] = lat_dim;
   soa_a1_sfcsiz4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a1_sfcsiz4", NC_DOUBLE, RANK_soa_a1_sfcsiz4, soa_a1_sfcsiz4_dims, &soa_a1_sfcsiz4_id)) ERR;

   soa_a1_sfgaex1_dims[0] = time_dim;
   soa_a1_sfgaex1_dims[1] = lat_dim;
   soa_a1_sfgaex1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a1_sfgaex1", NC_DOUBLE, RANK_soa_a1_sfgaex1, soa_a1_sfgaex1_dims, &soa_a1_sfgaex1_id)) ERR;

   soa_a1_sfgaex2_dims[0] = time_dim;
   soa_a1_sfgaex2_dims[1] = lat_dim;
   soa_a1_sfgaex2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a1_sfgaex2", NC_DOUBLE, RANK_soa_a1_sfgaex2, soa_a1_sfgaex2_dims, &soa_a1_sfgaex2_id)) ERR;

   soa_a2_dims[0] = time_dim;
   soa_a2_dims[1] = lev_dim;
   soa_a2_dims[2] = lat_dim;
   soa_a2_dims[3] = lon_dim;
   if (nc_def_var(ncid, "soa_a2", NC_DOUBLE, RANK_soa_a2, soa_a2_dims, &soa_a2_id)) ERR;

   soa_a2DDF_dims[0] = time_dim;
   soa_a2DDF_dims[1] = lat_dim;
   soa_a2DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a2DDF", NC_DOUBLE, RANK_soa_a2DDF, soa_a2DDF_dims, &soa_a2DDF_id)) ERR;

   soa_a2GVF_dims[0] = time_dim;
   soa_a2GVF_dims[1] = lat_dim;
   soa_a2GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a2GVF", NC_DOUBLE, RANK_soa_a2GVF, soa_a2GVF_dims, &soa_a2GVF_id)) ERR;

   soa_a2SFSBC_dims[0] = time_dim;
   soa_a2SFSBC_dims[1] = lat_dim;
   soa_a2SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a2SFSBC", NC_DOUBLE, RANK_soa_a2SFSBC, soa_a2SFSBC_dims, &soa_a2SFSBC_id)) ERR;

   soa_a2SFSBS_dims[0] = time_dim;
   soa_a2SFSBS_dims[1] = lat_dim;
   soa_a2SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a2SFSBS", NC_DOUBLE, RANK_soa_a2SFSBS, soa_a2SFSBS_dims, &soa_a2SFSBS_id)) ERR;

   soa_a2SFSIC_dims[0] = time_dim;
   soa_a2SFSIC_dims[1] = lat_dim;
   soa_a2SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a2SFSIC", NC_DOUBLE, RANK_soa_a2SFSIC, soa_a2SFSIC_dims, &soa_a2SFSIC_id)) ERR;

   soa_a2SFSIS_dims[0] = time_dim;
   soa_a2SFSIS_dims[1] = lat_dim;
   soa_a2SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a2SFSIS", NC_DOUBLE, RANK_soa_a2SFSIS, soa_a2SFSIS_dims, &soa_a2SFSIS_id)) ERR;

   soa_a2SFWET_dims[0] = time_dim;
   soa_a2SFWET_dims[1] = lat_dim;
   soa_a2SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a2SFWET", NC_DOUBLE, RANK_soa_a2SFWET, soa_a2SFWET_dims, &soa_a2SFWET_id)) ERR;

   soa_a2TBF_dims[0] = time_dim;
   soa_a2TBF_dims[1] = lat_dim;
   soa_a2TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a2TBF", NC_DOUBLE, RANK_soa_a2TBF, soa_a2TBF_dims, &soa_a2TBF_id)) ERR;

   soa_a2_sfcoag1_dims[0] = time_dim;
   soa_a2_sfcoag1_dims[1] = lat_dim;
   soa_a2_sfcoag1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a2_sfcoag1", NC_DOUBLE, RANK_soa_a2_sfcoag1, soa_a2_sfcoag1_dims, &soa_a2_sfcoag1_id)) ERR;

   soa_a2_sfcsiz3_dims[0] = time_dim;
   soa_a2_sfcsiz3_dims[1] = lat_dim;
   soa_a2_sfcsiz3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a2_sfcsiz3", NC_DOUBLE, RANK_soa_a2_sfcsiz3, soa_a2_sfcsiz3_dims, &soa_a2_sfcsiz3_id)) ERR;

   soa_a2_sfcsiz4_dims[0] = time_dim;
   soa_a2_sfcsiz4_dims[1] = lat_dim;
   soa_a2_sfcsiz4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a2_sfcsiz4", NC_DOUBLE, RANK_soa_a2_sfcsiz4, soa_a2_sfcsiz4_dims, &soa_a2_sfcsiz4_id)) ERR;

   soa_a2_sfgaex1_dims[0] = time_dim;
   soa_a2_sfgaex1_dims[1] = lat_dim;
   soa_a2_sfgaex1_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a2_sfgaex1", NC_DOUBLE, RANK_soa_a2_sfgaex1, soa_a2_sfgaex1_dims, &soa_a2_sfgaex1_id)) ERR;

   soa_a2_sfgaex2_dims[0] = time_dim;
   soa_a2_sfgaex2_dims[1] = lat_dim;
   soa_a2_sfgaex2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_a2_sfgaex2", NC_DOUBLE, RANK_soa_a2_sfgaex2, soa_a2_sfgaex2_dims, &soa_a2_sfgaex2_id)) ERR;

   soa_c1_dims[0] = time_dim;
   soa_c1_dims[1] = lev_dim;
   soa_c1_dims[2] = lat_dim;
   soa_c1_dims[3] = lon_dim;
   if (nc_def_var(ncid, "soa_c1", NC_DOUBLE, RANK_soa_c1, soa_c1_dims, &soa_c1_id)) ERR;

   soa_c1DDF_dims[0] = time_dim;
   soa_c1DDF_dims[1] = lat_dim;
   soa_c1DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c1DDF", NC_DOUBLE, RANK_soa_c1DDF, soa_c1DDF_dims, &soa_c1DDF_id)) ERR;

   soa_c1GVF_dims[0] = time_dim;
   soa_c1GVF_dims[1] = lat_dim;
   soa_c1GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c1GVF", NC_DOUBLE, RANK_soa_c1GVF, soa_c1GVF_dims, &soa_c1GVF_id)) ERR;

   soa_c1SFSBC_dims[0] = time_dim;
   soa_c1SFSBC_dims[1] = lat_dim;
   soa_c1SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c1SFSBC", NC_DOUBLE, RANK_soa_c1SFSBC, soa_c1SFSBC_dims, &soa_c1SFSBC_id)) ERR;

   soa_c1SFSBS_dims[0] = time_dim;
   soa_c1SFSBS_dims[1] = lat_dim;
   soa_c1SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c1SFSBS", NC_DOUBLE, RANK_soa_c1SFSBS, soa_c1SFSBS_dims, &soa_c1SFSBS_id)) ERR;

   soa_c1SFSIC_dims[0] = time_dim;
   soa_c1SFSIC_dims[1] = lat_dim;
   soa_c1SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c1SFSIC", NC_DOUBLE, RANK_soa_c1SFSIC, soa_c1SFSIC_dims, &soa_c1SFSIC_id)) ERR;

   soa_c1SFSIS_dims[0] = time_dim;
   soa_c1SFSIS_dims[1] = lat_dim;
   soa_c1SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c1SFSIS", NC_DOUBLE, RANK_soa_c1SFSIS, soa_c1SFSIS_dims, &soa_c1SFSIS_id)) ERR;

   soa_c1SFWET_dims[0] = time_dim;
   soa_c1SFWET_dims[1] = lat_dim;
   soa_c1SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c1SFWET", NC_DOUBLE, RANK_soa_c1SFWET, soa_c1SFWET_dims, &soa_c1SFWET_id)) ERR;

   soa_c1TBF_dims[0] = time_dim;
   soa_c1TBF_dims[1] = lat_dim;
   soa_c1TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c1TBF", NC_DOUBLE, RANK_soa_c1TBF, soa_c1TBF_dims, &soa_c1TBF_id)) ERR;

   soa_c1_sfcsiz3_dims[0] = time_dim;
   soa_c1_sfcsiz3_dims[1] = lat_dim;
   soa_c1_sfcsiz3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c1_sfcsiz3", NC_DOUBLE, RANK_soa_c1_sfcsiz3, soa_c1_sfcsiz3_dims, &soa_c1_sfcsiz3_id)) ERR;

   soa_c1_sfcsiz4_dims[0] = time_dim;
   soa_c1_sfcsiz4_dims[1] = lat_dim;
   soa_c1_sfcsiz4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c1_sfcsiz4", NC_DOUBLE, RANK_soa_c1_sfcsiz4, soa_c1_sfcsiz4_dims, &soa_c1_sfcsiz4_id)) ERR;

   soa_c1_sfgaex2_dims[0] = time_dim;
   soa_c1_sfgaex2_dims[1] = lat_dim;
   soa_c1_sfgaex2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c1_sfgaex2", NC_DOUBLE, RANK_soa_c1_sfgaex2, soa_c1_sfgaex2_dims, &soa_c1_sfgaex2_id)) ERR;

   soa_c2_dims[0] = time_dim;
   soa_c2_dims[1] = lev_dim;
   soa_c2_dims[2] = lat_dim;
   soa_c2_dims[3] = lon_dim;
   if (nc_def_var(ncid, "soa_c2", NC_DOUBLE, RANK_soa_c2, soa_c2_dims, &soa_c2_id)) ERR;

   soa_c2DDF_dims[0] = time_dim;
   soa_c2DDF_dims[1] = lat_dim;
   soa_c2DDF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c2DDF", NC_DOUBLE, RANK_soa_c2DDF, soa_c2DDF_dims, &soa_c2DDF_id)) ERR;

   soa_c2GVF_dims[0] = time_dim;
   soa_c2GVF_dims[1] = lat_dim;
   soa_c2GVF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c2GVF", NC_DOUBLE, RANK_soa_c2GVF, soa_c2GVF_dims, &soa_c2GVF_id)) ERR;

   soa_c2SFSBC_dims[0] = time_dim;
   soa_c2SFSBC_dims[1] = lat_dim;
   soa_c2SFSBC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c2SFSBC", NC_DOUBLE, RANK_soa_c2SFSBC, soa_c2SFSBC_dims, &soa_c2SFSBC_id)) ERR;

   soa_c2SFSBS_dims[0] = time_dim;
   soa_c2SFSBS_dims[1] = lat_dim;
   soa_c2SFSBS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c2SFSBS", NC_DOUBLE, RANK_soa_c2SFSBS, soa_c2SFSBS_dims, &soa_c2SFSBS_id)) ERR;

   soa_c2SFSIC_dims[0] = time_dim;
   soa_c2SFSIC_dims[1] = lat_dim;
   soa_c2SFSIC_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c2SFSIC", NC_DOUBLE, RANK_soa_c2SFSIC, soa_c2SFSIC_dims, &soa_c2SFSIC_id)) ERR;

   soa_c2SFSIS_dims[0] = time_dim;
   soa_c2SFSIS_dims[1] = lat_dim;
   soa_c2SFSIS_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c2SFSIS", NC_DOUBLE, RANK_soa_c2SFSIS, soa_c2SFSIS_dims, &soa_c2SFSIS_id)) ERR;

   soa_c2SFWET_dims[0] = time_dim;
   soa_c2SFWET_dims[1] = lat_dim;
   soa_c2SFWET_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c2SFWET", NC_DOUBLE, RANK_soa_c2SFWET, soa_c2SFWET_dims, &soa_c2SFWET_id)) ERR;

   soa_c2TBF_dims[0] = time_dim;
   soa_c2TBF_dims[1] = lat_dim;
   soa_c2TBF_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c2TBF", NC_DOUBLE, RANK_soa_c2TBF, soa_c2TBF_dims, &soa_c2TBF_id)) ERR;

   soa_c2_sfcsiz3_dims[0] = time_dim;
   soa_c2_sfcsiz3_dims[1] = lat_dim;
   soa_c2_sfcsiz3_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c2_sfcsiz3", NC_DOUBLE, RANK_soa_c2_sfcsiz3, soa_c2_sfcsiz3_dims, &soa_c2_sfcsiz3_id)) ERR;

   soa_c2_sfcsiz4_dims[0] = time_dim;
   soa_c2_sfcsiz4_dims[1] = lat_dim;
   soa_c2_sfcsiz4_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c2_sfcsiz4", NC_DOUBLE, RANK_soa_c2_sfcsiz4, soa_c2_sfcsiz4_dims, &soa_c2_sfcsiz4_id)) ERR;

   soa_c2_sfgaex2_dims[0] = time_dim;
   soa_c2_sfgaex2_dims[1] = lat_dim;
   soa_c2_sfgaex2_dims[2] = lon_dim;
   if (nc_def_var(ncid, "soa_c2_sfgaex2", NC_DOUBLE, RANK_soa_c2_sfgaex2, soa_c2_sfgaex2_dims, &soa_c2_sfgaex2_id)) ERR;

   wat_a1_dims[0] = time_dim;
   wat_a1_dims[1] = lev_dim;
   wat_a1_dims[2] = lat_dim;
   wat_a1_dims[3] = lon_dim;
   if (nc_def_var(ncid, "wat_a1", NC_DOUBLE, RANK_wat_a1, wat_a1_dims, &wat_a1_id)) ERR;

   wat_a2_dims[0] = time_dim;
   wat_a2_dims[1] = lev_dim;
   wat_a2_dims[2] = lat_dim;
   wat_a2_dims[3] = lon_dim;
   if (nc_def_var(ncid, "wat_a2", NC_DOUBLE, RANK_wat_a2, wat_a2_dims, &wat_a2_id)) ERR;

   wat_a3_dims[0] = time_dim;
   wat_a3_dims[1] = lev_dim;
   wat_a3_dims[2] = lat_dim;
   wat_a3_dims[3] = lon_dim;
   if (nc_def_var(ncid, "wat_a3", NC_DOUBLE, RANK_wat_a3, wat_a3_dims, &wat_a3_id)) ERR;

   /* assign global attributes */
   if (nc_put_att_text(ncid, NC_GLOBAL, "Conventions", 6, "CF-1.0")) ERR;
   if (nc_put_att_text(ncid, NC_GLOBAL, "source", 3, "CAM")) ERR;
   if (nc_put_att_text(ncid, NC_GLOBAL, "case", 6, "camrun")) ERR;
   if (nc_put_att_text(ncid, NC_GLOBAL, "title", 1, "\000")) ERR;
   if (nc_put_att_text(ncid, NC_GLOBAL, "logname", 8, "jedwards")) ERR;
   if (nc_put_att_text(ncid, NC_GLOBAL, "host", 1, "\000")) ERR;
   if (nc_put_att_text(ncid, NC_GLOBAL, "Version", 6, "$Name:  $")) ERR;
   if (nc_put_att_text(ncid, NC_GLOBAL, "revision_Id", 4, "$Id: tst_camrun.c,v 1.2 2010/05/20 13:17:50 ed Exp $")) ERR;
   if (nc_put_att_text(ncid, NC_GLOBAL, "initial_file", 81, "/fs/cgd/csm/inputdata/atm/cam/inic/fv/cami-mam3_0000-01-01_1.9x2.5_L30_c090306.nc")) ERR;
   if (nc_put_att_text(ncid, NC_GLOBAL, "topography_file", 72, "/fs/cgd/csm/inputdata/atm/cam/topo/USGS-gtopo30_1.9x2.5_remap_c050602.nc")) ERR;

   /* assign per-variable attributes */
   if (nc_put_att_text(ncid, P0_id, "long_name", 18, "reference pressure")) ERR;
   if (nc_put_att_text(ncid, P0_id, "units", 2, "Pa")) ERR;
   if (nc_put_att_text(ncid, lat_id, "long_name", 8, "latitude")) ERR;
   if (nc_put_att_text(ncid, lat_id, "units", 13, "degrees_north")) ERR;
   if (nc_put_att_text(ncid, lon_id, "long_name", 9, "longitude")) ERR;
   if (nc_put_att_text(ncid, lon_id, "units", 12, "degrees_east")) ERR;
   if (nc_put_att_text(ncid, slat_id, "long_name", 18, "staggered latitude")) ERR;
   if (nc_put_att_text(ncid, slat_id, "units", 13, "degrees_north")) ERR;
   if (nc_put_att_text(ncid, slon_id, "long_name", 19, "staggered longitude")) ERR;
   if (nc_put_att_text(ncid, slon_id, "units", 12, "degrees_east")) ERR;
   if (nc_put_att_text(ncid, w_stag_id, "long_name", 26, "staggered latitude weights")) ERR;
   if (nc_put_att_text(ncid, lev_id, "long_name", 38, "hybrid level at midpoints (1000*(A+B))")) ERR;
   if (nc_put_att_text(ncid, lev_id, "units", 5, "level")) ERR;
   if (nc_put_att_text(ncid, lev_id, "positive", 4, "down")) ERR;
   if (nc_put_att_text(ncid, lev_id, "standard_name", 43, "atmosphere_hybrid_sigma_pressure_coordinate")) ERR;
   if (nc_put_att_text(ncid, lev_id, "formula_terms", 29, "a: hyam b: hybm p0: P0 ps: PS")) ERR;
   if (nc_put_att_text(ncid, ilev_id, "long_name", 39, "hybrid level at interfaces (1000*(A+B))")) ERR;
   if (nc_put_att_text(ncid, ilev_id, "units", 5, "level")) ERR;
   if (nc_put_att_text(ncid, ilev_id, "positive", 4, "down")) ERR;
   if (nc_put_att_text(ncid, ilev_id, "standard_name", 43, "atmosphere_hybrid_sigma_pressure_coordinate")) ERR;
   if (nc_put_att_text(ncid, ilev_id, "formula_terms", 29, "a: hyai b: hybi p0: P0 ps: PS")) ERR;
   if (nc_put_att_text(ncid, isccp_prs_id, "long_name", 19, "Mean ISCCP pressure")) ERR;
   if (nc_put_att_text(ncid, isccp_prs_id, "units", 2, "mb")) ERR;
   { /* isccp_prs_bnds */
      static const double isccp_prs_isccp_prs_bnds_att[8] = {0, 180, 310, 440, 560, 680, 800, 1000} ;
      if (nc_put_att_double(ncid, isccp_prs_id, "isccp_prs_bnds", NC_DOUBLE, 8, isccp_prs_isccp_prs_bnds_att)) ERR;
   }
   if (nc_put_att_text(ncid, isccp_tau_id, "long_name", 24, "Mean ISCCP optical depth")) ERR;
   if (nc_put_att_text(ncid, isccp_tau_id, "units", 8, "unitless")) ERR;
   { /* isccp_tau_bnds */
      static const double isccp_tau_isccp_tau_bnds_att[8] = {0, 0.3, 1.3, 3.6, 9.4, 23, 60, 379} ;
      if (nc_put_att_double(ncid, isccp_tau_id, "isccp_tau_bnds", NC_DOUBLE, 8, isccp_tau_isccp_tau_bnds_att)) ERR;
   }
   if (nc_put_att_text(ncid, isccp_prstau_id, "long_name", 53, "Mean pressure (mb).mean optical depth (unitless)/1000")) ERR;
   if (nc_put_att_text(ncid, isccp_prstau_id, "units", 5, "mixed")) ERR;
   if (nc_put_att_text(ncid, time_id, "long_name", 4, "time")) ERR;
   if (nc_put_att_text(ncid, time_id, "units", 30, "days since 0000-01-01 00:00:00")) ERR;
   if (nc_put_att_text(ncid, time_id, "calendar", 6, "noleap")) ERR;
   if (nc_put_att_text(ncid, time_id, "bounds", 9, "time_bnds")) ERR;
   if (nc_put_att_text(ncid, time_bnds_id, "long_name", 23, "time interval endpoints")) ERR;
   if (nc_put_att_text(ncid, ntrm_id, "long_name", 31, "spectral truncation parameter M")) ERR;
   if (nc_put_att_text(ncid, ntrn_id, "long_name", 31, "spectral truncation parameter N")) ERR;
   if (nc_put_att_text(ncid, ntrk_id, "long_name", 31, "spectral truncation parameter K")) ERR;
   if (nc_put_att_text(ncid, ndbase_id, "long_name", 8, "base day")) ERR;
   if (nc_put_att_text(ncid, nsbase_id, "long_name", 19, "seconds of base day")) ERR;
   if (nc_put_att_text(ncid, nbdate_id, "long_name", 20, "base date (YYYYMMDD)")) ERR;
   if (nc_put_att_text(ncid, nbsec_id, "long_name", 20, "seconds of base date")) ERR;
   if (nc_put_att_text(ncid, mdt_id, "long_name", 8, "timestep")) ERR;
   if (nc_put_att_text(ncid, mdt_id, "units", 1, "s")) ERR;
   if (nc_put_att_text(ncid, nlon_id, "long_name", 20, "number of longitudes")) ERR;
   if (nc_put_att_text(ncid, wnummax_id, "long_name", 25, "cutoff Fourier wavenumber")) ERR;
   if (nc_put_att_text(ncid, hyai_id, "long_name", 40, "hybrid A coefficient at layer interfaces")) ERR;
   if (nc_put_att_text(ncid, hybi_id, "long_name", 40, "hybrid B coefficient at layer interfaces")) ERR;
   if (nc_put_att_text(ncid, hyam_id, "long_name", 39, "hybrid A coefficient at layer midpoints")) ERR;
   if (nc_put_att_text(ncid, hybm_id, "long_name", 39, "hybrid B coefficient at layer midpoints")) ERR;
   if (nc_put_att_text(ncid, gw_id, "long_name", 13, "gauss weights")) ERR;
   if (nc_put_att_text(ncid, ndcur_id, "long_name", 27, "current day (from base day)")) ERR;
   if (nc_put_att_text(ncid, nscur_id, "long_name", 30, "current seconds of current day")) ERR;
   if (nc_put_att_text(ncid, date_id, "long_name", 23, "current date (YYYYMMDD)")) ERR;
   if (nc_put_att_text(ncid, co2vmr_id, "long_name", 23, "co2 volume mixing ratio")) ERR;
   if (nc_put_att_text(ncid, ch4vmr_id, "long_name", 23, "ch4 volume mixing ratio")) ERR;
   if (nc_put_att_text(ncid, n2ovmr_id, "long_name", 23, "n2o volume mixing ratio")) ERR;
   if (nc_put_att_text(ncid, f11vmr_id, "long_name", 23, "f11 volume mixing ratio")) ERR;
   if (nc_put_att_text(ncid, f12vmr_id, "long_name", 23, "f12 volume mixing ratio")) ERR;
   if (nc_put_att_text(ncid, sol_tsi_id, "long_name", 22, "total solar irradiance")) ERR;
   if (nc_put_att_text(ncid, sol_tsi_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, datesec_id, "long_name", 31, "current seconds of current date")) ERR;
   if (nc_put_att_text(ncid, nsteph_id, "long_name", 16, "current timestep")) ERR;
   { /* _FillValue */
      static const double ABSORB_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ABSORB_id, "_FillValue", NC_DOUBLE, 1, ABSORB_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double ABSORB_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ABSORB_id, "missing_value", NC_DOUBLE, 1, ABSORB_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, ABSORB_id, "units", 2, "/m")) ERR;
   if (nc_put_att_text(ncid, ABSORB_id, "long_name", 18, "Aerosol absorption")) ERR;
   if (nc_put_att_text(ncid, ABSORB_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double AEROD_v_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AEROD_v_id, "_FillValue", NC_DOUBLE, 1, AEROD_v_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double AEROD_v_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AEROD_v_id, "missing_value", NC_DOUBLE, 1, AEROD_v_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, AEROD_v_id, "units", 1, "1")) ERR;
   if (nc_put_att_text(ncid, AEROD_v_id, "long_name", 43, "Total Aerosol Optical Depth in visible band")) ERR;
   if (nc_put_att_text(ncid, AEROD_v_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double AODABS_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AODABS_id, "_FillValue", NC_DOUBLE, 1, AODABS_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double AODABS_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AODABS_id, "missing_value", NC_DOUBLE, 1, AODABS_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, AODABS_id, "units", 1, "\000")) ERR;
   if (nc_put_att_text(ncid, AODABS_id, "long_name", 39, "Aerosol absorption optical depth 550 nm")) ERR;
   if (nc_put_att_text(ncid, AODABS_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double AODDUST1_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AODDUST1_id, "_FillValue", NC_DOUBLE, 1, AODDUST1_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double AODDUST1_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AODDUST1_id, "missing_value", NC_DOUBLE, 1, AODDUST1_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, AODDUST1_id, "units", 1, "\000")) ERR;
   if (nc_put_att_text(ncid, AODDUST1_id, "long_name", 46, "Aerosol optical depth 550 nm model 1 from dust")) ERR;
   if (nc_put_att_text(ncid, AODDUST1_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double AODDUST2_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AODDUST2_id, "_FillValue", NC_DOUBLE, 1, AODDUST2_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double AODDUST2_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AODDUST2_id, "missing_value", NC_DOUBLE, 1, AODDUST2_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, AODDUST2_id, "units", 1, "\000")) ERR;
   if (nc_put_att_text(ncid, AODDUST2_id, "long_name", 46, "Aerosol optical depth 550 nm model 2 from dust")) ERR;
   if (nc_put_att_text(ncid, AODDUST2_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double AODDUST3_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AODDUST3_id, "_FillValue", NC_DOUBLE, 1, AODDUST3_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double AODDUST3_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AODDUST3_id, "missing_value", NC_DOUBLE, 1, AODDUST3_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, AODDUST3_id, "units", 1, "\000")) ERR;
   if (nc_put_att_text(ncid, AODDUST3_id, "long_name", 46, "Aerosol optical depth 550 nm model 3 from dust")) ERR;
   if (nc_put_att_text(ncid, AODDUST3_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double AODMODE1_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AODMODE1_id, "_FillValue", NC_DOUBLE, 1, AODMODE1_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double AODMODE1_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AODMODE1_id, "missing_value", NC_DOUBLE, 1, AODMODE1_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, AODMODE1_id, "units", 1, "\000")) ERR;
   if (nc_put_att_text(ncid, AODMODE1_id, "long_name", 35, "Aerosol optical depth 550 nm mode 1")) ERR;
   if (nc_put_att_text(ncid, AODMODE1_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double AODMODE2_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AODMODE2_id, "_FillValue", NC_DOUBLE, 1, AODMODE2_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double AODMODE2_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AODMODE2_id, "missing_value", NC_DOUBLE, 1, AODMODE2_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, AODMODE2_id, "units", 1, "\000")) ERR;
   if (nc_put_att_text(ncid, AODMODE2_id, "long_name", 35, "Aerosol optical depth 550 nm mode 2")) ERR;
   if (nc_put_att_text(ncid, AODMODE2_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double AODMODE3_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AODMODE3_id, "_FillValue", NC_DOUBLE, 1, AODMODE3_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double AODMODE3_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AODMODE3_id, "missing_value", NC_DOUBLE, 1, AODMODE3_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, AODMODE3_id, "units", 1, "\000")) ERR;
   if (nc_put_att_text(ncid, AODMODE3_id, "long_name", 35, "Aerosol optical depth 550 nm mode 3")) ERR;
   if (nc_put_att_text(ncid, AODMODE3_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double AODVIS_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AODVIS_id, "_FillValue", NC_DOUBLE, 1, AODVIS_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double AODVIS_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, AODVIS_id, "missing_value", NC_DOUBLE, 1, AODVIS_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, AODVIS_id, "units", 1, "\000")) ERR;
   if (nc_put_att_text(ncid, AODVIS_id, "long_name", 28, "Aerosol optical depth 550 nm")) ERR;
   if (nc_put_att_text(ncid, AODVIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQSO4_H2O2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQSO4_H2O2_id, "long_name", 39, "SO4 aqueous phase chemistry due to H2O2")) ERR;
   if (nc_put_att_text(ncid, AQSO4_H2O2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQSO4_O3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQSO4_O3_id, "long_name", 37, "SO4 aqueous phase chemistry due to O3")) ERR;
   if (nc_put_att_text(ncid, AQSO4_O3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_DMS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_DMS_id, "long_name", 39, "DMS aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_DMS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_H2O2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_H2O2_id, "long_name", 40, "H2O2 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_H2O2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_H2SO4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_H2SO4_id, "long_name", 41, "H2SO4 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_H2SO4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_SO2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_SO2_id, "long_name", 39, "SO2 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_SO2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_SOAG_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_SOAG_id, "long_name", 40, "SOAG aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_SOAG_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_bc_a1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_bc_a1_id, "long_name", 41, "bc_a1 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_bc_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_dst_a1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_dst_a1_id, "long_name", 42, "dst_a1 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_dst_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_dst_a3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_dst_a3_id, "long_name", 42, "dst_a3 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_dst_a3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_ncl_a1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_ncl_a1_id, "long_name", 42, "ncl_a1 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_ncl_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_ncl_a2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_ncl_a2_id, "long_name", 42, "ncl_a2 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_ncl_a2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_ncl_a3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_ncl_a3_id, "long_name", 42, "ncl_a3 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_ncl_a3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_num_a1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_num_a1_id, "long_name", 42, "num_a1 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_num_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_num_a2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_num_a2_id, "long_name", 42, "num_a2 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_num_a2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_num_a3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_num_a3_id, "long_name", 42, "num_a3 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_num_a3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_pom_a1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_pom_a1_id, "long_name", 42, "pom_a1 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_pom_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_so4_a1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_so4_a1_id, "long_name", 42, "so4_a1 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_so4_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_so4_a2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_so4_a2_id, "long_name", 42, "so4_a2 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_so4_a2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_so4_a3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_so4_a3_id, "long_name", 42, "so4_a3 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_so4_a3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_soa_a1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_soa_a1_id, "long_name", 42, "soa_a1 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_soa_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, AQ_soa_a2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, AQ_soa_a2_id, "long_name", 42, "soa_a2 aqueous chemistry (for gas species)")) ERR;
   if (nc_put_att_text(ncid, AQ_soa_a2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, BPROD_id, "units", 5, "M2/S3")) ERR;
   if (nc_put_att_text(ncid, BPROD_id, "long_name", 19, "Buoyancy Production")) ERR;
   if (nc_put_att_text(ncid, BPROD_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double BURDEN1_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, BURDEN1_id, "_FillValue", NC_DOUBLE, 1, BURDEN1_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double BURDEN1_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, BURDEN1_id, "missing_value", NC_DOUBLE, 1, BURDEN1_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, BURDEN1_id, "units", 5, "kg/m2")) ERR;
   if (nc_put_att_text(ncid, BURDEN1_id, "long_name", 21, "Aerosol burden mode 1")) ERR;
   if (nc_put_att_text(ncid, BURDEN1_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double BURDEN2_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, BURDEN2_id, "_FillValue", NC_DOUBLE, 1, BURDEN2_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double BURDEN2_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, BURDEN2_id, "missing_value", NC_DOUBLE, 1, BURDEN2_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, BURDEN2_id, "units", 5, "kg/m2")) ERR;
   if (nc_put_att_text(ncid, BURDEN2_id, "long_name", 21, "Aerosol burden mode 2")) ERR;
   if (nc_put_att_text(ncid, BURDEN2_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double BURDEN3_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, BURDEN3_id, "_FillValue", NC_DOUBLE, 1, BURDEN3_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double BURDEN3_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, BURDEN3_id, "missing_value", NC_DOUBLE, 1, BURDEN3_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, BURDEN3_id, "units", 5, "kg/m2")) ERR;
   if (nc_put_att_text(ncid, BURDEN3_id, "long_name", 21, "Aerosol burden mode 3")) ERR;
   if (nc_put_att_text(ncid, BURDEN3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CCN1_id, "units", 5, "#/cm3")) ERR;
   if (nc_put_att_text(ncid, CCN1_id, "long_name", 28, "CCN concentration at S=0.02%")) ERR;
   if (nc_put_att_text(ncid, CCN1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CCN2_id, "units", 5, "#/cm3")) ERR;
   if (nc_put_att_text(ncid, CCN2_id, "long_name", 28, "CCN concentration at S=0.05%")) ERR;
   if (nc_put_att_text(ncid, CCN2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CCN3_id, "units", 5, "#/cm3")) ERR;
   if (nc_put_att_text(ncid, CCN3_id, "long_name", 27, "CCN concentration at S=0.1%")) ERR;
   if (nc_put_att_text(ncid, CCN3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CCN4_id, "units", 5, "#/cm3")) ERR;
   if (nc_put_att_text(ncid, CCN4_id, "long_name", 27, "CCN concentration at S=0.2%")) ERR;
   if (nc_put_att_text(ncid, CCN4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CCN5_id, "units", 5, "#/cm3")) ERR;
   if (nc_put_att_text(ncid, CCN5_id, "long_name", 27, "CCN concentration at S=0.5%")) ERR;
   if (nc_put_att_text(ncid, CCN5_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CCN6_id, "units", 5, "#/cm3")) ERR;
   if (nc_put_att_text(ncid, CCN6_id, "long_name", 27, "CCN concentration at S=1.0%")) ERR;
   if (nc_put_att_text(ncid, CCN6_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CLDHGH_id, "units", 8, "fraction")) ERR;
   if (nc_put_att_text(ncid, CLDHGH_id, "long_name", 32, "Vertically-integrated high cloud")) ERR;
   if (nc_put_att_text(ncid, CLDHGH_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CLDICE_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, CLDICE_id, "long_name", 34, "Grid box averaged cloud ice amount")) ERR;
   if (nc_put_att_text(ncid, CLDICE_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CLDLIQ_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, CLDLIQ_id, "long_name", 37, "Grid box averaged cloud liquid amount")) ERR;
   if (nc_put_att_text(ncid, CLDLIQ_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CLDLOW_id, "units", 8, "fraction")) ERR;
   if (nc_put_att_text(ncid, CLDLOW_id, "long_name", 31, "Vertically-integrated low cloud")) ERR;
   if (nc_put_att_text(ncid, CLDLOW_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CLDMED_id, "units", 8, "fraction")) ERR;
   if (nc_put_att_text(ncid, CLDMED_id, "long_name", 37, "Vertically-integrated mid-level cloud")) ERR;
   if (nc_put_att_text(ncid, CLDMED_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CLDTOT_id, "units", 8, "fraction")) ERR;
   if (nc_put_att_text(ncid, CLDTOT_id, "long_name", 33, "Vertically-integrated total cloud")) ERR;
   if (nc_put_att_text(ncid, CLDTOT_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CLOUD_id, "units", 8, "fraction")) ERR;
   if (nc_put_att_text(ncid, CLOUD_id, "long_name", 14, "Cloud fraction")) ERR;
   if (nc_put_att_text(ncid, CLOUD_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CMFDQ_id, "units", 7, "kg/kg/s")) ERR;
   if (nc_put_att_text(ncid, CMFDQ_id, "long_name", 32, "QV tendency - shallow convection")) ERR;
   if (nc_put_att_text(ncid, CMFDQ_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CMFDQR_id, "units", 7, "kg/kg/s")) ERR;
   if (nc_put_att_text(ncid, CMFDQR_id, "long_name", 39, "Q tendency - shallow convection rainout")) ERR;
   if (nc_put_att_text(ncid, CMFDQR_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CMFDT_id, "units", 3, "K/s")) ERR;
   if (nc_put_att_text(ncid, CMFDT_id, "long_name", 31, "T tendency - shallow convection")) ERR;
   if (nc_put_att_text(ncid, CMFDT_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CMFMC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, CMFMC_id, "long_name", 34, "Moist shallow convection mass flux")) ERR;
   if (nc_put_att_text(ncid, CMFMC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CMFMCDZM_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, CMFMCDZM_id, "long_name", 33, "Convection mass flux from ZM deep")) ERR;
   if (nc_put_att_text(ncid, CMFMCDZM_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, CONCLD_id, "units", 8, "fraction")) ERR;
   if (nc_put_att_text(ncid, CONCLD_id, "long_name", 22, "Convective cloud cover")) ERR;
   if (nc_put_att_text(ncid, CONCLD_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, DCQ_id, "units", 7, "kg/kg/s")) ERR;
   if (nc_put_att_text(ncid, DCQ_id, "long_name", 33, "Q tendency due to moist processes")) ERR;
   if (nc_put_att_text(ncid, DCQ_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, DMS_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, DMS_id, "long_name", 3, "DMS")) ERR;
   if (nc_put_att_text(ncid, DMS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, DSTODXC_id, "units", 3, "Tau")) ERR;
   if (nc_put_att_text(ncid, DSTODXC_id, "long_name", 29, "Optical depth for diagnostics")) ERR;
   if (nc_put_att_text(ncid, DSTODXC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, DSTSFDRY_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, DSTSFDRY_id, "long_name", 30, "Dry deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, DSTSFDRY_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, DSTSFMBL_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, DSTSFMBL_id, "long_name", 28, "Mobilization flux at surface")) ERR;
   if (nc_put_att_text(ncid, DSTSFMBL_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, DSTSFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, DSTSFWET_id, "long_name", 30, "Wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, DSTSFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, DTCOND_id, "units", 3, "K/s")) ERR;
   if (nc_put_att_text(ncid, DTCOND_id, "long_name", 28, "T tendency - moist processes")) ERR;
   if (nc_put_att_text(ncid, DTCOND_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, DTV_id, "units", 3, "K/s")) ERR;
   if (nc_put_att_text(ncid, DTV_id, "long_name", 20, "T vertical diffusion")) ERR;
   if (nc_put_att_text(ncid, DTV_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double EXTINCT_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, EXTINCT_id, "_FillValue", NC_DOUBLE, 1, EXTINCT_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double EXTINCT_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, EXTINCT_id, "missing_value", NC_DOUBLE, 1, EXTINCT_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, EXTINCT_id, "units", 2, "/m")) ERR;
   if (nc_put_att_text(ncid, EXTINCT_id, "long_name", 18, "Aerosol extinction")) ERR;
   if (nc_put_att_text(ncid, EXTINCT_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FICE_id, "units", 8, "fraction")) ERR;
   if (nc_put_att_text(ncid, FICE_id, "long_name", 35, "Fractional ice content within cloud")) ERR;
   if (nc_put_att_text(ncid, FICE_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FLDS_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, FLDS_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, FLDS_id, "long_name", 36, "Downwelling longwave flux at surface")) ERR;
   if (nc_put_att_text(ncid, FLDS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FLNS_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, FLNS_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, FLNS_id, "long_name", 28, "Net longwave flux at surface")) ERR;
   if (nc_put_att_text(ncid, FLNS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FLNSC_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, FLNSC_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, FLNSC_id, "long_name", 37, "Clearsky net longwave flux at surface")) ERR;
   if (nc_put_att_text(ncid, FLNSC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FLNT_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, FLNT_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, FLNT_id, "long_name", 33, "Net longwave flux at top of model")) ERR;
   if (nc_put_att_text(ncid, FLNT_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FLNTC_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, FLNTC_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, FLNTC_id, "long_name", 42, "Clearsky net longwave flux at top of model")) ERR;
   if (nc_put_att_text(ncid, FLNTC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FLUT_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, FLUT_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, FLUT_id, "long_name", 39, "Upwelling longwave flux at top of model")) ERR;
   if (nc_put_att_text(ncid, FLUT_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FLUTC_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, FLUTC_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, FLUTC_id, "long_name", 48, "Clearsky upwelling longwave flux at top of model")) ERR;
   if (nc_put_att_text(ncid, FLUTC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FREQSH_id, "units", 8, "fraction")) ERR;
   if (nc_put_att_text(ncid, FREQSH_id, "long_name", 42, "Fractional occurrence of shallow convection")) ERR;
   if (nc_put_att_text(ncid, FREQSH_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FREQZM_id, "units", 8, "fraction")) ERR;
   if (nc_put_att_text(ncid, FREQZM_id, "long_name", 37, "Fractional occurrence of ZM convection")) ERR;
   if (nc_put_att_text(ncid, FREQZM_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FSDS_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, FSDS_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, FSDS_id, "long_name", 33, "Downwelling solar flux at surface")) ERR;
   if (nc_put_att_text(ncid, FSDS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FSDSC_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, FSDSC_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, FSDSC_id, "long_name", 42, "Clearsky downwelling solar flux at surface")) ERR;
   if (nc_put_att_text(ncid, FSDSC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FSNS_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, FSNS_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, FSNS_id, "long_name", 25, "Net solar flux at surface")) ERR;
   if (nc_put_att_text(ncid, FSNS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FSNSC_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, FSNSC_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, FSNSC_id, "long_name", 34, "Clearsky net solar flux at surface")) ERR;
   if (nc_put_att_text(ncid, FSNSC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FSNT_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, FSNT_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, FSNT_id, "long_name", 30, "Net solar flux at top of model")) ERR;
   if (nc_put_att_text(ncid, FSNT_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FSNTC_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, FSNTC_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, FSNTC_id, "long_name", 39, "Clearsky net solar flux at top of model")) ERR;
   if (nc_put_att_text(ncid, FSNTC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FSNTOA_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, FSNTOA_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, FSNTOA_id, "long_name", 35, "Net solar flux at top of atmosphere")) ERR;
   if (nc_put_att_text(ncid, FSNTOA_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FSNTOAC_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, FSNTOAC_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, FSNTOAC_id, "long_name", 44, "Clearsky net solar flux at top of atmosphere")) ERR;
   if (nc_put_att_text(ncid, FSNTOAC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, FSUTOA_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, FSUTOA_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, FSUTOA_id, "long_name", 41, "Upwelling solar flux at top of atmosphere")) ERR;
   if (nc_put_att_text(ncid, FSUTOA_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_DMS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_DMS_id, "long_name", 47, "DMS gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_DMS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_H2O2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_H2O2_id, "long_name", 48, "H2O2 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_H2O2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_H2SO4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_H2SO4_id, "long_name", 49, "H2SO4 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_H2SO4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_SO2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_SO2_id, "long_name", 47, "SO2 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_SO2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_SOAG_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_SOAG_id, "long_name", 48, "SOAG gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_SOAG_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_bc_a1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_bc_a1_id, "long_name", 49, "bc_a1 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_bc_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_dst_a1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_dst_a1_id, "long_name", 50, "dst_a1 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_dst_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_dst_a3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_dst_a3_id, "long_name", 50, "dst_a3 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_dst_a3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_ncl_a1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_ncl_a1_id, "long_name", 50, "ncl_a1 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_ncl_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_ncl_a2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_ncl_a2_id, "long_name", 50, "ncl_a2 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_ncl_a2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_ncl_a3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_ncl_a3_id, "long_name", 50, "ncl_a3 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_ncl_a3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_num_a1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_num_a1_id, "long_name", 50, "num_a1 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_num_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_num_a2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_num_a2_id, "long_name", 50, "num_a2 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_num_a2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_num_a3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_num_a3_id, "long_name", 50, "num_a3 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_num_a3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_pom_a1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_pom_a1_id, "long_name", 50, "pom_a1 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_pom_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_so4_a1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_so4_a1_id, "long_name", 50, "so4_a1 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_so4_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_so4_a2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_so4_a2_id, "long_name", 50, "so4_a2 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_so4_a2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_so4_a3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_so4_a3_id, "long_name", 50, "so4_a3 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_so4_a3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_soa_a1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_soa_a1_id, "long_name", 50, "soa_a1 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_soa_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, GS_soa_a2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, GS_soa_a2_id, "long_name", 50, "soa_a2 gas chemistry/wet removal (for gas species)")) ERR;
   if (nc_put_att_text(ncid, GS_soa_a2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, H2O2_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, H2O2_id, "long_name", 4, "H2O2")) ERR;
   if (nc_put_att_text(ncid, H2O2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, H2SO4_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, H2SO4_id, "long_name", 5, "H2SO4")) ERR;
   if (nc_put_att_text(ncid, H2SO4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, H2SO4_sfgaex1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, H2SO4_sfgaex1_id, "long_name", 50, "H2SO4 gas-aerosol-exchange primary column tendency")) ERR;
   if (nc_put_att_text(ncid, H2SO4_sfgaex1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, H2SO4_sfnnuc1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, H2SO4_sfnnuc1_id, "long_name", 56, "H2SO4 modal_aero new particle nucleation column tendency")) ERR;
   if (nc_put_att_text(ncid, H2SO4_sfnnuc1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ICEFRAC_id, "units", 8, "fraction")) ERR;
   if (nc_put_att_text(ncid, ICEFRAC_id, "long_name", 39, "Fraction of sfc area covered by sea-ice")) ERR;
   if (nc_put_att_text(ncid, ICEFRAC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ICIMR_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, ICIMR_id, "long_name", 36, "Prognostic in-cloud ice mixing ratio")) ERR;
   if (nc_put_att_text(ncid, ICIMR_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ICWMR_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, ICWMR_id, "long_name", 38, "Prognostic in-cloud water mixing ratio")) ERR;
   if (nc_put_att_text(ncid, ICWMR_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, KVH_id, "units", 4, "m2/s")) ERR;
   if (nc_put_att_text(ncid, KVH_id, "long_name", 48, "Vertical diffusion diffusivities (heat/moisture)")) ERR;
   if (nc_put_att_text(ncid, KVH_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, KVM_id, "units", 4, "m2/s")) ERR;
   if (nc_put_att_text(ncid, KVM_id, "long_name", 43, "Vertical diffusion diffusivities (momentum)")) ERR;
   if (nc_put_att_text(ncid, KVM_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, LANDFRAC_id, "units", 8, "fraction")) ERR;
   if (nc_put_att_text(ncid, LANDFRAC_id, "long_name", 36, "Fraction of sfc area covered by land")) ERR;
   if (nc_put_att_text(ncid, LANDFRAC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, LCLOUD_id, "units", 1, "\000")) ERR;
   if (nc_put_att_text(ncid, LCLOUD_id, "long_name", 21, "Liquid cloud fraction")) ERR;
   if (nc_put_att_text(ncid, LCLOUD_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, LHFLX_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, LHFLX_id, "long_name", 24, "Surface latent heat flux")) ERR;
   if (nc_put_att_text(ncid, LHFLX_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, LND_MBL_id, "units", 4, "frac")) ERR;
   if (nc_put_att_text(ncid, LND_MBL_id, "long_name", 23, "Soil erodibility factor")) ERR;
   if (nc_put_att_text(ncid, LND_MBL_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, LWCF_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, LWCF_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, LWCF_id, "long_name", 22, "Longwave cloud forcing")) ERR;
   if (nc_put_att_text(ncid, LWCF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, NDROPCOL_id, "units", 4, "#/m2")) ERR;
   if (nc_put_att_text(ncid, NDROPCOL_id, "long_name", 21, "Column droplet number")) ERR;
   if (nc_put_att_text(ncid, NDROPCOL_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, NDROPMIX_id, "units", 6, "#/kg/s")) ERR;
   if (nc_put_att_text(ncid, NDROPMIX_id, "long_name", 21, "Droplet number mixing")) ERR;
   if (nc_put_att_text(ncid, NDROPMIX_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, NDROPSNK_id, "units", 6, "#/kg/s")) ERR;
   if (nc_put_att_text(ncid, NDROPSNK_id, "long_name", 35, "Droplet number loss by microphysics")) ERR;
   if (nc_put_att_text(ncid, NDROPSNK_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, NDROPSRC_id, "units", 6, "#/kg/s")) ERR;
   if (nc_put_att_text(ncid, NDROPSRC_id, "long_name", 21, "Droplet number source")) ERR;
   if (nc_put_att_text(ncid, NDROPSRC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, NUMICE_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, NUMICE_id, "long_name", 34, "Grid box averaged cloud ice number")) ERR;
   if (nc_put_att_text(ncid, NUMICE_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, NUMLIQ_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, NUMLIQ_id, "long_name", 37, "Grid box averaged cloud liquid number")) ERR;
   if (nc_put_att_text(ncid, NUMLIQ_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, OCNFRAC_id, "units", 8, "fraction")) ERR;
   if (nc_put_att_text(ncid, OCNFRAC_id, "long_name", 37, "Fraction of sfc area covered by ocean")) ERR;
   if (nc_put_att_text(ncid, OCNFRAC_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double ODV_bc_a1_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ODV_bc_a1_id, "_FillValue", NC_DOUBLE, 1, ODV_bc_a1_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double ODV_bc_a1_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ODV_bc_a1_id, "missing_value", NC_DOUBLE, 1, ODV_bc_a1_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, ODV_bc_a1_id, "units", 1, "1")) ERR;
   if (nc_put_att_text(ncid, ODV_bc_a1_id, "long_name", 35, "bc_a1 optical depth in visible band")) ERR;
   if (nc_put_att_text(ncid, ODV_bc_a1_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double ODV_dst_a1_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ODV_dst_a1_id, "_FillValue", NC_DOUBLE, 1, ODV_dst_a1_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double ODV_dst_a1_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ODV_dst_a1_id, "missing_value", NC_DOUBLE, 1, ODV_dst_a1_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, ODV_dst_a1_id, "units", 1, "1")) ERR;
   if (nc_put_att_text(ncid, ODV_dst_a1_id, "long_name", 36, "dst_a1 optical depth in visible band")) ERR;
   if (nc_put_att_text(ncid, ODV_dst_a1_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double ODV_dst_a3_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ODV_dst_a3_id, "_FillValue", NC_DOUBLE, 1, ODV_dst_a3_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double ODV_dst_a3_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ODV_dst_a3_id, "missing_value", NC_DOUBLE, 1, ODV_dst_a3_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, ODV_dst_a3_id, "units", 1, "1")) ERR;
   if (nc_put_att_text(ncid, ODV_dst_a3_id, "long_name", 36, "dst_a3 optical depth in visible band")) ERR;
   if (nc_put_att_text(ncid, ODV_dst_a3_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double ODV_ncl_a1_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ODV_ncl_a1_id, "_FillValue", NC_DOUBLE, 1, ODV_ncl_a1_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double ODV_ncl_a1_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ODV_ncl_a1_id, "missing_value", NC_DOUBLE, 1, ODV_ncl_a1_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, ODV_ncl_a1_id, "units", 1, "1")) ERR;
   if (nc_put_att_text(ncid, ODV_ncl_a1_id, "long_name", 36, "ncl_a1 optical depth in visible band")) ERR;
   if (nc_put_att_text(ncid, ODV_ncl_a1_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double ODV_ncl_a3_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ODV_ncl_a3_id, "_FillValue", NC_DOUBLE, 1, ODV_ncl_a3_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double ODV_ncl_a3_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ODV_ncl_a3_id, "missing_value", NC_DOUBLE, 1, ODV_ncl_a3_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, ODV_ncl_a3_id, "units", 1, "1")) ERR;
   if (nc_put_att_text(ncid, ODV_ncl_a3_id, "long_name", 36, "ncl_a3 optical depth in visible band")) ERR;
   if (nc_put_att_text(ncid, ODV_ncl_a3_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double ODV_pom_a1_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ODV_pom_a1_id, "_FillValue", NC_DOUBLE, 1, ODV_pom_a1_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double ODV_pom_a1_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ODV_pom_a1_id, "missing_value", NC_DOUBLE, 1, ODV_pom_a1_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, ODV_pom_a1_id, "units", 1, "1")) ERR;
   if (nc_put_att_text(ncid, ODV_pom_a1_id, "long_name", 36, "pom_a1 optical depth in visible band")) ERR;
   if (nc_put_att_text(ncid, ODV_pom_a1_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double ODV_so4_a1_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ODV_so4_a1_id, "_FillValue", NC_DOUBLE, 1, ODV_so4_a1_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double ODV_so4_a1_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ODV_so4_a1_id, "missing_value", NC_DOUBLE, 1, ODV_so4_a1_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, ODV_so4_a1_id, "units", 1, "1")) ERR;
   if (nc_put_att_text(ncid, ODV_so4_a1_id, "long_name", 36, "so4_a1 optical depth in visible band")) ERR;
   if (nc_put_att_text(ncid, ODV_so4_a1_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double ODV_soa_a1_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ODV_soa_a1_id, "_FillValue", NC_DOUBLE, 1, ODV_soa_a1_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double ODV_soa_a1_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, ODV_soa_a1_id, "missing_value", NC_DOUBLE, 1, ODV_soa_a1_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, ODV_soa_a1_id, "units", 1, "1")) ERR;
   if (nc_put_att_text(ncid, ODV_soa_a1_id, "long_name", 36, "soa_a1 optical depth in visible band")) ERR;
   if (nc_put_att_text(ncid, ODV_soa_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, OMEGA_id, "units", 4, "Pa/s")) ERR;
   if (nc_put_att_text(ncid, OMEGA_id, "long_name", 28, "Vertical velocity (pressure)")) ERR;
   if (nc_put_att_text(ncid, OMEGA_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, OMEGAT_id, "units", 6, "K Pa/s")) ERR;
   if (nc_put_att_text(ncid, OMEGAT_id, "long_name", 18, "Vertical heat flux")) ERR;
   if (nc_put_att_text(ncid, OMEGAT_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ORO_id, "units", 4, "frac")) ERR;
   if (nc_put_att_text(ncid, ORO_id, "long_name", 3, "ORO")) ERR;
   if (nc_put_att_text(ncid, ORO_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, PBLH_id, "units", 1, "m")) ERR;
   if (nc_put_att_text(ncid, PBLH_id, "long_name", 10, "PBL height")) ERR;
   if (nc_put_att_text(ncid, PBLH_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, PCONVB_id, "units", 2, "Pa")) ERR;
   if (nc_put_att_text(ncid, PCONVB_id, "long_name", 24, "convection base pressure")) ERR;
   if (nc_put_att_text(ncid, PCONVB_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, PCONVT_id, "units", 2, "Pa")) ERR;
   if (nc_put_att_text(ncid, PCONVT_id, "long_name", 24, "convection top  pressure")) ERR;
   if (nc_put_att_text(ncid, PCONVT_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, PHIS_id, "units", 5, "m2/s2")) ERR;
   if (nc_put_att_text(ncid, PHIS_id, "long_name", 20, "Surface geopotential")) ERR;
   if (nc_put_att_text(ncid, PRECC_id, "units", 3, "m/s")) ERR;
   if (nc_put_att_text(ncid, PRECC_id, "long_name", 41, "Convective precipitation rate (liq + ice)")) ERR;
   if (nc_put_att_text(ncid, PRECC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, PRECCDZM_id, "units", 3, "m/s")) ERR;
   if (nc_put_att_text(ncid, PRECCDZM_id, "long_name", 42, "Convective precipitation rate from ZM deep")) ERR;
   if (nc_put_att_text(ncid, PRECCDZM_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, PRECL_id, "units", 3, "m/s")) ERR;
   if (nc_put_att_text(ncid, PRECL_id, "long_name", 51, "Large-scale (stable) precipitation rate (liq + ice)")) ERR;
   if (nc_put_att_text(ncid, PRECL_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, PRECSC_id, "units", 3, "m/s")) ERR;
   if (nc_put_att_text(ncid, PRECSC_id, "long_name", 39, "Convective snow rate (water equivalent)")) ERR;
   if (nc_put_att_text(ncid, PRECSC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, PRECSH_id, "units", 3, "m/s")) ERR;
   if (nc_put_att_text(ncid, PRECSH_id, "long_name", 37, "Shallow Convection precipitation rate")) ERR;
   if (nc_put_att_text(ncid, PRECSH_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, PRECSL_id, "units", 3, "m/s")) ERR;
   if (nc_put_att_text(ncid, PRECSL_id, "long_name", 49, "Large-scale (stable) snow rate (water equivalent)")) ERR;
   if (nc_put_att_text(ncid, PRECSL_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, PRECT_id, "units", 3, "m/s")) ERR;
   if (nc_put_att_text(ncid, PRECT_id, "long_name", 65, "Total (convective and large-scale) precipitation rate (liq + ice)")) ERR;
   if (nc_put_att_text(ncid, PRECT_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, PS_id, "units", 2, "Pa")) ERR;
   if (nc_put_att_text(ncid, PS_id, "long_name", 16, "Surface pressure")) ERR;
   if (nc_put_att_text(ncid, PS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, PSL_id, "units", 2, "Pa")) ERR;
   if (nc_put_att_text(ncid, PSL_id, "long_name", 18, "Sea level pressure")) ERR;
   if (nc_put_att_text(ncid, PSL_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, Q_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, Q_id, "long_name", 17, "Specific humidity")) ERR;
   if (nc_put_att_text(ncid, Q_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, QC_id, "units", 7, "kg/kg/s")) ERR;
   if (nc_put_att_text(ncid, QC_id, "long_name", 41, "Q tendency - shallow convection LW export")) ERR;
   if (nc_put_att_text(ncid, QC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, QFLX_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, QFLX_id, "long_name", 18, "Surface water flux")) ERR;
   if (nc_put_att_text(ncid, QFLX_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, QREFHT_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, QREFHT_id, "long_name", 25, "Reference height humidity")) ERR;
   if (nc_put_att_text(ncid, QREFHT_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, QRL_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, QRL_id, "units", 3, "K/s")) ERR;
   if (nc_put_att_text(ncid, QRL_id, "long_name", 21, "Longwave heating rate")) ERR;
   if (nc_put_att_text(ncid, QRL_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, QRS_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, QRS_id, "units", 3, "K/s")) ERR;
   if (nc_put_att_text(ncid, QRS_id, "long_name", 18, "Solar heating rate")) ERR;
   if (nc_put_att_text(ncid, QRS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, QT_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, QT_id, "long_name", 24, "Total water mixing ratio")) ERR;
   if (nc_put_att_text(ncid, QT_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, QTFLX_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, QTFLX_id, "long_name", 16, "Total water flux")) ERR;
   if (nc_put_att_text(ncid, QTFLX_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, RAM1_id, "units", 4, "frac")) ERR;
   if (nc_put_att_text(ncid, RAM1_id, "long_name", 4, "RAM1")) ERR;
   if (nc_put_att_text(ncid, RAM1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, RELHUM_id, "units", 7, "percent")) ERR;
   if (nc_put_att_text(ncid, RELHUM_id, "long_name", 17, "Relative humidity")) ERR;
   if (nc_put_att_text(ncid, RELHUM_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, RHREFHT_id, "units", 8, "fraction")) ERR;
   if (nc_put_att_text(ncid, RHREFHT_id, "long_name", 34, "Reference height relative humidity")) ERR;
   if (nc_put_att_text(ncid, RHREFHT_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SFCLDICE_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, SFCLDICE_id, "long_name", 19, "CLDICE surface flux")) ERR;
   if (nc_put_att_text(ncid, SFCLDICE_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SFCLDLIQ_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, SFCLDLIQ_id, "long_name", 19, "CLDLIQ surface flux")) ERR;
   if (nc_put_att_text(ncid, SFCLDLIQ_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SFI_id, "units", 8, "FRACTION")) ERR;
   if (nc_put_att_text(ncid, SFI_id, "long_name", 24, "Interface-layer sat frac")) ERR;
   if (nc_put_att_text(ncid, SFI_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SFNUMICE_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, SFNUMICE_id, "long_name", 19, "NUMICE surface flux")) ERR;
   if (nc_put_att_text(ncid, SFNUMICE_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SFNUMLIQ_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, SFNUMLIQ_id, "long_name", 19, "NUMLIQ surface flux")) ERR;
   if (nc_put_att_text(ncid, SFNUMLIQ_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SHFLX_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, SHFLX_id, "long_name", 26, "Surface sensible heat flux")) ERR;
   if (nc_put_att_text(ncid, SHFLX_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SL_id, "units", 4, "J/kg")) ERR;
   if (nc_put_att_text(ncid, SL_id, "long_name", 26, "Liquid water static energy")) ERR;
   if (nc_put_att_text(ncid, SL_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SLFLX_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, SLFLX_id, "long_name", 25, "Liquid static energy flux")) ERR;
   if (nc_put_att_text(ncid, SLFLX_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SLV_id, "units", 4, "J/kg")) ERR;
   if (nc_put_att_text(ncid, SLV_id, "long_name", 29, "Liq wat virtual static energy")) ERR;
   if (nc_put_att_text(ncid, SLV_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SNOWHICE_id, "units", 1, "m")) ERR;
   if (nc_put_att_text(ncid, SNOWHICE_id, "long_name", 27, "Water equivalent snow depth")) ERR;
   if (nc_put_att_text(ncid, SNOWHICE_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SNOWHLND_id, "units", 1, "m")) ERR;
   if (nc_put_att_text(ncid, SNOWHLND_id, "long_name", 27, "Water equivalent snow depth")) ERR;
   if (nc_put_att_text(ncid, SNOWHLND_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SO2_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, SO2_id, "long_name", 3, "SO2")) ERR;
   if (nc_put_att_text(ncid, SO2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SO2_CLXF_id, "units", 11, "molec/cm2/s")) ERR;
   if (nc_put_att_text(ncid, SO2_CLXF_id, "long_name", 47, "vertically integrated external forcing for SO2")) ERR;
   if (nc_put_att_text(ncid, SO2_CLXF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SO2_XFRC_id, "units", 11, "molec/cm3/s")) ERR;
   if (nc_put_att_text(ncid, SO2_XFRC_id, "long_name", 24, "external forcing for SO2")) ERR;
   if (nc_put_att_text(ncid, SO2_XFRC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SOAG_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, SOAG_id, "long_name", 4, "SOAG")) ERR;
   if (nc_put_att_text(ncid, SOAG_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SOAG_sfgaex1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, SOAG_sfgaex1_id, "long_name", 49, "SOAG gas-aerosol-exchange primary column tendency")) ERR;
   if (nc_put_att_text(ncid, SOAG_sfgaex1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SOLIN_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, SOLIN_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, SOLIN_id, "long_name", 16, "Solar insolation")) ERR;
   if (nc_put_att_text(ncid, SOLIN_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SPROD_id, "units", 5, "M2/S3")) ERR;
   if (nc_put_att_text(ncid, SPROD_id, "long_name", 16, "Shear Production")) ERR;
   if (nc_put_att_text(ncid, SPROD_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SRFRAD_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, SRFRAD_id, "long_name", 29, "Net radiative flux at surface")) ERR;
   if (nc_put_att_text(ncid, SRFRAD_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double SSAVIS_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, SSAVIS_id, "_FillValue", NC_DOUBLE, 1, SSAVIS_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double SSAVIS_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, SSAVIS_id, "missing_value", NC_DOUBLE, 1, SSAVIS_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, SSAVIS_id, "units", 1, "\000")) ERR;
   if (nc_put_att_text(ncid, SSAVIS_id, "long_name", 29, "Aerosol singel-scatter albedo")) ERR;
   if (nc_put_att_text(ncid, SSAVIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SSTODXC_id, "units", 3, "Tau")) ERR;
   if (nc_put_att_text(ncid, SSTODXC_id, "long_name", 29, "Optical depth for diagnostics")) ERR;
   if (nc_put_att_text(ncid, SSTODXC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SSTSFDRY_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, SSTSFDRY_id, "long_name", 30, "Dry deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, SSTSFDRY_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SSTSFMBL_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, SSTSFMBL_id, "long_name", 28, "Mobilization flux at surface")) ERR;
   if (nc_put_att_text(ncid, SSTSFMBL_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SSTSFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, SSTSFWET_id, "long_name", 30, "Wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, SSTSFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, SWCF_id, "Sampling_Sequence", 8, "rad_lwsw")) ERR;
   if (nc_put_att_text(ncid, SWCF_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, SWCF_id, "long_name", 23, "Shortwave cloud forcing")) ERR;
   if (nc_put_att_text(ncid, SWCF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, T_id, "units", 1, "K")) ERR;
   if (nc_put_att_text(ncid, T_id, "long_name", 11, "Temperature")) ERR;
   if (nc_put_att_text(ncid, T_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, TAUTMSX_id, "units", 4, "N/m2")) ERR;
   if (nc_put_att_text(ncid, TAUTMSX_id, "long_name", 44, "Zonal      turbulent mountain surface stress")) ERR;
   if (nc_put_att_text(ncid, TAUTMSX_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, TAUTMSY_id, "units", 4, "N/m2")) ERR;
   if (nc_put_att_text(ncid, TAUTMSY_id, "long_name", 44, "Meridional turbulent mountain surface stress")) ERR;
   if (nc_put_att_text(ncid, TAUTMSY_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, TAUX_id, "units", 4, "N/m2")) ERR;
   if (nc_put_att_text(ncid, TAUX_id, "long_name", 20, "Zonal surface stress")) ERR;
   if (nc_put_att_text(ncid, TAUX_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, TAUY_id, "units", 4, "N/m2")) ERR;
   if (nc_put_att_text(ncid, TAUY_id, "long_name", 25, "Meridional surface stress")) ERR;
   if (nc_put_att_text(ncid, TAUY_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, TGCLDCWP_id, "units", 5, "kg/m2")) ERR;
   if (nc_put_att_text(ncid, TGCLDCWP_id, "long_name", 48, "Total grid-box cloud water path (liquid and ice)")) ERR;
   if (nc_put_att_text(ncid, TGCLDCWP_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, TGCLDIWP_id, "units", 5, "kg/m2")) ERR;
   if (nc_put_att_text(ncid, TGCLDIWP_id, "long_name", 35, "Total grid-box cloud ice water path")) ERR;
   if (nc_put_att_text(ncid, TGCLDIWP_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, TGCLDLWP_id, "units", 5, "kg/m2")) ERR;
   if (nc_put_att_text(ncid, TGCLDLWP_id, "long_name", 38, "Total grid-box cloud liquid water path")) ERR;
   if (nc_put_att_text(ncid, TGCLDLWP_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, TKE_id, "units", 5, "m2/s2")) ERR;
   if (nc_put_att_text(ncid, TKE_id, "long_name", 24, "Turbulent Kinetic Energy")) ERR;
   if (nc_put_att_text(ncid, TKE_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, TMQ_id, "units", 5, "kg/m2")) ERR;
   if (nc_put_att_text(ncid, TMQ_id, "long_name", 50, "Total (vertically integrated) precipitatable water")) ERR;
   if (nc_put_att_text(ncid, TMQ_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, TREFHT_id, "units", 1, "K")) ERR;
   if (nc_put_att_text(ncid, TREFHT_id, "long_name", 28, "Reference height temperature")) ERR;
   if (nc_put_att_text(ncid, TREFHT_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, TREFMNAV_id, "units", 1, "K")) ERR;
   if (nc_put_att_text(ncid, TREFMNAV_id, "long_name", 31, "Average of TREFHT daily minimum")) ERR;
   if (nc_put_att_text(ncid, TREFMNAV_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, TREFMXAV_id, "units", 1, "K")) ERR;
   if (nc_put_att_text(ncid, TREFMXAV_id, "long_name", 31, "Average of TREFHT daily maximum")) ERR;
   if (nc_put_att_text(ncid, TREFMXAV_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, TROP_FD_id, "units", 11, "probability")) ERR;
   if (nc_put_att_text(ncid, TROP_FD_id, "long_name", 16, "Tropopause Found")) ERR;
   if (nc_put_att_text(ncid, TROP_FD_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double TROP_P_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, TROP_P_id, "_FillValue", NC_DOUBLE, 1, TROP_P_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double TROP_P_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, TROP_P_id, "missing_value", NC_DOUBLE, 1, TROP_P_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, TROP_P_id, "units", 2, "Pa")) ERR;
   if (nc_put_att_text(ncid, TROP_P_id, "long_name", 19, "Tropopause Pressure")) ERR;
   if (nc_put_att_text(ncid, TROP_P_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, TROP_PD_id, "units", 11, "probability")) ERR;
   if (nc_put_att_text(ncid, TROP_PD_id, "long_name", 21, "Tropopause Probability")) ERR;
   if (nc_put_att_text(ncid, TROP_PD_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double TROP_T_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, TROP_T_id, "_FillValue", NC_DOUBLE, 1, TROP_T_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double TROP_T_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, TROP_T_id, "missing_value", NC_DOUBLE, 1, TROP_T_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, TROP_T_id, "units", 1, "K")) ERR;
   if (nc_put_att_text(ncid, TROP_T_id, "long_name", 22, "Tropopause Temperature")) ERR;
   if (nc_put_att_text(ncid, TROP_T_id, "cell_methods", 10, "time: mean")) ERR;
   { /* _FillValue */
      static const double TROP_Z_FillValue_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, TROP_Z_id, "_FillValue", NC_DOUBLE, 1, TROP_Z_FillValue_att)) ERR;
   }
   { /* missing_value */
      static const double TROP_Z_missing_value_att[1] = {1e+36} ;
      if (nc_put_att_double(ncid, TROP_Z_id, "missing_value", NC_DOUBLE, 1, TROP_Z_missing_value_att)) ERR;
   }
   if (nc_put_att_text(ncid, TROP_Z_id, "units", 1, "m")) ERR;
   if (nc_put_att_text(ncid, TROP_Z_id, "long_name", 17, "Tropopause Height")) ERR;
   if (nc_put_att_text(ncid, TROP_Z_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, TS_id, "units", 1, "K")) ERR;
   if (nc_put_att_text(ncid, TS_id, "long_name", 31, "Surface temperature (radiative)")) ERR;
   if (nc_put_att_text(ncid, TS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, TSMN_id, "units", 1, "K")) ERR;
   if (nc_put_att_text(ncid, TSMN_id, "long_name", 46, "Minimum surface temperature over output period")) ERR;
   if (nc_put_att_text(ncid, TSMN_id, "cell_methods", 13, "time: minimum")) ERR;
   if (nc_put_att_text(ncid, TSMX_id, "units", 1, "K")) ERR;
   if (nc_put_att_text(ncid, TSMX_id, "long_name", 46, "Maximum surface temperature over output period")) ERR;
   if (nc_put_att_text(ncid, TSMX_id, "cell_methods", 13, "time: maximum")) ERR;
   if (nc_put_att_text(ncid, U_id, "units", 3, "m/s")) ERR;
   if (nc_put_att_text(ncid, U_id, "long_name", 10, "Zonal wind")) ERR;
   if (nc_put_att_text(ncid, U_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, UFLX_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, UFLX_id, "long_name", 19, "Zonal momentum flux")) ERR;
   if (nc_put_att_text(ncid, UFLX_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, US_id, "units", 3, "m/s")) ERR;
   if (nc_put_att_text(ncid, US_id, "long_name", 21, "Zonal wind, staggered")) ERR;
   if (nc_put_att_text(ncid, US_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, UU_id, "units", 5, "m2/s2")) ERR;
   if (nc_put_att_text(ncid, UU_id, "long_name", 22, "Zonal velocity squared")) ERR;
   if (nc_put_att_text(ncid, UU_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, V_id, "units", 3, "m/s")) ERR;
   if (nc_put_att_text(ncid, V_id, "long_name", 15, "Meridional wind")) ERR;
   if (nc_put_att_text(ncid, V_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, VD01_id, "units", 7, "kg/kg/s")) ERR;
   if (nc_put_att_text(ncid, VD01_id, "long_name", 23, "Vertical diffusion of Q")) ERR;
   if (nc_put_att_text(ncid, VD01_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, VFLX_id, "units", 4, "W/m2")) ERR;
   if (nc_put_att_text(ncid, VFLX_id, "long_name", 23, "Meridional momentm flux")) ERR;
   if (nc_put_att_text(ncid, VFLX_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, VQ_id, "units", 8, "m/skg/kg")) ERR;
   if (nc_put_att_text(ncid, VQ_id, "long_name", 26, "Meridional water transport")) ERR;
   if (nc_put_att_text(ncid, VQ_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, VS_id, "units", 3, "m/s")) ERR;
   if (nc_put_att_text(ncid, VS_id, "long_name", 26, "Meridional wind, staggered")) ERR;
   if (nc_put_att_text(ncid, VS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, VT_id, "units", 5, "K m/s")) ERR;
   if (nc_put_att_text(ncid, VT_id, "long_name", 25, "Meridional heat transport")) ERR;
   if (nc_put_att_text(ncid, VT_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, VU_id, "units", 5, "m2/s2")) ERR;
   if (nc_put_att_text(ncid, VU_id, "long_name", 33, "Meridional flux of zonal momentum")) ERR;
   if (nc_put_att_text(ncid, VU_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, VV_id, "units", 5, "m2/s2")) ERR;
   if (nc_put_att_text(ncid, VV_id, "long_name", 27, "Meridional velocity squared")) ERR;
   if (nc_put_att_text(ncid, VV_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, WGUSTD_id, "units", 3, "m/s")) ERR;
   if (nc_put_att_text(ncid, WGUSTD_id, "long_name", 26, "wind gusts from turbulence")) ERR;
   if (nc_put_att_text(ncid, WGUSTD_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, WTKE_id, "units", 3, "m/s")) ERR;
   if (nc_put_att_text(ncid, WTKE_id, "long_name", 38, "Standard deviation of updraft velocity")) ERR;
   if (nc_put_att_text(ncid, WTKE_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, XPH_LWC_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, XPH_LWC_id, "long_name", 26, "pH value multiplied by lwc")) ERR;
   if (nc_put_att_text(ncid, XPH_LWC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, Z3_id, "units", 1, "m")) ERR;
   if (nc_put_att_text(ncid, Z3_id, "long_name", 37, "Geopotential Height (above sea level)")) ERR;
   if (nc_put_att_text(ncid, Z3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, airFV_id, "units", 4, "frac")) ERR;
   if (nc_put_att_text(ncid, airFV_id, "long_name", 2, "FV")) ERR;
   if (nc_put_att_text(ncid, airFV_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_a1_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, bc_a1_id, "long_name", 5, "bc_a1")) ERR;
   if (nc_put_att_text(ncid, bc_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_a1DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, bc_a1DDF_id, "long_name", 49, "bc_a1 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, bc_a1DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_a1GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, bc_a1GVF_id, "long_name", 39, "bc_a1 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, bc_a1GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_a1SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, bc_a1SFSBC_id, "long_name", 55, "Wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, bc_a1SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_a1SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, bc_a1SFSBS_id, "long_name", 55, "Wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, bc_a1SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_a1SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, bc_a1SFSIC_id, "long_name", 52, "Wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, bc_a1SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_a1SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, bc_a1SFSIS_id, "long_name", 52, "Wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, bc_a1SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_a1SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, bc_a1SFWET_id, "long_name", 30, "Wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, bc_a1SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_a1TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, bc_a1TBF_id, "long_name", 35, "bc_a1 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, bc_a1TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_a1_CLXF_id, "units", 11, "molec/cm2/s")) ERR;
   if (nc_put_att_text(ncid, bc_a1_CLXF_id, "long_name", 49, "vertically integrated external forcing for bc_a1")) ERR;
   if (nc_put_att_text(ncid, bc_a1_CLXF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_a1_XFRC_id, "units", 11, "molec/cm3/s")) ERR;
   if (nc_put_att_text(ncid, bc_a1_XFRC_id, "long_name", 26, "external forcing for bc_a1")) ERR;
   if (nc_put_att_text(ncid, bc_a1_XFRC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_c1_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, bc_c1_id, "long_name", 20, "bc_c1 in cloud water")) ERR;
   if (nc_put_att_text(ncid, bc_c1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_c1DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, bc_c1DDF_id, "long_name", 49, "bc_c1 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, bc_c1DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_c1GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, bc_c1GVF_id, "long_name", 39, "bc_c1 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, bc_c1GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_c1SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, bc_c1SFSBC_id, "long_name", 61, "bc_c1 wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, bc_c1SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_c1SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, bc_c1SFSBS_id, "long_name", 61, "bc_c1 wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, bc_c1SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_c1SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, bc_c1SFSIC_id, "long_name", 58, "bc_c1 wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, bc_c1SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_c1SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, bc_c1SFSIS_id, "long_name", 58, "bc_c1 wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, bc_c1SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_c1SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, bc_c1SFWET_id, "long_name", 36, "bc_c1 wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, bc_c1SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, bc_c1TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, bc_c1TBF_id, "long_name", 35, "bc_c1 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, bc_c1TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, chem_trop_id, "units", 22, "fraction of model time")) ERR;
   if (nc_put_att_text(ncid, chem_trop_id, "long_name", 41, "Lowest level with stratospheric chemsitry")) ERR;
   if (nc_put_att_text(ncid, chem_trop_tropop_id, "units", 22, "fraction of model time")) ERR;
   if (nc_put_att_text(ncid, chem_trop_tropop_id, "long_name", 44, "Troposphere boundary calculated in chemistry")) ERR;
   if (nc_put_att_text(ncid, dgnd_a01_id, "units", 1, "m")) ERR;
   if (nc_put_att_text(ncid, dgnd_a01_id, "long_name", 32, "dry dgnum, interstitial, mode 01")) ERR;
   if (nc_put_att_text(ncid, dgnd_a01_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dgnd_a02_id, "units", 1, "m")) ERR;
   if (nc_put_att_text(ncid, dgnd_a02_id, "long_name", 32, "dry dgnum, interstitial, mode 02")) ERR;
   if (nc_put_att_text(ncid, dgnd_a02_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dgnd_a03_id, "units", 1, "m")) ERR;
   if (nc_put_att_text(ncid, dgnd_a03_id, "long_name", 32, "dry dgnum, interstitial, mode 03")) ERR;
   if (nc_put_att_text(ncid, dgnd_a03_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dgnw_a01_id, "units", 1, "m")) ERR;
   if (nc_put_att_text(ncid, dgnw_a01_id, "long_name", 32, "wet dgnum, interstitial, mode 01")) ERR;
   if (nc_put_att_text(ncid, dgnw_a01_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dgnw_a02_id, "units", 1, "m")) ERR;
   if (nc_put_att_text(ncid, dgnw_a02_id, "long_name", 32, "wet dgnum, interstitial, mode 02")) ERR;
   if (nc_put_att_text(ncid, dgnw_a02_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dgnw_a03_id, "units", 1, "m")) ERR;
   if (nc_put_att_text(ncid, dgnw_a03_id, "long_name", 32, "wet dgnum, interstitial, mode 03")) ERR;
   if (nc_put_att_text(ncid, dgnw_a03_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a1_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, dst_a1_id, "long_name", 6, "dst_a1")) ERR;
   if (nc_put_att_text(ncid, dst_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a1DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a1DDF_id, "long_name", 50, "dst_a1 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, dst_a1DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a1GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a1GVF_id, "long_name", 40, "dst_a1 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, dst_a1GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a1SF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a1SF_id, "long_name", 28, "dst_a1 dust surface emission")) ERR;
   if (nc_put_att_text(ncid, dst_a1SF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a1SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a1SFSBC_id, "long_name", 55, "Wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, dst_a1SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a1SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a1SFSBS_id, "long_name", 55, "Wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, dst_a1SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a1SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a1SFSIC_id, "long_name", 52, "Wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, dst_a1SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a1SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a1SFSIS_id, "long_name", 52, "Wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, dst_a1SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a1SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a1SFWET_id, "long_name", 30, "Wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, dst_a1SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a1TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a1TBF_id, "long_name", 36, "dst_a1 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, dst_a1TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a3_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, dst_a3_id, "long_name", 6, "dst_a3")) ERR;
   if (nc_put_att_text(ncid, dst_a3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a3DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a3DDF_id, "long_name", 50, "dst_a3 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, dst_a3DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a3GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a3GVF_id, "long_name", 40, "dst_a3 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, dst_a3GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a3SF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a3SF_id, "long_name", 28, "dst_a3 dust surface emission")) ERR;
   if (nc_put_att_text(ncid, dst_a3SF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a3SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a3SFSBC_id, "long_name", 55, "Wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, dst_a3SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a3SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a3SFSBS_id, "long_name", 55, "Wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, dst_a3SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a3SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a3SFSIC_id, "long_name", 52, "Wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, dst_a3SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a3SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a3SFSIS_id, "long_name", 52, "Wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, dst_a3SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a3SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a3SFWET_id, "long_name", 30, "Wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, dst_a3SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_a3TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_a3TBF_id, "long_name", 36, "dst_a3 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, dst_a3TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c1_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, dst_c1_id, "long_name", 21, "dst_c1 in cloud water")) ERR;
   if (nc_put_att_text(ncid, dst_c1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c1DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_c1DDF_id, "long_name", 50, "dst_c1 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, dst_c1DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c1GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_c1GVF_id, "long_name", 40, "dst_c1 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, dst_c1GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c1SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_c1SFSBC_id, "long_name", 62, "dst_c1 wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, dst_c1SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c1SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_c1SFSBS_id, "long_name", 62, "dst_c1 wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, dst_c1SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c1SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_c1SFSIC_id, "long_name", 59, "dst_c1 wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, dst_c1SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c1SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_c1SFSIS_id, "long_name", 59, "dst_c1 wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, dst_c1SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c1SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_c1SFWET_id, "long_name", 37, "dst_c1 wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, dst_c1SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c1TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_c1TBF_id, "long_name", 36, "dst_c1 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, dst_c1TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c3_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, dst_c3_id, "long_name", 21, "dst_c3 in cloud water")) ERR;
   if (nc_put_att_text(ncid, dst_c3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c3DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_c3DDF_id, "long_name", 50, "dst_c3 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, dst_c3DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c3GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_c3GVF_id, "long_name", 40, "dst_c3 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, dst_c3GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c3SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_c3SFSBC_id, "long_name", 62, "dst_c3 wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, dst_c3SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c3SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_c3SFSBS_id, "long_name", 62, "dst_c3 wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, dst_c3SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c3SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_c3SFSIC_id, "long_name", 59, "dst_c3 wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, dst_c3SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c3SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_c3SFSIS_id, "long_name", 59, "dst_c3 wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, dst_c3SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c3SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_c3SFWET_id, "long_name", 37, "dst_c3 wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, dst_c3SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, dst_c3TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, dst_c3TBF_id, "long_name", 36, "dst_c3 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, dst_c3TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a1_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, ncl_a1_id, "long_name", 6, "ncl_a1")) ERR;
   if (nc_put_att_text(ncid, ncl_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a1DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a1DDF_id, "long_name", 50, "ncl_a1 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, ncl_a1DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a1GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a1GVF_id, "long_name", 40, "ncl_a1 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, ncl_a1GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SF_id, "long_name", 36, "ncl_a1 progseasalts surface emission")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SFSBC_id, "long_name", 55, "Wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SFSBS_id, "long_name", 55, "Wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SFSIC_id, "long_name", 52, "Wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SFSIS_id, "long_name", 52, "Wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SFWET_id, "long_name", 30, "Wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_a1SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a1TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a1TBF_id, "long_name", 36, "ncl_a1 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, ncl_a1TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a1_sfcoag1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a1_sfcoag1_id, "long_name", 45, "ncl_a1 modal_aero coagulation column tendency")) ERR;
   if (nc_put_att_text(ncid, ncl_a1_sfcoag1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a1_sfcsiz3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a1_sfcsiz3_id, "long_name", 54, "ncl_a1 calcsize aitken-to-accum adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, ncl_a1_sfcsiz3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a1_sfcsiz4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a1_sfcsiz4_id, "long_name", 54, "ncl_a1 calcsize accum-to-aitken adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, ncl_a1_sfcsiz4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a1_sfgaex2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a1_sfgaex2_id, "long_name", 52, "ncl_a1 gas-aerosol-exchange renaming column tendency")) ERR;
   if (nc_put_att_text(ncid, ncl_a1_sfgaex2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a2_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, ncl_a2_id, "long_name", 6, "ncl_a2")) ERR;
   if (nc_put_att_text(ncid, ncl_a2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a2DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a2DDF_id, "long_name", 50, "ncl_a2 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, ncl_a2DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a2GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a2GVF_id, "long_name", 40, "ncl_a2 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, ncl_a2GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SF_id, "long_name", 36, "ncl_a2 progseasalts surface emission")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SFSBC_id, "long_name", 55, "Wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SFSBS_id, "long_name", 55, "Wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SFSIC_id, "long_name", 52, "Wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SFSIS_id, "long_name", 52, "Wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SFWET_id, "long_name", 30, "Wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_a2SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a2TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a2TBF_id, "long_name", 36, "ncl_a2 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, ncl_a2TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a2_sfcoag1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a2_sfcoag1_id, "long_name", 45, "ncl_a2 modal_aero coagulation column tendency")) ERR;
   if (nc_put_att_text(ncid, ncl_a2_sfcoag1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a2_sfcsiz3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a2_sfcsiz3_id, "long_name", 54, "ncl_a2 calcsize aitken-to-accum adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, ncl_a2_sfcsiz3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a2_sfcsiz4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a2_sfcsiz4_id, "long_name", 54, "ncl_a2 calcsize accum-to-aitken adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, ncl_a2_sfcsiz4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a2_sfgaex2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a2_sfgaex2_id, "long_name", 52, "ncl_a2 gas-aerosol-exchange renaming column tendency")) ERR;
   if (nc_put_att_text(ncid, ncl_a2_sfgaex2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a3_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, ncl_a3_id, "long_name", 6, "ncl_a3")) ERR;
   if (nc_put_att_text(ncid, ncl_a3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a3DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a3DDF_id, "long_name", 50, "ncl_a3 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, ncl_a3DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a3GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a3GVF_id, "long_name", 40, "ncl_a3 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, ncl_a3GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SF_id, "long_name", 36, "ncl_a3 progseasalts surface emission")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SFSBC_id, "long_name", 55, "Wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SFSBS_id, "long_name", 55, "Wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SFSIC_id, "long_name", 52, "Wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SFSIS_id, "long_name", 52, "Wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SFWET_id, "long_name", 30, "Wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_a3SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_a3TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_a3TBF_id, "long_name", 36, "ncl_a3 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, ncl_a3TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c1_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, ncl_c1_id, "long_name", 21, "ncl_c1 in cloud water")) ERR;
   if (nc_put_att_text(ncid, ncl_c1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c1DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c1DDF_id, "long_name", 50, "ncl_c1 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, ncl_c1DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c1GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c1GVF_id, "long_name", 40, "ncl_c1 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, ncl_c1GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c1SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c1SFSBC_id, "long_name", 62, "ncl_c1 wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_c1SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c1SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c1SFSBS_id, "long_name", 62, "ncl_c1 wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_c1SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c1SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c1SFSIC_id, "long_name", 59, "ncl_c1 wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_c1SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c1SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c1SFSIS_id, "long_name", 59, "ncl_c1 wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_c1SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c1SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c1SFWET_id, "long_name", 37, "ncl_c1 wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_c1SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c1TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c1TBF_id, "long_name", 36, "ncl_c1 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, ncl_c1TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c1_sfcsiz3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c1_sfcsiz3_id, "long_name", 54, "ncl_c1 calcsize aitken-to-accum adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, ncl_c1_sfcsiz3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c1_sfcsiz4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c1_sfcsiz4_id, "long_name", 54, "ncl_c1 calcsize accum-to-aitken adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, ncl_c1_sfcsiz4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c1_sfgaex2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c1_sfgaex2_id, "long_name", 52, "ncl_c1 gas-aerosol-exchange renaming column tendency")) ERR;
   if (nc_put_att_text(ncid, ncl_c1_sfgaex2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c2_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, ncl_c2_id, "long_name", 21, "ncl_c2 in cloud water")) ERR;
   if (nc_put_att_text(ncid, ncl_c2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c2DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c2DDF_id, "long_name", 50, "ncl_c2 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, ncl_c2DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c2GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c2GVF_id, "long_name", 40, "ncl_c2 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, ncl_c2GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c2SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c2SFSBC_id, "long_name", 62, "ncl_c2 wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_c2SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c2SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c2SFSBS_id, "long_name", 62, "ncl_c2 wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_c2SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c2SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c2SFSIC_id, "long_name", 59, "ncl_c2 wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_c2SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c2SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c2SFSIS_id, "long_name", 59, "ncl_c2 wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_c2SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c2SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c2SFWET_id, "long_name", 37, "ncl_c2 wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_c2SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c2TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c2TBF_id, "long_name", 36, "ncl_c2 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, ncl_c2TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c2_sfcsiz3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c2_sfcsiz3_id, "long_name", 54, "ncl_c2 calcsize aitken-to-accum adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, ncl_c2_sfcsiz3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c2_sfcsiz4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c2_sfcsiz4_id, "long_name", 54, "ncl_c2 calcsize accum-to-aitken adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, ncl_c2_sfcsiz4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c2_sfgaex2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c2_sfgaex2_id, "long_name", 52, "ncl_c2 gas-aerosol-exchange renaming column tendency")) ERR;
   if (nc_put_att_text(ncid, ncl_c2_sfgaex2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c3_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, ncl_c3_id, "long_name", 21, "ncl_c3 in cloud water")) ERR;
   if (nc_put_att_text(ncid, ncl_c3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c3DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c3DDF_id, "long_name", 50, "ncl_c3 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, ncl_c3DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c3GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c3GVF_id, "long_name", 40, "ncl_c3 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, ncl_c3GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c3SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c3SFSBC_id, "long_name", 62, "ncl_c3 wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_c3SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c3SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c3SFSBS_id, "long_name", 62, "ncl_c3 wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_c3SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c3SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c3SFSIC_id, "long_name", 59, "ncl_c3 wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_c3SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c3SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c3SFSIS_id, "long_name", 59, "ncl_c3 wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_c3SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c3SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c3SFWET_id, "long_name", 37, "ncl_c3 wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, ncl_c3SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, ncl_c3TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, ncl_c3TBF_id, "long_name", 36, "ncl_c3 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, ncl_c3TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a1_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, num_a1_id, "long_name", 6, "num_a1")) ERR;
   if (nc_put_att_text(ncid, num_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a1DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a1DDF_id, "long_name", 50, "num_a1 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, num_a1DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a1GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a1GVF_id, "long_name", 40, "num_a1 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, num_a1GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a1SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a1SFSBC_id, "long_name", 55, "Wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, num_a1SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a1SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a1SFSBS_id, "long_name", 55, "Wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, num_a1SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a1SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a1SFSIC_id, "long_name", 52, "Wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, num_a1SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a1SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a1SFSIS_id, "long_name", 52, "Wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, num_a1SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a1SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a1SFWET_id, "long_name", 30, "Wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, num_a1SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a1TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a1TBF_id, "long_name", 36, "num_a1 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, num_a1TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a1_CLXF_id, "units", 11, "molec/cm2/s")) ERR;
   if (nc_put_att_text(ncid, num_a1_CLXF_id, "long_name", 50, "vertically integrated external forcing for num_a1")) ERR;
   if (nc_put_att_text(ncid, num_a1_CLXF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a1_XFRC_id, "units", 11, "molec/cm3/s")) ERR;
   if (nc_put_att_text(ncid, num_a1_XFRC_id, "long_name", 27, "external forcing for num_a1")) ERR;
   if (nc_put_att_text(ncid, num_a1_XFRC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfcoag1_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfcoag1_id, "long_name", 45, "num_a1 modal_aero coagulation column tendency")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfcoag1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfcsiz1_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfcsiz1_id, "long_name", 43, "num_a1 calcsize number-adjust column source")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfcsiz1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfcsiz2_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfcsiz2_id, "long_name", 41, "num_a1 calcsize number-adjust column sink")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfcsiz2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfcsiz3_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfcsiz3_id, "long_name", 54, "num_a1 calcsize aitken-to-accum adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfcsiz3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfcsiz4_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfcsiz4_id, "long_name", 54, "num_a1 calcsize accum-to-aitken adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfcsiz4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfgaex2_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfgaex2_id, "long_name", 52, "num_a1 gas-aerosol-exchange renaming column tendency")) ERR;
   if (nc_put_att_text(ncid, num_a1_sfgaex2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, num_a2_id, "long_name", 6, "num_a2")) ERR;
   if (nc_put_att_text(ncid, num_a2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a2DDF_id, "long_name", 50, "num_a2 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, num_a2DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a2GVF_id, "long_name", 40, "num_a2 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, num_a2GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a2SFSBC_id, "long_name", 55, "Wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, num_a2SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a2SFSBS_id, "long_name", 55, "Wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, num_a2SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a2SFSIC_id, "long_name", 52, "Wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, num_a2SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a2SFSIS_id, "long_name", 52, "Wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, num_a2SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a2SFWET_id, "long_name", 30, "Wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, num_a2SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a2TBF_id, "long_name", 36, "num_a2 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, num_a2TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2_CLXF_id, "units", 11, "molec/cm2/s")) ERR;
   if (nc_put_att_text(ncid, num_a2_CLXF_id, "long_name", 50, "vertically integrated external forcing for num_a2")) ERR;
   if (nc_put_att_text(ncid, num_a2_CLXF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2_XFRC_id, "units", 11, "molec/cm3/s")) ERR;
   if (nc_put_att_text(ncid, num_a2_XFRC_id, "long_name", 27, "external forcing for num_a2")) ERR;
   if (nc_put_att_text(ncid, num_a2_XFRC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfcoag1_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfcoag1_id, "long_name", 45, "num_a2 modal_aero coagulation column tendency")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfcoag1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfcsiz1_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfcsiz1_id, "long_name", 43, "num_a2 calcsize number-adjust column source")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfcsiz1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfcsiz2_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfcsiz2_id, "long_name", 41, "num_a2 calcsize number-adjust column sink")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfcsiz2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfcsiz3_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfcsiz3_id, "long_name", 54, "num_a2 calcsize aitken-to-accum adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfcsiz3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfcsiz4_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfcsiz4_id, "long_name", 54, "num_a2 calcsize accum-to-aitken adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfcsiz4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfgaex2_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfgaex2_id, "long_name", 52, "num_a2 gas-aerosol-exchange renaming column tendency")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfgaex2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfnnuc1_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfnnuc1_id, "long_name", 57, "num_a2 modal_aero new particle nucleation column tendency")) ERR;
   if (nc_put_att_text(ncid, num_a2_sfnnuc1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a3_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, num_a3_id, "long_name", 6, "num_a3")) ERR;
   if (nc_put_att_text(ncid, num_a3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a3DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a3DDF_id, "long_name", 50, "num_a3 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, num_a3DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a3GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a3GVF_id, "long_name", 40, "num_a3 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, num_a3GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a3SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a3SFSBC_id, "long_name", 55, "Wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, num_a3SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a3SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a3SFSBS_id, "long_name", 55, "Wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, num_a3SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a3SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a3SFSIC_id, "long_name", 52, "Wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, num_a3SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a3SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a3SFSIS_id, "long_name", 52, "Wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, num_a3SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a3SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a3SFWET_id, "long_name", 30, "Wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, num_a3SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a3TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a3TBF_id, "long_name", 36, "num_a3 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, num_a3TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a3_sfcsiz1_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a3_sfcsiz1_id, "long_name", 43, "num_a3 calcsize number-adjust column source")) ERR;
   if (nc_put_att_text(ncid, num_a3_sfcsiz1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_a3_sfcsiz2_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_a3_sfcsiz2_id, "long_name", 41, "num_a3 calcsize number-adjust column sink")) ERR;
   if (nc_put_att_text(ncid, num_a3_sfcsiz2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c1_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, num_c1_id, "long_name", 21, "num_c1 in cloud water")) ERR;
   if (nc_put_att_text(ncid, num_c1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c1DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c1DDF_id, "long_name", 50, "num_c1 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, num_c1DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c1GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c1GVF_id, "long_name", 40, "num_c1 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, num_c1GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c1SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c1SFSBC_id, "long_name", 62, "num_c1 wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, num_c1SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c1SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c1SFSBS_id, "long_name", 62, "num_c1 wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, num_c1SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c1SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c1SFSIC_id, "long_name", 59, "num_c1 wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, num_c1SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c1SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c1SFSIS_id, "long_name", 59, "num_c1 wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, num_c1SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c1SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c1SFWET_id, "long_name", 37, "num_c1 wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, num_c1SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c1TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c1TBF_id, "long_name", 36, "num_c1 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, num_c1TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c1_sfcsiz1_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c1_sfcsiz1_id, "long_name", 43, "num_c1 calcsize number-adjust column source")) ERR;
   if (nc_put_att_text(ncid, num_c1_sfcsiz1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c1_sfcsiz2_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c1_sfcsiz2_id, "long_name", 41, "num_c1 calcsize number-adjust column sink")) ERR;
   if (nc_put_att_text(ncid, num_c1_sfcsiz2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c1_sfcsiz3_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c1_sfcsiz3_id, "long_name", 54, "num_c1 calcsize aitken-to-accum adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, num_c1_sfcsiz3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c1_sfcsiz4_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c1_sfcsiz4_id, "long_name", 54, "num_c1 calcsize accum-to-aitken adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, num_c1_sfcsiz4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c1_sfgaex2_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c1_sfgaex2_id, "long_name", 52, "num_c1 gas-aerosol-exchange renaming column tendency")) ERR;
   if (nc_put_att_text(ncid, num_c1_sfgaex2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c2_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, num_c2_id, "long_name", 21, "num_c2 in cloud water")) ERR;
   if (nc_put_att_text(ncid, num_c2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c2DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c2DDF_id, "long_name", 50, "num_c2 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, num_c2DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c2GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c2GVF_id, "long_name", 40, "num_c2 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, num_c2GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c2SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c2SFSBC_id, "long_name", 62, "num_c2 wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, num_c2SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c2SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c2SFSBS_id, "long_name", 62, "num_c2 wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, num_c2SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c2SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c2SFSIC_id, "long_name", 59, "num_c2 wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, num_c2SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c2SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c2SFSIS_id, "long_name", 59, "num_c2 wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, num_c2SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c2SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c2SFWET_id, "long_name", 37, "num_c2 wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, num_c2SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c2TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c2TBF_id, "long_name", 36, "num_c2 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, num_c2TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c2_sfcsiz1_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c2_sfcsiz1_id, "long_name", 43, "num_c2 calcsize number-adjust column source")) ERR;
   if (nc_put_att_text(ncid, num_c2_sfcsiz1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c2_sfcsiz2_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c2_sfcsiz2_id, "long_name", 41, "num_c2 calcsize number-adjust column sink")) ERR;
   if (nc_put_att_text(ncid, num_c2_sfcsiz2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c2_sfcsiz3_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c2_sfcsiz3_id, "long_name", 54, "num_c2 calcsize aitken-to-accum adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, num_c2_sfcsiz3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c2_sfcsiz4_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c2_sfcsiz4_id, "long_name", 54, "num_c2 calcsize accum-to-aitken adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, num_c2_sfcsiz4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c2_sfgaex2_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c2_sfgaex2_id, "long_name", 52, "num_c2 gas-aerosol-exchange renaming column tendency")) ERR;
   if (nc_put_att_text(ncid, num_c2_sfgaex2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c3_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, num_c3_id, "long_name", 21, "num_c3 in cloud water")) ERR;
   if (nc_put_att_text(ncid, num_c3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c3DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c3DDF_id, "long_name", 50, "num_c3 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, num_c3DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c3GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c3GVF_id, "long_name", 40, "num_c3 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, num_c3GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c3SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c3SFSBC_id, "long_name", 62, "num_c3 wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, num_c3SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c3SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c3SFSBS_id, "long_name", 62, "num_c3 wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, num_c3SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c3SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c3SFSIC_id, "long_name", 59, "num_c3 wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, num_c3SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c3SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c3SFSIS_id, "long_name", 59, "num_c3 wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, num_c3SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c3SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c3SFWET_id, "long_name", 37, "num_c3 wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, num_c3SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c3TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c3TBF_id, "long_name", 36, "num_c3 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, num_c3TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c3_sfcsiz1_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c3_sfcsiz1_id, "long_name", 43, "num_c3 calcsize number-adjust column source")) ERR;
   if (nc_put_att_text(ncid, num_c3_sfcsiz1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, num_c3_sfcsiz2_id, "units", 6, "#/m2/s")) ERR;
   if (nc_put_att_text(ncid, num_c3_sfcsiz2_id, "long_name", 41, "num_c3 calcsize number-adjust column sink")) ERR;
   if (nc_put_att_text(ncid, num_c3_sfcsiz2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_a1_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, pom_a1_id, "long_name", 6, "pom_a1")) ERR;
   if (nc_put_att_text(ncid, pom_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_a1DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, pom_a1DDF_id, "long_name", 50, "pom_a1 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, pom_a1DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_a1GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, pom_a1GVF_id, "long_name", 40, "pom_a1 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, pom_a1GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_a1SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, pom_a1SFSBC_id, "long_name", 55, "Wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, pom_a1SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_a1SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, pom_a1SFSBS_id, "long_name", 55, "Wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, pom_a1SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_a1SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, pom_a1SFSIC_id, "long_name", 52, "Wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, pom_a1SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_a1SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, pom_a1SFSIS_id, "long_name", 52, "Wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, pom_a1SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_a1SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, pom_a1SFWET_id, "long_name", 30, "Wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, pom_a1SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_a1TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, pom_a1TBF_id, "long_name", 36, "pom_a1 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, pom_a1TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_a1_CLXF_id, "units", 11, "molec/cm2/s")) ERR;
   if (nc_put_att_text(ncid, pom_a1_CLXF_id, "long_name", 50, "vertically integrated external forcing for pom_a1")) ERR;
   if (nc_put_att_text(ncid, pom_a1_CLXF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_a1_XFRC_id, "units", 11, "molec/cm3/s")) ERR;
   if (nc_put_att_text(ncid, pom_a1_XFRC_id, "long_name", 27, "external forcing for pom_a1")) ERR;
   if (nc_put_att_text(ncid, pom_a1_XFRC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_c1_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, pom_c1_id, "long_name", 21, "pom_c1 in cloud water")) ERR;
   if (nc_put_att_text(ncid, pom_c1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_c1DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, pom_c1DDF_id, "long_name", 50, "pom_c1 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, pom_c1DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_c1GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, pom_c1GVF_id, "long_name", 40, "pom_c1 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, pom_c1GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_c1SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, pom_c1SFSBC_id, "long_name", 62, "pom_c1 wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, pom_c1SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_c1SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, pom_c1SFSBS_id, "long_name", 62, "pom_c1 wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, pom_c1SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_c1SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, pom_c1SFSIC_id, "long_name", 59, "pom_c1 wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, pom_c1SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_c1SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, pom_c1SFSIS_id, "long_name", 59, "pom_c1 wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, pom_c1SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_c1SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, pom_c1SFWET_id, "long_name", 37, "pom_c1 wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, pom_c1SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, pom_c1TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, pom_c1TBF_id, "long_name", 36, "pom_c1 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, pom_c1TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a1_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, so4_a1_id, "long_name", 6, "so4_a1")) ERR;
   if (nc_put_att_text(ncid, so4_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a1DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a1DDF_id, "long_name", 50, "so4_a1 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, so4_a1DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a1GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a1GVF_id, "long_name", 40, "so4_a1 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, so4_a1GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a1SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a1SFSBC_id, "long_name", 55, "Wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_a1SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a1SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a1SFSBS_id, "long_name", 55, "Wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_a1SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a1SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a1SFSIC_id, "long_name", 52, "Wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_a1SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a1SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a1SFSIS_id, "long_name", 52, "Wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_a1SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a1SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a1SFWET_id, "long_name", 30, "Wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, so4_a1SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a1TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a1TBF_id, "long_name", 36, "so4_a1 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, so4_a1TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a1_CLXF_id, "units", 11, "molec/cm2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a1_CLXF_id, "long_name", 50, "vertically integrated external forcing for so4_a1")) ERR;
   if (nc_put_att_text(ncid, so4_a1_CLXF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a1_XFRC_id, "units", 11, "molec/cm3/s")) ERR;
   if (nc_put_att_text(ncid, so4_a1_XFRC_id, "long_name", 27, "external forcing for so4_a1")) ERR;
   if (nc_put_att_text(ncid, so4_a1_XFRC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a1_sfcoag1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a1_sfcoag1_id, "long_name", 45, "so4_a1 modal_aero coagulation column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_a1_sfcoag1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a1_sfcsiz3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a1_sfcsiz3_id, "long_name", 54, "so4_a1 calcsize aitken-to-accum adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_a1_sfcsiz3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a1_sfcsiz4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a1_sfcsiz4_id, "long_name", 54, "so4_a1 calcsize accum-to-aitken adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_a1_sfcsiz4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a1_sfgaex1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a1_sfgaex1_id, "long_name", 51, "so4_a1 gas-aerosol-exchange primary column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_a1_sfgaex1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a1_sfgaex2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a1_sfgaex2_id, "long_name", 52, "so4_a1 gas-aerosol-exchange renaming column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_a1_sfgaex2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a2_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, so4_a2_id, "long_name", 6, "so4_a2")) ERR;
   if (nc_put_att_text(ncid, so4_a2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a2DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a2DDF_id, "long_name", 50, "so4_a2 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, so4_a2DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a2GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a2GVF_id, "long_name", 40, "so4_a2 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, so4_a2GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a2SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a2SFSBC_id, "long_name", 55, "Wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_a2SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a2SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a2SFSBS_id, "long_name", 55, "Wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_a2SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a2SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a2SFSIC_id, "long_name", 52, "Wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_a2SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a2SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a2SFSIS_id, "long_name", 52, "Wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_a2SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a2SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a2SFWET_id, "long_name", 30, "Wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, so4_a2SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a2TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a2TBF_id, "long_name", 36, "so4_a2 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, so4_a2TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a2_CLXF_id, "units", 11, "molec/cm2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a2_CLXF_id, "long_name", 50, "vertically integrated external forcing for so4_a2")) ERR;
   if (nc_put_att_text(ncid, so4_a2_CLXF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a2_XFRC_id, "units", 11, "molec/cm3/s")) ERR;
   if (nc_put_att_text(ncid, so4_a2_XFRC_id, "long_name", 27, "external forcing for so4_a2")) ERR;
   if (nc_put_att_text(ncid, so4_a2_XFRC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfcoag1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfcoag1_id, "long_name", 45, "so4_a2 modal_aero coagulation column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfcoag1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfcsiz3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfcsiz3_id, "long_name", 54, "so4_a2 calcsize aitken-to-accum adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfcsiz3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfcsiz4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfcsiz4_id, "long_name", 54, "so4_a2 calcsize accum-to-aitken adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfcsiz4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfgaex1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfgaex1_id, "long_name", 51, "so4_a2 gas-aerosol-exchange primary column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfgaex1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfgaex2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfgaex2_id, "long_name", 52, "so4_a2 gas-aerosol-exchange renaming column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfgaex2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfnnuc1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfnnuc1_id, "long_name", 57, "so4_a2 modal_aero new particle nucleation column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_a2_sfnnuc1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a3_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, so4_a3_id, "long_name", 6, "so4_a3")) ERR;
   if (nc_put_att_text(ncid, so4_a3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a3DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a3DDF_id, "long_name", 50, "so4_a3 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, so4_a3DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a3GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a3GVF_id, "long_name", 40, "so4_a3 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, so4_a3GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a3SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a3SFSBC_id, "long_name", 55, "Wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_a3SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a3SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a3SFSBS_id, "long_name", 55, "Wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_a3SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a3SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a3SFSIC_id, "long_name", 52, "Wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_a3SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a3SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a3SFSIS_id, "long_name", 52, "Wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_a3SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a3SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a3SFWET_id, "long_name", 30, "Wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, so4_a3SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a3TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a3TBF_id, "long_name", 36, "so4_a3 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, so4_a3TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_a3_sfgaex1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_a3_sfgaex1_id, "long_name", 51, "so4_a3 gas-aerosol-exchange primary column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_a3_sfgaex1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c1_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, so4_c1_id, "long_name", 21, "so4_c1 in cloud water")) ERR;
   if (nc_put_att_text(ncid, so4_c1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c1AQH2SO4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c1AQH2SO4_id, "long_name", 30, "so4_c1 aqueous phase chemistry")) ERR;
   if (nc_put_att_text(ncid, so4_c1AQH2SO4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c1AQSO4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c1AQSO4_id, "long_name", 30, "so4_c1 aqueous phase chemistry")) ERR;
   if (nc_put_att_text(ncid, so4_c1AQSO4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c1DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c1DDF_id, "long_name", 50, "so4_c1 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, so4_c1DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c1GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c1GVF_id, "long_name", 40, "so4_c1 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, so4_c1GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c1SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c1SFSBC_id, "long_name", 62, "so4_c1 wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_c1SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c1SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c1SFSBS_id, "long_name", 62, "so4_c1 wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_c1SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c1SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c1SFSIC_id, "long_name", 59, "so4_c1 wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_c1SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c1SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c1SFSIS_id, "long_name", 59, "so4_c1 wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_c1SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c1SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c1SFWET_id, "long_name", 37, "so4_c1 wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, so4_c1SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c1TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c1TBF_id, "long_name", 36, "so4_c1 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, so4_c1TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c1_sfcsiz3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c1_sfcsiz3_id, "long_name", 54, "so4_c1 calcsize aitken-to-accum adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_c1_sfcsiz3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c1_sfcsiz4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c1_sfcsiz4_id, "long_name", 54, "so4_c1 calcsize accum-to-aitken adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_c1_sfcsiz4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c1_sfgaex2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c1_sfgaex2_id, "long_name", 52, "so4_c1 gas-aerosol-exchange renaming column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_c1_sfgaex2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c2_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, so4_c2_id, "long_name", 21, "so4_c2 in cloud water")) ERR;
   if (nc_put_att_text(ncid, so4_c2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c2AQH2SO4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c2AQH2SO4_id, "long_name", 30, "so4_c2 aqueous phase chemistry")) ERR;
   if (nc_put_att_text(ncid, so4_c2AQH2SO4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c2AQSO4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c2AQSO4_id, "long_name", 30, "so4_c2 aqueous phase chemistry")) ERR;
   if (nc_put_att_text(ncid, so4_c2AQSO4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c2DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c2DDF_id, "long_name", 50, "so4_c2 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, so4_c2DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c2GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c2GVF_id, "long_name", 40, "so4_c2 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, so4_c2GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c2SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c2SFSBC_id, "long_name", 62, "so4_c2 wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_c2SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c2SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c2SFSBS_id, "long_name", 62, "so4_c2 wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_c2SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c2SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c2SFSIC_id, "long_name", 59, "so4_c2 wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_c2SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c2SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c2SFSIS_id, "long_name", 59, "so4_c2 wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_c2SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c2SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c2SFWET_id, "long_name", 37, "so4_c2 wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, so4_c2SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c2TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c2TBF_id, "long_name", 36, "so4_c2 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, so4_c2TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c2_sfcsiz3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c2_sfcsiz3_id, "long_name", 54, "so4_c2 calcsize aitken-to-accum adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_c2_sfcsiz3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c2_sfcsiz4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c2_sfcsiz4_id, "long_name", 54, "so4_c2 calcsize accum-to-aitken adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_c2_sfcsiz4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c2_sfgaex2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c2_sfgaex2_id, "long_name", 52, "so4_c2 gas-aerosol-exchange renaming column tendency")) ERR;
   if (nc_put_att_text(ncid, so4_c2_sfgaex2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c3_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, so4_c3_id, "long_name", 21, "so4_c3 in cloud water")) ERR;
   if (nc_put_att_text(ncid, so4_c3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c3AQH2SO4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c3AQH2SO4_id, "long_name", 30, "so4_c3 aqueous phase chemistry")) ERR;
   if (nc_put_att_text(ncid, so4_c3AQH2SO4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c3AQSO4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c3AQSO4_id, "long_name", 30, "so4_c3 aqueous phase chemistry")) ERR;
   if (nc_put_att_text(ncid, so4_c3AQSO4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c3DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c3DDF_id, "long_name", 50, "so4_c3 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, so4_c3DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c3GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c3GVF_id, "long_name", 40, "so4_c3 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, so4_c3GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c3SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c3SFSBC_id, "long_name", 62, "so4_c3 wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_c3SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c3SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c3SFSBS_id, "long_name", 62, "so4_c3 wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_c3SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c3SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c3SFSIC_id, "long_name", 59, "so4_c3 wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_c3SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c3SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c3SFSIS_id, "long_name", 59, "so4_c3 wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, so4_c3SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c3SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c3SFWET_id, "long_name", 37, "so4_c3 wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, so4_c3SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, so4_c3TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, so4_c3TBF_id, "long_name", 36, "so4_c3 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, so4_c3TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a1_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, soa_a1_id, "long_name", 6, "soa_a1")) ERR;
   if (nc_put_att_text(ncid, soa_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a1DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a1DDF_id, "long_name", 50, "soa_a1 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, soa_a1DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a1GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a1GVF_id, "long_name", 40, "soa_a1 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, soa_a1GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a1SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a1SFSBC_id, "long_name", 55, "Wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, soa_a1SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a1SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a1SFSBS_id, "long_name", 55, "Wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, soa_a1SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a1SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a1SFSIC_id, "long_name", 52, "Wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, soa_a1SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a1SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a1SFSIS_id, "long_name", 52, "Wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, soa_a1SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a1SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a1SFWET_id, "long_name", 30, "Wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, soa_a1SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a1TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a1TBF_id, "long_name", 36, "soa_a1 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, soa_a1TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a1_sfcoag1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a1_sfcoag1_id, "long_name", 45, "soa_a1 modal_aero coagulation column tendency")) ERR;
   if (nc_put_att_text(ncid, soa_a1_sfcoag1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a1_sfcsiz3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a1_sfcsiz3_id, "long_name", 54, "soa_a1 calcsize aitken-to-accum adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, soa_a1_sfcsiz3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a1_sfcsiz4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a1_sfcsiz4_id, "long_name", 54, "soa_a1 calcsize accum-to-aitken adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, soa_a1_sfcsiz4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a1_sfgaex1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a1_sfgaex1_id, "long_name", 51, "soa_a1 gas-aerosol-exchange primary column tendency")) ERR;
   if (nc_put_att_text(ncid, soa_a1_sfgaex1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a1_sfgaex2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a1_sfgaex2_id, "long_name", 52, "soa_a1 gas-aerosol-exchange renaming column tendency")) ERR;
   if (nc_put_att_text(ncid, soa_a1_sfgaex2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a2_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, soa_a2_id, "long_name", 6, "soa_a2")) ERR;
   if (nc_put_att_text(ncid, soa_a2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a2DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a2DDF_id, "long_name", 50, "soa_a2 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, soa_a2DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a2GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a2GVF_id, "long_name", 40, "soa_a2 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, soa_a2GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a2SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a2SFSBC_id, "long_name", 55, "Wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, soa_a2SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a2SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a2SFSBS_id, "long_name", 55, "Wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, soa_a2SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a2SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a2SFSIC_id, "long_name", 52, "Wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, soa_a2SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a2SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a2SFSIS_id, "long_name", 52, "Wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, soa_a2SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a2SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a2SFWET_id, "long_name", 30, "Wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, soa_a2SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a2TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a2TBF_id, "long_name", 36, "soa_a2 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, soa_a2TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a2_sfcoag1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a2_sfcoag1_id, "long_name", 45, "soa_a2 modal_aero coagulation column tendency")) ERR;
   if (nc_put_att_text(ncid, soa_a2_sfcoag1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a2_sfcsiz3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a2_sfcsiz3_id, "long_name", 54, "soa_a2 calcsize aitken-to-accum adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, soa_a2_sfcsiz3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a2_sfcsiz4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a2_sfcsiz4_id, "long_name", 54, "soa_a2 calcsize accum-to-aitken adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, soa_a2_sfcsiz4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a2_sfgaex1_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a2_sfgaex1_id, "long_name", 51, "soa_a2 gas-aerosol-exchange primary column tendency")) ERR;
   if (nc_put_att_text(ncid, soa_a2_sfgaex1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_a2_sfgaex2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_a2_sfgaex2_id, "long_name", 52, "soa_a2 gas-aerosol-exchange renaming column tendency")) ERR;
   if (nc_put_att_text(ncid, soa_a2_sfgaex2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c1_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, soa_c1_id, "long_name", 21, "soa_c1 in cloud water")) ERR;
   if (nc_put_att_text(ncid, soa_c1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c1DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c1DDF_id, "long_name", 50, "soa_c1 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, soa_c1DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c1GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c1GVF_id, "long_name", 40, "soa_c1 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, soa_c1GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c1SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c1SFSBC_id, "long_name", 62, "soa_c1 wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, soa_c1SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c1SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c1SFSBS_id, "long_name", 62, "soa_c1 wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, soa_c1SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c1SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c1SFSIC_id, "long_name", 59, "soa_c1 wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, soa_c1SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c1SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c1SFSIS_id, "long_name", 59, "soa_c1 wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, soa_c1SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c1SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c1SFWET_id, "long_name", 37, "soa_c1 wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, soa_c1SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c1TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c1TBF_id, "long_name", 36, "soa_c1 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, soa_c1TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c1_sfcsiz3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c1_sfcsiz3_id, "long_name", 54, "soa_c1 calcsize aitken-to-accum adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, soa_c1_sfcsiz3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c1_sfcsiz4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c1_sfcsiz4_id, "long_name", 54, "soa_c1 calcsize accum-to-aitken adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, soa_c1_sfcsiz4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c1_sfgaex2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c1_sfgaex2_id, "long_name", 52, "soa_c1 gas-aerosol-exchange renaming column tendency")) ERR;
   if (nc_put_att_text(ncid, soa_c1_sfgaex2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c2_id, "units", 5, "kg/kg")) ERR;
   if (nc_put_att_text(ncid, soa_c2_id, "long_name", 21, "soa_c2 in cloud water")) ERR;
   if (nc_put_att_text(ncid, soa_c2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c2DDF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c2DDF_id, "long_name", 50, "soa_c2 dry deposition flux at bottom (grav + turb)")) ERR;
   if (nc_put_att_text(ncid, soa_c2DDF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c2GVF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c2GVF_id, "long_name", 40, "soa_c2 gravitational dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, soa_c2GVF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c2SFSBC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c2SFSBC_id, "long_name", 62, "soa_c2 wet deposition flux (belowcloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, soa_c2SFSBC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c2SFSBS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c2SFSBS_id, "long_name", 62, "soa_c2 wet deposition flux (belowcloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, soa_c2SFSBS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c2SFSIC_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c2SFSIC_id, "long_name", 59, "soa_c2 wet deposition flux (incloud, convective) at surface")) ERR;
   if (nc_put_att_text(ncid, soa_c2SFSIC_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c2SFSIS_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c2SFSIS_id, "long_name", 59, "soa_c2 wet deposition flux (incloud, stratiform) at surface")) ERR;
   if (nc_put_att_text(ncid, soa_c2SFSIS_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c2SFWET_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c2SFWET_id, "long_name", 37, "soa_c2 wet deposition flux at surface")) ERR;
   if (nc_put_att_text(ncid, soa_c2SFWET_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c2TBF_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c2TBF_id, "long_name", 36, "soa_c2 turbulent dry deposition flux")) ERR;
   if (nc_put_att_text(ncid, soa_c2TBF_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c2_sfcsiz3_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c2_sfcsiz3_id, "long_name", 54, "soa_c2 calcsize aitken-to-accum adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, soa_c2_sfcsiz3_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c2_sfcsiz4_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c2_sfcsiz4_id, "long_name", 54, "soa_c2 calcsize accum-to-aitken adjust column tendency")) ERR;
   if (nc_put_att_text(ncid, soa_c2_sfcsiz4_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, soa_c2_sfgaex2_id, "units", 7, "kg/m2/s")) ERR;
   if (nc_put_att_text(ncid, soa_c2_sfgaex2_id, "long_name", 52, "soa_c2 gas-aerosol-exchange renaming column tendency")) ERR;
   if (nc_put_att_text(ncid, soa_c2_sfgaex2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, wat_a1_id, "units", 1, "m")) ERR;
   if (nc_put_att_text(ncid, wat_a1_id, "long_name", 36, "aerosol water, interstitial, mode 01")) ERR;
   if (nc_put_att_text(ncid, wat_a1_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, wat_a2_id, "units", 1, "m")) ERR;
   if (nc_put_att_text(ncid, wat_a2_id, "long_name", 36, "aerosol water, interstitial, mode 02")) ERR;
   if (nc_put_att_text(ncid, wat_a2_id, "cell_methods", 10, "time: mean")) ERR;
   if (nc_put_att_text(ncid, wat_a3_id, "units", 1, "m")) ERR;
   if (nc_put_att_text(ncid, wat_a3_id, "long_name", 36, "aerosol water, interstitial, mode 03")) ERR;
   if (nc_put_att_text(ncid, wat_a3_id, "cell_methods", 10, "time: mean")) ERR;


#ifdef EXTRA_TESTS
   get_mem_used2(&memused);
   printf("before enddef data memory %d MB\n", memused);
#endif 

   /* leave define mode */
   if (nc_enddef (ncid)) ERR;

#ifdef EXTRA_TESTS
   get_mem_used2(&memused);
   printf("before close data memory %d MB\n", memused);
#endif 

   /* assign variable data */
   if (nc_close(ncid)) ERR;

#ifdef EXTRA_TESTS
   get_mem_used2(&memused);
   printf("after close data memory %d MB\n", memused);
#endif 
   
   SUMMARIZE_ERR;
   FINAL_RESULTS;
}