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

Arithdays: use VarList.

parent edb64345
......@@ -98,6 +98,9 @@ Arithdays(void *process)
const auto streamID2 = cdoOpenWrite(1);
cdoDefVlist(streamID2, vlistID2);
VarList varList1;
varListInit(varList1, vlistID1);
const auto gridsizemax = vlistGridsizeMax(vlistID1);
Field field;
......@@ -126,9 +129,9 @@ Arithdays(void *process)
cdoInqRecord(streamID1, &varID, &levelID);
cdoReadRecord(streamID1,, &field.nmiss);
field.grid = vlistInqVarGrid(vlistID1, varID);
field.missval = vlistInqVarMissval(vlistID1, varID);
field.size = varList1[varID].gridsize;
field.grid = varList1[varID].gridID;
field.missval = varList1[varID].missval;
vfarcfun(field, rconst, operfunc);
Markdown is supported
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