diff --git a/src/crater/module_crater.f90 b/src/crater/module_crater.f90 index e3038c0a..e8f7fb87 100644 --- a/src/crater/module_crater.f90 +++ b/src/crater/module_crater.f90 @@ -110,13 +110,13 @@ end subroutine crater_emplace end interface interface - subroutine crater_form_interior(user,surfi,crater,lradsq,newelev,deltaMi) + subroutine crater_form_interior(user,surfi,crater,x_relative, y_relative, newelev,deltaMi) use module_globals implicit none type(usertype),intent(in) :: user type(surftype),intent(inout) :: surfi type(cratertype),intent(in) :: crater - real(DP),intent(in) :: lradsq + real(DP),intent(in) :: x_relative, y_relative real(DP),intent(in) :: newelev real(DP),intent(out) :: deltaMi end subroutine crater_form_interior