Repaired interface

MintonGroup · Jul 23, 2021 · 0f99427 · 0f99427
1 parent ad644b0
commit 0f99427
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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