天气学诊断实习程序.doc

  1. 1、本文档共9页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
天气学诊断实习程序

实习资料: 该过程的观测资料和再分析资料,实习要求用micaps资料进行计算和分析。 1、观测资料:计算范围:东经30-160,北纬10-80,格距 2.5*2.5。所给要素为高度场,风场,温度以及温度露点差,共11层。时次是2013年5月21日08时到2013年5月31日18时,每12小时一次,共22个时次。 2、再分析资料:东经30-160,北纬10-80,格距 2.5*2.5。所给要素为高度场,风场,温度以及比湿(单位为:kg/kg),共17层,时次是2013年1月1日00时到2013年5月31日20时,每6小时一次,共604个时次。 实习内容: 利用所给资料和绘图软件绘制等高线、等压线、等温线,了解当时环流形势(主要是500和850hPa)。 计算涡度和散度(主要是300,500,850hPa),500hPa实测风涡度平流,计算850hPa温度平流并绘图,利用高空和地面形势预报方程,从热力和动力因子分析南方气旋生成、发展的原因,以及散度高低层的配置。 计算850,700,500hPa水汽通量并绘图,分析水汽通量输送较大的层次及水汽通量散度,指出水汽输送通道大致范围,并说明水汽辐合区域的位置,什么位置有利于降水的发生,原因是什么。比较水汽通量中水汽平流和风的散度项的大小 编制计算垂直速度程序,并绘制500hPa垂直速度。用第二种修正方案,其中大气层顶的垂直速度可以直接采用0,也可以用绝热法。 以上任务完成后,有兴趣的同学可以编写计算流函数和势函数的程序。也可以对以上计算结果模仿文献绘制一些垂直剖面图等,从不同角度对该次过程进行分析. 程序1 读取保存数据 program duqushuju real h(53,29,11,8),t(53,29,11,8),u(53,29,11,8),v(53,29,11,8),ttd(53,29,11,8) integer,parameter::nz=11,nt=8,nx=53,ny=29 character z(11)*4,sj(8)*12 sj(1)000 sj(2)000 sj(3)000 sj(4)000 sj(5)000 sj(6)000 sj(7)000 sj(8)000 z(1)=1000 z(2)=925 z(3)=850 z(4)=700 z(5)=500 z(6)=400 z(7)=300 z(8)=250 z(9)=200 z(10)=150 z(11)=100 do iz=1,nz do it=1,nt open(1,file=j:\tianzhen\micaps\height\//trim(z(iz))/////sj(it)) do i=1,4 read(1,*) enddo do j=ny,1,-1 read(1,*) (h(i,j,iz,it),i=1,nx) enddo open(2,file=j:\tianzhen\micaps\temper\//trim(z(iz))/////sj(it)) do i=1,4 read(2,*) enddo do j=ny,1,-1 read(2,*) (t(i,j,iz,it),i=1,nx) enddo open(3,file=j:\tianzhen\micaps\t-td\//trim(z(iz))/////sj(it)) do i=1,4 read(3,*) enddo do j=ny,1,-1 read(3,*) (ttd(i,j,iz,it),i=1,nx) enddo open(4,file=j:\tianzhen\micaps\uv\//trim(z(iz))/////sj(it)) do i=1,3 read(4,*) enddo do j=ny,1,-1 read(4,*) (u(i,j,iz,it),i=1,nx) enddo do j=ny,1,-1 read(4,*) (v(i,j,iz,it),i=1,nx) enddo enddo enddo !存放数据 open(5,file=j:\tianzhen\houtput.grd,form=binary) write(5) ((((h(i,j,iz,it),i=1,nx),j=1,ny),iz=1,nz),it=1,nt) open(6,file=j:\tianzhen\toutput.grd,form=binary) write(6) ((((t(i,j,iz,it),i=1,nx),j=1,ny),iz=1,nz),it=1,nt) open(7,file=j:\tianzhen\

文档评论(0)

haihang2017 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档