diff --git a/io_write_4.f90 b/io_write_4.f90
index ba3a5c7..ec833d7 100644
--- a/io_write_4.f90
+++ b/io_write_4.f90
@@ -65,6 +65,7 @@ subroutine io_write_4
   wmax = maxval(w_(1:nx,1:ny,1:nz_all))
   wmin = minval(w_(1:nx,1:ny,1:nz_all))
 
+  call write_tp_field
   call write_vel_max ( umax,vmax,wmax,umin,vmin,wmin )
 
   endif
diff --git a/main.f90 b/main.f90
index c335328..0b00769 100644
--- a/main.f90
+++ b/main.f90
@@ -198,6 +198,7 @@ program x_code
                   !write itime, savenum pair
                   call fdm_restart_write
                   write (restart_pair, *) file_ext, fullsavenum-1
+                  call write_tp_field
                end if
                call MPI_BARRIER(MPI_COMM_TASK, mpi_err)
            endif