From 535a368d8fc6995a3a1022f9c01fbe88bc13c501 Mon Sep 17 00:00:00 2001 From: daminton Date: Wed, 7 Dec 2016 21:41:54 +0000 Subject: [PATCH] Improved tally system --- src/init/init_domain.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/init/init_domain.f90 b/src/init/init_domain.f90 index 6dd462ca..281cead9 100644 --- a/src/init/init_domain.f90 +++ b/src/init/init_domain.f90 @@ -59,9 +59,9 @@ subroutine init_domain(user,crater,domain,prod,pdist,vdist,crtscl,nflux) domain%parea = user%pix**2 domain%area = domain%side**2 domain%biggest_crater = domain%side * user%maxcrat - domain%smallest_crater = user%pix + domain%smallest_crater = user%pix domain%smallest_ejecta = SMALLESTEJECTA * user%pix - domain%smallest_counted_crater = 2._DP / (1._DP + COUNTINGRIM) * sqrt(SMALLESTCOUNTABLE / PI) * user%pix + domain%smallest_counted_crater = SMALLESTCOUNTABLE * user%pix domain%vescsq = 2 * user%gaccel * user%trad ! Set up transition values