Updated code to conserve mass by doing collapse stage before ejecta

MintonGroup · Feb 8, 2017 · ea3ea14 · ea3ea14
1 parent 774a0cc
commit ea3ea14
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/crater/module_crater.f90 b/src/crater/module_crater.f90
@@ -194,13 +194,14 @@ end subroutine crater_tally_observed
    end interface
 
    interface
-      subroutine crater_slope_collapse(user,surf,crater,domain)
+      subroutine crater_slope_collapse(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(in) :: domain
+      real(DP),intent(inout) :: deltaMtot
       end subroutine crater_slope_collapse
    end interface