From f81eefedffb7bac321ac0d75f02d107a4940f5f4 Mon Sep 17 00:00:00 2001 From: daminton Date: Tue, 6 Dec 2016 14:31:37 +0000 Subject: [PATCH] Changed uplifted rim height to be half of what the total height is --- src/crater/crater_form_exterior.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/crater/crater_form_exterior.f90 b/src/crater/crater_form_exterior.f90 index 7c5de14d..9fb6af6d 100644 --- a/src/crater/crater_form_exterior.f90 +++ b/src/crater/crater_form_exterior.f90 @@ -44,7 +44,7 @@ subroutine crater_form_exterior(user,surfi,crater,domain,lradsq,newelev,rd,delta ! change digital elevation map !cform = (crater%rheight * ((crater%frad / lrad)**RIMDROP)) - cform = (1.30*crater%rheight * ((crater%rad / lrad)**rd)) + cform = (crater%rheight * ((crater%frad / lrad)**rd)) ! elevation changes if (lrad <= crater%frim) then