From 3672e141a43da69193649863ab81e5a2d656ebcb Mon Sep 17 00:00:00 2001 From: daminton Date: Tue, 6 Dec 2016 15:22:45 +0000 Subject: [PATCH] Removed obsolete tally components. --- src/crater/module_crater.f90 | 18 ++---------------- 1 file changed, 2 insertions(+), 16 deletions(-) diff --git a/src/crater/module_crater.f90 b/src/crater/module_crater.f90 index 79aae302..9046783e 100644 --- a/src/crater/module_crater.f90 +++ b/src/crater/module_crater.f90 @@ -179,8 +179,7 @@ end subroutine crater_tally_true end interface interface - subroutine crater_tally_observed(user,surf,domain,nkilled,onum,obsdist,obslist,oposlist,& - original_depth,current_depth,deviation_sigma,p) + subroutine crater_tally_observed(user,surf,domain,nkilled,onum,obsdist,obslist,oposlist,depthdiam) use module_globals implicit none type(usertype),intent(in) :: user @@ -190,23 +189,10 @@ subroutine crater_tally_observed(user,surf,domain,nkilled,onum,obsdist,obslist,o real(DP),dimension(:,:),intent(out),optional :: obsdist real(DP),dimension(:),intent(out),allocatable,optional :: obslist real(SP),dimension(:,:),intent(out),allocatable,optional :: oposlist - real(SP),dimension(:),intent(out),allocatable,optional :: original_depth,current_depth,deviation_sigma,p + real(SP),dimension(:),intent(out),allocatable,optional :: depthdiam end subroutine crater_tally_observed end interface -interface - subroutine crater_tally_calibrated_count(user,diameter,current_depth,original_depth,& - deviation_sigma,countable,killable,p) - use module_globals - implicit none - type(usertype),intent(in) :: user - real(DP),intent(in) :: diameter - real(SP),intent(in) :: current_depth,original_depth,deviation_sigma - logical,intent(out) :: countable,killable - real(SP),intent(out) :: p - end subroutine crater_tally_calibrated_count -end interface - interface subroutine crater_slope_collapse(user,surf,crater,domain) use module_globals