From e7c62084faa16338bdda91190e4a281111a446d1 Mon Sep 17 00:00:00 2001 From: Jun Du Date: Wed, 23 Feb 2022 14:40:52 -0500 Subject: [PATCH] fix ejecta thickness issue --- 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 04dee3f2..8da930b2 100644 --- a/src/ejecta/ejecta_emplace.f90 +++ b/src/ejecta/ejecta_emplace.f90 @@ -296,7 +296,7 @@ subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,deltaMtot,age,age_r fmasscons = (-deltaMtot)/ ejbmass cumulative_elchange = cumulative_elchange * fmasscons crater%ejrim = crater%ejrim * fmasscons - ejb(:)%thick = ejb(:)%thick * fmasscons + ejb(:)%thick = ejb(:)%thick + log(fmasscons) maxhits = 1 ! Create box for soften calculation (will be no bigger than the grid itself) if (2 * inc + 1 < user%gridsize) then