Changeset 298

Timestamp:

10/05/07 16:56:26 (17 years ago)

Author:

smasson

Message:

bugfix related to the use of double precision calendar

File:

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

trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

@@ -171 +171 @@
       currentfile = (where(filelist EQ filename))[0]
       time = (*(extractatt(top_uvalue, 'fileparameters'))[currentfile]).time_counter
-      date1 = date2jul(long(beginning[0]))
-      if n_elements(ending) NE 0 then date2 = date2jul(long(ending[0])) ELSE date2 = date1
+      date1 = date2jul(beginning[0])
+      if n_elements(ending) NE 0 then date2 = date2jul(ending[0]) ELSE date2 = date1
       firsttps = (where(abs(time - date1) LT 0.9d/86400.d))[0]   ; beware of rounding errors...
       lasttps = (where(abs(time - date2) LT 0.9d/86400.d))[0]
@@ -185 +185 @@
       ENDIF
 ; date1
-      date1 = date2jul(long(beginning[0]))
+      date1 = date2jul(beginning[0])
 ; date2
-      if n_elements(ending) NE 0 then date2 = date2jul(long(ending[0])) ELSE date2 = date1
+      if n_elements(ending) NE 0 then date2 = date2jul(ending[0]) ELSE date2 = date1
 ; firsttps
       firsttps = where(time GE (date1 - 0.9d/86400.d)) & firsttps = firsttps[0]