气象数据处理流程Word下载.docx
《气象数据处理流程Word下载.docx》由会员分享,可在线阅读,更多相关《气象数据处理流程Word下载.docx(9页珍藏版)》请在冰豆网上搜索。
![气象数据处理流程Word下载.docx](https://file1.bdocx.com/fileroot1/2023-1/25/6fb819c8-016e-47b8-961f-d9a5141fafec/6fb819c8-016e-47b8-961f-d9a5141fafec1.gif)
1.4.选择中国地面国际交换站日值数据
选择所需数据点击预览(本次气象数据为:
降水量、日最高气温、日最低气温、平均湿度、辐射度、积雪厚度等;
地区为:
黑龙江省、吉林省、辽宁省、内蒙古)
下载数据并同时下载文档说明
1.5.网站数据粘贴并保存为TXT文档
2.建立属性库
2.1.存储后的TXT文档用Excel打开并将第一列按逗号分列
2.2.站点数据处理
2.2.1.由于站点数据为经纬度数据
为方便插值数据设置分辨率(1公里)减少投影变换次数,先将站点坐标转为大地坐标
并添加X、Y列存储大地坐标值后将各项数据按照站点字段年月日合成总数据库
(注意:
数据库存储为DBF3格式,个字段均为数值型坐标需设置小数位数)
为填补插值后北部和东部数据的空缺采用最邻近法将漠河北部、富锦东部补齐2点数据。
2.2.2.利用VBA程序
Subwe()
i= 6
For j = 1To 30
Windows("chengle.dbf").Activate
Rows("
1:
1"
).Select
Selection.AutoFilter
Selection.AutoFilter Field:
=5,Criteria1:
=i
Selection.AutoFilterField:
=6, Criteria1:
=j
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Windows("chengle.dbf"
).Activate
Rows("1:
).Select
Selection.AutoFilter
Windows("
book"
+CStr(j)).Activate
Range("A1:
n100"
).Select