Changeset 457

Timestamp:

04/12/11 09:44:35 (13 years ago)

Author:

smasson

Message:

add allrecords keyword in read_ncdf.pro

File:

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

trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

@@ -38 +38 @@
 ; missing values
 ;
+; @keyword ALLRECORDS
+; activate to read all records in a file (no need to specify any
+; parameter other than NAME)
+;
 ; @keyword BOXZOOM
 ; Contain the boxzoom on which we have to do the reading
@@ -109 +113 @@
 ;-
 FUNCTION read_ncdf, name, beginning, ending, compatibility $
-                    , BOXZOOM = boxzoom, FILENAME = filename $
+                    , ALLRECORDS = allrecords, BOXZOOM = boxzoom, FILENAME = filename $
                     , PARENTIN = parentin, TIMESTEP = timestep $
                     , ADDSCL_BEFORE = addscl_before $
@@ -176 +180 @@
 ; check the time axis and the debut and ending dates
 ;------------------------------------------------------------
-  IF n_elements(beginning) EQ 0 THEN BEGIN
+  IF n_elements(beginning) EQ 0 AND NOT keyword_set(allrecords) THEN BEGIN
     beginning = 0L
     timestep = 1L
@@ -199 +203 @@
       lasttps = (where(abs(time - date2) LT 0.9d/86400.d))[0]
       jpt = lasttps-firsttps+1
+    END
+    keyword_set(allrecords):BEGIN
+      time = ncdf_gettime(filename, cdfid, caller = 'read_ncdf', err = err, _extra = ex)
+      IF time[0] LT 0 then BEGIN 
+        jpt = -time[0]
+        time = julday(1, 1, 1) + lindgen(jpt)
+      ENDIF
+      firsttps = 0
+      lasttps = jpt -1
     END
     ELSE:BEGIN