气象统计实习报告 专业：大气科学 班级：xxxx 级 x 班 学号：2024130xxxx 姓名：*实习一 求 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 do j=1,17 do y=1,4 summ=summ+jp(i,j，m，y)*＊2 enddo fc(i,j,m）=summ/4！方差 jfc（i,j,m)=sqrt（fc（i,j，m））!均方差 summ =0.0 enddo enddoenddo!****＊＊＊****＊＊**＊＊**＊＊**＊＊＊*＊＊＊*＊**＊＊＊****＊open(11,file=’d：\shixi\vars。grd’，form=’binary' )open（12，file='d：\shixi\jp.grd',form='binary’ )open(13，file=’d:\shixi\jfc.grd’，form='binary' ）do m=1，12 write（11)((vars（i，j,m）,i=1，nx),j=1，ny）enddodo m=1,12 write(13）((jfc（i,j,m）,i=1，nx),j=1,ny）enddodo y=1，4 do m=1,12 write(12）（(jp(i，j，m,y)，i=1,nx),j=1,ny) enddoenddo close(11) close(12) close（13)End（2)Gs 程序1.距平场’open e:\anomaly.ctl’’set gxout shaded'’d xiaobao’'set gxout contour’'d xiaobao’’draw title 1982 年 1 月’’enable print e:\anomaly.gmf’'print''disable print'2.气候场'open e:\climate.ctl’’set gxout shaded’'d xiaobao'’set gxout contour''d xiaobao’'draw title 1982.1''enable print e：\climate.gmf'’print’’disable print’3.均方差场'open e：\deviation。ctl''set gxout shaded’’d xiaolu’'set gxout contour'’d xiaolu''draw title 1982。1 deviation''enable print e:\deviation。gmf'’print''disable...
