Merge pull request #523 from feathern/io_fix2

Fixed logical error that was causing parallel I/O to hang.
geodynamics · Jun 17, 2024 · 6e600dc · 6e600dc
2 parents e44b276 + fe3077c
commit 6e600dc
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/src/IO/Spherical_IO.F90 b/src/IO/Spherical_IO.F90
@@ -777,11 +777,12 @@ Subroutine Write_to_Disk(self,this_iter,simtime)
                 full_disp = self%buffer%qdisp*self%buffer%nvals+12 
                 new_disp = self%hdisp+full_disp*(self%current_rec-ncache)
 
-                If (self%file_open) Then
-                    Call self%buffer%write_data(disp=new_disp,file_unit=funit)
-                    Call self%buffer%reset_cache_index()
-                    If (output_rank) Call self%closefile_par()
-                Endif
+
+                Call self%buffer%write_data(disp=new_disp,file_unit=funit)
+                Call self%buffer%reset_cache_index()
+
+                If (output_rank .and. self%file_open) Call self%closefile_par()
+
 
             Endif