Disable diagnostic write.

This commit is contained in:
Joe Taylor 2021-05-13 08:42:00 -04:00
parent 7407dc6332
commit 43e2a95edf

View File

@ -148,10 +148,10 @@ subroutine wb2_sync(ss,savg,jz,nfa,nfb)
do i=1,4
call pctile(savg(i,ia:ib),ib-ia+1,50,savg_med(i))
enddo
do i=ia,ib
write(14,3014) 0.001*(i-1)*df3,savg(1:4,i)
3014 format(5f10.3)
enddo
! do i=ia,ib
! write(14,3014) 0.001*(i-1)*df3,savg(1:4,i)
!3014 format(5f10.3)
! enddo
lagbest=0
ipolbest=1