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

vlistPrintKernel: change output format

parent e4acc853
......@@ -977,8 +977,8 @@ int vlistNtsteps(int vlistID)
return (int)vlistptr->ntsteps;
}
static void
vlistPrintKernel(vlist_t *vlistptr, FILE * fp )
static
void vlistPrintKernel(vlist_t *vlistptr, FILE *fp)
{
char paramstr[32];
......@@ -998,8 +998,8 @@ vlistPrintKernel(vlist_t *vlistptr, FILE * fp )
if ( nvars > 0 )
{
fprintf(fp, " varID param gridID zaxisID tsteptype flag "
" name longname iorank\n");
fprintf(fp, " varID param gridID zaxisID tsteptype flag iorank"
" name longname units\n");
for ( int varID = 0; varID < nvars; varID++ )
{
int param = vlistptr->vars[varID].param;
......@@ -1013,14 +1013,9 @@ vlistPrintKernel(vlist_t *vlistptr, FILE * fp )
int iorank = vlistptr->vars[varID].iorank;
cdiParamToString(param, paramstr, sizeof(paramstr));
fprintf(fp, "%6d %-8s %6d %6d %6d %5d %-8s"
" %s %6d",
varID, paramstr, gridID, zaxisID, tsteptype, flag,
name ? name : "", longname ? longname : "",
iorank);
if ( units ) fprintf(fp, " [%s]", units);
fputs("\n", fp);
fprintf(fp, "%6d %-8s %6d %6d %6d %5d %6d %-8s %s [%s]\n",
varID, paramstr, gridID, zaxisID, tsteptype, flag, iorank,
name?name:"", longname?longname:"", units?units:"");
}
fputs("\n"
......
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