Updated calibrated count with better sandblasting criteria

MintonGroup · Oct 5, 2016 · 8e2eeef · 8e2eeef
1 parent 149099b
commit 8e2eeef
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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)