Added dimension id inquiry steps so that the dimension ids are availa…

…ble when reading an old NetCDF file
MintonGroup · Oct 15, 2021 · 0ab3f68 · 0ab3f68
1 parent 46860e7
commit 0ab3f68
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90
@@ -302,6 +302,10 @@ module subroutine netcdf_open(self, param)
 
       call check( nf90_open(param%outfile, NF90_WRITE, self%ncid) )
 
+      call check( nf90_inq_dimid(self%ncid, TIME_DIMNAME, self%time_dimid) )
+      call check( nf90_inq_dimid(self%ncid, ID_DIMNAME, self%id_dimid) )
+      call check( nf90_inq_dimid(self%ncid, STR_DIMNAME, self%str_dimid) )
+
       call check( nf90_inq_varid(self%ncid, TIME_DIMNAME, self%time_varid))
       call check( nf90_inq_varid(self%ncid, ID_DIMNAME, self%id_varid))
       call check( nf90_inq_varid(self%ncid, NPL_VARNAME, self%npl_varid))