读取数据存在问题

wyc123456

integer aa,dd,i,j,n
real bb,cc,temp
character year(1)*2,month(1)*2,day(30)*2
data year/'15'/
data month/'06'/
data day/'1','2','3','4','5','6','7','8','9','10','11','12','13','14','15','16','17','18','19','20','21','22','23','24','25','26','27','28','29','30'/
open(13,file='d:/biye/tt.txt')
  do n=1,30
         if(n<10) then         !如果天数为个位，文件名前面加0，否则不加
   open(11,file='d:/biye/2015/surface/tmax-p/'//year(1)//month(1)//'0'//trim(day(n))//'02.000')
     read(11,*)
     read(11,*)
     read(11,*)
     read(11,*)
     read(11,*)
     do
     read(11,*)aa,bb,cc,dd,temp
     print*,temp
!             if (aa==58238) Write(13,*) temp
     enddo
   
         else
        open(12,file='d:/biye/2015/surface/tmax-p/'//year(1)//month(1)//trim(day(n))//'02.000')
     read(12,*)
     read(12,*)
     read(12,*)
     read(12,*)
     read(12,*)
     do
     read(12,*)aa,bb,cc,dd,temp
!          if (aa==58238) Write(13,*) temp
     enddo
     endif
enddo
end