From 031f3b989882baa448b989b307604b8cf48c2e97 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 3 Nov 2021 12:44:36 -0400 Subject: [PATCH] Adjusted peak ring radius scaling so it maxes out at 0.5 frad --- src/crater/crater_realistic_topography.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/crater/crater_realistic_topography.f90 b/src/crater/crater_realistic_topography.f90 index 64521562..7031867a 100644 --- a/src/crater/crater_realistic_topography.f90 +++ b/src/crater/crater_realistic_topography.f90 @@ -172,6 +172,7 @@ subroutine complex_peak(user,surf,crater,deltaMtot) !FWHM = 0.3_DP !Lansberg a = crater%peakheight b = 0.003_DP * ((1e-3_DP * crater%fcrat)**(1.75_DP)) / (1e-3_DP * crater%fcrat) ! Make peak rings for sufficiently large craters + b = min(b, 0.5_DP) c = FWHM / (2 * sqrt(2 * log(2._DP))) !*********************