登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
请教大家给指点错误!附件中的数据spectral_irradiance_Lean_1610-2009_ann_c100405.nc一共有8个变量,具体文件说明如下
dimensions: ncl_scalar = 1 time = 400 // unlimited ref_time_bound = 2 wavelength = 3780 variables: double tsi_ref ( ncl_scalar ) time_op : average bounds : ref_time_bound _FillValue : -9999 long_name : average of tsi overref_time_bound inclusive units : W/m^2 average_op_ncl : dim_avg overdimension: time double ref_time_bound ( ref_time_bound ) units : days since 0000-01-0100:00:00 long_name : reference timeinterval boundaries _FillValue : -9999 integer date ( time ) format : YYYYMMDD _FillValue : -9999 double time ( time ) calendar : noleap axis : T time_origin : 01-JAN-0000 units : days since 0000-01-0100:00:00 _FillValue : -9999 double wavelength ( wavelength ) units : nm long_name : Wavelength of bandcenter _FillValue : -9999 double band_width ( wavelength ) units : nm long_name : Wavelength width ofband _FillValue : -9999 double ssi_ref ( wavelength ) time_op : average bounds : ref_time_bound _FillValue : -9999 long_name : average of ssi overref_time_bound inclusive units : mW/m^2/nm average_op_ncl : dim_avg overdimension: time double tsi ( time ) units : W/m^2 long_name : Total Solar Irradianceat 1 a.u. _FillValue : -9999 double ssi ( time, wavelength ) units : mW/m^2/nm long_name : Solar SpectralIrradiance at 1 a.u. _FillValue : -9999
我主要是想对源数据ssi中的一部分进行放大,然后再将放大的这部分赋值给源数据,其他不变。
这是我的ncl脚本,处理之后我挨着变量看,数值都正确,但是把这个数据放到模式中,数据有错误,我想是不是格式有问题,请大家帮着看一下,十分的感谢。
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl" load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl" ;--------------------- begin ;---------------------
in= addfile("/cmb/g5/dongshi/ssi/spectral_irradiance_Lean_1610-2009_ann_c100405_1.nc","w")
ssi= in->ssi time=in->time wavelength=in->wavelength
ntime=dimsizes(time) nwavelength=dimsizes(wavelength)
printVarSummary(ssi) cssi= new((/400,3780/),"double",ssi@_FillValue) do ilt=0,ntime-1 do ilw=0,nwavelength-1 if((ilw.le.249).and.(ilw.gt.79)) then cssi(ilt,ilw)=ssi(ilt,ilw)*0.8 else cssi(ilt,ilw)=ssi(ilt,ilw) end if end do end do copy_VarAtts(ssi,cssi) printVarSummary(cssi) in->ssi=cssi
end
|