Merge branch 'debug' into IntelAdvisor

MintonGroup · Oct 15, 2021 · f953e0b · f953e0b
2 parents cc14fd5 + 0ab3f68
commit f953e0b
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))