fix ejecta thickness issue

MintonGroup · Feb 23, 2022 · e7c6208 · e7c6208
1 parent d67a569
commit e7c6208
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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