气象统计实习报告
专业：大气科学 班级： 学号： 姓名：
xxxx级x班
2012130xxxx
1
*实习一 求500hPa高度场气候场、距平场和均方差场
一、实习结果
1981.1距平场
1981.1 500hpa高度场在欧亚大陆为正距平，在印度洋和太平洋为负距平。
2
1981.1气候场
1982.1的气候场呈现明显的沿纬度的上升而下降的趋势。
1981.1均方差场
1981.1的均方差场在欧亚大陆的南侧有最小值，在10N~20N的南侧岁纬度而降低，在其北侧随纬度升高。
二、相关的fortran程序，gs文件
（1）Fortran程序:
program main
parameter(nx=37,ny=17,mo=12,yr=4) real var(nx,ny,mo,4)!数据
real vars(nx,ny,mo)!4年气候态 real jp(nx,ny, mo,4)!距平 real fc(nx,ny,mo)!方差 real jfc(nx,ny,mo)!均方差 integer i,j,m,y,irec real::summ=0.0
!*********************求均方差********************* do m=1,12 do i=1,37 do j=1,17 do y=1,4
3