Mass conservation fixed

MintonGroup · Jan 21, 2017 · 7cd3e3f · 7cd3e3f
1 parent 329fdb0
commit 7cd3e3f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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