Skip to content
This repository was archived by the owner on Aug 28, 2024. It is now read-only.

Commit

Permalink
set ierr = 0 in netcdf_read_frame_base
Browse files Browse the repository at this point in the history
  • Loading branch information
cwishard committed Sep 29, 2021
1 parent c0125cf commit 11f809e
Showing 1 changed file with 4 additions and 1 deletion.
5 changes: 4 additions & 1 deletion src/netcdf/netcdf.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down Expand Up @@ -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
Expand Down

0 comments on commit 11f809e

Please sign in to comment.