From 6d7b31c5559ab3acc57b05cd8a5e09934eb24746 Mon Sep 17 00:00:00 2001 From: ignis Date: Tue, 24 Jan 2017 15:03:34 +0900 Subject: [PATCH] write tp_field flush after each x loop --- write_stats.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/write_stats.f90 b/write_stats.f90 index 283f4f4..dc60c77 100644 --- a/write_stats.f90 +++ b/write_stats.f90 @@ -31,6 +31,7 @@ subroutine write_tp_field do i=1,nx,spx write(tp_field,'(6e18.9)') dx*real(i),dy*real(j),dz*real(k),u_(i,j,k),v_(i,j,k),w_(i,j,k) ! u',v',w' enddo + call flush(tp_field) enddo enddo @@ -49,13 +50,12 @@ subroutine write_tp_field (1.-y1(2,i,j,ii)/y1(1,i,j,ii)),u_(i,j,ii), & v_(i,j,ii),w_(i,j,ii) enddo + call flush(tp_field) enddo enddo endif - call flush(tp_field) - 897 format('ZONE T="time= ',f10.5,'" I= ',i4,' J= ',i4,' K= ',i4,' F=POINT') end subroutine write_tp_field