diff --git a/src/ejecta/CTEM_debug.code-workspace b/src/ejecta/CTEM_debug.code-workspace deleted file mode 100644 index 7cc6eb86..00000000 --- a/src/ejecta/CTEM_debug.code-workspace +++ /dev/null @@ -1,8 +0,0 @@ -{ - "folders": [ - { - "path": "../.." - } - ], - "settings": {} -} \ No newline at end of file diff --git a/src/ejecta/ejecta_emplace.f90 b/src/ejecta/ejecta_emplace.f90 index 1539bba7..4635e64f 100644 --- a/src/ejecta/ejecta_emplace.f90 +++ b/src/ejecta/ejecta_emplace.f90 @@ -144,7 +144,7 @@ subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,deltaMtot,age,age_r inc = ceiling(inc * 1.5_DP) krad = user%ejecta_truncation * crater%frad dradsq = int(krad / user%pix) + 3 - inc = max(inc,dradsq) + inc = min(nint(PI * user%trad / user%pix),max(inc,dradsq)) ! Ensure that the ejecta doesn't get any bigger than the surface can accomodate dradsq = dradsq**2 if (user%dosoftening) kdiffmax = crater_degradation_function(user,crater%frad)