- 积分
- 1501
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-8-6
- 最后登录
- 1970-1-1
|
GrADS
系统平台: |
|
问题截图: |
|
问题概况: |
风廓线数据转换,ctl配置 |
我看过提问的智慧: |
看过 |
自己思考时长(天): |
2 |
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
!!!!!!!!!!!!!!!!!!!风速风向由.txt转换成二进制的fortran程序
program ex01
integer i
integer,parameter:: nt=10
real:: wnd1(nt),wnd2(nt),dir1(nt),dir2(nt)
open(101,file='D:\fengkuoxian\wind.txt',status='old')
do i=1,nt
read(101,*) wnd1(i),wnd2(i)
enddo
close(101)
open(102,file='D:\fengkuoxian\dire.txt',status='old')
do i=1,nt
read(102,*) dir1(i),dir2(i)
enddo
close(102)
open(103,file='D:\fengkuoxian\wind.dat',form='unformatted')
do i=1,nt
write(103) wnd1(nt),wnd2(nt)
enddo
close(103)
open(104,file='D:\fengkuoxian\dire.dat',form='unformatted')
do i=1,nt
write(104) dir1(nt),dir2(nt)
enddo
close(104)
end
!!!!!!!!!!!!!!!!!!!!!ctl文件
dset D:\fengkuoxian\dire.dat
title direction
undef 9999
xdef 25 linear 0 1
ydef 10 levels 75 140 290 540 695 890 1005 1145 1330 1590
zdef 0 levels 0
tdef 25 linear 00Z01jan2010 1hr
vars 1
dir 10 99 direction
ENDVARS
dset D:\fengkuoxian\wind.dat
title wind speed
undef 9999
xdef 25 linear 0 1
ydef 10 levels 75 140 290 540 695 890 1005 1145 1330 1590
zdef 0 levels 0
tdef 25 linear 00Z01jan2010 1hr
vars 1
wnd 10 99 wind
ENDVARS
!!!!!!!!!!!!!!!!!!
画图的时候d wnd;dir 出现如图所示问题,请神们帮我看看啊
|
|