高空站调用地面自动气象站实时数据的方法

陈英+施君+侯铁丽+肖金

摘 要

为了推进气象观测业务自动化，优化观测业务流程和管理制度，根据湖南省气象局的安排，怀化站实行高空地面业务一体化。因受L波段雷达信号线缆长度和值班室条件等原因限制，我站目前不能实现高空和地面在同一值班室当班，本文探讨利用程序实现调用地面自动气象站的方法。

【关键词】高空 地面 气象站 调用 方法

1 开发目的

本功能模块是湖南省气象局短平快科研课题《高空地面气象观测业务一体化监控平台》的一个子模块，虽然系统已有远程控制主模块，可以控制高空、地面站的任意一台电脑，但在业务电脑尽可能少地使用占用资源较多的第三方软件，以提高电脑稳定性，针对高空放球前和放球初期所需重要地面数据，单独设计了地面数据调用功能模块。

2 实现方法

调用所需的地面数据为：2分钟风向风速、本站气压、气温、相对湿度、能见度，这次数据每分钟滚动刷新。探空放球时间为第15分钟，系统将第15分钟的数据单独显示在窗口中，方便调取使用。为了核对自动站的准确性，系统同时调用新型站和老自动站的地面资料，通过对比分析，方便及时发现自动站传感器故障，例如通过风速对比，如果某套自动站风速长期偏低，可判断该自动站启动风速过大，需要进行相应维护。采用Visual Basic 6.0开发工具，分别读取局域网中新型自动气象站和老自动气象站中的数据文件，实现地面数据调用功能。

2.1 调用新型自动站实时数据

读取新型站＼smo＼dataset＼省名＼区站号＼AWS＼新型自动站＼设备＼Minute＼目录下的M_Z分钟数据文件。

If Len（txtMZ.Text） = 256 And Left$（txtMZ.Text， 4） <> "----" Then

txtxxz（1）.Text = Trim（Mid$（txtMZ.Text， 5， 4）） ''风向

txtxxz（2）.Text = Mid$（txtMZ.Text， 9， 4） ''风速

txtxxz（24）.Text = Mid$（txtMZ.Text， 97， 5） ''气压

txtxxz（14）.Text = Mid$（txtMZ.Text， 65， 4） ''氣温

txtxxz（19）.Text = Mid$（txtMZ.Text， 85， 4） ''湿度

txtxxz（47）.Text = Mid$（txtMZ.Text， 159， 5） ''能见度

txtxxz（24）.Text = Format（Val（txtxxz（24）.Text） / 10， "0.0"）

txtxxz（14）.Text = Format（Val（txtxxz（14）.Text） / 10， "0.0"）

txtxxz（19）.Text = Trim（txtxxz（19）.Text）

txtxxz（2）.Text = Format（Val（txtxxz（2）.Text） / 10， "0.0"）

txtxxz（47）.Text = Trim（txtxxz（47）.Text）

Frame5.Caption = "新型站实时数据（当前记录时间：" & Left$（txtMZ.Text， 4） & "）"

Else

Frame5.Caption = "新型站实时数据（当前分钟可能暂未更新数据，可稍等后手工刷新！）"

End If

2.2 调用老自动气象站实时数据

读取实时分钟数据＼OSSMO 2004＼AwsSource＼zz.txt。ZZ文件为随机文件，存入54个要素的每分钟瞬时值，以ASCII字符存入，共218个字节1。读取局域网共享文件使用普通的Open FileName Input Access Read的方法，再按zz.txt文件指定的文件格式调用显示出来。

txtxxz（1）.Text = Trim（Mid$（txtMZ.Text， 5， 4）） ''风向

txtxxz（2）.Text = Mid$（txtMZ.Text， 9， 4） ''风速

txtxxz（24）.Text = Mid$（txtMZ.Text， 97， 5） ''气压

txtxxz（14）.Text = Mid$（txtMZ.Text， 65， 4） ''气温

txtxxz（19）.Text = Mid$（txtMZ.Text， 85， 4） ''湿度

txtxxz（47）.Text = Mid$（txtMZ.Text， 159， 5） ''能见度。如图1所示。

3 结语

地面资料调用程序在怀化市高空站已稳定运行三年多，高空站在施放探空气象时能自动获取地面气象观测资料，提高了工作效率。

参考文献

[1]中国气象局编.地面气象观测数据文件和记录簿表格式[M].北京：中国气象出版社，2005.

作者单位

1.怀化市气象局 湖南省怀化市 418000

2.通道县气象局 湖南省通道县 418500

3.新晃县气象局 湖南省新晃县 419200