没有合适的资源?快使用搜索试试~ 我知道了~
cressman算法.doc
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 135 浏览量
2022-05-08
16:12:21
上传
评论
收藏 53KB DOC 举报
温馨提示
试读
8页
cressman算法.doc
资源推荐
资源详情
资源评论
!
!purpors : use three methods to convert station data to grid data
!
MODULE sfc_data
!
! --- dene prepared data
type sfc
real :: lon
real :: lat
real :: temp
real :: rain
end type sfc
type(sfc),allocatable,dimension(:) :: sfc_obs
integer::num
! --- dene output data and the method used
real, allocatable, dimension(:) :: slon, slat
real, allocatable, dimension(:,:) :: stemp,
srain,dis ,srain_mid,stemp_mid,srain_min,stemp_min,stemp_max, srain_max
real, allocatable, dimension(:,:) :: stemp_4, srain_4
real, allocatable, dimension(:,:) :: stemp_5, srain_5
!
END MODULE sfc_data
PROGRAM read_interpol_sfc
!
USE sfc_data
!
implicit none
!
character(len=20) :: in_file_name
integer :: kx, ky, i, j, ii, jj,irec,n,nn
!
real:: weight,total_weight
real,allocatable,dimension(:) ::temp_obs,rain_obs,lon,lat
real,allocatable,dimension(:) ::radius
!
character(len=50) :: filename,feild,pic_name
character(len=2) :: yy, mm, dd, hh
real :: tmp
real,parameter :: p1=9999., p2=-999.
! --- namelist_input
!
real :: lon_beg, lon_end, lat_beg, lat_end, resolution, radius_max,radius_mid, radius_4,radiu
s_5
integer :: inter_num
namelist/plot_range/lon_beg, lon_end, lat_beg, lat_end, resolution !起始经纬度和分辨率
namelist/inter_nums/inter_num !插值次数
namelist/influnce_radius/radius !影响半径
namelist/output/pic_name
资源评论
老帽爬新坡
- 粉丝: 82
- 资源: 2万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功