- 积分
- 153
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-11-6
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/popRemap.ncl"
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/shea_util.ncl"
begin
sp1 = addfile("rhum.2013.nc","r")
v1 = addfile("vwnd.2013.nc","r")
u1 = addfile("uwnd.2013.nc","r")
p1 = addfile("pres.sfc.2013.nc","r")
v3 = short2flt(v1->vwnd(:,0:7,:,:))
u3 = short2flt(u1->uwnd(:,0:7,:,:))
sp3 = short2flt(sp1->rhum(:,0:7,:,:))
p3 = short2flt(p1->pres)
time = v1->time
;-------------计算最大地面气压-----------------------------
p4 = p3/100
pmax = max(p4)
;----------------------------------------------------------
uq1 = u3*sp3
vq1 = v3*sp3
lev = (/1000,925,850,700,600,500,400,300/)
lat = fspan(-90,90,73)
lon = fspan(0,357.5,144)
time!0 = "time"
lon!0 = "lon"
lon@units = "degrees_east"
lat!0 = "lat"
lat@units = "degrees_north"
lev!0 = "lev"
lev@unite = "hpa"
uq1!0 = "time"
uq1!1 = "lev"
uq1!2 = "lat"
uq1!3 = "lon"
uq1&lon = lon
uq1&lat = lat
uq1&lev = lev
uq1&time = time
vq1!0 = "time"
vq1!1 = "lev"
vq1!2 = "lat"
vq1!3 = "lon"
p4!0 = "time"
p4!1 = "lat"
p4!2 = "lon"
p4&lon = lon
p4&lat = lat
p4&time = time
uq2 = uq1(time|:,lat|:,lon|:,lev|:)
vq2 = vq1(time|:,lat|:,lon|:,lev|:)
p = (/1000.,925.,850.,700.,600.,500.,400.,300./)
linlog = 1
pbot = 1000.
ptop = 300.
uq3 = (vibeta(p,uq2,linlog,p4,pbot,ptop))/9.8
vq3 = (vibeta(p,vq2,linlog,p4,pbot,ptop))/9.8
uq3!0 = "time"
uq3!1 = "lat"
uq3!2 = "lon"
uq3&lon = lon
uq3&lat = lat
uq3&time = time
vq3!0 = "time"
vq3!1 = "lat"
vq3!2 = "lon"
vq3&lon = lon
vq3&lat = lat
vq3&time = time
printVarSummary(uq3)
end
算到这一步的时候总出现warning:vibeta: there must be at least three levels with data above the surface这样的提示,uq3没有值,请大家指正一下代码有哪里出现错误了吗?
|
|