write_tp_field is activated for both reacting and non-reacting

2014-07-15 21:34:17 +09:00 · 2014-07-15 21:34:17 +09:00 · f01789b518
commit f01789b518
parent e2f1d52c4f
2 changed files with 2 additions and 0 deletions
--- 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
--- 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