New model for collapse to achieve initial morphology

MintonGroup · Dec 5, 2016 · 03eb6c2 · 03eb6c2
1 parent c3b1776
commit 03eb6c2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/crater/crater_form_exterior_func.f90 b/src/crater/crater_form_exterior_func.f90
@@ -45,7 +45,7 @@ function crater_form_exterior_func(user,surf,crater,domain,rd,deltaMtot,lastloop
    crater%maxinc = max(crater%maxinc,inc)
    incsq = inc**2
 
-   fradsq = crater%frad**2
+   fradsq = crater%rad**2
 
    deltaMp = 0.0_DP