Skip to content

Commit

Permalink
Removed obsolete tally components.
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed Dec 6, 2016
1 parent 68f3854 commit 3672e14
Showing 1 changed file with 2 additions and 16 deletions.
18 changes: 2 additions & 16 deletions src/crater/module_crater.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand Down

0 comments on commit 3672e14

Please sign in to comment.