Fixes a parallel i/o issue (#567)

sbryngelson · web-flow · commit 4c3e34def772 · 2024-08-10T23:37:01.000-04:00
diff --git a/src/simulation/m_data_output.fpp b/src/simulation/m_data_output.fpp
@@ -1003,8 +1003,6 @@ contains
             call MPI_FILE_CLOSE(ifile, ierr)
         end if
 
-        call MPI_FILE_CLOSE(ifile, ierr)
-
 #endif
 
     end subroutine s_write_parallel_data_files
