爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 40754|回复: 89

[经验总结] 双线性插值:格点to站点Fortran程序分享

  [复制链接]

新浪微博达人勋

发表于 2015-6-10 16:53:18 | 显示全部楼层 |阅读模式

登录后查看更多精彩内容~

您需要 登录 才可以下载或查看,没有帐号?立即注册 新浪微博登陆

x
       最近用到双线性插值,在论坛上搜到清风版主的帖子:
              http://bbs.06climate.com/forum.php?mod=viewthread&tid=6025
       我主要需要格点到站点插值,并且范围较小,因此在清风的原程序上做了如下修改:
             (1)程序针对格点到站点插值
             (2)加入了格点数据和站点数据读取的部分
             (3)增加了起始网格点经纬度(适用于非全球,小范围)
             (4)插值过程中增加了对格点数据是非为缺测的判断。
      现把程序分享给大家,改动不是很大,感谢清风提供的源程序!

bi_interp.f90

5.27 KB, 下载次数: 657, 下载积分: 金钱 -5

点评

xwh
谢谢楼主  发表于 2017-6-4 18:15

评分

参与人数 1金钱 +5 收起 理由
gradswang + 5 很给力!

查看全部评分

密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2015-6-10 21:49:35 | 显示全部楼层
楼主真心好人啊
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2015-6-19 20:43:42 | 显示全部楼层
没有足够的钱来下载
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2015-7-28 17:06:52 | 显示全部楼层
多谢楼主分享
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2015-8-19 11:58:17 | 显示全部楼层
我有一个问题不太明白,想请教一下楼主,在做插值的时候,为什么原格点数据小于0的时候,就不把这个值算到插值点里呢?
if(oldVal(pos(i,1),pos(i,3))>0.and.oldVal(pos(i,2),pos(i,3))>0) tmpVal_down=weight(i,1)*oldVal(pos(i,1),pos(i,3))+weight(i,2)*oldVal(pos(i,2),pos(i,3))
if(oldVal(pos(i,1),pos(i,3))>0.and.oldVal(pos(i,2),pos(i,3))<0) tmpVal_down=oldVal(pos(i,1),pos(i,3))第二个if语句不太明白,麻烦楼主解释一下,谢谢!
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2015-8-27 15:55:52 | 显示全部楼层
学习学习 赞一个
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2015-9-1 11:19:01 | 显示全部楼层
xiaoguoguo327 发表于 2015-8-19 11:58
我有一个问题不太明白,想请教一下楼主,在做插值的时候,为什么原格点数据小于0的时候,就不把这个值算到 ...

pos不是格点数据,而是格点的位置
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2015-9-3 08:26:06 | 显示全部楼层
嗯,谢谢你!
密码修改失败请联系微信:mofangbao
回复

使用道具 举报

新浪微博达人勋

发表于 2015-9-3 08:46:24 | 显示全部楼层
楼主是个很敬业的执着者,向你学习了。谢谢分享!
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2015-9-22 16:28:35 | 显示全部楼层
楼主很赞!
密码修改失败请联系微信:mofangbao
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表