南亚高压环流指数计算程序

hillside

　　现上传下载于“南京大气资料服务中心”官网（“ 国家自然科学基金委员会地球科学部南京信息工程大气资料服务中心 ” ，简称 “ 南京大气资料服务中心 ”）的《南亚高压环流指数》计算程序。简单检索之下，未发现标题博文，如发现此程序已有上传，版主或可建议版主删除此帖。
　　程序内容摘录：

!用(王盘兴老师定义的)闭合气压系统的方法计算1948-2007年6-8月的南亚高压的面积、强度和中心位置

program main
parameter(ny=60,nm=12,m=143,n=72) !!!!!  ny: 年份，nm: 月份，
dimension ys(0:m,0:n,nm,ny),sj(nm,ny),pj(nm,ny),staj(nm,ny),fi(nm,ny)
real lamj(nm,ny)
integer f0(nm)
data f0/1652,1654,1654,1656,1662,1672,1676,1676,1669,1660,1654,1650/  !1～12月特征等值线


!********读取原始资料（100hPa位势高度场）************
ys=0.0  !!!!! 先把所有格点的高度场赋值为零
open(1,file='e:\ng\hgt100.grd',form='binary')
   read(1)((((ys(i,j,im,iy),i=0,143),j=0,72),im=1,nm),iy=1,ny-1)
!!!!! 2008年9月在资料中心拷的hgt.mean.mon.nc
!!!!! hgt.mean.mon.nc只到2007年8月，所以必须分开赋值,2007年9-12月赋值为零
   read(1)(((ys(i,j,im,ny),i=0,143),j=0,72),im=1,8)
close(1)

!!!!资料存放方式：（纬向：纬度从南极-90到赤道0再到北极90，格点是0——36——72）
注：该官网似乎仅此一个程序可供下载，镇网之宝？

157041245

坐上沙发，再致谢！

空谷幽竹

是不是不仅适用于南亚高压指数呢

kongfeng0824

不知道所用的数据时？

liutaoz21

感谢楼主分享！！！！

mofangbao

谢谢啦

zihan6688

慢慢理解哦

loftydongshi

学习了。。。。。

wzdadong

下载来认真学习一下！

qxtlyf

有没有计算副高脊线的gs文件