- 积分
- 46
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-9-23
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
资料为6层151*151的资料,文本格式,只有一个变量
fortran为
 - parameter(nx=151,ny=151,s=6)
- real,dimension(nx,ny,6,1)::dbz
- integer it,k,i,j,irec
- open(1,file="jg1.txt")
- open(2,file="jg1.grd",form="binary",status="replace",access="direct",recl=nx*ny*4)
- irec=0
- do it=1,1
- do k=1,6
- read(1,100)((dbz(i,j,k,it),i=1,nx),j=1,ny)
- irec=irec+1
- write(2,rec=irec)((dbz(i,j,k,it),i=1,nx),j=1,ny)
- enddo
- enddo
- close(1)
- close(2)
- 100 format(151f12.6)
- end
ctl为
 - DSET E:\grads\jg1.grd
- TITLE LAGERANGE
- UNDEF -999.0
- XDEF 151 LINEAR -150 2
- YDEF 151 LINEAR -150 2
- ZDEF 6 LEVELS 2 3 4 5 6 7
- TDEF 1 LINEAR 00Z02JAN1987 1DY
- VARS 1
- DBZ 6 99 基本反射率
- ENDVARS
打开grads open e:\grads\jg1.grd
出错:missing or invalid dimension size
the invalid description file record is xdef 151 linear -150 2
the data file was not opened
我想画直角坐标系的,不想用经纬度的,不知道可不可以?连文件都打不开!
|
|