diff --git a/src/crater/crater_soften_accumulate.f90 b/src/crater/crater_soften_accumulate.f90 index 277c0c1d..82b6bc90 100644 --- 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