added number type to ext output

src/stream_ext.c

@@ -220,6 +220,7 @@ int extDefRecord(int streamID)
   header[3] = gridInqSize(gridID);
 
   extp->prec   = extDefDatatype(streamptr->record->prec);
+  extp->number = streamptr->record->number;
 
   extDefHeader(extp, header);
 
@@ -974,6 +975,7 @@ void extWriteVarDP(int streamID, int varID, const double *data)
   header[3] = gridInqSize(gridID);
 
   extp->prec   = extDefDatatype(vlistInqVarDatatype(vlistID, varID));
+  extp->number = vlistInqVarNumber(vlistID, varID);
 
   for ( levID = 0;  levID < nlevs; levID++ )
     {
@@ -1022,6 +1024,7 @@ void extWriteVarSliceDP(int streamID, int varID, int levID, const double *data)
   header[3] = gridInqSize(gridID);
 
   extp->prec   = extDefDatatype(vlistInqVarDatatype(vlistID, varID));
+  extp->number = vlistInqVarNumber(vlistID, varID);
 
   extDefHeader(extp, header);
   extDefDataDP(extp, data);

src/stream_int.h

@@ -120,6 +120,7 @@ typedef struct
   int       levelID;
   int       recid;
   int       prec;
+  int       number;
   int       sec0[2];
   int       sec1[1024];
   int       sec2[4096];

src/stream_record.c

@@ -239,6 +239,7 @@ void streamDefRecord(int streamID, int varID, int levelID)
   streamptr->record->gridID   = gridID;
   streamptr->record->zaxisID  = zaxisID;
   streamptr->record->prec     = vlistInqVarDatatype(vlistID, varID);
+  streamptr->record->number   = vlistInqVarNumber(vlistID, varID);
 
   filetype = streamptr->filetype;