Overhauled crater formation routine. All raised rims are now part of …

…the ejecta blanket
MintonGroup · Feb 9, 2017 · 20b60cf · 20b60cf
1 parent 18b78ae
commit 20b60cf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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