Mass conservation fixed

MintonGroup · Jan 21, 2017 · 3288c92 · 3288c92
1 parent dc39bf0
commit 3288c92
Showing 1 changed file with 2 additions and 2 deletions.
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,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