From a8a2ccb0639d9de3998038c9e9e7ed33acebefd2 Mon Sep 17 00:00:00 2001 From: daminton Date: Thu, 9 Feb 2017 19:01:37 +0000 Subject: [PATCH] Added new user input that allows you to truncate the ejecta blanket at a specific radius --- src/io/io_input.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/io/io_input.f90 b/src/io/io_input.f90 index 6d5b5cd5..2289b25e 100644 --- a/src/io/io_input.f90 +++ b/src/io/io_input.f90 @@ -303,7 +303,7 @@ subroutine io_input(infile,user) call io_get_token(line, ilength, ifirst, ilast, ierr) token = line(ifirst:ilast) read(token, *) user%testtally - case ("EJECTA_TRUNCATION") ! Size of ejecta blankets to model in terms of crater diameter + case ("EJECTA_TRUNCATION") ! Radius of ejecta blankets to model in terms of crater radius ifirst = ilast + 1 call io_get_token(line, ilength, ifirst, ilast, ierr) token = line(ifirst:ilast)