From 698a9981e0b2b28c834a48b8de60e4ccfd33915b Mon Sep 17 00:00:00 2001
From: ignis <ignis@postech.ac.kr>
Date: Fri, 19 Apr 2019 02:06:44 +0900
Subject: [PATCH] debug: copy to m_v_new

---
 code/post.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/post.f90 b/code/post.f90
index 818c2b9..b060469 100644
--- a/code/post.f90
+++ b/code/post.f90
@@ -163,17 +163,17 @@
       IF(num.le.shiftnum) THEN
         WRITE(*,*) '    with an old fort data from Nueman-0X'
         READ (num) u,v,w,old_scalar
-        new_scalar(:,:,:,2) = old_scalar(2,:,:,:)
+        m_v(6,:,:,:) = old_scalar(2,:,:,:)
       ELSE
         WRITE(*,*) '    with a new fort data from Comb-Cluster'
         READ (num) u,v,w,new_scalar
         u = u + dummyu
+        m_v_new(:,:,:,2) = new_scalar(:,:,:,2)
       ENDIF
 
       m_v(2,:,:,:) = u
       m_v(3,:,:,:) = v
       m_v(4,:,:,:) = w
-      m_v(6,:,:,:) = new_scalar(:,:,:,2)
 
       CLOSE (num)