fixed bug

MintonGroup · Sep 15, 2019 · 93397b8 · 93397b8
1 parent 29e3874
commit 93397b8
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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