气象统计实习报告.docVIP

气象统计实习报告 专业：大气科学 班级：xxxx级x班 学号：2012130xxxx 姓名： *实习一 求500hPa高度场气候场、距平场和均方差场 1981.1距平场 1981.1 500hpa高度场在欧亚大陆为正距平，在印度洋和太平洋为负距平。 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