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