- 积分
- 24
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2015-2-8
- 最后登录
- 1970-1-1
|
发表于 2015-4-23 21:55:39
|
显示全部楼层
本帖最后由 crazy10167 于 2015-4-23 22:02 编辑
yr=1980
while(yr<=2013)
'set gxout fwrite'
'set fwrite I:\4_times_data\hgt_grd\hgt_'yr'.grd'
'sdfopen I:\4_times_data\hgt\hgt.'yr'.nc'
endday=365
if(yr=1980|yr=1984|yr=1988|yr=1992|yr=1996|yr=2000|yr=2004|yr=2008|yr=2012)
endday=366
endif
tt=1
while(tt<=endday)
zz=1
while(zz<=17)
'set z'zz
'set t 'tt
'set y 1 72'
'set x 1 144'
'd hgt'
zz=zz+1
endwhile
tt=tt+1
endwhile
'close 1'
'disable fwrite'
yr=yr+1
endwhile
;
|
|