整层水汽通量散度计算及其单位

果冻

非常感谢，下载看看

果冻

真郁闷，着急下载却金钱不够

超级努力

我想问一下，q*u不是也可以求解水汽输送吗，和这个有什么区别，要求整层的我可以不直接用grads自带vint进行积分~

2511624023

很有用的！！

柚子皮

{:lxm_24:}好帖，从头看到尾，收获很大

Ferry

很有帮助，谢谢楼主分享

harryonly

不错不错不错

成信院

请教楼主，我下载了你的gs，但是出来的结果是错的喃，楼主有空没啊，可不可以帮帮忙，解决下问题？谢谢

成信院

*------------------------------------------------------
'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月的整层水汽通量散度，谢谢楼主

楠楠_

楼主真棒！！！