w_xuej@163_com
Member
Dear all, I want to write some variables to txt document.I add follow to uv3s_update.F90,But it runs very very slow.So what should I do?Thanks! open(nstep,file='/gpfsdata/shaoam/CASE/test01/run/U-A1-'//trim(fname_date)//'.out',form='formatted') open(nstep+1,file='/gpfsdata/shaoam/CASE/test01/run/V-A1-'//trim(fname_date)//'.out',form='formatted') if (mod(nstep,48)==0) then write(nstep,*) im, jm, km do k = 1, km do j = 1, jm do i = 1, im write(nstep,*) u3s(i,j,k) write(nstep+1,*) v3s(i,j,k) enddo enddo enddo close(nstep) close(nstep+1) end if