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