stream_ieg: multiply pressure levels with 100

ChangeLog

@@ -2,6 +2,7 @@
 
 	* using GRIB library version 1.0.0
 	* rename *New functions to *Create
+	* stream_ieg: multiply pressure levels with 100 (report: Holger Goettel)
         * add dummy functions gridDestroy, zaxisDestroy, taxisDestroy
 	* Version 1.0.0 released
 

src/stream_ieg.c

@@ -605,6 +605,7 @@ void iegAddRecord(int streamID, int code, int *pdb, int *gdb, double *vct,
     {
       level1 = IEG_P_Level2(pdb);
       level2 = 0;
+      if ( IEG_P_LevelType(pdb) == 100 ) level1 *= 100;
     }
   /*
   fprintf(stderr, "%d %d %d %d\n", code, IEG_P_LevelType(pdb), IEG_P_Level1(pdb), IEG_P_Level2(pdb));
@@ -780,6 +781,8 @@ void iegScanTimestep1(int streamID)
       else
 	rlevel = IEG_P_Level2(iegp->ipdb);
 
+      if ( IEG_P_LevelType(iegp->ipdb) == 100 ) rlevel *= 100;
+
       iegDateTime(iegp->ipdb, &vdate, &vtime);
 
       if ( nrecs == 0 )
@@ -929,6 +932,8 @@ int iegScanTimestep2(int streamID)
       else
 	rlevel = IEG_P_Level2(iegp->ipdb);
 
+      if ( IEG_P_LevelType(iegp->ipdb) == 100 ) rlevel *= 100;
+
       iegDateTime(iegp->ipdb, &vdate, &vtime);
 
       if ( rindex == 0 )
@@ -1103,6 +1108,8 @@ int iegScanTimestep(int streamID)
 	  else
 	    rlevel = IEG_P_Level2(iegp->ipdb);
 
+	  if ( IEG_P_LevelType(iegp->ipdb) == 100 ) rlevel *= 100;
+
 	  iegDateTime(iegp->ipdb, &vdate, &vtime);
 
 	  if ( rindex == nrecs ) break;