From 2c2b65553560c799e1c9f050c27d26960fa69d5c Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 15 Jul 2022 10:58:35 -0400 Subject: [PATCH] Check if the number of impactors in the subpixel diffusion step is bigger than the I8B maximum size. If so, skip, though it may be beneficial to let the user know they may need to truncate their production population. --- src/crater/crater_subpixel_diffusion.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/crater/crater_subpixel_diffusion.f90 b/src/crater/crater_subpixel_diffusion.f90 index f3c3e27e..fe8b2b30 100644 --- a/src/crater/crater_subpixel_diffusion.f90 +++ b/src/crater/crater_subpixel_diffusion.f90 @@ -94,6 +94,7 @@ subroutine crater_subpixel_diffusion(user,surf,nflux,domain,finterval,kdiffin) end if lambda = dN * domain%parea + if (lambda > 1.0_DP * huge(N)) cycle ! Too many impactors. ! Don't parallelize the random do j = 1,user%gridsize