From 0716ae34a4280312bfa4beca463b1b0da1baf2ee Mon Sep 17 00:00:00 2001 From: daminton Date: Thu, 16 Feb 2017 19:17:01 +0000 Subject: [PATCH] changed critical slope routine slightly to use lrad instead of irad, though it is not currently being used. --- src/crater/module_crater.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/crater/module_crater.f90 b/src/crater/module_crater.f90 index a5433e04..b6af42c8 100644 --- a/src/crater/module_crater.f90 +++ b/src/crater/module_crater.f90 @@ -241,11 +241,11 @@ end subroutine crater_make_list end interface interface - function crater_critical_slope(user,crater,iradsq) result(critical) + function crater_critical_slope(user,crater,lrad) result(critical) use module_globals type(usertype),intent(in) :: user type(cratertype),intent(in) :: crater - integer(I4B),intent(in) :: iradsq + real(DP),intent(in) :: lrad real(DP) :: critical end function crater_critical_slope end interface