From 7cd3e3f40c29fd60ea1d9be42944ad872c4061ab Mon Sep 17 00:00:00 2001
From: daminton <daminton@purdue.edu>
Date: Sat, 21 Jan 2017 01:14:16 +0000
Subject: [PATCH] Mass conservation fixed

---
 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 9046783e..89e06b7f 100644
--- a/src/crater/module_crater.f90
+++ b/src/crater/module_crater.f90
@@ -95,14 +95,14 @@ end subroutine crater_averages
    end interface
 
    interface
-      subroutine crater_emplace(user,surf,crater,domain,ejbmass)
+      subroutine crater_emplace(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(inout) :: domain
-      real(DP),intent(in) :: ejbmass
+      real(DP),intent(out) :: deltaMtot
       end subroutine crater_emplace
    end interface