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

added number type to ext output

parent 768fba80
...@@ -209,9 +209,9 @@ int extDefRecord(int streamID) ...@@ -209,9 +209,9 @@ int extDefRecord(int streamID)
stream_check_ptr(func, streamptr); stream_check_ptr(func, streamptr);
fileID = streamInqFileID(streamID); fileID = streamInqFileID(streamID);
gridID = streamptr->record->gridID; gridID = streamptr->record->gridID;
extp = streamptr->record->extp; extp = streamptr->record->extp;
cdiDecodeParam(streamptr->record->param, &pnum, &pcat, &pdis); cdiDecodeParam(streamptr->record->param, &pnum, &pcat, &pdis);
header[0] = streamptr->record->date; header[0] = streamptr->record->date;
...@@ -219,7 +219,8 @@ int extDefRecord(int streamID) ...@@ -219,7 +219,8 @@ int extDefRecord(int streamID)
header[2] = streamptr->record->level; header[2] = streamptr->record->level;
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);
...@@ -973,7 +974,8 @@ void extWriteVarDP(int streamID, int varID, const double *data) ...@@ -973,7 +974,8 @@ void extWriteVarDP(int streamID, int varID, const double *data)
header[1] = pnum; header[1] = pnum;
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++ )
{ {
...@@ -1021,7 +1023,8 @@ void extWriteVarSliceDP(int streamID, int varID, int levID, const double *data) ...@@ -1021,7 +1023,8 @@ void extWriteVarSliceDP(int streamID, int varID, int levID, const double *data)
header[2] = (int) level; header[2] = (int) level;
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