fixed typo that was leading pl%aobl to not being allocated

MintonGroup · Sep 29, 2023 · 4efa637 · 4efa637
1 parent 3ffd1a0
commit 4efa637
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/swiftest/swiftest_io.f90 b/src/swiftest/swiftest_io.f90
@@ -3338,7 +3338,7 @@ module subroutine swiftest_io_read_in_system(self, nc, param)
       param%lshgrav = allocated(self%cb%c_lm) !! .and. (size(self%cb%c_lm) /= 0) 
 
       param%loblatecb = ((self%cb%j2rp2 /= 0.0_DP) .or. (self%cb%j4rp4 /= 0.0_DP)) .and. (.not. param%lshgrav)
-      if (.not.param%loblatecb .or. .not.param%lshgrav) then
+      if (.not.param%loblatecb .and. .not.param%lshgrav) then
          if (allocated(self%pl%aobl)) deallocate(self%pl%aobl)
          if (allocated(self%tp%aobl)) deallocate(self%tp%aobl)
       else