- 积分
- 4843
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2019-10-14
- 最后登录
- 1970-1-1
![[知道祢有多疼我] 粉丝数:74 微博数:21 新浪微博达人勋](source/plugin/sina_login/img/light.png)
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 opeveu 于 2022-5-16 15:15 编辑
请问各位大佬一个问题,是有关插值的问题,比如我想通过wrfout文件提取50m高度的风速,通过查看发现50m高度并不是在某一个eta_level上,第一个level和第二个level分别是30m和60m,然后我通过家园里的脚本提取了50m高度的风速,请问这个脚本的插值方法是哪种呢?
这是从家园里找的脚本:
begin
a = addfile("/mnt/disk3/lxg_data/xlwyongmoni/20201112RL=3/wrfout_d04_2020-12-18_00:00:00" ,"r")
times = wrf_user_list_times(a)
ntimes =dimsizes(times)-1
time=-1
u = wrf_user_getvar(a,"ua",time)
v = wrf_user_getvar(a,"va",time)
rh=wrf_user_getvar(a, "rh",time)
height = wrf_user_getvar(a, "z",time)
ter = wrf_user_getvar(a, "ter",time)
Latitude = 45.40
Longitude = 127.6563
hh=100
res = True
res@returnInt = True
point = wrf_user_ll_to_ij(a,Longitude,Latitude,res)
point =point -1
x = point(0)
y = point(1)
print(x)
print(y)
nheight = conform(height,ter,(/0,2,3/))
height = height - nheight
u_ph = wrf_user_intrp3d( u,height,"h", hh,0.,False)
v_ph = wrf_user_intrp3d( v,height,"h", hh,0.,False)
rhh=wrf_user_intrp3d(rh,height,"h", hh,0.,False)
spdh= sqrt(u_ph^2 + v_ph^2)
windspdh=spdh(:,x,y)
dirh=wind_direction(u_ph,v_ph,0)
winddirh=dirh(:,x,y)
rhc=rhh(:,x,y)
npts=ntimes+1
fName = "2020-12-18_100m_heightdata.txt"
data = new( npts, "string")
print(" Time Wind_dir_hm Wind_speed_hm ")
print ( times+sprintf("%12.1f",rhc)+sprintf("%12.0f",winddirh)+sprintf("%12.1f", windspdh) )
data = times + sprintf("%12.1f",rhc)+sprintf("%12.0f",winddirh)+sprintf("%12.1f", windspdh)
asciiwrite (fName,data)
end
|
|