io_write4 function modification

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

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.