From 4efa637892220cb93b08ff91d3494f42c5d2a0a5 Mon Sep 17 00:00:00 2001 From: anand43 Date: Fri, 29 Sep 2023 07:26:31 -0400 Subject: [PATCH] fixed typo that was leading pl%aobl to not being allocated --- src/swiftest/swiftest_io.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/swiftest/swiftest_io.f90 b/src/swiftest/swiftest_io.f90 index 9dccfe128..5535758cd 100644 --- 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