Fixed mismatch with refactored argument

MintonGroup · Jul 23, 2021 · 92a72d9 · 92a72d9
1 parent ca6eb42
commit 92a72d9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git 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
@@ -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