From 20b60cf6816fcdd142169c2962250579750df546 Mon Sep 17 00:00:00 2001
From: daminton <daminton@purdue.edu>
Date: Thu, 9 Feb 2017 18:55:00 +0000
Subject: [PATCH] Overhauled crater formation routine. All raised rims are now
 part of the ejecta blanket

---
 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 1ab689b8..a5433e04 100644
--- a/src/crater/module_crater.f90
+++ b/src/crater/module_crater.f90
@@ -120,14 +120,14 @@ end subroutine crater_form_interior
    end interface
 
    interface
-      subroutine crater_form_exterior(user,surfi,crater,domain,lradsq,newelev,deltaMi)
+      subroutine crater_form_exterior(user,surfi,crater,domain,lradsq,newelev,rimheight,deltaMi)
       use module_globals
       implicit none
       type(usertype),intent(in) :: user
       type(surftype),intent(inout) :: surfi
       type(cratertype),intent(in) :: crater
       type(domaintype),intent(in) :: domain
-      real(DP),intent(in) :: newelev,lradsq
+      real(DP),intent(in) :: newelev,lradsq,rimheight
       real(DP),intent(out) :: deltaMi
       end subroutine crater_form_exterior
    end interface