- 积分
- 254
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2017-2-7
- 最后登录
- 1970-1-1
|
发表于 2017-6-15 20:26:59
|
显示全部楼层
我也遇到同样的问题
烦请给我看看
是一个dat转grd的fortran程序
program main
parameter(nx=37,ny=17,nz=1,nt=48)
real var(nx,ny,nz,nt)
open(11,file='C:\data_grads\grads2\U850.dat')
do t=1,nt
do z=1,nz
read(11,1000)!空读一行
read(11,2000)((var(x,y,x,t),x=1,nx),y=1,ny)
enddo
enddo
open(12,file='c:\dat_grads\grads2\u850.grd',form='binary')
do t=1,nt
do z=1,nz
write(12)((var(x,y,z,t),x=1,nx),y=1,ny)
enddo
enddo
1000format(2i6)
2000format(37f6.2)
close(11)
close(12)
end |
|