From 2201b8bd7f9f303dfab6c0b15afc652be44010a9 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 7 Sep 2022 15:07:24 -0400 Subject: [PATCH] Fixed read only bug in NetCDF file. string dimension name is pulled from the old file on read --- src/netcdf/netcdf.f90 | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90 index 070f5f5c0..2e08296a0 100644 --- a/src/netcdf/netcdf.f90 +++ b/src/netcdf/netcdf.f90 @@ -395,8 +395,6 @@ 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) ) - 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)) @@ -491,7 +489,7 @@ end subroutine netcdf_open module function netcdf_read_frame_system(self, iu, param) result(ierr) !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! - !! Read a frame (header plus records for each massive body and active test particle) from a output binary file + !! Read a frame (header plus records for each massive body and active test particle) from an output binary file implicit none ! Arguments class(swiftest_nbody_system), intent(inout) :: self !! Swiftest system object