Commit e84649bc authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

partab: remove code and table

parent 5ac7cfcc
......@@ -136,10 +136,10 @@ void partab(FILE *fp, int vlistID, int option)
varname[0] = 0;
varlongname[0] = 0;
varunits[0] = 0;
code = vlistInqVarCode(vlistID, varID);
param = vlistInqVarParam(vlistID, varID);
tableID = vlistInqVarTable(vlistID, varID);
tabnum = tableInqNum(tableID);
// code = vlistInqVarCode(vlistID, varID);
// tableID = vlistInqVarTable(vlistID, varID);
// tabnum = tableInqNum(tableID);
missval = vlistInqVarMissval(vlistID, varID);
vlistInqVarName(vlistID, varID, varname);
/* printf("1>%s<\n", varname); */
......@@ -150,8 +150,8 @@ void partab(FILE *fp, int vlistID, int option)
vlistInqVarUnits(vlistID, varID, varunits);
fprintf(fp, " name=%s\n", varname);
if ( code > 0 ) fprintf(fp, " code=%d\n", code);
if ( tabnum > 0 ) fprintf(fp, " table=%d\n", tabnum);
// if ( code > 0 ) fprintf(fp, " code=%d\n", code);
// if ( tabnum > 0 ) fprintf(fp, " table=%d\n", tabnum);
if ( param >= 0 )
{
cdiParamToString(param, paramstr, sizeof(paramstr));
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment