From 0456a568ef90b384611f06d2e730f757431c3a32 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 23 Aug 2021 17:04:20 -0400 Subject: [PATCH] Improved error reporting in the param reader --- src/io/io.f90 | 2 +- src/symba/symba_collision.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/io/io.f90 b/src/io/io.f90 index a4b619847..58e233dd1 100644 --- a/src/io/io.f90 +++ b/src/io/io.f90 @@ -555,7 +555,7 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg) read(param_value, *, err = 667, iomsg = iomsg) param%maxid case ("NPLMAX", "NTPMAX", "GMTINY", "MIN_GMFRAG", "PARTICLE_OUT", "FRAGMENTATION", "SEED", "YARKOVSKY", "YORP") ! Ignore SyMBA-specific, not-yet-implemented, or obsolete input parameters case default - write(iomsg,*) "Unknown parameter -> ",param_name + write(*,*) "Unknown parameter -> ",param_name iostat = -1 return end select diff --git a/src/symba/symba_collision.f90 b/src/symba/symba_collision.f90 index 3672f959b..fd4eae517 100644 --- a/src/symba/symba_collision.f90 +++ b/src/symba/symba_collision.f90 @@ -283,7 +283,7 @@ module function symba_collision_casemerge(system, param, family, x, v, mass, rad param%Ecollisions = param%Ecollisions + pe param%Euntracked = param%Euntracked - pe - ! Update any encounter lists that have the removedbodies in them so that they instead point to the new + ! Update any encounter lists that have the removed bodies in them so that they instead point to the new do k = 1, system%plplenc_list%nenc do j = 1, nfamily i = family(j)