Fixed issue that was causing binary particle files to be written even…

… in NetCDF output mode
MintonGroup · Oct 14, 2021 · b22c205 · b22c205
1 parent 1a7d37a
commit b22c205
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/io/io.f90 b/src/io/io.f90
@@ -164,7 +164,7 @@ module subroutine io_dump_particle_info_base(self, param, idx)
       integer(I4B)              :: i
       character(STRMAX)         :: errmsg
 
-      !if ((param%out_type == REAL4_TYPE) .or. (param%out_type == REAL8_TYPE)) then
+      if ((param%out_type == REAL4_TYPE) .or. (param%out_type == REAL8_TYPE)) then
          if (lfirst) then
             select case(param%out_stat)
             case('APPEND')
@@ -200,15 +200,14 @@ module subroutine io_dump_particle_info_base(self, param, idx)
          end select
 
          close(unit = LUN, err = 667, iomsg = errmsg)
-      !else if ((param%out_type == NETCDF_FLOAT_TYPE) .or. (param%out_type == NETCDF_DOUBLE_TYPE)) then
-      if ((param%out_type == NETCDF_FLOAT_TYPE) .or. (param%out_type == NETCDF_DOUBLE_TYPE)) then
+      else if ((param%out_type == NETCDF_FLOAT_TYPE) .or. (param%out_type == NETCDF_DOUBLE_TYPE)) then
          call self%write_particle_info(param%nciu)
       end if
 
       return
 
       667 continue
-      write(*,*) "Error reading particle information file: " // trim(adjustl(errmsg))
+      write(*,*) "Error writing particle information file: " // trim(adjustl(errmsg))
       call util_exit(FAILURE)
    end subroutine io_dump_particle_info_base