From e14bb9dd1467c3c3b99f0cfd25f5feabfc41eaf3 Mon Sep 17 00:00:00 2001 From: park0d Date: Fri, 24 Mar 2017 18:55:09 +0900 Subject: [PATCH] disable gather_4 before restart_write -> u' + U written --- main.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/main.f90 b/main.f90 index ded720d..9becf2c 100644 --- a/main.f90 +++ b/main.f90 @@ -187,7 +187,7 @@ program x_code if (mod(itime,IPRINT2).eq.0) then call restart_write_parallel if (fdm_sw.ne.0) then ! Reacting - call gather_4 + !call gather_4 if (TIME.ge.bgn_save) then call fdm_restart_write if (myid.eq.master) then