From bf2709c60a199ecb9610324f78cbd9f3c496265c Mon Sep 17 00:00:00 2001 From: daminton Date: Thu, 16 Feb 2017 19:16:13 +0000 Subject: [PATCH] Re-ordered slope collapse in order to smooth out rim/ejecta transition --- src/crater/crater_populate.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/crater/crater_populate.f90 b/src/crater/crater_populate.f90 index 5d4c2662..a04cc516 100644 --- a/src/crater/crater_populate.f90 +++ b/src/crater/crater_populate.f90 @@ -180,8 +180,6 @@ subroutine crater_populate(user,surf,crater,domain,prod,production_list,vdist,nt ! Place crater onto the surface call crater_emplace(user,surf,crater,domain,ejbmass) - ! Collapse any remaining unstable slopes - if (user%docollapse) call crater_slope_collapse(user,surf,crater,domain,ejbmass) call ejecta_distance_estimate(user,crater,domain,crater%ejdis) ! Fast but imprecise estimate of the total ejecta distance ! For very steep size distributions, only a fraction of the @@ -203,6 +201,8 @@ subroutine crater_populate(user,surf,crater,domain,prod,production_list,vdist,nt ejtble = 0 end if + ! Collapse any remaining unstable slopes + if (user%docollapse) call crater_slope_collapse(user,surf,crater,domain,ejbmass) ! Record crater in an available layer as long as it is above the cutoff call crater_record(user,surf,crater)