Changeset 114 for trunk/SRC/ToBeReviewed/WIDGET/xx.pro
- Timestamp:
- 06/19/06 16:14:56 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/WIDGET/xx.pro
r52 r114 1 1 2 2 PRO xx, JOUR = jour, MESHFILENAME = meshfilename, LISTVAR = listvar, LISTGRID = listgrid, FUNCLEC_NAME = funclec_name, CALENDAR = calendar, _extra = ex 3 ; 4 ; 5 compile_opt idl2, strictarrsubs 3 6 ; 4 7 @common … … 20 23 ENDIF 21 24 ; calendrier a utiliser (en jours juliens d''IDL 22 if NOT keyword_set(calendar) then BEGIN23 if keyword_set(jour) then calendar = calendriertotem(/julian_day) ELSE calendar = calendriertotem(/julian_day, /mensuel)24 ENDIF25 ;++++ if NOT keyword_set(calendar) then BEGIN 26 ;++++ if keyword_set(jour) then calendar = calendriertotem(/julian_day) ELSE calendar = calendriertotem(/julian_day, /mensuel) 27 ;++++ ENDIF 25 28 ; nom du fichier se rapportant au masque 26 29 if NOT keyword_set(meshfilename) then meshfilename = '/usr1/com/smasson/IDL/INIT/inittotem.pro' 27 meshparameters = whichgrid(meshfilename)30 ;++++ meshparameters = whichgrid(meshfilename) 28 31 ; parameteres specifiant comment doit etre lu le champ 29 32 readparameters= {funclec_name: funclec_name $
Note: See TracChangeset
for help on using the changeset viewer.