From a28a064db801f86eba8081c30f1c9370daf48dfd Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 10 Mar 2023 15:30:02 -0500 Subject: [PATCH] Got rid of unnecessary array assignment for when there are not semi-interacting bodies --- src/swiftest/swiftest_io.f90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/swiftest/swiftest_io.f90 b/src/swiftest/swiftest_io.f90 index 9406e44c2..32f722a7b 100644 --- a/src/swiftest/swiftest_io.f90 +++ b/src/swiftest/swiftest_io.f90 @@ -1267,8 +1267,6 @@ module subroutine swiftest_io_netcdf_read_hdr_system(self, nc, param) call netcdf_io_check( nf90_get_var(nc%id, nc%Gmass_varid, Gmtemp, start=[1,tslot], count=[idmax,1]), "netcdf_io_read_hdr_system nf90_getvar Gmass_varid" ) where(Gmtemp(:) /= Gmtemp(:)) Gmtemp(:) = 0.0_DP plmmask(:) = plmask(:) .and. Gmtemp(:) > param%GMTINY - else - plmmask(:) = plmask(:) end if status = nf90_inq_varid(nc%id, nc%npl_varname, nc%npl_varid)