- 积分
- 1231
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-9-23
- 最后登录
- 1970-1-1
|
发表于 2013-1-2 11:17:23
|
显示全部楼层
ii=10000
for i=0l,ii-1 do begin
; for i=0,0 do begin
head_line=' '
time_year=' '
time_month=' '
time_day=' '
time_time=' '
elevation=0.
readf,lun,head_line
; print,head_line
time_year=strmid(head_line,5,4)
time_month=strmid(head_line,9,2)
time_day=strmid(head_line,11,2)
time_time=strmid(head_line,13,2)
num_data=fix(strmid(head_line,19,4))
data_arr=fltarr(15,num_data)
readf,lun,data_arr;,format=format_data
elevation=data_arr[1,0] ;elevation of station
if (data_arr[1,0] ne -99999) and (num_data ge 10) then begin
;if (data_arr[1,0] ne -99999) and (num_data ge 10) and (time_month eq '06' or $
; time_month eq '07' or time_month eq '08') then begin
press_arr=data_arr[0,*]/100. ;observed pressure (mb)=100 Pa= 100*(kg*m/s2)/m2
OBSgph_arr=data_arr[1,*] ;observed geopotential Height (m)
CALCgph_arr=data_arr[2,*] ;calculated geopotential Height (m)
AGL_Height_arr=CALCgph_arr-elevation ;above ground level
temp_arr=data_arr[3,*]/10. ;observed temperature (K)
tempgrad_arr=data_arr[4,*]/10. ;temperature gradient (K/km)
ptemp_arr=data_arr[5,*]/10. ;potential temperature (K)
ptempgrad_arr=data_arr[6,*]/10. ;potential temperature gradient (K/km)
VAPpress_arr=data_arr[7,*]/100. ;vapor pressure (mb)
SATvap_arr=data_arr[8,*]/1000. ;saturation vapor pressure (mb)
RH_arr=data_arr[9,*]/10. ;relative humidity (%,percent)
RHgrad_arr=data_arr[10,*]/10. ;relative humidity gradient (%/km)
ind_99999=where(data_arr[0,*] ne -99999 and data_arr[3,*] ne -99999 and $
data_arr[7,*] ne -99999 and data_arr[9,*] ne -99999,cc_99999)
VAPpress=VAPpress_arr(ind_99999)
press=press_arr(ind_99999)
temp=temp_arr(ind_99999)
ptemp=ptemp_arr(ind_99999)
RH=RH_arr(ind_99999)
CALCgph=CALCgph_arr(ind_99999)
AGL_Height=AGL_Height_arr(ind_99999)
num_data=n_elements(CALCgph) |
|