- 积分
- 1770
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-4-12
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2012-8-20 16:30:15
|
显示全部楼层
做个霸气的木头 发表于 2012-8-20 12:29
这种剖面图,其实就是让变量只在时间和层次上面变化,其他的维数都固定。你的gs应该没有问题,你把你提取 ...
FORTRAN读取和存储数据:
data time/'12071920.000','12072008.000','12072020.000','12072108.000','12072120.000','12072208.000','12072220.000','12072220.000'/
data level/'1000','925','850','700','500','400','300','250','200','150','100'/
!*************************************READ SE*********************************************!
do iz=1,nz
do it=1,nt
open(1,file='f:\program\micaps\pou\thetse\'//trim(level(iz))//'\'//time(it),err=101)
do i=1,4 !!!前四行进行空读
read(1,*)
enddo
do iy=1,ny
read(1,*) (var(ix,iy,iz,it),ix=1,nx)
enddo
close(1)
enddo
enddo
!********************************WRITE****************************************************!
open(1,file='f:\program\micaps\pou\dat\721.dat',form="binary",err=102)
do it=1,nt
write(1) (((var(ix,iy,iz,it),ix=1,nx),iy=ny,1,-1),iz=1,nz)
enddo
close(1)
CTL文件:
dset f:\program\micaps\pou\dat\721.dat
undef 9999
title 12年7月19日-22日假相当位温剖面图
xdef 53 linear 30 2.5
ydef 29 linear 10 2.5
zdef 11 levels 1000 925 850 700 500 400 300 250 200 150 100
tdef 8 linear 08z19jul2012 12hr
vars 1
se 1 99 diamond4tograds
endvars
画图的时候就是什么也没有,只有横纵坐标,,请您指点啊··· |
|