- 积分
- 9104
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-7-14
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2013-11-7 19:41:21
|
显示全部楼层
river 发表于 2013-11-7 18:36
不是问题傻不傻,是没问到点子上去。还有你只贴了一部分gs,别人看了可能该是一头雾水,来回答问题的人找 ...
这是我的gs文件
'reinit'
'sdfopen c:\V\vwnd.mon.ltm.nc'
lev.1=1000; lev.2=925;lev.3=850;lev.4=700;lev.5=600;lev.6=500
lev.7=400; lev.8=300; lev.9=250; lev.10=200; lev.11=150; lev.12=100;
lev.13=70; lev.14=50; lev.15=30; lev.16=20; lev.17=10
'set gxout fwrite'
'set fwrite c:\V\psi.dat'
a=6.37e6
pi=3.14159
g=9.78
zz=1
while(zz<=16)
temp=zz+1
dp.zz=(lev.temp-lev.zz)*100
zz=zz+1
endwhile
'set x 1 144'
'set y 1 73'
tt=1
while(t<=12)
'set z 1 17'
'set tt'tt
'define Vave=ave(vwnd,lon=0,lon=360,-b)'
zz=17
'set z'zz
'define psi'zz'=0'
zz=16
while(zz>=1)
temp1=zz+1
'define Xishu=2*'pi'*'a'*cos(lat*'pi'/180)/'g'
'psi'zz'=psi'temp1'-Xishu*Vave*'dp.zz''
zz=zz-1
endwhile
tt=tt+1
endwhile
zz=1
while(zz<=17)
'd psi'zz
zz=zz+1
endwhile
'disable fwrite'
这个是质量流函数的计算公式
[v]=g/(2πa cos⁡∅ ) ∂φ/∂p
其中[v]是全球纬向平均风,φ就是质量流函数
运行gs文件以后,黑屏上就总提示这个错误
c:\gddzy\55.png |
|