Changeset 114 for trunk/SRC/ToBeReviewed/LECTURE/ncdf_lec.pro
- Timestamp:
- 06/19/06 16:14:56 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/LECTURE/ncdf_lec.pro
r44 r114 42 42 ;------------------------------------------------------------ 43 43 function ncdf_lec,nom,ATT=att,DIM=dim,VAR=var, IODIR = iodir, _extra = ex 44 ; 45 compile_opt idl2, strictarrsubs 46 ; 44 47 res = -1 45 48 ;------------------------------------------------------------ … … 124 127 then begin 125 128 print,'variable numero: ',strtrim(varid,1),', nom:',varcontent.name $ 126 ,', type:' ,varcontent.datatype,', dimensions:',nomdim (varcontent.dim)129 ,', type:' ,varcontent.datatype,', dimensions:',nomdim[varcontent.dim] 127 130 if strlowcase(att) eq strlowcase(varcontent.name) then begin 128 131 for attiq=0,varcontent.natts-1 do begin
Note: See TracChangeset
for help on using the changeset viewer.