From 0f994275135864f7985b33e0bfe869d25fce8984 Mon Sep 17 00:00:00 2001
From: David Minton <daminton@purdue.edu>
Date: Fri, 23 Jul 2021 14:18:53 -0400
Subject: [PATCH] Repaired interface

---
 src/crater/module_crater.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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