From a33cf1945b261953cd8399b1e695c522a59a9043 Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Fri, 17 Nov 2023 13:45:36 -0500 Subject: [PATCH] Changed parameters to be closer to Guo et al. (2018) ray generation --- src/ejecta/ejecta_emplace.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ejecta/ejecta_emplace.f90 b/src/ejecta/ejecta_emplace.f90 index ca748f8c..5e6de56c 100644 --- a/src/ejecta/ejecta_emplace.f90 +++ b/src/ejecta/ejecta_emplace.f90 @@ -110,7 +110,7 @@ subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,deltaMtot,cumulativ character(len=MESSAGESIZE) :: message ! message for the progress bar real(DP) :: vmelt, totmelt, volm real(DP) :: frayreduction = 0.5_DP ! Factor to apply to reduce the relative thickness of the ray for each subsequent pattern - integer(I4B), parameter :: Npatt = 10 ! Number of times to call ray pattern + integer(I4B), parameter :: Npatt = 8 ! Number of times to call ray pattern