added new function to compute critical slope angles inside new craters

MintonGroup · Nov 29, 2016 · cb00421 · cb00421
1 parent 928bced
commit cb00421
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/crater/module_crater.f90 b/src/crater/module_crater.f90
@@ -253,4 +253,14 @@ subroutine crater_make_list(domain,prod,ntotcrat,production_list)
       end subroutine crater_make_list
    end interface
 
+   interface
+      function crater_critical_slope(user,crater,iradsq) result(critical)
+      use module_globals
+      type(usertype),intent(in) :: user
+      type(cratertype),intent(in) :: crater
+      integer(I4B),intent(in) :: iradsq
+      real(DP) :: critical
+      end function crater_critical_slope
+   end interface
+
 end module