气象统计方法实习BD.doc
28页1、实习一:气候场、距平场、均方差场编程如下:parameter(ii=37,jj=17,mon=12,year=4) real var(ii,jj,mon,year),ave(ii,jj,mon),jp(ii,jj,mon,year) real s(ii,jj,mon) integer i,j,iy,m open(5,file=d:ex1h500.dat) open(6,file=d:ex1ave.grd,form=binary)open(7,file=d:ex1jp.grd,form=binary)open(8,file=d:ex1s.grd,form=binary)open(12,file=d:ex1outall.grd,form=binaryopen(9,file=d:ex1ave.txt)open(10,file=d:ex1jp.txt) open(11,file=d:ex1s.txt) !读数据 DO iy=1,4 do m=1,12!ccc read h500 read(5,1000) read(5,2000) (var(i,j,m,iy),i=1,ii),j=1,jj) e
2、nddoenddo!计算气候场 do j=1,jj do i=1,ii do m=1,12 ave(i,j,m)=var(i,j,m,1)+var(i,j,m,2)+var(i,j,m,3)+var(i,j,m,4) ave(i,j,m)=ave(i,j,m)/4.0 enddo enddo enddo!计算距平场 do iy=1,4 do m=1,12 do j=1,jj do i=1,ii jp(i,j,m,iy)=var(i,j,m,iy)-ave(i,j,m) enddo enddo enddo enddo!计算均方差场 do j=1,jj do i=1,ii do m=1,12 s(i,j,m)=jp(i,j,m,1)*jp(i,j,m,1)+jp(i,j,m,2)*jp(i,j,m,2)+jp(i,j /,m,3)*jp(i,j,m,3)+jp(i,j,m,4)*jp(i,j,m,4) s(i,j,m)=s(i,j,m)/4.0 s(i,j,m)=sqrt(s(i,j,m) enddo enddo enddo do iy=1,4 do m=1,12 write(6)(ave
3、(i,j,m),i=1,ii),j=1,jj) write(7)(jp(i,j,m,iy),i=1,ii),j=1,jj) write(8)(s(i,j,m),i=1,ii),j=1,jj) write(9,2000)(ave(i,j,m),i=1,ii),j=1,jj) write(10,2000)(jp(i,j,m,iy),i=1,ii),j=1,jj) write(11,2000)(s(i,j,m),i=1,ii),j=1,jj) write(12)(ave(i,j,m),i=1,ii),j=1,jj) write(12)(jp(i,j,m,iy),i=1,ii),j=1,jj) write(12)(s(i,j,m),i=1,ii),j=1,jj) enddoenddo1000 format(2i7)2000 format(37f8.1) close(5) close(6) close(7) close(8) close(9) close(10) close(11) close(12) end给ave配的ctl文件:dset d:ex1ave.grdundef -9.99E+33
4、title NCEP/NCAR REANALYSIS PROJECTxdef 37 linear 60.000 2.500ydef 17 linear 0.000 2.500zdef 1 levels 500tdef 12 linear JAN1982 12movars 1ave 1 99 H500endvars给ave配的gs文件:reinitopen d:ex1ave.ctlenable print d:ex1ave.gmfmon=1while(mon=12)set t mond avedraw title qihouchang of mon printcmon=mon+1endwhiledisable print;气候场图:一月份高度的气候场呈现南高北低的状态,陆地上的高度场比较稀疏,而在西太平洋上高度场比较密集。八月份高度的气候场呈现东高西低的状态,在我国东北部以北以及印度东北部出现低压中心,而在赤道西太平洋地区出现高压中心。35N以北高度分布很密集,而35N以南比较稀疏。给jp配的ctl文件:dset d:ex1jp.grdundef -9.99E+33title NCEP/
《气象统计方法实习BD.doc》由会员飞****9分享,可在线阅读,更多相关《气象统计方法实习BD.doc》请在金锄头文库上搜索。
2019年抚顺市第六中学高考生物简单题专项训练(含解析)
2019年教科版八年级物理上册全册学案
2019年宝鸡晨光中学高考生物简单题专项训练(含解析)
2019年象山港书院高考生物简单题专项训练(含解析)
2019年一级建造师工程经济考点总结
2019年小学教育教学工作总结4篇
2019年浙江省金华市中考数学试卷(解析版)
2019年布拖县中学高考生物简单题专项训练(含解析)
2010年卫生系列中级职称内科学风湿及结缔组织病习题及参考答案
2019年信阳晨光中学高考生物简单题专项训练(含解析)
2018年一级建造师市政实务必考点
2019年和县第三中学高考生物简单题专项训练(含解析)
2018高考化学微题型微考点训练1--20
2019年大理市大理第二中学高考生物简单题专项训练(含解析)
2019年三中高考生物简单题专项训练(含解析)
2018检验检测机构质量手册
2019年衡南县第三中学高考生物简单题专项训练(含解析)
2019年宏华中学高考生物简单题专项训练(含解析)
2018年银行从业资格考试个人贷款考点重点难点总结
2018全省行政执法资格模拟考试试题
2024-04-25 30页
2024-04-25 22页
2024-04-25 7页
2024-04-25 5页
2024-04-25 8页
2024-04-23 5页
2024-04-23 23页
2024-04-23 6页
2024-04-23 5页
2024-04-23 10页