- 积分
- 3301
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2016-8-10
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2016-9-8 11:18:41
|
显示全部楼层
你是说不用meteoinfo生成的那个格点场,自己写一个,你帮我看下我这个哪里有问题:
fortran生成格点场的程序:
Program gen_grid
Implicit none
!这里是定义的变量
integer i,j
integer,parameter::x=31,y=21
real grid
!程序开始
grid=1.0
Open(1,file='mask.dat',status='replace',form='binary')
Do i=1,y
Do j=1,x
Write(1)grid
Enddo
Enddo
close(1)
!程序结束
End
格点场ctl:
DSET mask.dat
TITLE Mask data
UNDEF -9999.0
XDEF 31 LINEAR 107.0 0.1
YDEF 21 LINEAR 33.0 0.1
ZDEF 1 LINEAR 1.0 1.0
TDEF 1 linear 01may2011 1mo
VARS 1
mask 0 99 background mask data (99)
ENDVARS
gs:
'reinit'
'open e:/project/temp/sta.ctl'
'open e:/project/temp/xian_mask.ctl'
'set mpdraw off'
'set lon 107.6 109.9'
'set lat 33.6 34.8'
'set ccolor 1'
'set csmooth on'
'set gxout shaded'
'd smth9(maskout(oacres(mask.2,temper,2),mask.2(t=1)))'
'set gxout contour'
'd smth9(maskout(oacres(mask.2,temper,2),mask.2(t=1)))'
'draw shp e:/project/temp/xian.shp'
'e:/project/temp/output.gs'
'cbar_interp 0.75 1 1'
'printim e:/project/temp/xian_mask.png white'
;
是这个意思么?这是绘制出来的图,边界外的数据怎么清楚,这个色标为什么没数字,怎么样做出meteoinfo制作出来的格点场?
|
|