Changeset 310

Timestamp:

11/15/07 18:15:30 (17 years ago)

Author:

smasson

Message:

bugfix in xxx animations

Location:

trunk/SRC/ToBeReviewed

Files:

• LECTURE/read_ncdf.pro (modified) (1 diff)
• WIDGET/AUTOUR_de_XXX/xcreateanim.pro (modified) (2 diffs)

trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

@@ -391 +391 @@
 ;---------------------------------------------------------------------
   IF keyword_set(direc) THEN BEGIN
-    IF jpt EQ 1 THEN res = moyenne(temporary(res), direc) $
+    IF jpt EQ 1 THEN res = moyenne(temporary(res), direc, _extra = ex) $
     ELSE BEGIN
-      res = grossemoyenne(temporary(res), direc)
+      res = grossemoyenne(temporary(res), direc, _extra = ex)
       IF ( strpos(strlowcase(direc), 't') ge 0 ) THEN BEGIN
         vardate = strtrim(jul2date(time[0]), 1)+' - '+strtrim(jul2date(time[jpt-1]), 1)

trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/xcreateanim.pro

@@ -30 +30 @@
 ;
 @common
+
 ; We recuperate arguments contained in the widget
   if tag_names(event, /structure_name) NE 'WIDGET_BUTTON' then return
@@ -55 +56 @@
   widget_control, widget_info(event.top, find_by_uname = 'debut') $
                   , get_value = vdate1
-  index1 = where(calendar eq date2jul(vdate1)) & index1 = index1[0]
+  index1 = (where(abs(calendar - date2jul(vdate1)) LT 1./86400.))[0]
   if index1 EQ -1 then return
 ;
   widget_control, widget_info(event.handler, find_by_uname = 'fin') $
                   , get_value = vdate2
-  index2 = where(calendar eq date2jul(vdate2)) & index2 = index2[0]
+  index2 = (where(abs(calendar - date2jul(vdate2)) LT 1./86400.))[0]
   if index2 EQ -1 OR index2 LE index1 then return
 ; We delete the widget before create the file .ps