分享水汽通量

slc2005011020

'reinit'
'sdfopen f:\shuju2\uwnd.mon.mean.nc'
'sdfopen f:\shuju2\vwnd.mon.mean.nc'
'sdfopen f:\shuju2\shum.mon.mean.nc'
'sdfopen f:\shuju2\pres.mon.mean.nc'

'enable print F:\tu\sqtl.gmf'
'set lat 20 80'
'set lon 80 160'
'set z 1 8'
'set t 7 800'
'set grid off'
'set xlint 20'
'set ylint 10'
'set cthick 5'
'set cint 3'
'run f:\chenxu2\color.gs'
'set rbrange -3 32'
'set grads off'

'set mpdset cnworld'
'define shum2=0.001*shum.3'
'define qu=uwnd.1*shum2'
'define qv=vwnd.2*shum2'
'set t 7 8'
'define qum1=ave(vint(pres.4(lev=0),qu,300),t+0,t=801,12)'
'define qvm1=ave(vint(pres.4(lev=0),qv,300),t+0,t=801,12)'
'define qum11=ave(qum1,t=7,t=8)'
'define qvm11=ave(qvm1,t=7,t=8)'
'define sq11=mag(qum11,qvm11)/9.8'
'set z 8'
'd sq11'
'print'
'disable print'
;

slc2005011020

大家可以看看，都对不对！！！感谢了