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

added number type to ext output

parent 768fba80
...@@ -220,6 +220,7 @@ int extDefRecord(int streamID) ...@@ -220,6 +220,7 @@ int extDefRecord(int streamID)
header[3] = gridInqSize(gridID); header[3] = gridInqSize(gridID);
extp->prec = extDefDatatype(streamptr->record->prec); extp->prec = extDefDatatype(streamptr->record->prec);
extp->number = streamptr->record->number;
extDefHeader(extp, header); extDefHeader(extp, header);
...@@ -974,6 +975,7 @@ void extWriteVarDP(int streamID, int varID, const double *data) ...@@ -974,6 +975,7 @@ void extWriteVarDP(int streamID, int varID, const double *data)
header[3] = gridInqSize(gridID); header[3] = gridInqSize(gridID);
extp->prec = extDefDatatype(vlistInqVarDatatype(vlistID, varID)); extp->prec = extDefDatatype(vlistInqVarDatatype(vlistID, varID));
extp->number = vlistInqVarNumber(vlistID, varID);
for ( levID = 0; levID < nlevs; levID++ ) for ( levID = 0; levID < nlevs; levID++ )
{ {
...@@ -1022,6 +1024,7 @@ void extWriteVarSliceDP(int streamID, int varID, int levID, const double *data) ...@@ -1022,6 +1024,7 @@ void extWriteVarSliceDP(int streamID, int varID, int levID, const double *data)
header[3] = gridInqSize(gridID); header[3] = gridInqSize(gridID);
extp->prec = extDefDatatype(vlistInqVarDatatype(vlistID, varID)); extp->prec = extDefDatatype(vlistInqVarDatatype(vlistID, varID));
extp->number = vlistInqVarNumber(vlistID, varID);
extDefHeader(extp, header); extDefHeader(extp, header);
extDefDataDP(extp, data); extDefDataDP(extp, data);
......
...@@ -120,6 +120,7 @@ typedef struct ...@@ -120,6 +120,7 @@ typedef struct
int levelID; int levelID;
int recid; int recid;
int prec; int prec;
int number;
int sec0[2]; int sec0[2];
int sec1[1024]; int sec1[1024];
int sec2[4096]; int sec2[4096];
......
...@@ -239,6 +239,7 @@ void streamDefRecord(int streamID, int varID, int levelID) ...@@ -239,6 +239,7 @@ void streamDefRecord(int streamID, int varID, int levelID)
streamptr->record->gridID = gridID; streamptr->record->gridID = gridID;
streamptr->record->zaxisID = zaxisID; streamptr->record->zaxisID = zaxisID;
streamptr->record->prec = vlistInqVarDatatype(vlistID, varID); streamptr->record->prec = vlistInqVarDatatype(vlistID, varID);
streamptr->record->number = vlistInqVarNumber(vlistID, varID);
filetype = streamptr->filetype; filetype = streamptr->filetype;
......
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