From f01789b518f768e560e4277fad95cb233fad8797 Mon Sep 17 00:00:00 2001
From: ignis <ignisization@gmail.com>
Date: Tue, 15 Jul 2014 21:34:17 +0900
Subject: [PATCH] write_tp_field is activated for both reacting and
 non-reacting

---
 io_write_4.f90 | 1 +
 main.f90       | 1 +
 2 files changed, 2 insertions(+)

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