From d71423b002723a9ae369f35ab502a98c13ada742 Mon Sep 17 00:00:00 2001 From: David Minton Date: Mon, 24 May 2021 09:52:02 -0400 Subject: [PATCH] Removed obsolete eucl_threshold --- src/modules/user.f90 | 1 - src/user/user_udio_writer.f90 | 1 - 2 files changed, 2 deletions(-) diff --git a/src/modules/user.f90 b/src/modules/user.f90 index b5d37968a..60a531c7d 100644 --- a/src/modules/user.f90 +++ b/src/modules/user.f90 @@ -35,7 +35,6 @@ module user real(DP) :: MU2KG = -1.0_DP !! Converts mass units to grams real(DP) :: TU2S = -1.0_DP !! Converts time units to seconds real(DP) :: DU2M = -1.0_DP !! Converts distance unit to centimeters - integer(I8B) :: EUCL_THRESHOLD = 1000000 !! Threshold comparison number to switch over to use eucl functions !Logical flags to turn on or off various features of the code diff --git a/src/user/user_udio_writer.f90 b/src/user/user_udio_writer.f90 index 15292bf79..064b589e1 100644 --- a/src/user/user_udio_writer.f90 +++ b/src/user/user_udio_writer.f90 @@ -83,7 +83,6 @@ write(unit, Lfmt) "RHILL_PRESENT",param%lrhill_present write(unit, Lfmt) "CHK_CLOSE",param%lclose write(unit, Lfmt) "FRAGMENTATION", param%lfragmentation - write(unit, Ifmt) "EUCL_THRESHOLD", param%eucl_threshold write(unit, Lfmt) "ENERGY", param%lenergy write(unit, Lfmt) "ROTATION", param%lrotation write(unit, Lfmt) "TIDES", param%ltides