@@ -93,23 +93,31 @@ err = nc_def_dim(ncid, "levdcmp", 15, &dimids[18]); ERR
9393err = nc_def_dim (ncid , "levtrc" , 10 , & dimids [19 ]); ERR
9494err = nc_def_dim (ncid , "hist_interval" , 2 , & dimids [20 ]); ERR
9595
96+ #ifdef DIM_SCALE
9697err = nc_def_var (ncid , "levgrnd" , NC_FLOAT , 1 , dimids , & varid ); ERR
9798err = nc_put_att (ncid , varid , "long_name" , NC_CHAR , 22 , "coordinate soil levels" ); ERR
9899err = nc_put_att (ncid , varid , "units" , NC_CHAR , 1 , "m" ); ERR
100+ #endif
99101
102+ #ifdef DIM_SCALE
100103err = nc_def_var (ncid , "levlak" , NC_FLOAT , 1 , dimids , & varid ); ERR
101104err = nc_put_att (ncid , varid , "long_name" , NC_CHAR , 22 , "coordinate lake levels" ); ERR
102105err = nc_put_att (ncid , varid , "units" , NC_CHAR , 1 , "m" ); ERR
106+ #endif
103107
108+ #ifdef DIM_SCALE
104109err = nc_def_var (ncid , "levdcmp" , NC_FLOAT , 1 , dimids , & varid ); ERR
105110err = nc_put_att (ncid , varid , "long_name" , NC_CHAR , 22 , "coordinate soil levels" ); ERR
106111err = nc_put_att (ncid , varid , "units" , NC_CHAR , 1 , "m" ); ERR
112+ #endif
107113
114+ #ifdef DIM_SCALE
108115err = nc_def_var (ncid , "time" , NC_FLOAT , 1 , dimids , & varid ); ERR
109116err = nc_put_att (ncid , varid , "long_name" , NC_CHAR , 4 , "time" ); ERR
110117err = nc_put_att (ncid , varid , "units" , NC_CHAR , 30 , "days since 0001-01-01 00:00:00" ); ERR
111118err = nc_put_att (ncid , varid , "calendar" , NC_CHAR , 6 , "noleap" ); ERR
112119err = nc_put_att (ncid , varid , "bounds" , NC_CHAR , 11 , "time_bounds" ); ERR
120+ #endif
113121
114122err = nc_def_var (ncid , "mcdate" , NC_INT , 1 , dimids , & varid ); ERR
115123err = nc_put_att (ncid , varid , "long_name" , NC_CHAR , 23 , "current date (YYYYMMDD)" ); ERR
@@ -134,17 +142,21 @@ err = nc_def_var(ncid, "date_written", NC_CHAR, 2, dimids, &varid); ERR
134142
135143err = nc_def_var (ncid , "time_written" , NC_CHAR , 2 , dimids , & varid ); ERR
136144
145+ #ifdef DIM_SCALE
137146err = nc_def_var (ncid , "lon" , NC_FLOAT , 1 , dimids , & varid ); ERR
138147err = nc_put_att (ncid , varid , "long_name" , NC_CHAR , 20 , "coordinate longitude" ); ERR
139148err = nc_put_att (ncid , varid , "units" , NC_CHAR , 12 , "degrees_east" ); ERR
140149err = nc_put_att (ncid , varid , "_FillValue" , NC_FLOAT , 1 , buf ); ERR
141150err = nc_put_att (ncid , varid , "missing_value" , NC_FLOAT , 1 , buf ); ERR
151+ #endif
142152
153+ #ifdef DIM_SCALE
143154err = nc_def_var (ncid , "lat" , NC_FLOAT , 1 , dimids , & varid ); ERR
144155err = nc_put_att (ncid , varid , "long_name" , NC_CHAR , 19 , "coordinate latitude" ); ERR
145156err = nc_put_att (ncid , varid , "units" , NC_CHAR , 13 , "degrees_north" ); ERR
146157err = nc_put_att (ncid , varid , "_FillValue" , NC_FLOAT , 1 , buf ); ERR
147158err = nc_put_att (ncid , varid , "missing_value" , NC_FLOAT , 1 , buf ); ERR
159+ #endif
148160
149161err = nc_def_var (ncid , "area" , NC_FLOAT , 2 , dimids , & varid ); ERR
150162err = nc_put_att (ncid , varid , "long_name" , NC_CHAR , 15 , "grid cell areas" ); ERR
0 commit comments