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

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

diff --git a/src/ejecta/module_ejecta.f90 b/src/ejecta/module_ejecta.f90
index 83c4ada7..60b9ecf0 100644
--- a/src/ejecta/module_ejecta.f90
+++ b/src/ejecta/module_ejecta.f90
@@ -25,7 +25,7 @@ module module_ejecta
 save
 
    interface
-      subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,ejbmass)
+      subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,deltaMtot)
       use module_globals
       implicit none
       type(usertype),intent(in) :: user
@@ -34,7 +34,7 @@ subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,ejbmass)
       type(domaintype),intent(in) :: domain
       integer(I4B),intent(in) :: ejtble
       type(ejbtype),dimension(ejtble),intent(in)   :: ejb
-      real(DP),intent(out) :: ejbmass
+      real(DP),intent(in) :: deltaMtot
       end subroutine ejecta_emplace
    end interface