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

Commit

Permalink
Same thing as before but with less code
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed Jan 5, 2023
1 parent 210e1e9 commit 96ab9f1
Showing 1 changed file with 2 additions and 3 deletions.
5 changes: 2 additions & 3 deletions src/swiftest/swiftest_io.f90
Original file line number Diff line number Diff line change
Expand Up @@ -1157,7 +1157,6 @@ module subroutine swiftest_io_netcdf_read_hdr_system(self, nc, param)
status = nf90_inq_varid(nc%id, nc%status_varname, nc%status_varid)
if (status == NF90_NOERR) then
call netcdf_io_check( nf90_get_var(nc%id, nc%status_varid, body_status, start=[1,tslot], count=[idmax,1]), "netcdf_io_read_hdr_system nf90_getvar status_varid" )
where(body_status(:) /= INACTIVE) body_status(:) = ACTIVE
else
body_status(:) = ACTIVE
end if
Expand All @@ -1167,8 +1166,8 @@ module subroutine swiftest_io_netcdf_read_hdr_system(self, nc, param)
plmask(1) = .false. ! This is the central body

! Select only active bodies
plmask(:) = plmask(:) .and. (body_status(:) == ACTIVE)
tpmask(:) = tpmask(:) .and. (body_status(:) == ACTIVE)
plmask(:) = plmask(:) .and. (body_status(:) /= INACTIVE)
tpmask(:) = tpmask(:) .and. (body_status(:) /= INACTIVE)

if (param%lmtiny_pl) then
where(plmask(:))
Expand Down

0 comments on commit 96ab9f1

Please sign in to comment.