From 03eb6c291c6a2dd1210c6efbdb178e88417e8288 Mon Sep 17 00:00:00 2001 From: daminton Date: Mon, 5 Dec 2016 20:46:51 +0000 Subject: [PATCH] New model for collapse to achieve initial morphology --- src/crater/crater_form_exterior_func.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/crater/crater_form_exterior_func.f90 b/src/crater/crater_form_exterior_func.f90 index 742a0916..306b8b87 100644 --- 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