资源描述:
《Grads实习报告1》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、-------------各类专业好文档,值得你下载,教育,管理,论文,制度,方案手册,应有尽有--------------实习一1.所用资料“data”文件夹下有ASCII码数据资料文件:月平均风场:u200.dat、u850.dat、v200.dat、v850.dat月平均高度场:hgt500.dat时间范围:2002.1-2005.12共48个月水平范围:37×17个网格点,分辨率为2.5°×2.5°经纬度范围:60-150°E,0-40°N2.fortran程序program exam01parameter(nx=37,ny=17,nt=48)dimension u200(n
2、x,ny,nt),u850(nx,ny,nt),v200(nx,ny,nt),v850(nx,ny,nt) open(1,file='D:u200.dat')open(2,file='D:u850.dat')open(3,file='D:v200.dat')open(4,file='D:v850.dat')open(12,file='D:uv.grd',form='binary')do it=1,nt read(1,*) ((u200(i,j,it),i=1,nx),j=1,ny) read(2,*) ((u850(i,j,it),i=1,nx),j=1,ny)
3、 read(3,*) ((v200(i,j,it),i=1,nx),j=1,ny) read(4,*) ((v850(i,j,it),i=1,nx),j=1,ny)end dodo it=1,nt write(12) ((u850(i,j,it),i=1,nx),j=1,ny) write(12) ((u200(i,j,it),i=1,nx),j=1,ny) write(12) ((v850(i,j,it),i=1,nx),j=1,ny) write(12) ((v200(i,j,it),i=1,nx),j=1,ny)end doend3.数据描写文
4、件①uv.ctlDSETD:datauv.ctlUNDEF-9.99E33TITLEUpperAirDataXDEF37LINEAR60.02.5YDEF17LINEAR0.02.5-------------各类专业好文档,值得你下载,教育,管理,论文,制度,方案手册,应有尽有---------------------------各类专业好文档,值得你下载,教育,管理,论文,制度,方案手册,应有尽有--------------ZDEF2LEVELS850200TDEF48LINEARJAN20021movars2u299uwind(m/s)v299vwind(m/s)endvar
5、s①hgt.ctlDESTD:datahgt.grdUNDEF-9.99E+33XDEF37linear60.02.5YDEF17linear0.02.5ZDEF1levels500TDEF48linearJAN20021movars1hgt199q1endvars4.所绘制图形①2002年一月850hpa风场图②2002年7月850hpa风场图-------------各类专业好文档,值得你下载,教育,管理,论文,制度,方案手册,应有尽有---------------------------各类专业好文档,值得你下载,教育,管理,论文,制度,方案手册,应有尽有---------
6、-----①200hpauv风场图-------------各类专业好文档,值得你下载,教育,管理,论文,制度,方案手册,应有尽有---------------------------各类专业好文档,值得你下载,教育,管理,论文,制度,方案手册,应有尽有--------------实习二1.所用资料“data”文件夹下有GrADS数据格式的二进制资料文件model.le.dat以及对应的数据描述文件model.le.ctl这是一组模式输出的全球5天数值预报结果,包括了多个要素、多层,按经纬度网格存放的数据,具体见数据描述文件model.le.ctl2.①一维line.gs'openD
7、:datamodel.le.ctl''setlon120''setlat090''setlev200''sett1''setgxoutline''setccolor2''setcmark3''setcstyle1''setcthick6''setgridon33''dz''enableprintD:data.line.gmfwhite';-------------各类专业好文档,值得你下载,教育,管理,论文,制度,方案手册,应有尽有---------