From ce6fa101a110f34185af443ab760f827eb8cd46d Mon Sep 17 00:00:00 2001 From: David Minton Date: Sun, 15 Sep 2019 01:07:52 +0200 Subject: [PATCH] Fixed bug --- src/crater/module_crater.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/crater/module_crater.f90 b/src/crater/module_crater.f90 index 1f6860b1..b96fb0dd 100644 --- 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