- 积分
- 1216
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-7-8
- 最后登录
- 1970-1-1
|
发表于 2015-5-17 18:03:06
|
显示全部楼层
*------------------------------------------------------
'reinit'
*------------------------------------------------------
'sdfopen C:\Users\i\Desktop\lunwen\fengchang\uwnd.mon.mean.nc'
'sdfopen C:\Users\i\Desktop\lunwen\fengchang\vwnd.mon.mean.nc'
'sdfopen C:\Users\i\Desktop\lunwen\fengchang\shum.mon.mean.nc'
'sdfopen C:\Users\i\Desktop\lunwen\fengchang\hgt.mon.mean.nc'
'set mpdset cnworld'
*------------------------------------------------------
'clear'
'set grads off'
'set lon 70 130'
'set lat 0 40'
nz=1
while(nz<=8)
'set z'nz''
'define qu=uwnd.1*shum.3/9.8'
'd qu'
nz=nz+1
endwhile
nz=1
while(nz<=8)
'set z'nz'
'define qv=vwnd.2*shum.3/9.8'
'd qv'
nz=nz+1
endwhile
nz=1
while(nz<=8)
'set z'nz''
'define qu=uwnd.1*shum.3/9.8'
'define qv=vwnd.2*shum.3/9.8'
'd hdivg(qu,qv)'
nz=nz+1
endwhile
'set z 1'
'define quall=vint(hgt.4,qu,300)*9.8'
'define qvall=vint(hgt.4,qv,300)*9.8'
'd quall'
'd qvall'
'd hdivg(quall,qvall)'
'draw title (c)'
'enable print C:\Users\i\Desktop\lunwen\fengchang\quv.gmf'
'print'
*------------------------------------------------------
'disable print'
*------------------------------------------------------
这是我的gs,但是结果是错的,请楼主帮忙看看哪儿错了。还有我想做的事63,69,79,10年的3-4月的整层水汽通量散度,谢谢楼主 |
|