- Timestamp:
- 11/15/07 18:15:30 (17 years ago)
- Location:
- trunk/SRC/ToBeReviewed
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro
r301 r310 391 391 ;--------------------------------------------------------------------- 392 392 IF keyword_set(direc) THEN BEGIN 393 IF jpt EQ 1 THEN res = moyenne(temporary(res), direc ) $393 IF jpt EQ 1 THEN res = moyenne(temporary(res), direc, _extra = ex) $ 394 394 ELSE BEGIN 395 res = grossemoyenne(temporary(res), direc )395 res = grossemoyenne(temporary(res), direc, _extra = ex) 396 396 IF ( strpos(strlowcase(direc), 't') ge 0 ) THEN BEGIN 397 397 vardate = strtrim(jul2date(time[0]), 1)+' - '+strtrim(jul2date(time[jpt-1]), 1) -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/xcreateanim.pro
r297 r310 30 30 ; 31 31 @common 32 32 33 ; We recuperate arguments contained in the widget 33 34 if tag_names(event, /structure_name) NE 'WIDGET_BUTTON' then return … … 55 56 widget_control, widget_info(event.top, find_by_uname = 'debut') $ 56 57 , get_value = vdate1 57 index1 = where(calendar eq date2jul(vdate1)) & index1 = index1[0]58 index1 = (where(abs(calendar - date2jul(vdate1)) LT 1./86400.))[0] 58 59 if index1 EQ -1 then return 59 60 ; 60 61 widget_control, widget_info(event.handler, find_by_uname = 'fin') $ 61 62 , get_value = vdate2 62 index2 = where(calendar eq date2jul(vdate2)) & index2 = index2[0]63 index2 = (where(abs(calendar - date2jul(vdate2)) LT 1./86400.))[0] 63 64 if index2 EQ -1 OR index2 LE index1 then return 64 65 ; We delete the widget before create the file .ps
Note: See TracChangeset
for help on using the changeset viewer.