Changeset 3069 for branches/dev_2802_OBStools/NEMOGCM/TOOLS/OBSTOOLS/dataplot/read_feedback.pro

Timestamp:

2011-11-09T16:18:38+01:00 (12 years ago)

Author:

djlea

Message:

Update OBS and ASM documentation. Small updates and fixes to dataplot.

File:

• branches/dev_2802_OBStools/NEMOGCM/TOOLS/OBSTOOLS/dataplot/read_feedback.pro (modified) (2 diffs)

branches/dev_2802_OBStools/NEMOGCM/TOOLS/OBSTOOLS/dataplot/read_feedback.pro

@@ -61 +61 @@
   if (NumObs gt 0) then begin  
     ByteNam = intarr(strnam, NumVars)
-    ByteEntries = intarr(strnam, NumEntries)
+    if (n_elements(NumEntries) eq 1) then ByteEntries = intarr(strnam, NumEntries)
     ByteId = intarr(strwmo, NumObs)
     ByteType = intarr(strtyp, NumObs)
     ByteJulDRef = intarr(strjuld)
     VarNames = strarr(NumVars)
-    Entries = strarr(NumEntries)
+    if (n_elements(NumEntries) eq 1) then Entries = strarr(NumEntries)
     Id = strarr(NumObs)
     Type = strarr(NumObs)
@@ -148 +148 @@
   
       varid = ncdf_varid(ncid, strtrim(VarNames(ivar))+'_Hx')
-      ncdf_varget, ncid, varid, tmp
-      Hx(*,*,ivar) = tmp
-      ncdf_attget, ncid, varid, '_Fillvalue', FillValHx        
+      if (varid gt -1) then begin
+         ncdf_varget, ncid, varid, tmp
+         Hx(*,*,ivar) = tmp
+         ncdf_attget, ncid, varid, '_Fillvalue', FillValHx
+      endif else begin
+         FillValHx=0
+      endelse 
       
       varid = ncdf_varid(ncid, strtrim(VarNames(ivar))+'_QC')