GrADS实习报告.doc

1
南京信息工程大学 实验〔实****报告
实验〔实****名称 蒙古高压特征分析 日期 得分 指导教师 孙晓娟
系大气科学 专业大气科学班次长望实验班 姓名夏新露
实验目的
〔1〕掌握气象要素气候异ixi\GrAds\chap4\')
open(2,file='D:\GrAdsshixi\GrAds\chap4\')
open(3,file='D:\GrAdsshixi\GrAds\chap4\')
open(4,file='D:\GrAdsshixi\GrAds\chap4\')
!将翻开数据保存到对应数组中
do i=1,ny
read(1,*) p(i)
read(2,*) s(i)
read(3,*) lon(i)
4
read(4,*) lat(i)
enddo
close(1)
close(2)
close(3)
close(4)
!调用气候及异常值计算函数
call cha(ny,p,pa,pav,pd)
call cha(ny,s,sa,sav,sd)
call cha(ny,lon,lona,lonav,lond)
call cha(ny,lat,lata,latav,latd)
!用open语句翻开文件
open(5,file='D:\GrAdsshixi\GrAds\chap4\')
write(5,100) pav,pd
write(5,100) sav,sd
write(5,100) lonav,lond
write(5,100) latav,latd
close(5)
!将蒙古高压环流指数气候值写入到""中
open(6,file='D:\GrAdsshixi\GrAds\chap4\',form='binary')
write(6) pav,pd
write(6) sav,sd
write(6) lonav,lond
write(6) latav,latd
close(6)
!将蒙古高压环流指数距平值写入到""中，要求按pa(60)、sa(60)、lona(60)、lata(60)顺序存放
open(7,file='D:\GrAdsshixi\GrAds\chap4\')
write(7,200) (pa(i),i=1,ny)
write(7,200) (sa(i),i=1,ny)
5
write(7,200) (lona(i),i=1,ny)
write(7,200) (lata(i),i=1,ny)
close(7)
!将蒙古高压环流指数距平值写入到""中，要求利用do循环按pa(i)、sa(i)、l