Changeset 298 for IO_handling

Timestamp:

23/11/04 14:32:39 (15 years ago)

Author:

spascoe

Message:

Slight change to DEBUG status reporting.

File:

• IO_handling/trunk/ppio/cu2netcdf/cu2netcdf.c (modified) (5 diffs)

IO_handling/trunk/ppio/cu2netcdf/cu2netcdf.c

@@ -106 +106 @@
     ERROR("cudiminq failed");
 
+#if DEBUG>1
+  fprintf(stderr, "cudiminq: dimname=%s, dimunits=%s, dimtype=%d, "
+          "dimlen=%ld\n", dimname, dimunits, dimtype, dimlen);
+#endif
+
   c->dimlens[indimid] = dimlen;
   if (dimtype != CuGlobalDim) ERROR("Only global dimensions supported");
   
-
-  /* Dump units to stderr until I decide what to do with it. */
-  fprintf(stderr, "Dimension %s, units: %s\n", dimname, dimunits);
   
 #ifdef NC3  
@@ -135 +137 @@
     ERROR("cuvarinq failed");
   
+#if DEBUG>1
+  fprintf(stderr, "cuvarinq: invarid=%d, varname=%s, vartype=%d, nvdims=%d, "
+          "nvatts=%d\n", invarid, varname, vartype, nvdims, nvatts);
+#endif
+
+  if (nvdims == 0) {
+    fprintf(stderr, "WARNING: variable %s has no dimensions.  Not writing.\n",
+            varname);
+    return -1;
+  }
 
   for (i = 0; i < nvdims; i++) outvdims[i] = c->dimid_map[invdims[i]];
@@ -163 +175 @@
   if (cuattinq(c->infileid, invarid, attname, &atttype, &attlen)
       != CU_SUCCESS) ERROR("cuattinq failed");
+
+#if DEBUG>1
+  fprintf(stderr, "cuattinq: invarid=%d, attname=%s, atttype=%d, attlen=%d\n",
+          invarid, attname, atttype, attlen);
+#endif
   
   if (atttype == CuChar) cuattlen = attlen + 1;
@@ -169 +186 @@
   if (cuattget(c->infileid, invarid, attname, attval) == -1) 
     ERROR("cuattget failed");
+
   if (atttype == CuChar) ((char *)attval)[attlen] = '\0';
   
@@ -252 +270 @@
     ERROR("cuvarinq failed");
   
+#if DEBUG>1
+  fprintf(stderr, "cuvarinq: invarid=%d, varname=%s, vartype=%d, nvdims=%d, "
+          "nvatts=%d\n", invarid, varname, vartype, nvdims, nvatts);
+#endif
+
+   if (nvdims == 0) { 
+     /* Error reported in define_variable() */
+     return;
+   }
 
   varlen = 1;