Fixed bug. r was in variable list instead of intent

MintonGroup · Sep 14, 2019 · 2a22ab6 · 2a22ab6
1 parent 27cec3f
commit 2a22ab6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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