Changeset 74 for trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

Timestamp:

05/23/06 15:45:47 (18 years ago)

Author:

smasson

Message:

debug xxx and cie + clean data file + rm perldoc_idl

File:

• trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro (modified) (3 diffs)

trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

@@ -126 +126 @@
     if n_elements(fin) NE 0 then lasttps = fin[0] ELSE lasttps = firsttps
     jpt = lasttps-firsttps+1
-    time = lindgen(jpt)
+    time = julday(1, 1, 1) + lindgen(jpt)
   ENDIF ELSE BEGIN
     if keyword_set(parent) then BEGIN
@@ -253 +253 @@
         ncdf_close, cdfid
         return, report('date 1: '+strtrim(jul2date(date1), 1)+' is not found in the time axis.')
-      endif
+      ENDIF
       lasttps = where(time LE date2)
       if lasttps[0] EQ -1 THEN BEGIN
@@ -437 +437 @@
   day = (long(debut[0]) MOD 100)
   vardate = string(format = '(C(CMoA))', 31*(month-1))+' '+strtrim(day, 1)+', '+strtrim(year, 1)
-; varexp ???
+  varexp = file_basename(filename)
 
 ; we apply reverse