Added new user input that allows you to truncate the ejecta blanket a…

…t a specific radius
MintonGroup · Feb 9, 2017 · 87be35c · 87be35c
1 parent c110cd7
commit 87be35c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ejecta/ejecta_distance_estimate.f90 b/src/ejecta/ejecta_distance_estimate.f90
@@ -61,7 +61,7 @@ subroutine ejecta_distance_estimate(user,crater,domain,ejdis_estimate)
    ! Extrapolate in logspace out to the minimum thickness
    slope = log(lrad2 / lrad1) / log(thick2 / thick1)
    ejdis_estimate = exp(slope * log(domain%small / thick1) + log(lrad1))
-   ejdis_estimate = min(ejdis_estimate, crater%fcrat * user%ejecta_truncation)
+   ejdis_estimate = min(ejdis_estimate, crater%frad * user%ejecta_truncation)
 
    return
 end subroutine ejecta_distance_estimate