From eee35f16e00159313c4b9a35d22bd333e86a5d5e Mon Sep 17 00:00:00 2001 From: ignis Date: Mon, 14 Jul 2014 17:52:37 +0900 Subject: [PATCH] no call io_write4 after init_velocity --- begin_new.f90 | 1 - 1 file changed, 1 deletion(-) diff --git a/begin_new.f90 b/begin_new.f90 index a11bf47..85f61f1 100644 --- a/begin_new.f90 +++ b/begin_new.f90 @@ -22,7 +22,6 @@ subroutine begin_new if (task.eq.'hydro') then call init_velocity if (n_scalars.gt.0) call init_scalars - call io_write_4 end if if (task_split) then