From bb220284a4f7499c65d1e0c8454c4d9f63fc4fcb Mon Sep 17 00:00:00 2001
From: ignis <ignisization@gmail.com>
Date: Mon, 14 Jul 2014 18:09:38 +0900
Subject: [PATCH] io_write4 function modification

---
 io_write_4.f90 | 8 ++++----
 m_fdm_calc.f90 | 8 ++++----
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/io_write_4.f90 b/io_write_4.f90
index 5cca4e2..f17c8bc 100644
--- a/io_write_4.f90
+++ b/io_write_4.f90
@@ -8,7 +8,7 @@ subroutine io_write_4
   use m_work
   use x_fftw
   use m_les
-
+  use m_fdm_calc
   implicit none
 
   integer :: n_out, n, i, j, k
@@ -45,17 +45,17 @@ subroutine io_write_4
   call xFFT3d(-1,1)
   fname = 'u.'//file_ext
   tmp4(1:nx,1:ny,1:nz) = wrk(1:nx,1:ny,1:nz,1)
-  call write_tmp4
+  call gather_tmp4 (u_)
 
   call xFFT3d(-1,2)
   fname = 'v.'//file_ext
   tmp4(1:nx,1:ny,1:nz) = wrk(1:nx,1:ny,1:nz,2)
-  call write_tmp4
+  call gather_tmp4 (v_)
 
   call xFFT3d(-1,3)
   fname = 'w.'//file_ext
   tmp4(1:nx,1:ny,1:nz) = wrk(1:nx,1:ny,1:nz,3)
-  call write_tmp4
+  call gather_tmp4 (w_)
 
   ! scalars
   if (int_scalars) then
diff --git a/m_fdm_calc.f90 b/m_fdm_calc.f90
index b79f4d5..9057e86 100644
--- a/m_fdm_calc.f90
+++ b/m_fdm_calc.f90
@@ -49,10 +49,6 @@ module m_fdm_calc
       real*8 :: fl_location,wrate,yr,c
       real*8 :: tar_sumc
 
-      if (fdm_sw .eq. 0) then
-         return
-      endif
-
       allocate(u_(nx,ny,nz_all))
       allocate(v_(nx,ny,nz_all))
       allocate(w_(nx,ny,nz_all))
@@ -61,6 +57,10 @@ module m_fdm_calc
       v_=0.0
       w_=0.0
 
+      if (fdm_sw .eq. 0) then
+         return
+      endif
+
 ! DQ initializing
       fdmsavecount=1        !FDM save count
       sum_wrate=0.