- 积分
- 10441
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-8-29
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我想将grads的输出文件格式变成txt格式的,但是文件中数据的输出格式是8*34+1(每行8个数据供34行,外加最后一行是1个数据的),但是我想文件中数据输出格式是21*13(每行21个数据13行),可以实现吗?
下面的数据是2.5*2.5的。
'reinit'
'sdfopen e:\data\air.1998.nc'
'sdfopen e:\data\rhum.1998.nc'
'set lon 80 130'
'set lat 15 45'
'set lev 850'
'set mpdset cnworld'
'enable print E:\data\sitase.gmf'
i=131
while(i<=134)
'set t 'i
'set gxout contour'
'define t0=air.1'
'define rh=rhum.2'
'define prs=lev'
'define es=(6.112*exp(17.67*(t0-273.15)/(t0-29.65)))'
'define q=rh*(0.62197*es/(prs-es))/100.'
'define e=prs*q/(0.62197+q)+1e-10'
'define tlcl=55.0+2840.0/(3.5*log(t0)-log(e)-4.805)'
'define theta=t0*pow((1000/prs),(0.2854*(1.0-0.28*q)))'
'define esl=theta*exp(((3376./tlcl)-2.54)*q*(1.0+0.81*q))'
'set cint 4'
'set gxout contour'
'set cthick 5'
'd esl'
'draw title sitase-'i' '
' print'
'set gxout print'
say i
file="E:\data\sitase.txt"
'd esl'
rc=write(file,result,append)
'c'
i=i+1
endwhile
'disable print'
;
|
评分
-
查看全部评分
|