- 积分
- 1581
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-3-20
- 最后登录
- 1970-1-1
![[嘘_快跑] 粉丝数:52 微博数:285 新浪微博达人勋](source/plugin/sina_login/img/light.png)
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我最近拜读了刘云丰和李国平老师的一篇文章《夏季高原大气热源的气候特征以及与高原低涡生成的关系》,其中有这样一张图是做的高原低涡生成频数与大气热源空间相关性分析,我最近也是在做高原涡相关的问题,我很想知道高原涡生成如此分散,是如何做出图中这样光滑的图的,因为我也试着用插值做了高原涡的分布情况,做出来的图也是很分散的,文章中是不是用的500hpa涡度或者是高度场之类的作为代表和大气热源做的相关性分析呢,希望各位大神帮助我解答我的困惑,不胜感激。
另外我还试着思考了一下,把统计的高原涡写成多年年每个格点上的个数,但是并没有成功,下面是我的Fortran程序,我是先把一个三十年的格点数据全部赋值为0,然后让Fortran读取我统计的经纬度的文件,以及分别对应的高原涡个数的文件,在有生成高原涡经纬度的格点上依次赋值,希望大神帮我看看我的错误在哪里,谢谢大家!
PROGRAM gyw
PARAMETER (ix=241,iy=121,iyear=30)
real lon(924),lat(924)
integer gyw(ix,iy),num(30),count,lon1(924),lat1(924),x,y,flag,yn
open(11,file='D:\gyw\height\weizi\86_15sshf_summer2.bin',form='binary')
open(22,file='D:\gyw\height\weizi\lon.txt')
open(33,file='D:\gyw\height\weizi\lat.txt')
open(44,file='D:\gyw\height\weizi\year_number.txt')
open(50,file='D:\gyw\height\weizi\gyw_weizi.grd',form='binary')
read(22,*)(lon(i),i=1,924)
read(33,*)(lat(i),i=1,924)
read(44,*)(num(i),i=1,30)
do i=1,924
lon1(i)=lon(i)*4/float(3)
lat1(i)=lat(i)*4/float(3)
enddo
count=0
do k=1,iyear
read(11)((gyw(m,n),n=1,iy),m=1,ix)
do m=1,ix
do n=1,iy
gyw(m,n)=0.0
enddo
enddo
do i=1,num(k)
flag=count+i
x=lon1(flag)
y=lat1(flag)
gyw(x,y)=gyw(x,y)+1
enddo
count=num(k)+count
write(50)((gyw(m,n),n=1,iy),m=1,ix)
enddo
END
|
-
|