计算假相当位温Θse--脚本

http://www.esrl.noaa.gov/psd/data/gridded/reanalysis/计算假相当位温Θse--脚本
'reinit'
'sdfopen  f:\ncep\air.2011.nc'
'sdfopen  f:\ncep\rhum.2011.nc'
'set lon 80 130'
'set lat 15 45'
'set lev 850'
'set mpdset cnworld'
'set grid on'
i=765
while(i<=779)
'set t 'i
'set ylopts 1 4 0.15'
'set clopts 1 4 0.09'
'set gxout contour'
'set xlint 2'
*'set arrowhead 0.05'
*'set arrscl 0.3'
'define t=air.1'
'define rh=rhum.2'
'define prs=lev'
'define es=(6.112*exp(17.67*(t-273.15)/(t-29.65)))'
'define q=rh*(0.62197*es/(prs-es))/100.'
'define e=prs*q/(0.62197+q)+1e-10'
'define tlcl=55.0+2840.0/(3.5*log(t)-log(e)-4.805)'
'define theta=t*pow((1000/prs),(0.2854*(1.0-0.28*q)))'
'define eqt=theta*exp(((3376./tlcl)-2.54)*q*(1.0+0.81*q))'
'set cint 4'
'set gxout contour'
'set cthick 5'
'd eqt-273.15'
'printim f:\picture\theta07-'i'.png white'
'c'
i=i+1
endwhile