diff --git a/src/crater/module_crater.f90 b/src/crater/module_crater.f90 index 9046783e..89e06b7f 100644 --- a/src/crater/module_crater.f90 +++ b/src/crater/module_crater.f90 @@ -95,14 +95,14 @@ end subroutine crater_averages end interface interface - subroutine crater_emplace(user,surf,crater,domain,ejbmass) + subroutine crater_emplace(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(inout) :: domain - real(DP),intent(in) :: ejbmass + real(DP),intent(out) :: deltaMtot end subroutine crater_emplace end interface