From 2a22ab6200f2a3ffffdb36c4c2ea6af34264bb57 Mon Sep 17 00:00:00 2001 From: David Minton Date: Sun, 15 Sep 2019 01:11:00 +0200 Subject: [PATCH] Fixed bug. r was in variable list instead of intent --- src/crater/crater_degradation_function.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/crater/crater_degradation_function.f90 b/src/crater/crater_degradation_function.f90 index c885159f..286a078e 100644 --- a/src/crater/crater_degradation_function.f90 +++ b/src/crater/crater_degradation_function.f90 @@ -26,7 +26,7 @@ function crater_degradation_function(user,r) result(Kd) type(usertype),intent(in) :: user real(DP),intent(in) :: r real(DP) :: Kd - real(DP) :: A,r_break,alpha_1,alpha_2,delta,r + real(DP) :: A,r_break,alpha_1,alpha_2,delta ! Testing values that match both mare scale and highlands scale alpha_1 = user%psi