From ea3ea147893124535bbc9de93934abdc457c101d Mon Sep 17 00:00:00 2001
From: daminton <daminton@purdue.edu>
Date: Wed, 8 Feb 2017 14:58:04 +0000
Subject: [PATCH] Updated code to conserve mass by doing collapse stage before
 ejecta

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

diff --git a/src/crater/module_crater.f90 b/src/crater/module_crater.f90
index 755272f7..1ab689b8 100644
--- a/src/crater/module_crater.f90
+++ b/src/crater/module_crater.f90
@@ -194,13 +194,14 @@ end subroutine crater_tally_observed
    end interface
 
    interface
-      subroutine crater_slope_collapse(user,surf,crater,domain)
+      subroutine crater_slope_collapse(user,surf,crater,domain,deltaMtot)
       use module_globals
       implicit none
       type(usertype),intent(in) :: user
       type(surftype),dimension(:,:),intent(inout) :: surf
       type(cratertype),intent(inout) :: crater
       type(domaintype),intent(in) :: domain
+      real(DP),intent(inout) :: deltaMtot
       end subroutine crater_slope_collapse
    end interface