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

Commit

Permalink
Header and variables are now read from the proper input files, not th…
Browse files Browse the repository at this point in the history
…e bin.nc file
  • Loading branch information
daminton committed Oct 15, 2021
1 parent 44f6911 commit 46860e7
Showing 1 changed file with 6 additions and 1 deletion.
7 changes: 6 additions & 1 deletion src/io/io.f90
Original file line number Diff line number Diff line change
Expand Up @@ -1378,9 +1378,14 @@ module subroutine io_read_in_system(self, param)
class(swiftest_parameters), intent(inout) :: param
! Internals
integer(I4B) :: ierr
class(swiftest_parameters), allocatable :: tmp_param

if ((param%in_type == NETCDF_DOUBLE_TYPE) .or. (param%in_type == NETCDF_FLOAT_TYPE)) then
ierr = self%read_frame(param%nciu, param)
allocate(tmp_param, source=param)
tmp_param%outfile = param%in_netcdf
tmp_param%out_form = param%in_form
ierr = self%read_frame(tmp_param%nciu, tmp_param)
deallocate(tmp_param)
if (ierr /=0) call util_exit(FAILURE)
else
call self%cb%read_in(param)
Expand Down

0 comments on commit 46860e7

Please sign in to comment.