From 92a72d9648df8e11af9a877d6f6b4d7b4ea579b8 Mon Sep 17 00:00:00 2001
From: David Minton <daminton@purdue.edu>
Date: Fri, 23 Jul 2021 14:31:08 -0400
Subject: [PATCH] Fixed mismatch with refactored argument

---
 src/ejecta/ejecta_emplace.f90 | 3 +--
 src/ejecta/module_ejecta.f90  | 3 +--
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/ejecta/ejecta_emplace.f90 b/src/ejecta/ejecta_emplace.f90
index 7c45ddbd..4b6dbf8a 100644
--- a/src/ejecta/ejecta_emplace.f90
+++ b/src/ejecta/ejecta_emplace.f90
@@ -75,7 +75,7 @@
 !                The cutoff of ejecta thickness is still buggy.  
 !
 !**********************************************************************************************************************************
-subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,deltaMtot,ejbmass,age,age_resolution)
+subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,deltaMtot,age,age_resolution)
    use module_globals
    use module_util
    use module_io
@@ -92,7 +92,6 @@ subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,deltaMtot,ejbmass,a
    integer(I4B),intent(in) :: ejtble
    type(ejbtype),dimension(ejtble),intent(in)    :: ejb
    real(DP),intent(in) :: deltaMtot
-   real(DP),intent(out) :: ejbmass
    real(DP),intent(in)  :: age
    real(DP),intent(in)  :: age_resolution
 
diff --git a/src/ejecta/module_ejecta.f90 b/src/ejecta/module_ejecta.f90
index 5d17dd9f..1e380591 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,deltaMtot,ejbmass,age,age_resolution)
+      subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,deltaMtot,age,age_resolution)
       use module_globals
       implicit none
       type(usertype),intent(in) :: user
@@ -35,7 +35,6 @@ subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,deltaMtot,ejbmass,a
       integer(I4B),intent(in) :: ejtble
       type(ejbtype),dimension(ejtble),intent(in)   :: ejb
       real(DP),intent(in) :: deltaMtot
-      real(DP),intent(out) :: ejbmass
       real(DP),intent(in)  :: age
       real(DP),intent(in)  :: age_resolution
       end subroutine ejecta_emplace