Fixed bug

MintonGroup · Sep 14, 2019 · ce6fa10 · ce6fa10
1 parent bc564ce
commit ce6fa10
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/crater/module_crater.f90 b/src/crater/module_crater.f90
@@ -267,6 +267,7 @@ function crater_degradation_function(user,r) result(Kd)
       use module_globals
       type(usertype),intent(in) :: user
       real(DP),intent(in) :: r
+      real(DP) :: Kd
       end function crater_degradation_function
    end interface