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