Fixed argument in dimension rename

MintonGroup · Sep 7, 2022 · cc14cfa · cc14cfa
1 parent b9a560f
commit cc14cfa
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90
@@ -395,7 +395,7 @@ module subroutine netcdf_open(self, param, readonly)
       call check( nf90_inq_dimid(self%ncid, ID_DIMNAME, self%id_dimid) )
       call check( nf90_inquire_dimension(self%ncid, max(self%time_dimid,self%id_dimid)+1, name=str_dim_name) )
       call check( nf90_inq_dimid(self%ncid, str_dim_name, self%str_dimid) )
-      if (str_dim_name /= "str") call check( nf90_rename_dim(self%ncid, str_dim_name, STR_DIMNAME) )
+      if (str_dim_name /= "str") call check( nf90_rename_dim(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))