- 积分
- 1452
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-9-19
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我手里有已经转化好的二进制站点数据,和map的映射文件,写了站点数据的ctl,以上部分都没有错,接下来用fortran编了画格点的程序,又为格点写了ctl,之后写gs运行就报错,我把过程贴出来,希望大家能帮忙解决~~谢谢~~
这是站点数据的ctl
rainfall.ctl
DSET f:\data\prepitation\1.dat
UNDEF -999.9
TITLE rainfall
DTYPE station
STNMAP f:\data\prepitation\1.map
TDEF 11993 linear 01Jan1980 1dy
VARS 1
p 0 99 rainfall
ENDVARS
这是画格点的fortran
Program stn2grd
parameter(nx=71, ny=41)
real lat(ny), lon(nx)
real s(nx,ny)
open(1, file= 'f:/data/prepitation/2.dat', form='binary')
lat(1)=15.0
lon(1)=70.0
do j=1,ny-1
lat(j+1)=lat(j)+1.0
enddo
do i=1,nx-1
lon(i+1)=lon(i)+1.0
enddo
do i=1,nx
do j=1,ny
s(i,j)= 1
enddo
enddo
write(1) s
end
这是格点对应的grid.ctl
dset f:/data/prepitation/2.dat
undef -999.0
title Grid data
xdef 71 linear 70 1
ydef 41 linear 15 1
zdef 1 linear 1000 1
tdef 11993 linear 01jan1980 1dy
vars
g 1 99 grid data
endvars
这是运行的rain1.gs
'open d:/grid.ctl'
'open d:/rainfall.ctl'
'enable print d:/index.gmf'
'set lon 90 112'
'set lat 15 36'
'set time 3jun1992 14jun1992'
'set mpdset hires cnworld'
'define a=oacres(g,p.2)'
'set gxout shaded'
'd a'
'set gxout contour'
'd a'
'print'
'disable print'
'reinit'
|
|