- 积分
- 483
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-6-24
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
'reinit'
'sdfopen D:\ncep\hgt.2012.nc'
'set lon 0 360'
'set lat -90 90'
'set t 773'
'set lev 1000 100'
'set cint 1'
'set mpdset cnworld'
'define hgtc=hgt.1'
'define ug= -9.8*cdiff(hgtc,y)/(111177*cdiff(lat,y))'
'define vg= 9.8*cdiff(hgtc,x)/(111177*cdiff(lon,x)*cos(lat*3.1415/180))'
'define dugdx=cdiff(ug,x)/(111177*cdiff(lon,x)*cos(lat*3.1415/180))'
'define dvgdx=cdiff(vg,x)/(111177*cdiff(lon,x)*cos(lat*3.1415/180))'
'define dtdx=cdiff(hgtc,x)/(111177*cdiff(lon,x)*cos(lat*3.1415/180))'
'define dugdy= cdiff(ug,y)/(111177*cdiff(lat,y))'
'define dvgdy= cdiff(vg,y)/(111177*cdiff(lat,y))'
'define dtdy= cdiff(hgtc,y)/(111177*cdiff(lat,y))'
'define qx=(-287.05/lev)*(dugdx*dtdx+dvgdx*dtdy)*100000000000000'
'define qy=(-287.05/lev)*(dugdy*dtdx+dvgdy*dtdy)*100000000000000'
'define div=hdivg(qx,qy)*100000'
'set lon 90 120'
'set lat 26'
'define qz=(qx+qy)'
'set t 774'
'set cint 1'
*'set xyrev on'
*'d qx'
'd div'
*'d qz'
'printim D:\ncep\q.gif gif white x1200 y800'
*'reinit'
* run D:\ncep\qx.gs
|
|