diff --git a/src/ejecta/module_ejecta.f90 b/src/ejecta/module_ejecta.f90 index 83c4ada7..60b9ecf0 100644 --- a/src/ejecta/module_ejecta.f90 +++ b/src/ejecta/module_ejecta.f90 @@ -25,7 +25,7 @@ module module_ejecta save interface - subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,ejbmass) + subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,deltaMtot) use module_globals implicit none type(usertype),intent(in) :: user @@ -34,7 +34,7 @@ subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,ejbmass) type(domaintype),intent(in) :: domain integer(I4B),intent(in) :: ejtble type(ejbtype),dimension(ejtble),intent(in) :: ejb - real(DP),intent(out) :: ejbmass + real(DP),intent(in) :: deltaMtot end subroutine ejecta_emplace end interface