- 积分
- 5
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-4-11
- 最后登录
- 1970-1-1
![未绑定新浪微博用户 新浪微博达人勋](source/plugin/sina_login/img/gray.png)
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
parameter(ix=144,iy=73)
parameter (it=91)
real hgt(ix,iy,366)
integer iday(it),iyear(it)
! character(len=11) filename(11)
character(len=4) :: cTemp
!data year/'1968','1972',&
! &'1976','1980',&
! &'1984','1988',&
! &'1992','1996',&
! &'2000','2004','2008'/
! ccccccccc read from huabei station data
open(10,file='by-year-yong.dat')
do kk=1,it
read(10,*)iyear(kk),iday(kk)
iday2=iday(kk)
write(cTemp,'(i4)')iyear(kk)
open(30,file='E:\student\mon6\hgt\hgt-mon6-by.grd',form='binary')
open (20,file='E:\data\hgt\grd\'//trim(adjustl(cTemp))//'.grd',form='binary')
do k=1,365
read(20)((hgt(i,j,k),i=1,ix),j=1,iy)
enddo
write(30)((hgt(i,j,iday2),i=1,ix),j=1,iy)
close(20)
enddo
stop
end
运行就说的是The program 'E:\student\mon6\sepyear.exe' has exited with code 0 (0x0).
请问是什么问题啊
|
|