pstreamDefVlist: unpack netCDF data if datatype = FLT64

ChangeLog

@@ -3,6 +3,7 @@
 
 	* using CDI library version 1.0.2
 	* Seltime: print warning message if parameter not found
+	* pstreamDefVlist: unpack netCDF data if datatype = FLT64
 	* Version 1.0.2 released
 
 2006-08-01  Uwe Schulzweida  <Uwe.Schulzweida@zmaw.de>
@@ -23,8 +24,8 @@
 	* gradsdes: fix bug for only one record without time [report: Angelika Heil]
 	* gradsdes: fix problem for variable names with - character
 	* namelist update
-	* New module: Setbox [Etienne Tourigny)
-	* history format changed to nco [Etienne Tourigny)
+	* New module: Setbox [Etienne Tourigny]
+	* history format changed to nco [Etienne Tourigny]
 	* process: set MAX_ARGS from 1024 to 8192
 	* Version 1.0.1 released
 

doc/tex/mod/Settime

@@ -122,15 +122,15 @@ INTEGER  Value of the new month
 @Item = year
 INTEGER  Value of the new year
 @Item = units
-STRING  Base units of the time axis (minutes, hours, days, months, years).
+STRING   Base units of the time axis (minutes, hours, days, months, years).
 @Item = date
-STRING  Date (format YYYY-MM-DD)
+STRING   Date (format YYYY-MM-DD)
 @Item = time
-STRING  Time (format HH:MM)
+STRING   Time (format HH:MM)
 @Item = inc
-STRING  Optional increment (e.g. 12hour) [default: 0hour]
+STRING   Optional increment (e.g. 12hour) [default: 0hour]
 @Item = calendar
-STRING  Calendar (standard, 360days, 365days, 366days)
+STRING   Calendar (standard, 360days, 365days, 366days)
 @Item = sval
 STRING   Shift value (e.g. -3hour)
 @EndParameter

src/pstream.c

@@ -789,8 +789,18 @@ void pstreamDefVlist(int pstreamID, int vlistID)
       if ( cdoDefaultDataType != CDI_UNDEFID )
 	{
 	  int varID, nvars = vlistNvars(vlistID);
+
 	  for ( varID = 0; varID < nvars; varID++ )
 	    vlistDefVarDatatype(vlistID, varID, cdoDefaultDataType);
+
+	  if ( cdoDefaultDataType == DATATYPE_FLT64 )
+	    {
+	      for ( varID = 0; varID < nvars; varID++ )
+		{
+		  vlistDefVarAddoffset(vlistID, varID, 0.0);
+		  vlistDefVarScalefactor(vlistID, varID, 1.0);
+		}
+	    }
 	}
       vlistDefAttribute(vlistID, "CDO", cdoComment());
       if ( cdoTimer ) timer_start(timer_write);