From f04ef6efe957f9122b542411fecd183016409e19 Mon Sep 17 00:00:00 2001 From: daminton Date: Thu, 8 Dec 2016 03:38:25 +0000 Subject: [PATCH] Improved tally system --- src/crater/crater_tally_observed.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/crater/crater_tally_observed.f90 b/src/crater/crater_tally_observed.f90 index 937327d7..8461e9da 100644 --- a/src/crater/crater_tally_observed.f90 +++ b/src/crater/crater_tally_observed.f90 @@ -203,7 +203,7 @@ subroutine crater_tally_observed(user,surf,domain,nkilled,onum,obsdist,obslist,o outer = outer / nouter tmp_depthdiam(craternum) = (rim - bowl) / crater%fcrat - if ((tmp_depthdiam(craternum) > 0.03_DP).and.((rim - outer) / crater%fcrat < 0.05)) then + if ((tmp_depthdiam(craternum) > 0.03_DP).and.(abs(outer - rim) / crater%fcrat < 0.05)) then countable(craternum) = .true. killable = .false. else