add check ndims

scivision · scivision · commit fdfdf1456185 · 2021-12-22T02:30:54.000-05:00
diff --git a/src/read.f90 b/src/read.f90
@@ -17,6 +17,7 @@
 if(ierr/=NF90_NOERR) error stop 'nc4fortran:get_ndims: could not get variable ID for ' // dname
 
 ierr = nf90_inquire_variable(self%ncid, varid, ndims=drank)
+if(ierr/=NF90_NOERR) error stop 'nc4fortran:get_ndims: could not get rank for ' // dname
 
 end procedure get_ndims
 
