From 4f911d222620ccff601a8d9714e098b63ca81334 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Thu, 4 Nov 2021 11:38:12 -0400 Subject: [PATCH] Added back noise outer crater walls --- src/crater/crater_realistic_topography.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/crater/crater_realistic_topography.f90 b/src/crater/crater_realistic_topography.f90 index 8b9ba077..6a185a26 100644 --- a/src/crater/crater_realistic_topography.f90 +++ b/src/crater/crater_realistic_topography.f90 @@ -354,7 +354,8 @@ subroutine complex_wall_texture(user,surf,crater,domain,deltaMtot) noise = noise + util_perlin_noise(xynoise * xbar + offset * rn(1), & xynoise * ybar + offset * rn(2))* znoise end do - if (r < flr) newdem = max(newdem + noise * areafrac,crater%melev - crater%floordepth) + newdem = newdem + noise * areafrac + if (r < flr) newdem = max(newdem,crater%melev - crater%floordepth) if (r > 1.1_DP) newdem = max(newdem,newdem + areafrac * crater%ejrim * r**(-3)) elchange = newdem - surf(xpi,ypi)%dem