Changeset 298 for IO_handling
- Timestamp:
- 23/11/04 14:32:39 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IO_handling/trunk/ppio/cu2netcdf/cu2netcdf.c
r297 r298 106 106 ERROR("cudiminq failed"); 107 107 108 #if DEBUG>1 109 fprintf(stderr, "cudiminq: dimname=%s, dimunits=%s, dimtype=%d, " 110 "dimlen=%ld\n", dimname, dimunits, dimtype, dimlen); 111 #endif 112 108 113 c->dimlens[indimid] = dimlen; 109 114 if (dimtype != CuGlobalDim) ERROR("Only global dimensions supported"); 110 115 111 112 /* Dump units to stderr until I decide what to do with it. */113 fprintf(stderr, "Dimension %s, units: %s\n", dimname, dimunits);114 116 115 117 #ifdef NC3 … … 135 137 ERROR("cuvarinq failed"); 136 138 139 #if DEBUG>1 140 fprintf(stderr, "cuvarinq: invarid=%d, varname=%s, vartype=%d, nvdims=%d, " 141 "nvatts=%d\n", invarid, varname, vartype, nvdims, nvatts); 142 #endif 143 144 if (nvdims == 0) { 145 fprintf(stderr, "WARNING: variable %s has no dimensions. Not writing.\n", 146 varname); 147 return -1; 148 } 137 149 138 150 for (i = 0; i < nvdims; i++) outvdims[i] = c->dimid_map[invdims[i]]; … … 163 175 if (cuattinq(c->infileid, invarid, attname, &atttype, &attlen) 164 176 != CU_SUCCESS) ERROR("cuattinq failed"); 177 178 #if DEBUG>1 179 fprintf(stderr, "cuattinq: invarid=%d, attname=%s, atttype=%d, attlen=%d\n", 180 invarid, attname, atttype, attlen); 181 #endif 165 182 166 183 if (atttype == CuChar) cuattlen = attlen + 1; … … 169 186 if (cuattget(c->infileid, invarid, attname, attval) == -1) 170 187 ERROR("cuattget failed"); 188 171 189 if (atttype == CuChar) ((char *)attval)[attlen] = '\0'; 172 190 … … 252 270 ERROR("cuvarinq failed"); 253 271 272 #if DEBUG>1 273 fprintf(stderr, "cuvarinq: invarid=%d, varname=%s, vartype=%d, nvdims=%d, " 274 "nvatts=%d\n", invarid, varname, vartype, nvdims, nvatts); 275 #endif 276 277 if (nvdims == 0) { 278 /* Error reported in define_variable() */ 279 return; 280 } 254 281 255 282 varlen = 1;
Note: See TracChangeset
for help on using the changeset viewer.