Added back noise outer crater walls

MintonGroup · Nov 4, 2021 · 4f911d2 · 4f911d2
1 parent ece6db4
commit 4f911d2
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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