From 8e2eeef08627e608ccdb381e737ff7011227ad93 Mon Sep 17 00:00:00 2001 From: daminton Date: Wed, 5 Oct 2016 18:28:14 +0000 Subject: [PATCH] Updated calibrated count with better sandblasting criteria --- src/crater/crater_tally_calibrated_count.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/crater/crater_tally_calibrated_count.f90 b/src/crater/crater_tally_calibrated_count.f90 index 92c71bc3..5d74ff7a 100644 --- a/src/crater/crater_tally_calibrated_count.f90 +++ b/src/crater/crater_tally_calibrated_count.f90 @@ -66,6 +66,7 @@ subroutine crater_tally_calibrated_count(user,diameter,current_depth,original_de c = 8.0_DP d = -4.5_DP p = (Rsig - a * log(Rd)) / b - c * (diameter / user%pix)**d - 0.5_DP + if (Rd < 0.2_DP) p = 0.0_DP end select select case (user%mat)