- 积分
- 39
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2022-2-26
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2022-3-1 13:58:02
|
显示全部楼层
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"
begin
finame = "./et_m_vic_2000_2019.nc4"
fi = addfile(finame,"r")
time = fi->time
time(date) = cd_calendar(time,0)
year = time(:,0)
idx_2000_2019 = ind(year.ge.2000.and.year.le.2019)
ts_ann = month_to_annual(ts(idx_2000_2019,:,:),1)
rc = regCoef_n(ispan(2000,2019,1),ts_ann,0,0)
rc = rc*10
rc@long_name = "Linear Trend"
rc@units = ts_ann@units+"/decade"
copy_VarCoords(ts_ann(0,:,:),rc)
df = new((/nlat,nlon/),"integer")
tval = new((/nlat,nlon/),"float")
b = new((/nlat,nlon/),"float")
df = onedtond(rc@nptxy-2,(/nlat,nlon/))
tval = onedtond(rc@tval,(/nlat,nlon/))
b = 0.5
prob = 1.-betainc(df/(df+tval^2),df/2.0,b)
copy_VarCoords(ts_ann(0,:,:),prob)
rc@mpDateSetName = "Earth..4"
plot = gsn_csm_contour_map(wks, ts_ann, rc)
end |
|