From 0ab3f687970d5ba1b30251c2597d3ff14dd0ac20 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 15 Oct 2021 11:12:03 -0400 Subject: [PATCH] Added dimension id inquiry steps so that the dimension ids are available when reading an old NetCDF file --- src/netcdf/netcdf.f90 | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90 index ce4959005..9f1fe580f 100644 --- 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))