From cc14cface8e6d70d06b8e1c268284c133d1cbfb6 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 7 Sep 2022 00:27:39 -0400 Subject: [PATCH] Fixed argument in dimension rename --- src/netcdf/netcdf.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90 index 6e102d969..615827455 100644 --- 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))