From 93397b890492217e1f9592a03063e8ab5239c5ff Mon Sep 17 00:00:00 2001 From: David Minton Date: Sun, 15 Sep 2019 10:47:10 +0200 Subject: [PATCH] fixed bug --- src/crater/crater_subpixel_diffusion.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/crater/crater_subpixel_diffusion.f90 b/src/crater/crater_subpixel_diffusion.f90 index b03e608d..2a51a193 100644 --- a/src/crater/crater_subpixel_diffusion.f90 +++ b/src/crater/crater_subpixel_diffusion.f90 @@ -159,8 +159,7 @@ subroutine crater_subpixel_diffusion(user,surf,prod,nflux,domain,finterval,kdiff crater%continuous = RCONT * crater%frad**(EXPCONT) krad = fd * crater%frad - dKdN = user%Kd1 * crater%frad**(user%psi) - dKdN = crater_degradation_function(user,crater) + dKdN = crater_degradation_function(user,crater%frad) inc = int(krad / user%pix) + 2 incsq = inc**2