From 9a17ca3a8e2313a14320d6637b1a2159977428ea Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 7 Sep 2022 00:59:33 -0400 Subject: [PATCH] Fixed interface bug in NetCDF dimension renamer --- src/netcdf/netcdf.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90 index 615827455..070f5f5c0 100644 --- a/src/netcdf/netcdf.f90 +++ b/src/netcdf/netcdf.f90 @@ -395,7 +395,8 @@ 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_DIMNAME, self%str_dimid ) ) + write(str_dim_name,*) STR_DIMNAME + call check( nf90_rename_dim(self%ncid, self%str_dimid, str_dim_name) ) call check( nf90_inq_varid(self%ncid, TIME_DIMNAME, self%time_varid)) call check( nf90_inq_varid(self%ncid, ID_DIMNAME, self%id_varid))