From d9778c9e88be56f95f077778fbb7d68c312018c2 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 1 Nov 2021 23:09:50 -0400 Subject: [PATCH] Tweaked wall texture to try to prevent sharp edges at bounary of ejecta --- src/crater/crater_realistic_topography.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/crater/crater_realistic_topography.f90 b/src/crater/crater_realistic_topography.f90 index 8fc7eb56..30767a5f 100644 --- a/src/crater/crater_realistic_topography.f90 +++ b/src/crater/crater_realistic_topography.f90 @@ -350,7 +350,7 @@ subroutine complex_wall_texture(user,surf,crater,domain,deltaMtot) xynoise * ybar + offset * rn(2))* znoise end do newdem = max(newdem + noise * areafrac,crater%melev - crater%floordepth) - if (r > 1.1_DP) newdem = max(newdem,crater%melev + crater%ejrim * r**(-3)) + if (r > 1.1_DP) newdem = max(newdem,newdem + areafrac * crater%ejrim * r**(-3)) elchange = newdem - surf(xpi,ypi)%dem deltaMtot = deltaMtot + elchange