- Timestamp:
- 2011-11-09T16:18:38+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_2802_OBStools/NEMOGCM/TOOLS/OBSTOOLS/dataplot/read_feedback.pro
r2945 r3069 61 61 if (NumObs gt 0) then begin 62 62 ByteNam = intarr(strnam, NumVars) 63 ByteEntries = intarr(strnam, NumEntries)63 if (n_elements(NumEntries) eq 1) then ByteEntries = intarr(strnam, NumEntries) 64 64 ByteId = intarr(strwmo, NumObs) 65 65 ByteType = intarr(strtyp, NumObs) 66 66 ByteJulDRef = intarr(strjuld) 67 67 VarNames = strarr(NumVars) 68 Entries = strarr(NumEntries)68 if (n_elements(NumEntries) eq 1) then Entries = strarr(NumEntries) 69 69 Id = strarr(NumObs) 70 70 Type = strarr(NumObs) … … 148 148 149 149 varid = ncdf_varid(ncid, strtrim(VarNames(ivar))+'_Hx') 150 ncdf_varget, ncid, varid, tmp 151 Hx(*,*,ivar) = tmp 152 ncdf_attget, ncid, varid, '_Fillvalue', FillValHx 150 if (varid gt -1) then begin 151 ncdf_varget, ncid, varid, tmp 152 Hx(*,*,ivar) = tmp 153 ncdf_attget, ncid, varid, '_Fillvalue', FillValHx 154 endif else begin 155 FillValHx=0 156 endelse 153 157 154 158 varid = ncdf_varid(ncid, strtrim(VarNames(ivar))+'_QC')
Note: See TracChangeset
for help on using the changeset viewer.