workaround for Unidata/netcdf-c#1691 in netcdf 4.7.4

Alexander-Barth · Dec 2, 2020 · 4093656 · 4093656 · Alexander-Barth · Dec 2, 2020
1 parent efd3ef3
commit 4093656
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/src/netcdf_c.jl b/src/netcdf_c.jl
@@ -938,9 +938,17 @@ function nc_inq_var_deflate(ncid::Integer,varid::Integer)
     deflatep = Ref(Cint(0))
     deflate_levelp = Ref(Cint(0))
 
-    check(ccall((:nc_inq_var_deflate,libnetcdf),Cint,(Cint,Cint,Ptr{Cint},Ptr{Cint},Ptr{Cint}),ncid,varid,shufflep,deflatep,deflate_levelp))
+    ncerr = ccall((:nc_inq_var_deflate,libnetcdf),Cint,(Cint,Cint,Ptr{Cint},Ptr{Cint},Ptr{Cint}),ncid,varid,shufflep,deflatep,deflate_levelp)
+
+    if ncerr == NC_ENOTNC4
+       # work-around for netcdf 4.7.4
+       # https://github.com/Unidata/netcdf-c/issues/1691
+       return false, false, Cint(0)
+    else
+       check(ncerr)
+       return shufflep[] == 1, deflatep[] == 1, deflate_levelp[]
+    end
 
-    return shufflep[] == 1, deflatep[] == 1, deflate_levelp[]
 end
 
 # function nc_inq_var_szip(ncid::Integer,varid::Integer,options_maskp,pixels_per_blockp)