我笨的离谱哈哈哈....fort.28是因为我把文件号改了，但输出的还是28号文件。
另外，我尝试了把下面语句
            do i=21,32,1
                j=i-20
                if(month1==j) write(i,*)wwlln_date,wwlln_time,lat,lon,timingerror,station
            end do
这个语句放到else上边，然后将 if(month==1) write(21,*)wwlln_date,wwlln_time,lat,lon,timingerror,station....这些if都放到end if 前面，就没问题了。这个也可以用do 循环来写，一样的。
还有要加close，close也可以用do来写。我本来写了，后来为了测出到底哪里出问题，然后删了....
最后还是想请问下，为什么原先这样写，month8.txt会是原数据文件呢？

另外改完文件号之后（month8.txt的，原先是28号，改成了33），运行结果month8.txt大小为0kb，就是没有数据写入。也就是说if(month==8) write(33,*)wwlln_date,wwlln_time,lat,lon,timingerror,station，这条命令无作用，是个摆设。
在线等，谢谢！