- 积分
- 363
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-12-11
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
f=addfile("d:\zh.nc","r")
tm=short2flt(f->t(92,{850},:,:))
rh=short2flt(f->r(92,{850},:,:))
p=850.
wks=gsn_open_wks("png","theta-850-24-08")
es=6.112*exp(17.67*(tm-273.15)/(tm-29.65))
q=rh*(0.62197*es/(p-es))/100.
e=p*q/(0.62197+q)+10^(-10)
tlcl=55.0+2840.0/(3.5*log(tm)-log(e)-4.805)
theta=tm*(1000./p)^(0.2854*(1.0-0.28*q))
eqt=theta*exp(((3376./tlcl)-2.54)*q*(1.0+0.81*q))
copy_VarCoords(tm,eqt) ; assign coordinates
;eqt!0 ="time"
;eqt&time =tm&time
;eqt!1 ="level"
;eqt&level=tm&level
;eqt!0 ="latitude"
;eqt&latitude =tm&latitude
;eqt!1 ="longitude"
;eqt&longitude=tm&longitude
res=True
res@mpMinLatF = 17 ; Asia limits
res@mpMaxLatF = 55
res@mpMinLonF = 72
res@mpMaxLonF = 136
res@mpLimitMode = "Corners"
res@mpLeftCornerLatF = 15
res@mpRightCornerLatF = 50
res@mpLeftCornerLonF = 90
res@mpRightCornerLonF = 130
;res@mpLambertParallel1F = 10
;res@mpLambertParallel2F = 6
;res@mpLambertMeridianF =104.06
res@mpDataBaseVersion ="MediumRes"
res@mpDataSetName ="Earth..4"
res@mpOutlineOn =True
res@mpFillOn =False
res@mpOutlineSpecifiers =(/"China:states","Taiwan"/)
res@pmTickMarkDisplayMode="Always"
res@tmXTOn =False
res@tmYROn =False
res@gsnLeftString = ""
res@gsnRightString = ""
res@cnLineLabelsOn =True
plot=gsn_csm_contour_map(wks,eqt,res)
运行结果:
warning:ContourPlotInitialize: scalar field is constant; no contour lines will appear; use cnConstFEnableFill to enable fill
|
|