Improved error reporting in the param reader

MintonGroup · Aug 23, 2021 · 0456a56 · 0456a56
1 parent b8d31d0
commit 0456a56
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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)