research/dns-hit3d-fdm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

disable io

Browse source
This commit is contained in:
ignis 2014-08-10 16:42:27 +09:00
parent 6d7b31c555
commit 9c48452b0f
2 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
m_fdm_calc.f90
View file

@ -193,6 +193,10 @@ module m_fdm_calc
real*8 :: fl_location,delu,wrate,yr
real*8 :: c
real*8 :: uvel,vvel,wvel ! J. Kwon
return
fdmcyc=itime
! Mean velocty setup
do k=1,nz_all

12
main.f90
View file

@ -133,7 +133,7 @@ program x_code
end if
if (fdm_sw.ne.0) then ! Reacting
call gather_4
!call gather_4
if (myid.eq.master) then
call fdm_exe
do id_to=1,numprocs-1
@ -205,12 +205,12 @@ program x_code
!remove hit restart file
call system ('rm -f '//run_name//'.64.'//ex_file_ext)
if (fdm_sw.ne.0) then ! Reacting
call gather_4
!call gather_4
if (myid.eq.master) then
!write itime, savenum pair
if(TIME.ge.bgn_save) call fdm_restart_write
write (restart_pair, *) file_ext, fullsavenum-1
call write_tp_field
!if(TIME.ge.bgn_save) 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
@ -266,7 +266,7 @@ program x_code
if (task_split) call fields_to_stats
if (mod(itime,iprint1).eq.0) call stat_main
if (fdm_sw.eq.0) then ! non-reacting
if (mod(itime,iprint2).eq.0) call io_write_4
!if (mod(itime,iprint2).eq.0) call io_write_4
endif
end if
end if stats