removed unnecessary step setting cb%c_lm to 0.0

MintonGroup · Feb 8, 2024 · 6592a7e · 6592a7e
1 parent ba2ca2d
commit 6592a7e
Showing 1 changed file with 1 addition and 8 deletions.
diff --git 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