大气水汽总含量遥感估计

基于MODIS数据估算大气水汽含量。

pro cal_Vapor  基于modis数据计算大气水汽含量

打开modis文件

fn=dialog_pickfile(title='选择modis数据',get_path=work_dir)

cd,work_dir

envi_open_file, fn, r_fid=fid

envi_file_query, fid, ns=ns,nl=nl,nb=nb,dims=dims, data_type=data_type, interleave=interleave, offset=offset

map_info=envi_get_map_info(fid=fid)

获得modis第2、17、18、19波段辐射亮度

L2=envi_get_data(fid=fid,dims=dims,pos=0)

L17=envi_get_data(fid=fid,dims=dims,pos=1)

L18=envi_get_data(fid=fid,dims=dims,pos=2)

L19=envi_get_data(fid=fid,dims=dims,pos=3)

分波段计算水汽含量

W17=26.314-54.434*(L17/L2) 28.449*(L17/L2)^2

W18=5.012-23.017*(L18/L2) 27.884*(L18/L2)^2

W19=9.446-26.887*(L19/L2) 19.914*(L19/L2)^2

计算平均水汽含量

W=0.192*W17 0.453*W18 0.355*W19

保存结果

o_fn=dialog_pickfile(title='大气水汽含量计结果保存为')

envi_write_envi_file, W, out_name=o_fn, ns=ns, nl=nl,nb=1,$

data_tyoe=4,interleave=0, offset=offset, map_info=map_info

end

数据文件

链接：https://pan.baidu.com/s/1WOCgx-NzfY66qScNU3tvuw 

提取码：dac3

源代码链接：https://pan.baidu.com/s/1y987A0yFL_Dv71kyTfb7jg 

提取码：qc4d