changed critical slope routine slightly to use lrad instead of irad, …

…though it is not currently being used.
MintonGroup · Feb 16, 2017 · 0716ae3 · 0716ae3
1 parent bf2709c
commit 0716ae3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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