From fc92088b1a986c1a1e72c698ccf82b62600be084 Mon Sep 17 00:00:00 2001 From: ignis Date: Tue, 15 Jul 2014 01:41:53 +0900 Subject: [PATCH] io_write4 period changed from iwrite4 to iprint2 --- main.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/main.f90 b/main.f90 index 82847e4..c335328 100644 --- a/main.f90 +++ b/main.f90 @@ -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