cleaning up

MintonGroup · Dec 12, 2023 · e3a478e · e3a478e
1 parent c7efd68
commit e3a478e
Showing 1 changed file with 0 additions and 25 deletions.
diff --git a/src/swiftest/swiftest_drift.f90 b/src/swiftest/swiftest_drift.f90
@@ -207,12 +207,6 @@ pure subroutine swiftest_drift_dan(mu, rx0, ry0, rz0, vx0, vy0, vz0, dt0, iflag)
          end if
       end if
 
-      ! For debugging overflow error
-
-      ! if(r0 .ge. 11970204779.00) then
-      !    f = 1.0_DP
-      ! end if
-
       call swiftest_drift_kepu(dt, r0, mu, alpha, u, fp, c1, c2, c3, iflag)
       if (iflag == 0) then
          f = 1.0_DP - mu / r0 * c2
@@ -584,25 +578,6 @@ pure subroutine swiftest_drift_kepu_stumpff(x, c0, c1, c2, c3)
          end do
       end if
 
-      ! ! for debugging Floating overflow error
-
-      ! if (abs(c0) .ge. HUGE(0.0_DP)) then
-      !    xm = 0.1_DP ! "big c0"
-      ! end if
-
-      ! if (abs(c1) .ge. HUGE(0.0_DP)) then
-      !    xm = 0.1_DP ! "big c1"
-      ! end if
-
-      ! if (abs(c2) .ge. HUGE(0.0_DP)) then
-      !    xm = 0.1_DP ! "big c2"
-      ! end if
-
-      ! if (abs(c3) .ge. HUGE(0.0_DP)) then
-      !    xm = 0.1_DP ! "big c3"
-      ! end if
-
-
       return
    end subroutine swiftest_drift_kepu_stumpff