- 积分
- 202
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-7-17
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我的求水汽通量的gs文件运行时出了这个问题,请大家帮帮忙,看看哪里有错吧
'reinit'
iyear=1981
while(iyear<=2010)
'sdfopen D:\lw2011\huanliu\uwnd.'iyear'.nc'
'sdfopen D:\lw2011\huanliu\vwnd.'iyear'.nc'
'sdfopen D:\lw2011\huanliu\rhum.'iyear'.nc'
'sdfopen D:\lw2011\huanliu\air.'iyear'.nc'
'set gxout fwrite'
'set fwrite D:\tmax\huanliu_daily\sj\q850-'iyear'.grd'
'set x 1 144'
'set y 1 73'
'set lev 850'
k=1
while(k<=365)
'set t ' k
'define prs=lev'
'define g=9.8'
'define es=(6.112*exp((17.67*(air.4-273.15))/(air.4-29.65)))'
'define qs=(0.62197*es/(prs-0.378*es))'
'define q=qs*rhum.3/100'
'define aa=mag(q*uwnd/g,q*vwnd.2/g)*1000'
k=k+1
endwhile
'define zz=ave(aa,time=30jun'iyear',time=14aug'iyear')'
'd zz '
'disable fwrite'
'close 1'
iyear=iyear+1
endwhile
'reinit'
|
|