diff --git a/src/porosity/module_porosity.f90 b/src/porosity/module_porosity.f90
index 77c5f628..9f4b3013 100644
--- a/src/porosity/module_porosity.f90
+++ b/src/porosity/module_porosity.f90
@@ -18,13 +18,13 @@ module module_porosity
 save
 
    interface
-      subroutine porosity_form_interior(user,surfi,crater,elchange,lradsq,newelev)
+      subroutine porosity_form_interior(user, surfi, crater, lradsq)
       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,elchange,newelev
+		type(usertype),intent(in)    :: user
+		type(surftype),intent(inout) :: surfi
+		type(cratertype),intent(in)  :: crater
+		real(DP),intent(in)          :: lradsq
       end subroutine porosity_form_interior
    end interface