Made some changes to file i/o. Code runs again.

src/collision/collision_io.f90

@@ -87,6 +87,8 @@ module subroutine collision_netcdf_io_initialize_output(self, param)
                self%out_type = NF90_FLOAT
             case("NETCDF_DOUBLE")
                self%out_type = NF90_DOUBLE
+            case default
+               write(*,*) trim(adjustl(param%out_type)), " is an invalid OUT_TYPE"
             end select
 
             ! Check if the file exists, and if it does, delete it

src/encounter/encounter_io.f90

@@ -82,6 +82,8 @@ module subroutine encounter_netcdf_io_initialize_output(self, param)
             self%out_type = NF90_FLOAT
          case("NETCDF_DOUBLE")
             self%out_type = NF90_DOUBLE
+         case default
+            write(*,*) trim(adjustl(param%out_type)), " is an invalid OUT_TYPE"
          end select
 
          ! Check if the file exists, and if it does, delete it

src/swiftest/swiftest_io.f90

@@ -599,10 +599,12 @@ module subroutine swiftest_io_netcdf_initialize_output(self, param)
          sfill = ieee_value(sfill, IEEE_QUIET_NAN)
 
          select case (param%out_type)
-         case("netcdf_io_FLOAT")
+         case("NETCDF_FLOAT")
             nc%out_type = NF90_FLOAT
-         case("netcdf_io_DOUBLE")
+         case("NETCDF_DOUBLE")
             nc%out_type = NF90_DOUBLE
+         case default
+            write(*,*) trim(adjustl(param%out_type)), " is an invalid OUT_TYPE"
          end select
 
          ! Check if the file exists, and if it does, delete it

src/swiftest/swiftest_setup.f90

@@ -113,6 +113,8 @@ module subroutine swiftest_setup_construct_system(system, param)
             write(*,*) 'Unkown integrator',param%integrator
             call util_exit(FAILURE)
          end select
+
+         allocate(swiftest_particle_info :: system%cb%info)
       end select
 
       return