两个气象空间插值fortran程序（多年站点数据插至DEM各单元格）

hillside

      现上传两个气象空间插值程序，用于将气象站点数据按照栅格DEM插入至各个栅格。该程序可用于气象特征的空间分析与气象、气候、水文、生态模型的数据制备。
    第一个fortran程序（指“之一”）由南信大一位英年早逝的博导、气候学者编写，用于将气象站点数据根据DEM栅格空间插值到每个栅格点，可用于气象、水文领域的表面插值。该程序里面有多个子程序作为注释句，可作增删之用。当前的设定可以正常编译与使用。 本程序采用反距离权重插值法，里面自带检验模拟效果的验证语句。本程序由原作者邮发给本上传者,原程序为fortran77，上传者调整为fortran90，并对其中的个别参数设置进行了修正。为了便于实际使用，本人将实例数据内容与格式一并上传（对气象数据部分，保留格式与少量内容），仅作简单补充，即可真实运行。不过，需要提醒的，本人知之甚少，主要是依葫芦画瓢，具体运行调试时如何提高精度与可靠性，可能还要推敲。希望实力派网友在此基础上提炼出更方便、更可靠的版本。
      2013.4.6重要补充（针对此日期以前下载的网友）：原程序中的"!  QG(J,I)=AG+BK*dem(j,i) ”处宜另增加一句" QG(J,I)=0 ”，否则插值效果不佳（分析：可能是周老师将高程校正语句作为注释句后未顾上补充，不然QG(J,I)因缺值而致插值严重失真），当前上传稿"气象空间插值程序之一（周锁铨原作,CCC详注与微改版20130406）.f90"中已作补充。
      另外，附上周锁铨老师的利用GIS进行气象插值的论文，此论文已有一定的影响与引用，所用方法在周老师原有合作人士中可能仍在使用。大体看来，该论文所言与当前程序有密切关联，欢迎有兴趣的网友进行探索、分析与提炼。

    第二个Fortran程序（指“之二”）来自网络文章。将气象站点数据进行空间插值（根据DEM栅格进行逐格点计算与赋值），在气象、水文、生态领域的空间特征分析与分布式模型等方面有实际的使用价值。 本程序系直接根据博客文章《常用气象数据插值(1)》(见于http://blog.sina.com.cn/tangronglin（博主唐荣林博士在主页个人介绍中说：“各位有什么问题，可以直接发我邮箱沟通。”邮箱地址见唐博士博客)页面进行原样整理，已按Fortran77格式进行技术修饰与美化，可以顺利编译（说明：对于该程序的插值精度，本上传者未作验证）。

topmad

mofangbao 发表于 2013-3-29 08:40

                               
登录/注册后可看大图

不知道你是不是说的周老师,不过,你这么一说我又想起周老师了,最后一段日子还让妻子带着他来给我们上课,还跟 ...

周老师太敬业了...哎...天妒英才

快乐的辉仔

谢谢，谢谢楼上，同时也谢谢周老师

hillside

        我确实说的是周老师。因为他是脑部患病之后给我发送的程序，我不能保证是最后的正式稿。我对其中的微量差错进行了修改。我对FORTRAN与气象懂得不多，还处于学习阶段。
      

topmad

不知道说的是不是周老师

mofangbao

不知道你是不是说的周老师,不过,你这么一说我又想起周老师了,最后一段日子还让妻子带着他来给我们上课,还跟我们说他非常想让我们报他的研究生...

许守华

太好了，感谢分享

SEAMAN

{:eb502:}{:eb502:}

小狮子

好东西，楼主给力！

lileiden

谢谢分享！