diff --git a/src/crater/module_crater.f90 b/src/crater/module_crater.f90 index 755272f7..1ab689b8 100644 --- a/src/crater/module_crater.f90 +++ b/src/crater/module_crater.f90 @@ -194,13 +194,14 @@ end subroutine crater_tally_observed end interface interface - subroutine crater_slope_collapse(user,surf,crater,domain) + subroutine crater_slope_collapse(user,surf,crater,domain,deltaMtot) use module_globals implicit none type(usertype),intent(in) :: user type(surftype),dimension(:,:),intent(inout) :: surf type(cratertype),intent(inout) :: crater type(domaintype),intent(in) :: domain + real(DP),intent(inout) :: deltaMtot end subroutine crater_slope_collapse end interface