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

Commit

Permalink
Fixed issue that was causing binary particle files to be written even…
Browse files Browse the repository at this point in the history
… in NetCDF output mode
  • Loading branch information
daminton committed Oct 14, 2021
1 parent 1a7d37a commit b22c205
Showing 1 changed file with 3 additions and 4 deletions.
7 changes: 3 additions & 4 deletions src/io/io.f90
Original file line number Diff line number Diff line change
Expand Up @@ -164,7 +164,7 @@ module subroutine io_dump_particle_info_base(self, param, idx)
integer(I4B) :: i
character(STRMAX) :: errmsg

!if ((param%out_type == REAL4_TYPE) .or. (param%out_type == REAL8_TYPE)) then
if ((param%out_type == REAL4_TYPE) .or. (param%out_type == REAL8_TYPE)) then
if (lfirst) then
select case(param%out_stat)
case('APPEND')
Expand Down Expand Up @@ -200,15 +200,14 @@ module subroutine io_dump_particle_info_base(self, param, idx)
end select

close(unit = LUN, err = 667, iomsg = errmsg)
!else if ((param%out_type == NETCDF_FLOAT_TYPE) .or. (param%out_type == NETCDF_DOUBLE_TYPE)) then
if ((param%out_type == NETCDF_FLOAT_TYPE) .or. (param%out_type == NETCDF_DOUBLE_TYPE)) then
else if ((param%out_type == NETCDF_FLOAT_TYPE) .or. (param%out_type == NETCDF_DOUBLE_TYPE)) then
call self%write_particle_info(param%nciu)
end if

return

667 continue
write(*,*) "Error reading particle information file: " // trim(adjustl(errmsg))
write(*,*) "Error writing particle information file: " // trim(adjustl(errmsg))
call util_exit(FAILURE)
end subroutine io_dump_particle_info_base

Expand Down

0 comments on commit b22c205

Please sign in to comment.