Changeset 298 for IO_handling


Ignore:
Timestamp:
23/11/04 14:32:39 (15 years ago)
Author:
spascoe
Message:

Slight change to DEBUG status reporting.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IO_handling/trunk/ppio/cu2netcdf/cu2netcdf.c

    r297 r298  
    106106    ERROR("cudiminq failed"); 
    107107 
     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 
    108113  c->dimlens[indimid] = dimlen; 
    109114  if (dimtype != CuGlobalDim) ERROR("Only global dimensions supported"); 
    110115   
    111  
    112   /* Dump units to stderr until I decide what to do with it. */ 
    113   fprintf(stderr, "Dimension %s, units: %s\n", dimname, dimunits); 
    114116   
    115117#ifdef NC3   
     
    135137    ERROR("cuvarinq failed"); 
    136138   
     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  } 
    137149 
    138150  for (i = 0; i < nvdims; i++) outvdims[i] = c->dimid_map[invdims[i]]; 
     
    163175  if (cuattinq(c->infileid, invarid, attname, &atttype, &attlen) 
    164176      != 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 
    165182   
    166183  if (atttype == CuChar) cuattlen = attlen + 1; 
     
    169186  if (cuattget(c->infileid, invarid, attname, attval) == -1)  
    170187    ERROR("cuattget failed"); 
     188 
    171189  if (atttype == CuChar) ((char *)attval)[attlen] = '\0'; 
    172190   
     
    252270    ERROR("cuvarinq failed"); 
    253271   
     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   } 
    254281 
    255282  varlen = 1; 
Note: See TracChangeset for help on using the changeset viewer.