diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90 index 130c8ccaf..0c9b9bd94 100644 --- a/src/netcdf/netcdf.f90 +++ b/src/netcdf/netcdf.f90 @@ -310,11 +310,12 @@ module function netcdf_read_frame_base(self, iu, param) result(ierr) class(swiftest_base), intent(inout) :: self !! Swiftest base object class(netcdf_parameters), intent(inout) :: iu !! Parameters used to for writing a NetCDF dataset to file class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters + ! Returns + integer(I4B) :: ierr !! Error code: returns 0 if the read is successful ! Internals integer(I4B) :: i, j, tslot, strlen, idslot, idmax, n integer(I4B), dimension(:), allocatable :: ind character(len=:), allocatable :: charstring - integer(I4B) :: ierr !! Error code: returns 0 if the read is successful real(DP), dimension(:), allocatable :: real_temp logical, dimension(:), allocatable :: validmask, tpmask @@ -425,6 +426,8 @@ module function netcdf_read_frame_base(self, iu, param) result(ierr) call self%read_particle_info(iu) + ierr = 0 + return end function netcdf_read_frame_base