From 6a8e04d3daf4ea95a8f661e9af0006b96533b6c5 Mon Sep 17 00:00:00 2001 From: David Minton Date: Mon, 24 May 2021 09:52:34 -0400 Subject: [PATCH] Removed obsolete eucl_threshold --- src/user/user_read_param_in.f90 | 1 - src/user/user_udio_reader.f90 | 2 -- 2 files changed, 3 deletions(-) diff --git a/src/user/user_read_param_in.f90 b/src/user/user_read_param_in.f90 index 716da1355..915feb47b 100644 --- a/src/user/user_read_param_in.f90 +++ b/src/user/user_read_param_in.f90 @@ -67,7 +67,6 @@ write(*,*) "EXTRA_FORCE = ",param%lextra_force write(*,*) "BIG_DISCARD = ",param%lbig_discard write(*,*) "RHILL_PRESENT = ",param%lrhill_present - write(*,*) "EUCL_THRESHOLD = ", param%eucl_threshold ierr = 0 ! Added by D. Minton diff --git a/src/user/user_udio_reader.f90 b/src/user/user_udio_reader.f90 index c58582094..54d35fa58 100644 --- a/src/user/user_udio_reader.f90 +++ b/src/user/user_udio_reader.f90 @@ -120,8 +120,6 @@ case ("ENERGY") call util_toupper(param_value) if (param_value == "YES" .or. param_value == 'T') param%lenergy = .true. - case ("EUCL_THRESHOLD") - read(param_value, *) param%eucl_threshold case ("ROTATION") call util_toupper(param_value) if (param_value == "YES" .or. param_value == 'T') param%lrotation = .true.