- 积分
- 1313
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2015-6-29
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
才入门的新手,求教!最近一直被webster and yang定义印度夏季风指数计算结果所困扰,选取的是0——20N,40E——110E范围的850hPa与200hPa的纬向风差:U850-U200,可是利用ERA40和JRA55计算后得出的季风指数与最终的正确结果相关性总是很差。觉得问题应该出在了程序里可是又看不出错在哪里,所以求各位做过这方面的大神指点一下。 此程序用的是1958年到2001年的ERA40的风场nc资料。
begin
ymStrt = 195806
ymLast = 200109
yrStrt = ymStrt/100
yrLast = ymLast/100
latas = 0
latan = 20
lonaw = 40
lonae = 110
f = addfile("wind.nc", "r")
lev=f->level
print(f)
number=(/0,1/) ;200,850hPa
TIME = f->time
YYYY = ut_calendar(TIME,-1)/100
iYYYY = ind(YYYY.ge.yrStrt .and. YYYY.le.yrLast)
uaa =short2flt(f->u(iYYYY,number,{latas:latan},{lonaw:lonae}))
printVarSummary(uaa)
uajjay=month_to_season (uaa, "JJA")
uajja1=uajjay(:,0,:,:)
uajja2=uajjay(:,1,:,:)
lata = f->latitude({0:20})
rad = 4.0*atan(1.0)/180.0
wgtya = cos(lata*rad)
wgtx =1.0
uaave1 =wgt_areaave(uajja1,wgtya,wgtx,0)
uaave2 =wgt_areaave(uajja2,wgtya,wgtx,0)
index=uaave2-uaave1
sd_index= dim_standardize_n_Wrap(index,1,0)
print(sd_index)
asciiwrite("2002.ascii",sd_index)
asciiwrite("2002yuan.ascii",index)
fbindirwrite("2002.dat",sd_index)
fbindirwrite("2002yuan.dat",index)
|
-
|