research/incomp-flame-post
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

debug: copy to m_v_new

Browse source
This commit is contained in:
ignis 2019-04-19 02:06:44 +09:00
parent e337b9aa6b
commit 698a9981e0
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
code/post.f90
View file

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