求助！！！！！！！

如若

1. program tiqu
   
2. integer,parameter::m=1,day=22647,yr=63,dd=92*63,yrd=92  
   
3. character*5 id(m)
   
4. character*4 yrc
   
5. integer year(m,day),mon(m,day),dy(m,day),temp,tmax,tmin,rain(m,day)
   
6. integer year1(m,dd),mon1(m,dd),dy1(m,dd),rain1(m,dd)
   
7. real rainyr(1951:2012)
   
8. integer a(1951:2012)
   
9. integer i,yrn
   
10. 
    
11. !!!!!!读入站点名!!!!!!
    
12. open(10,file='f:\fortran\shuju\52sta.txt')
    
13. read(10,*) (id(i),i=1,m)
    
14. do i=1,m
    
15.    j=1
    
16. !!!!!!读入51-13年数据!!!!!!
    
17.     open(33,file='f:\fortran\shuju\51-13\'//id(i)//'.txt')
    
18. 100 read(33,*)        id(i),year(i,j),mon(i,j),dy(i,j),rain(i,j)
    
19.      print *, id(i),year(i,j),mon(i,j),dy(i,j),rain(i,j)
    
20.             j=j+1
    
21.         if(.not.eof(33))        goto 100
    
22.         write(33,*)
    
23.         close(33)
    
24. enddo
    
25. !!!!!!提取3-5月降水!!!!!!
    
26. do i=1,m
    
27.    open(44,file='f:\fortran\shuju\51-13\'//id(i)//'.txt')
    
28.    do j=1,day
    
29.           if(mon(i,j).ge.3.and.mon(i,j).le.5) then
    
30.                  if(rain(i,j)>=30000) then
    
31.                         rain(i,j)=0.0
    
32.                  end if
    
33.                  if(rain(i,j)==-32744.or.rain(i,j)==32744.or.rain(i,j)==32766.or.rain(i,j)==-32766) then
    
34.                            rain(i,j)=0.0
    
35.                  end if     
    
36.                  write(44,*) id(i),year(i,j),mon(i,j),dy(i,j),rain(i,j)  !按台站存放!
    
37.           endif
    
38.         enddo
    
39.         close(44)
    
40. enddo
    
41. end

复制代码

运行出来提取的是气温，要怎么改才能提取降水
文件格式如下
51053 1974 7 25 220 301 145 0
51053 1974 7 26 234 296 179 0
51053 1974 7 27 246 325 139 0
51053 1974 7 28 266 343 166 0
51053 1974 7 29 284 359 168 0
51053 1974 7 30 248 352 194 32700
51053 1974 7 31 228 305 141 13
51053 1974 8 1 249 327 166 0
51053 1974 8 2 231 298 171 32700
51053 1974 8 3 243 329 158 32700
51053 1974 8 4 243 324 155 0
51053 1974 8 5 246 332 153 32700
51053 1974 8 6 261 332 185 0
51053 1974 8 7 254 321 199 32700
51053 1974 8 8 215 278 176 2
51053 1974 8 9 207 282 140 8
51053 1974 8 10 224 297 143 32700
51053 1974 8 11 213 281 144 0
51053 1974 8 12 195 268 114 0


求大神解答！！！

言深深

修改数据的读取部分~~~

如若

言深深 发表于 2016-4-21 14:00
修改数据的读取部分~~~

怎么改啊 。。。？？？？

如若

言深深 发表于 2016-4-21 14:00
修改数据的读取部分~~~

我懂了我懂了 谢谢啊

如若

言深深 发表于 2016-4-21 14:00
修改数据的读取部分~~~

我懂了我懂了 谢谢啊

如若

言深深 发表于 2016-4-21 14:00
修改数据的读取部分~~~

我还想问一个问题 就是这个程序只能读一个站，多个站就会出错，这是为什么？

言深深

如若 发表于 2016-4-22 18:55
我还想问一个问题 就是这个程序只能读一个站，多个站就会出错，这是为什么？

不清楚你改了哪里之后出错的~~~

如若

言深深 发表于 2016-4-24 15:51
不清楚你改了哪里之后出错的~~~

已经弄好了，谢谢

如若

言深深 发表于 2016-4-24 15:51
不清楚你改了哪里之后出错的~~~

已经弄好了，谢谢

梦轩蔷薇

很有用啊，尤其对于气象数据提取！