Merge pull request #510 from feathern/io_fix

IO Bug Fix
geodynamics · Jun 12, 2024 · ce66ed0 · ce66ed0
2 parents b1f1062 + 28ce0fd
commit ce66ed0
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/IO/Spherical_IO.F90 b/src/IO/Spherical_IO.F90
@@ -776,11 +776,12 @@ Subroutine Write_to_Disk(self,this_iter,simtime)
                 ! 12 is for the simtime+iteration at the end.
                 full_disp = self%buffer%qdisp*self%buffer%nvals+12 
                 new_disp = self%hdisp+full_disp*(self%current_rec-ncache)
-                !If (responsible) Write(6,*)'check disp: ', self%buffer%qdisp, self%buffer%ncache, self%buffer%spectral
 
-                Call self%buffer%write_data(disp=new_disp,file_unit=funit)
-                Call self%buffer%reset_cache_index()
-                If (output_rank) Call self%closefile_par()
+                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
 
             Endif