From be20dc9c16b23c4f07804e7d858fa3bf103146ed Mon Sep 17 00:00:00 2001 From: daminton Date: Tue, 7 Mar 2017 02:29:45 +0000 Subject: [PATCH] Added crater_soften routine for inside crater softening --- src/crater/crater_populate.f90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/crater/crater_populate.f90 b/src/crater/crater_populate.f90 index b83524c5..10a6987a 100644 --- a/src/crater/crater_populate.f90 +++ b/src/crater/crater_populate.f90 @@ -172,8 +172,11 @@ subroutine crater_populate(user,surf,crater,domain,prod,production_list,vdist,nt crater%maxinc = 0 ! Do seismic shaking if (user%doseismic) call seismic_shake(user,surf,crater,domain) + + ! Generate interior anomalous diffusion + if (user%dosoftening) call crater_soften(user,surf,crater,domain) - ! Generate dynamic diffusion + ! Generate distal anomalous diffusion if (user%dosoftening) call crater_soften_accumulate(user,surf,crater,domain,kdiff) ! find the average height and slope at crater location