From 6592a7e6c0ef10df13a11adf9bedec809bee1405 Mon Sep 17 00:00:00 2001 From: anand43 Date: Thu, 8 Feb 2024 16:06:45 -0500 Subject: [PATCH] removed unnecessary step setting cb%c_lm to 0.0 --- src/swiftest/swiftest_io.f90 | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/src/swiftest/swiftest_io.f90 b/src/swiftest/swiftest_io.f90 index 7107c6be8..25608f6e8 100644 --- a/src/swiftest/swiftest_io.f90 +++ b/src/swiftest/swiftest_io.f90 @@ -3351,14 +3351,7 @@ module subroutine swiftest_io_read_in_system(self, nc, param) if (ierr /=0) call base_util_exit(FAILURE,param%display_unit) end if - param%lshgrav = allocated(self%cb%c_lm) !! .and. (size(self%cb%c_lm) /= 0) - - if(param%lshgrav) then - ! Replace elements of c_lm smaller than epsilon with 0.0 - WHERE (abs(self%cb%c_lm) < EPSILON(0.0_DP)) - self%cb%c_lm = 0.0_DP - END WHERE - end if + param%lshgrav = allocated(self%cb%c_lm) param%loblatecb = ((self%cb%j2rp2 /= 0.0_DP) .or. (self%cb%j4rp4 /= 0.0_DP)) .and. (.not. param%lshgrav) if (.not.param%loblatecb .and. .not.param%lshgrav) then