- 积分
- 33764
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-1-12
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
path_dir = ../TRMM/3B42_daily.2012.06.25.7.nc"
path_nc=./wrfout_d03_2012-06-24_18:00:00.nc"
a=addfile(path_dir, "r")
b=addfile(path_nc, "r")
lat= a->latitude(321:336) ;提取一个区域的数据
lon= a->longitude(361:378)
rain=a->r(0,321:336,361:378) ;latitude:[30.375..34.125]
;longitude:[90.375..94.625]
lat2d=b->XLAT(0,:,:)
lon2d=b->XLONG(0,:,:)
;using bilinear interpolation
x0=new((/121/),float) ;构造需要插值的经纬度格点
y0=new((/121/),float)
y0(0)=30.375
x0(0)=90.375
do nn=1,120
y0(nn)=nn*0.03125+30.375
x0(nn)=nn*0.03541667+90.375
end do
linint2_rain=linint2_Wrap(lon, lat, rain, False, x0, y0, 0) ;双线性插值
;Change the map-projection
xgrid=rgrid2rcm(y0, x0, linint2_rain, lat2d, lon2d, 1)
经过双线性插值后的结果跟没有插值,直接xgrid=rgrid2rcm(lat, lon, rain, lat2d, lon2d, 1)的画图结果一致。
不知道什么原因,请大神赐教。
|
|