Fixed bug in crater_soften_accumulate that prevents soften accumulation

MintonGroup · Feb 27, 2017 · cfcfd80 · cfcfd80
1 parent d382a02
commit cfcfd80
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/crater/crater_soften_accumulate.f90 b/src/crater/crater_soften_accumulate.f90
@@ -99,7 +99,7 @@ subroutine crater_soften_accumulate(user,surf,crater,domain,kdiff)
 
             if (.not.hit(xpi,ypi)) then 
                kdiff(xpi,ypi) = kdiff(xpi,ypi) + kappatmax * areafrac 
-               hit = .true.
+               hit(xpi,ypi) = .true.
             end if
 
          end if