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)