- 积分
- 5322
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2019-4-26
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
数据是era5的,时间24个小时,高度24层的
- begin
- f=addfile("qt.nc", "r")
- tem=short2flt(f->t(:,:,::-1,:))
- q=short2flt(f->q(:,:,::-1,:))
- lev=f->level
- ose = new((/24,24,121,81/),float)
- ;;;;;;;;;;;;;;;;;;;计算各个高度层的假相当位温
- do i = 0,23
- e = lev(i)*q(:,i,:,:)/(0.622+q(:,i,:,:))
- copy_VarMeta(q(:,0,:,:), e)
- tlcl=55.0+2840.0/(3.5*log(tem(:,i,:,:))-log(e)-4.805)
- copy_VarMeta(e, tlcl)
- theta = tem(:,i,:,:)*((1000/lev(i))^(0.2854*(1.0-0.28*q(:,i,:,:))))
- copy_VarMeta(e, theta)
- ose(:,i,:,:) = theta*exp(((3376./tlcl)-2.54)*q(:,i,:,:)*(1.0+0.81*q(:,i,:,:)))
- copy_VarMeta(q, ose)
- ;e=0
- end do
- printVarSummary(ose)
- printMinMax(ose, 1)
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- delete(tem)
- delete(q)
- delete(tlcl)
- delete(theta)
- wks = gsn_open_wks("pdf", "ose850")
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;剖面图
- vores = True
- vores@gsnAddCyclic = False
- vores@gsnDraw = False
- vores@gsnFrame = False
- vores@cnLineLabelsOn = False ; turn on line labels
- ;vores@cnLevelSelectionMode = "ManualLevels"
- ;vores@cnMinLevelValF = 270
- ;vores@cnMaxLevelValF = 410
- ;vores@cnLevelSpacingF = 14
- vores@cnFillOn = True
- vores@cnFillPalette = "BlWhRe" ; choose colormap ; turn on color fill
- ; plot = gsn_csm_pres_hgt(wks, vvo(:,{20:30},64), vores)
- plot = gsn_csm_pres_hgt(wks, ose(16,:,{10:40},{106}), vores) ;剖面图
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;单层
- cnres = True
- ;cnres@gsnMaximize = True
- cnres@gsnAddCyclic = False
- cnres@gsnDraw = False
- cnres@gsnFrame = False
- cnres@cnFillOn = True
- cnres@cnLevelSelectionMode = "ManualLevels" ; add common colorbar
- cnres@cnMinLevelValF = 320
- cnres@cnMaxLevelValF = 360
- cnres@cnLevelSpacingF = 4
- ;cnres@cnFillPalette = "WhiteGreen"
- ;cnres@tiMainString = "850hPa vapor_flux"
- cnres@gsnLeftString = ""
- cnres@gsnRightString = ""
- cnres@cnLinesOn = False
- cnres@cnLineLabelsOn = False
- cnres@lbLabelBarOn = True
- ;cnres@cnLevelSelectionMode = "ManualLevels"
- ;cnres@cnMinLevelValF = 0
- ;cnres@cnMaxLevelValF = 16
- ;cnres@cnLevelSpacingF = 4
- cnres@mpDataBaseVersion = "Ncarg4_1";这一步和下一步必须要,否则加载中国地图的时候会出错(找不到地图库)
- cnres@mpDataSetName="Earth..4";这步加上步再加下面那个China:state和Taiwan就可以画出中国轮廓边界了
- ;cnres@mpOutlineOn=True
- cnres@mpOutlineSpecifiers=(/"China:states","Taiwan"/);在这个地图库里我们绘制中国和台湾的区域边界
- cnres@mpGeophysicalLineThicknessF = 1 ; double the thickness of geophysical boundaries
- cnres@mpNationalLineThicknessF = 5 ; double the thickness of national boundaries
- cnres@mpMinLonF = 95 ; select a subregion
- cnres@mpMaxLonF = 110
- cnres@mpMinLatF = 23
- cnres@mpMaxLatF = 38
- ;plot = gsn_csm_contour_map(wks, ose(15,{850},:,:), cnres) ;850单层
- draw(plot)
- delete(ose)
- frame(wks)
- end
复制代码 |
-
850hPa的
-
106°E剖面图
|