Changeset 296
- Timestamp:
- 09/25/07 12:51:30 (17 years ago)
- Location:
- trunk/SRC
- Files:
-
- 19 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Interpolation/compute_fromreg_bilinear_weigaddr.pro
r282 r296 96 96 jpja = jpja - 1L 97 97 ENDIF 98 ; olon between minalon etminalon+36098 ; olon between minalon and minalon+360 99 99 out = where(olon LT minalon) 100 100 WHILE out[0] NE -1 DO BEGIN -
trunk/SRC/Interpolation/compute_fromreg_imoms3_weigaddr.pro
r282 r296 88 88 IF total((step-step[0]) GE 1.e-6) NE 0 THEN noregx = 1 89 89 ; we extend the longitude range of alon (-> easy interpolation even 90 ; near minalon etmaxalon)90 ; near minalon and maxalon) 91 91 toadd = 10*jpia/360+1 92 92 alon = [alon[jpia-toadd:jpia-1]-360., alon[*], alon[0:toadd-1]+360.] … … 110 110 jpja = jpja - 1L 111 111 ENDIF 112 ; olon between minalon etminalon+360112 ; olon between minalon and minalon+360 113 113 out = where(olon LT minalon) 114 114 WHILE out[0] NE -1 DO BEGIN -
trunk/SRC/Postscript/openps.pro
r292 r296 102 102 nameps = isafile(nameps, iodir = psdir, /new) 103 103 ;------------------------------------------------------------ 104 ; we define xsize, ysize, xoffset etyoffset104 ; we define xsize, ysize, xoffset and yoffset 105 105 ;------------------------------------------------------------ 106 106 IF n_elements(portrait) NE 0 OR n_elements(landscape) NE 0 THEN $ -
trunk/SRC/Postscript/printps.pro
r231 r296 264 264 ENDIF 265 265 gzipped = strpos(nameps, '.gz') 266 ; if the file is gzipped we call gunzip etchange its name266 ; if the file is gzipped we call gunzip and change its name 267 267 IF gzipped NE -1 THEN BEGIN 268 268 spawn, '\gunzip ' + nameps -
trunk/SRC/ToBeReviewed/CALCULS/norme.pro
r264 r296 28 28 ; 29 29 ; @returns 30 ; Array to trace with plt, pltz or pltt.30 ; Array to trace with <pro>plt</pro>, <pro>pltz</pro> or <pro>pltt</pro>. 31 31 ; 32 32 ; @uses -
trunk/SRC/ToBeReviewed/GRILLE/domdef.pro
r280 r296 191 191 ;------------------------------------------------------------------- 192 192 ; define all horizontal parameters ... 193 ; lon1 etlon2194 ; lat1 etlat2193 ; lon1 and lon2 194 ; lat1 and lat2 195 195 ; firstx[tuvf], lastx[tuvf], nx[tuvf] 196 196 ;------------------------------------------------------------------- … … 886 886 ;------------------------------------------------------------------- 887 887 IF NOT (keyword_set(zindex) OR keyword_set(index)) THEN BEGIN 888 ; define vert1 etvert2888 ; define vert1 and vert2 889 889 CASE N_PARAMS() OF 890 890 2:vert1 = min([x1, x2], max = vert2) -
trunk/SRC/ToBeReviewed/LECTURE/litchamp.pro
r295 r296 4 4 ; Allows to read an array or a structure corresponding to a field. 5 5 ; If we have in input: 6 ; - an array, litchamp send back the array.7 ; - a structure, litchamp send back the first element of the structure6 ; - an array, litchamp send back the array. 7 ; - a structure, litchamp send back the first element of the structure 8 8 ; which must be the field in an array. 9 ; Litchamp profit of this to look other elements of the structure et10 ; 11 ; 9 ; litchamp profit of this to look other elements of the structure and 10 ; update if needed global variables which refer to the field: 11 ; vargrid, varname, varunit, vardate, varexp , valmask et time 12 12 ; 13 13 ; @categories -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltbase.pro
r262 r296 3 3 ; @file_comments 4 4 ; Overlayer contour to trace a field which can be mask. 5 ; Elementary brick of plt, pltz et pltt.5 ; Elementary brick of <pro>plt</pro>, <pro>pltz</pro> and <pro>pltt</pro>. 6 6 ; 7 7 ; @categories … … 61 61 ; 62 62 ; @keyword FORPLT 63 ; To activate if we want that the drawing of coast be realized by tracecote rather than tracemask.63 ; To activate if we want that the drawing of coast be realized by <pro>tracecote</pro> rather than <pro>tracemask</pro>. 64 64 ; 65 65 ; @keyword I_COLORS {type=vector} … … 87 87 ; 88 88 ; @keyword CONTOUR 89 ; To be used since plt, pltz or pltt. (Have a look on these routines).89 ; To be used since <pro>plt</pro>, <pro>pltz</pro> or <pro>pltt</pro>. (Have a look on these routines). 90 90 ; 91 91 ; @keyword _EXTRA … … 96 96 ; 97 97 ; @restrictions 98 ; In the case of z2d, x and y are arrays of same size, we ha te to put them as vectors: z2d[*], x[*], y[*].98 ; In the case of z2d, x and y are arrays of same size, we have to put them as vectors: z2d[*], x[*], y[*]. 99 99 ; 100 100 ; @history … … 102 102 ; ???? 103 103 ; 8/2/2000 check if the tri array is not equal to 104 ; -1. allow contour with 104 ; -1. allow contour without using a triangulation. 105 105 ; 106 106 ; @version -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/sbar_plot.pro
r295 r296 49 49 ; 50 50 @common 51 ; 1) I reinitialize the graphic environment (variables !x, !y et!p):51 ; 1) I reinitialize the graphic environment (variables !x, !y and !p): 52 52 if NOT keyword_set(NOREINITPLT) then reinitplt, _extra = ex 53 53 ; 2) I place the drawing on the screen like on the postscript -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/scontour.pro
r295 r296 36 36 ; 37 37 @common 38 ; 1) I reinitialize the graphic environment (variables !x, !y et!p):38 ; 1) I reinitialize the graphic environment (variables !x, !y and !p): 39 39 if NOT keyword_set(NOREINITPLT) then reinitplt, _extra = ex 40 40 ; 2) i put the drawing on the screen like on the postscript -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/splot.pro
r295 r296 40 40 ; 41 41 @common 42 ; 1) I reinitialize the graphic environment ( les variables !x, !y et!p):42 ; 1) I reinitialize the graphic environment (variables !x, !y and !p): 43 43 if NOT keyword_set(NOREINITPLT) then reinitplt, _extra = ex 44 44 ; 2) i put the drawing on the screen like on the postscript -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/tvplus.pro
r260 r296 104 104 endif 105 105 ;------------------------------------------------------------ 106 ; def of ncolmax, bottom, topcol etncolors106 ; def of ncolmax, bottom, topcol and ncolors 107 107 ;------------------------------------------------------------ 108 108 ncolmax = !d.n_colors < 256 … … 201 201 window, window, xsize = nx+marginpix[0]+marginpix[1] $ 202 202 , ysize = ny+marginpix[2]+marginpix[3] 203 ; for 24 bits colors, make sure that ethe background color is the good one...203 ; for 24 bits colors, make sure that the background color is the good one... 204 204 if !d.n_colors gt 256 then BEGIN 205 205 device, decomposed = 1 … … 243 243 ; scrolling bar window case... 244 244 ;------------------------------------------------------------ 245 ; for 24 bits colors, make sure that ethe background color is the good one...245 ; for 24 bits colors, make sure that the background color is the good one... 246 246 if !d.n_colors gt 256 then begin 247 247 window, /pixmap -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checkfield.pro
r238 r296 136 136 ; 137 137 ; @file_comments 138 ; In input of plt, pltz, pltt and plt1d, it check that the field give138 ; In input of <pro>plt</pro>, <pro>pltz</pro>, <pro>pltt</pro> and <pro>plt1d</pro>, it check that the field give 139 139 ; a size compatible with the domain and, if needed, average to give us 140 140 ; a 2d array if we make a plot of the type: 'xy', 'xz', 'xt', 'yz', 'yt' -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placedessin.pro
r259 r296 225 225 AND !d.name ne 'PS' AND !d.name ne 'Z':BEGIN 226 226 if not keyword_set(window) then window = 0 227 ; For the using of \@ps,\@oups et de\@vzoom227 ; For the using of \@ps,\@oups and \@vzoom 228 228 if lmgr(/demo) EQ 0 then BEGIN ; Are we in the demo mode?? 229 229 if !journal NE 0 then journal ; We close the journal if it is open -
trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/ajoutvect.pro
r241 r296 149 149 endif 150 150 ;----------------------------------------------------------- 151 ; We mask u and v et vthe long of coasts (the place where we151 ; We mask u and v the long of coasts (the place where we 152 152 ; can not calculate the average) 153 153 ;----------------------------------------------------------- -
trunk/SRC/ToBeReviewed/PLOTS/axe.pro
r262 r296 2 2 ; 3 3 ; @file_comments 4 ; Manage axes for the different drawings created by plt,5 ; pltz and pltt4 ; Manage axes for the different drawings created by 5 ; <pro>plt</pro>, <pro>pltz</pro> and <pro>pltt</pro> 6 6 ; 7 7 ; @categories -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/updatewidget.pro
r231 r296 43 43 widget_control, base, update = 0 44 44 ;-------------- 45 ; date1 etdate245 ; date1 and date2 46 46 ;-------------- 47 47 if keyword_set(nodates) then begin -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/xxxmenubar_event.pro
r295 r296 76 76 rien = cw_calendar(basecal, newfile.fileparameters.time_counter, jdate2, uname = 'calendar2' $ 77 77 , FAKECAL = fakecal, uvalue = {name:'calendar2'}, /frame) 78 ; We update fileparameters, readparameters etmeshparameters elements of the top_value78 ; We update fileparameters, readparameters and meshparameters elements of the top_value 79 79 newfileparameters = ptrarr(currentfile+1, /allocate_heap) 80 80 FOR i = 0, currentfile-1 DO $ -
trunk/SRC/Utilities/xhelp.pro
r285 r296 29 29 ; Institute for Computational Earth System Science 30 30 ; University of California, Santa Barbara 31 ; 7/1/99 : legeres mo fification par Sebastien Masson : utilisation de31 ; 7/1/99 : legeres modification par Sebastien Masson : utilisation de 32 32 ; <proidl>xdisplayfile</proidl>, de <pro>findfile</pro> et de _extra. 33 33 ; 6/7/1999: compatibility mac and windows
Note: See TracChangeset
for help on using the changeset viewer.