Skip to content
Snippets Groups Projects
Commit 114bcc43 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

FileStream::def_vlist(): delete packing attribute if CdoDefault::DataType=CDI_DATATYPE_FLT

parent e0ea47f6
No related branches found
No related tags found
1 merge request!103M214003/develop
......@@ -157,15 +157,18 @@ FileStream::def_vlist(int p_vlistID)
{
auto nvars = vlistNvars(p_vlistID);
for (int varID = 0; varID < nvars; ++varID) vlistDefVarDatatype(p_vlistID, varID, CdoDefault::DataType);
for (int varID = 0; varID < nvars; ++varID)
if (CdoDefault::DataType == CDI_DATATYPE_FLT64 || CdoDefault::DataType == CDI_DATATYPE_FLT32)
{
double addoffset = 0.0, scalefactor = 1.0;
auto haveAddoffset = (cdiInqKeyFloat(p_vlistID, varID, CDI_KEY_ADDOFFSET, &addoffset) == CDI_NOERR);
auto haveScalefactor = (cdiInqKeyFloat(p_vlistID, varID, CDI_KEY_SCALEFACTOR, &scalefactor) == CDI_NOERR);
if (haveAddoffset || haveScalefactor)
for (int varID = 0; varID < nvars; ++varID)
{
cdiDeleteKey(p_vlistID, varID, CDI_KEY_ADDOFFSET);
cdiDeleteKey(p_vlistID, varID, CDI_KEY_SCALEFACTOR);
double addoffset = 0.0, scalefactor = 1.0;
auto haveAddoffset = (cdiInqKeyFloat(p_vlistID, varID, CDI_KEY_ADDOFFSET, &addoffset) == CDI_NOERR);
auto haveScalefactor = (cdiInqKeyFloat(p_vlistID, varID, CDI_KEY_SCALEFACTOR, &scalefactor) == CDI_NOERR);
if (haveAddoffset || haveScalefactor)
{
cdiDeleteKey(p_vlistID, varID, CDI_KEY_ADDOFFSET);
cdiDeleteKey(p_vlistID, varID, CDI_KEY_SCALEFACTOR);
}
}
}
}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment