From 9c48452b0f6c2d63d841c72eaa61f33a12a1aad1 Mon Sep 17 00:00:00 2001 From: ignis Date: Sun, 10 Aug 2014 16:42:27 +0900 Subject: [PATCH] disable io --- m_fdm_calc.f90 | 4 ++++ main.f90 | 12 ++++++------ 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/m_fdm_calc.f90 b/m_fdm_calc.f90 index c08e88b..1a4fe2c 100644 --- a/m_fdm_calc.f90 +++ b/m_fdm_calc.f90 @@ -193,6 +193,10 @@ module m_fdm_calc real*8 :: fl_location,delu,wrate,yr real*8 :: c real*8 :: uvel,vvel,wvel ! J. Kwon + + + return + fdmcyc=itime ! Mean velocty setup do k=1,nz_all diff --git a/main.f90 b/main.f90 index b2be667..103d70d 100644 --- a/main.f90 +++ b/main.f90 @@ -133,7 +133,7 @@ program x_code end if if (fdm_sw.ne.0) then ! Reacting - call gather_4 + !call gather_4 if (myid.eq.master) then call fdm_exe do id_to=1,numprocs-1 @@ -205,12 +205,12 @@ program x_code !remove hit restart file call system ('rm -f '//run_name//'.64.'//ex_file_ext) if (fdm_sw.ne.0) then ! Reacting - call gather_4 + !call gather_4 if (myid.eq.master) then !write itime, savenum pair - if(TIME.ge.bgn_save) call fdm_restart_write - write (restart_pair, *) file_ext, fullsavenum-1 - call write_tp_field + !if(TIME.ge.bgn_save) call fdm_restart_write + !write (restart_pair, *) file_ext, fullsavenum-1 + !call write_tp_field end if call MPI_BARRIER(MPI_COMM_TASK, mpi_err) endif @@ -266,7 +266,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,iprint2).eq.0) call io_write_4 + !if (mod(itime,iprint2).eq.0) call io_write_4 endif end if end if stats