|
人工站与自动站月数据的比较
帅莉莉
（宜春市气象局,江西 宜春 336000）
中图分类号：P413;P415.1+2 文献标识码：B 文章编号：1007－9033（2004）02－0041－01
利用新版自动站软件中的“文件转换服务”功能，可以编程实现人工站与自动站月数据的比较，消除月报表中部分人工观测项目的输入错误，同时提高报表的质量。为提高程序的灵活性，可利用ＣｏｍｍａｎＤｉａｌｏｇ控件增加２个“浏览”按钮，用以选择进行比较的人工站和自动站月数据文件。程序中可设一变量ｆａｃｔｏｒ＄用于存放当前要比较的要素名，并设２个数组ＣｏｍｐＤ＄（31，2４）与ＣｏｍｐＢ＄（３１，２４）雪用于存放人工站与自动站某要素各时次的值。由于云量、能见度在Ａ文件中存储格式类似，可用同样的方法获得要素值：
ｆａｃｔｏｒ＄＝“总云量”；低云量、能见度一样
Ｆｏｒｉ＝１ Ｔｏ ｄａｙｓ；ｄａｙｓ存放该月日数
Ｉｎｐｕｔ＃１， Ｄ＄；＃１为人工站Ａ文件
Ｆｏｒ ｊ＝１ Ｔｏ ２４；对能见度，因１ d数据占2行，需用
2个
ＣｏｍｐＤ＄（ｉ，ｊ）＝Ｍｉｄ（Ｄ＄，（ｊ－１）＊３＋１，２）；Ｉｎｐｕｔ、2个ｊ
循环接数据，且＊３改为＊４
Ｎｅｘｔｉ
Ｎｅｘｔｉ
Ｆｏｒｊ＝１ Ｔｏ ｄａｙｓ
Ｉｎｐｕｔ＃２，Ｂ＄；＃２为自动站Ａ文件
Ｆｏｒｊ＝１ Ｔｏ ２４
ＣｏｍｐＢ＄(ｉ,ｊ)＝Ｍｉｄ(B＄，(j-1)*3+1,2）
Ｎｅｘｔｉ
Ｎｅｘｔｉ
Ｃａｌｌ Ｃｏｍｐ（Ｃｏｍｐ Ｄ＄０，ＣｏｍｐＢ＄０，ｆａｃｔｏｒ＄，ｄａｙｓ?
对于云状，因不是按日存放，且无明显规律，可采用下法取各时次值：
Ｆｏｒｉ＝１ Ｔｏ ｄａｙｓ
ｃｃ＄＝＂＂
Ｄｏ
Ｌｉｎｅ Ｉｎｐｕｔ＃１，Ｄ＄
ｃｃ＄＝ｃｃ＄＋Ｄ＄
Ｌｏｏｐ Ｕｎｔｉｌ Ｒｉｇｈｔ（Ｄ，１）＝”·”Ｏｒ Ｒｉｇｈｔ（Ｄ＄，１）＝“＝”；“·”为日结束符，“＝”为要素结束符
ｓ＝１
Ｆｏｒｊ＝１Ｔｏ ２４
ＣｏｍｐＤ＄（ｉ，ｊ）＝Ｍｉｄ（ｃｃ＄，ｓ，（ＩｎＳｔｒ（ｓ，ｃｃ＄，＂，＂）－ｓ））；各时次云状以＂，＂分隔
ｓ＝ＩｎＳｔｒ（ｓ，ｃｃ＄，＂，＂）＋１
Ｎｅｘｔｊ
ＮｅｘｔＩ
云状、总云量、低云量、能见度4个要素的比较调用公共过程Ｃｏｍｐ为：
Ｐｕｂｌｉｃ Ｓｕｂ Ｃｏｍｐ（ＣｏｍｐＤ＄０，ＣｏｍｐＢ＄０，ｆａｃｔｏｒ，ｄａｙｓ）
ｋ＝０；ｋ变量取０、１用以标志该要素是否存在不一致
Ｆｏｒｉ＝１Ｔｏ ｄａｙｓ
Ｆｏｒｊ＝１ Ｔｏ２４
Ｉｆ ＣｏｍｐＤ＄（ｉ，ｊ）<>Ｃｏｍｐ Ｂ＄（ｉ，ｊ）Ｔｈｅｎ
Ｉfｊ＜4 Ｔhen
ｍ＝ｊ＋２０；前４个数据为２１、２２、２３、２４这４个时次的数据
Ｅｌｓｅ
ｍ＝ｊ－４
Ｅｎｄ Ｉｆ
Ｉｆ ｋ＝０ Ｔｈｅｎ；在某要素有不同项存在时，需在最前面显示要素名
Ｔｅｘｔ３．Ｔｅｘｔ＝Ｔｅｘｔ３．Ｔｅｘｔ＋ｆａｃｔｏｒ＄＋Ｃｈｒ（１３）＋Ｃｈｒ（１０）
ｋ＝１
Ｅｎｄ Ｉｆ
Ｔｅｘｔ３．Ｔｅｘｔ＝Ｔｅｘｔ３．Ｔｅｘｔ＋Ｒｉｇｈｔ（ｓｔｒ（ｉ＋１００），２）＋＂日＂＋Ｒｉｇｈｔ（Ｓｔｒ（ｍ＋１００），２）＋＂时＂＋ＣｏｍｐＤ＄ｒ（ｉ，ｊ）＋＂与＂＋ＣｏｍｐＢ＄（ｉ，ｊ）＋Ｃｈｒ（１３）＋Ｃｈｒ（１０）
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｊ
Ｎｅｘｔ ｉ
_______________________________
收稿日期：2004年01月12日
改回日期：2004年02月20日
第一作者简介：帅莉莉（1978－），女，助理工程师，主要从事气象地面观测工作。 |
