- 积分
- 57
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-4-20
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
这是我写的程序。compile的时候没有错,但是build有一个警告= =
program ex01
implicit none
integer,parameter::nx=237,ny=342,nz=19,nt=39
real u(nx,ny,nz,nt),v(nx,ny,nz,nt)
integer i,j,iz,it
open(1,file='d:\lunwen\chanchu_6km_pressure_3hour.dat')
open(12,file='d:\lunwen\u.grd',form='binary')
open(13,file='d:\lunwen\v.grd',form='binary')
do it=1,nt
do iz=1,nz
do j=1,ny
do i=1,nx
read(1,*)u(i,j,iz,it),v(i,j,iz,it)
enddo
enddo
enddo
enddo
do it=1,nt
do iz=1,nz
write(12)((u(i,j,iz,it),i=1,nx),j=1,ny)
write(12)((v(i,j,iz,it),i=1,nx),j=1,ny)
enddo
enddo
end
build后出现的错误
Debug/vor.exe : warning LNK4084: total image size 491245568 exceeds max (268435456); image may not run
vor.exe - 0 error(s), 1 warning(s)
|
|