cressman算法.doc

- -
. 优选-
!
!purpors : use three methods to convert station data to grid data
!
MODULE sfc_data
!
! --- define prepared data
type sfc
real :: lon
real :: lat
real :: temp
real :: rain
end type sfc
type(sfc),allocatable,dimension(:) :: sfc_obs
integer::num
! --- define 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 :