From 2aeb945fd037974c8cc36ef3d2d3b976c4512590 Mon Sep 17 00:00:00 2001 From: mhirabay Date: Thu, 29 Dec 2016 14:09:23 +0000 Subject: [PATCH] Removed the porosity function --- src/crater/crater_form_interior.f90 | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/src/crater/crater_form_interior.f90 b/src/crater/crater_form_interior.f90 index 74b89938..222cde06 100644 --- a/src/crater/crater_form_interior.f90 +++ b/src/crater/crater_form_interior.f90 @@ -21,7 +21,6 @@ subroutine crater_form_interior(user,surfi,crater,lradsq,newelev,deltaMi) use module_globals use module_util - use module_porosity use module_crater, EXCEPT_THIS_ONE => crater_form_interior implicit none @@ -67,13 +66,9 @@ subroutine crater_form_interior(user,surfi,crater,lradsq,newelev,deltaMi) deltaMi = elchange surfi%dem = newdem - if (user%doporosity) then - call porosity_form_interior(user,surfi,crater,elchange,lradsq,newelev) - else - !change ejecta coverage - surfi%ejcov = max(surfi%ejcov + elchange,0.0_DP) - end if - + !change ejecta coverage + surfi%ejcov = max(surfi%ejcov + elchange,0.0_DP) + if (user%doregotrack) then call util_traverse_pop(surfi%regolayer,abs(elchange),poppedlist) call util_destroy_list(poppedlist)