io_write4 period changed from iwrite4 to iprint2

This commit is contained in:
ignis 2014-07-15 01:41:53 +09:00
parent c6c519555a
commit fc92088b1a

View file

@ -253,7 +253,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,iwrite4).eq.0) call io_write_4
if (mod(itime,iprint2).eq.0) call io_write_4
endif
end if
end if stats