From 5e3afd93fe21344775d96844d97a928179c19bac Mon Sep 17 00:00:00 2001 From: daminton Date: Sun, 26 Feb 2017 11:38:03 +0000 Subject: [PATCH] Changed default values of diffusion parameters --- src/io/io_input.f90 | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/io/io_input.f90 b/src/io/io_input.f90 index 5b69fb4d..23e6e713 100644 --- a/src/io/io_input.f90 +++ b/src/io/io_input.f90 @@ -84,8 +84,9 @@ subroutine io_input(infile,user) user%testtally = .false. user%killatmaxcrater = .false. user%doporosity = .false. - user%soften_factor = 37.0_DP - user%soften_slope = 1.8_DP + user%soften_factor = 3.0_DP + user%soften_slope = 4.0_DP + user%soften_size = 10.0_DP user%ejecta_truncation = 10.0_DP open(unit=LUN,file=infile,status="old",iostat=ierr) @@ -434,6 +435,11 @@ subroutine io_input(infile,user) call io_get_token(line, ilength, ifirst, ilast, ierr) token = line(ifirst:ilast) read(token, *) user%soften_slope + case ("SOFTEN_SIZE") + ifirst = ilast + 1 + call io_get_token(line, ilength, ifirst, ilast, ierr) + token = line(ifirst:ilast) + read(token, *) user%soften_size !************************************************************************** ! The following is for backwards compatibility with older style input files !**************************************************************************