- 积分
- 357
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-4-16
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我是用65年平均的海温再做区域平均得到一个65年的时间序列,然后把这个时间序列和全球的风场做回归:
1:这是我的海温指数的fortran程序:
do j=1,iy
do i=1,ix
do m=1,65
p=0
sst1(i,j,m)=0.0
do t=9,11
if(sst(i,j,t)/=32767.00)then
sst1(i,j,m)=sst1(i,j,m)+sst(i,j,t+(m-1)*12)
p=p+1
else
sst1(i,j,m)=sst1(i,j,m)+32767.00
p=p+1
end if
end do
sst2(i,j,m)=sst1(i,j,m)/p
end do
end do
end do
do m=1,65
sst21(m)=0.0
p=0
do j=47,55
do i=52,60
if(sst2(i,j,m)/=32767.00)then
sst21(m)=sst21(m)+sst2(i,j,m)
p=p+1
else
end if
end do
end do
sst2a(m)=sst21(m)/p
end do
irec7=0
do m=1,65
irec7=irec7+1
write(7,rec=irec7)sst2a(m)
end do
我多次检查过了,算出来的区域平均值是对的
2:然后再把这个时间序列和u,v分别计算回归系数bu,bv。以下是我的回归程序:
!!!!!!!!!!!以下是求秋季的回归场,先取出uv的年平均值
do j=1,iy
do i=1,ix
do m=1,65
yu1(i,j,m)=0.0
p=0
do t=9,11
yu1(i,j,m)=yu1(i,j,m)+u(i,j,t+(m-1)*12)
p=p+1
end do
end do
end do
end do
yu=yu1/3
do j=1,iy
do i=1,ix
do m=1,65
yv1(i,j,m)=0.0
p=0
do t=9,11
yv1(i,j,m)=yv1(i,j,m)+v(i,j,t+(m-1)*12)
p=p+1
end do
end do
end do
end do
yv=yv1/3
ys=0.0
!!!!!!!!!!!!开始回归系数的计算bu.....。。。。。。
do j=1,iy
do i=1,ix
do m=1,65
ys(i,j)=ys(i,j)+yu(i,j,m)*sstx(m)
end do
end do
end do
yua=0.0
do j=1,iy
do i=1,ix
do m=1,65
yua(i,j)=yua(i,j)+yu(i,j,m)
end do
end do
end do
sstx1a=0.0
do m=1,65
sstx1a=sstx1a+sstx(m)
end do
sstx2=0.0
do m=1,65
sstx2=sstx2+sstx(m)**2
end do
do j=1,iy
do i=1,ix
bu(i,j)=(ys(i,j)-((1/65)*yua(i,j)*sstx1a))/(sstx2-(1/65)*(sstx1a**2))
end do
end do
!!!!!!!!!!!!!计算bv..。。。。。。。。。
ysv=0.0
do j=1,iy
do i=1,ix
do m=1,im
ysv(i,j)=ysv(i,j)+yv(i,j,m)*sstx(m)
end do
end do
end do
yva=0.0
do j=1,iy
do i=1,ix
do m=1,im
yva(i,j)=yva(i,j)+yv(i,j,m)
end do
end do
end do
do j=1,iy
do i=1,ix
bv(i,j)=(ysv(i,j)-(1/65)*yva(i,j)*sstx1a)/(sstx2-(1/65)*(sstx1a**2))
end do
end do
write(6,rec=1)((bu(i,j),i=1,ix),j=1,iy)
write(7,rec=1)((bv(i,j),i=1,ix),j=1,iy)
stop
end
3,计算完毕,然后画出来的bu,bv矢量图全是纬向风。。。。。。没有涡旋什么的。。无语了。。。
|
|