Changeset 295
- Timestamp:
- 09/25/07 12:16:00 (17 years ago)
- Location:
- trunk/SRC
- Files:
-
- 22 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Grid/numbisland.pro
r240 r295 5 5 ; @file_comments 6 6 ; recursive function. 7 ; for one given point on an island, check if its neighbo urgs are on the same island7 ; for one given point on an island, check if its neighbors are on the same island 8 8 ; 9 9 ; @param msk {in}{required}{type=2D array of 0 and 1} … … 30 30 ; flag the point 31 31 msk[indin] = numb 32 ; find its neighbo urgs32 ; find its neighbors 33 33 indx = (indin MOD nx) + [-1L, 0L, 1L] 34 34 indx = (temporary(indx) + nx) MOD nx ; x periodicity … … 37 37 ; build 1d index 38 38 ind = temporary(indx)#replicate(1L, 3) + replicate(nx, 3)#temporary(indy) 39 ; for each neighbo urgon the same island, call again mskneig39 ; for each neighbor on the same island, call again mskneig 40 40 FOR i = 0, n_elements(ind)-1 DO BEGIN 41 41 IF msk[ind[i]] EQ 0 THEN mskneig, msk, nx, ny, ind[i], numb -
trunk/SRC/Interpolation/compute_fromirr_bilinear_weigaddr.pro
r282 r295 46 46 ; first morph the cell into a square cell and then compute the bilinear 47 47 ; interpolation. 48 ; - if some corners of the cell are land points, their weight isset to 048 ; - if some corners of the cell are land points, their weights are set to 0 49 49 ; and the weight is redistributed on the remaining "water" corners 50 50 ; - points located out of the southern and northern boundaries or in cells 51 ; containing only land points are set the same value as their closest neighbor 51 ; containing only land points are set the same value as their closest neighbors 52 52 ; 53 53 ; @history … … 163 163 ; xx,yy is inside. 164 164 CASE 1 OF 165 ; if we are near the nor h pole165 ; if we are near the north pole 166 166 yy GE (90-delta):BEGIN 167 167 lat1 = 90-2*delta -
trunk/SRC/Interpolation/extrapolate.pro
r292 r295 3 3 ; @file_comments 4 4 ; extrapolate data (zinput) where maskinput equal 0 by filling step by 5 ; step the coastline points with the mean value of the 8 neighbo urgs6 ; (weighted by their mask value ).5 ; step the coastline points with the mean value of the 8 neighbors 6 ; (weighted by their mask values). 7 7 ; 8 8 ; @categories … … 129 129 endif 130 130 ; 131 ; we compute the weighted number of sea neighbo urgs.132 ; those 4 neighbo urs have a weight of 1:131 ; we compute the weighted number of sea neighbors. 132 ; those 4 neighbors have a weight of 1: 133 133 ; * 134 134 ; *+* 135 135 ; * 136 136 ; 137 ; those 4 neighbo urs have a weight of 1/sqrt(2):137 ; those 4 neighbors have a weight of 1/sqrt(2): 138 138 ; 139 139 ; * * … … 148 148 +sqrtinv*(msk[land+nx2+1]+msk[land+nx2-1] $ 149 149 +msk[land-nx2+1]+msk[land-nx2-1]) 150 ; list all the points that have sea neighbo urgs150 ; list all the points that have sea neighbors 151 151 ok = where(weight GT 0) 152 152 ; the coastline points 153 153 coast = land[ok] 154 ; their weighted number of sea neighbo urgs.154 ; their weighted number of sea neighbors. 155 155 weight = weight[temporary(ok)] 156 156 ;--------------------------------------------------------------- -
trunk/SRC/Interpolation/extrapsmooth.pro
r271 r295 6 6 ; takes more time than <pro>extrapolate</pro>. 7 7 ; extrapolate data where mskin is equal 0 by filling 8 ; step by step the coastline points with the mean value of the 8 neighbo urgs.8 ; step by step the coastline points with the mean value of the 8 neighbors. 9 9 ; 10 10 ; @categories -
trunk/SRC/Interpolation/square2quadrilateral.pro
r282 r295 42 42 ; x0. If xin is an array , then n is equal to the number of 43 43 ; elements of xin. 44 ; If xin and yin are omit ed, <pro>square2quadrilateral</pro> returns the44 ; If xin and yin are omitted, <pro>square2quadrilateral</pro> returns the 45 45 ; matrix A which is used for the inverse transformation. 46 46 ; -
trunk/SRC/Matrix/cmset_op.pro
r262 r295 38 38 ; but not both; 39 39 ; 40 ; Sets as defined here are one dimensional arrayscomposed of40 ; Sets as defined here is one dimensional array composed of 41 41 ; numeric or string types. Comparisons of equality between elements 42 42 ; are done using the IDL EQ operator. … … 353 353 if NOT keyword_set(not1) AND NOT keyword_set(not2) then begin 354 354 355 ;; Special case: if there areone in each set, and355 ;; Special case: if there is one in each set, and 356 356 ;; they are equal, then the SHIFT() technique below 357 357 ;; fails. Do this one by hand. -
trunk/SRC/ToBeReviewed/LECTURE/litchamp.pro
r231 r295 24 24 ; -the order of elements (except the first) has not any importance. 25 25 ; -the other elements (except the first) are optional. 26 ; -they are recognize by the first letter of their names:27 ; g to update vargrid 28 ; u to update varunit 29 ; e to update varexp 30 ; d to update vardate 31 ; n to update varname 26 ; -they are recognized by the first letter of their names: 27 ; g to update vargrid, 28 ; u to update varunit, 29 ; e to update varexp, 30 ; d to update vardate, 31 ; n to update varname, 32 32 ; m to update valmask 33 33 ; -
trunk/SRC/ToBeReviewed/LECTURE/ncdf_lec.pro
r260 r295 2 2 ; 3 3 ; @file_comments 4 ; Give informations on a file net 5 ; variables which are writ e in.4 ; Give informations on a file netcdf and allows to recuperate 5 ; variables which are written in it. 6 6 ; 7 7 ; @categories … … 9 9 ; 10 10 ; @param NOM {in}{required} 11 ; Name of a file net cdf situated in the directory stipulated by iodir.11 ; Name of a file netcdf located in the directory stipulated by iodir. 12 12 ; 13 13 ; @keyword ATT 14 ; 'global' or atthe name of a variable. Allows to see all attributes15 ; joined at avariable14 ; 'global' or the name of a variable. Allows to see all attributes 15 ; associated to variable 16 16 ; 17 17 ; @keyword DIM … … 19 19 ; 20 20 ; @keyword VAR 21 ; 1) /var: G ove the list of dimensions.22 ; 2) var='n om devariable': in this case the function send back the variable.21 ; 1) /var: Give the list of dimensions. 22 ; 2) var='name_of_a_variable': in this case the function send back the variable. 23 23 ; 24 24 ; @keyword IODIR -
trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro
r284 r295 47 47 ; 48 48 ; @keyword FILENAME {required}{type=string} 49 ; It contains he file's name.49 ; It contains the file's name. 50 50 ; 51 51 ; @keyword INIT {default=0}{type=scalar: 0 or 1} 52 ; To call automatically initncdf with filename as input argument and thus53 ; redefine all the grid parameters52 ; To call automatically <pro>initncdf</pro> with filename as input argument 53 ; and thus ; redefine all the grid parameters 54 54 ; 55 55 ; @keyword GRID … … 83 83 ; @returns 84 84 ; Structure readable by <pro>litchamp</pro> or an array if NOSTRUCT is activated. 85 ;86 85 ; @uses 87 86 ; common.pro … … 283 282 ENDELSE 284 283 ;--------------------------------------------------------------------- 285 ; We initializ ate ixmindta, iymindta if needed284 ; We initialize ixmindta, iymindta if needed 286 285 ;--------------------------------------------------------------------- 287 286 if n_elements(jpidta) EQ 0 THEN jpidta = jpiglo -
trunk/SRC/ToBeReviewed/LECTURE/xncdf_lec.pro
r231 r295 2 2 ; 3 3 ; @file_comments 4 ; Reading of a Net Cdf file with widgets !4 ; Reading of a NetCdf file with widgets 5 5 ; 6 6 ; @categories … … 34 34 ; @keyword SHIFT {type=vector}{default=[0, 0,...]} 35 35 ; A vector of integers, specifying for each dimension how much we have to shift it. 36 ; By default, it is [0,0,...]. See the function shiftfor more explanations. BEWARE,36 ; By default, it is [0,0,...]. See the function <proidl>shift</proidl> for more explanations. BEWARE, 37 37 ; the shift is done on the biggest array before a possible reduction determined 38 38 ; by OFFSET and COUNT. On the other hand, it is done after the possible extraction … … 56 56 ; 57 57 ; @examples 58 ; help, xncdf_lec()58 ; IDL> help, xncdf_lec() 59 59 ; 60 60 ; @history … … 127 127 ;------------------------------------------------------------ 128 128 base1 = widget_base(base, /column, /align_center) 129 rien = widget_label(base1, value = 'Net 129 rien = widget_label(base1, value = 'NetCdf filename', /align_center) 130 130 rien = widget_text(base1, value = name, /align_center, uvalue=1, /editable) ;File's name we can change 131 131 rien = widget_label(base1, value = ' ') ; We jump a line -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt.pro
r292 r295 266 266 ;-------------------------------------------------------------- 267 267 ; I3) reinitialization. !p.,!x.,!y. 268 ; Comment: We do not reinitializ ate when we call bck plt in loop to use contour.268 ; Comment: We do not reinitialize when we call bck plt in loop to use contour. 269 269 ;-------------------------------------------------------------- 270 270 if n_elements(contour) ne 4 AND NOT keyword_set(overplot) then reinitplt, /z, /invert -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt1d.pro
r293 r295 152 152 ;-------------------------------------------------------------- 153 153 ; I2) reinitialization. !p.,!x.,!y. 154 ; Comment: We do not reinitializ ate when we call back plt1d154 ; Comment: We do not reinitialize when we call back plt1d 155 155 ;-------------------------------------------------------------- 156 156 if NOT keyword_set(ov1d) then reinitplt -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltsc.pro
r262 r295 66 66 ENDIF 67 67 68 ; Comment: We do not reinitializ ate when we call back pltsc68 ; Comment: We do not reinitialize when we call back pltsc 69 69 if NOT keyword_set(ov1d) then reinitplt 70 70 ;; reduce data xyzt domain -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro
r293 r295 226 226 ;-------------------------------------------------------------- 227 227 ; I2) reinitialization. !p.,!x.,!y. 228 ; Comment: we do not reinitializ ate when we call back plt in loop to use contour.228 ; Comment: we do not reinitialize when we call back plt in loop to use contour. 229 229 ;-------------------------------------------------------------- 230 230 if n_elements(contour) ne 4 AND NOT keyword_set(overplot) $ -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltz.pro
r265 r295 191 191 ; 1st part: initialization small calculations... 192 192 ;-------------------------------------------------------------- 193 ; Comment: we do not reinitializ ate when we call back plt in loop to use contour.193 ; Comment: we do not reinitialize when we call back plt in loop to use contour. 194 194 if n_elements(contour) ne 4 AND NOT keyword_set(overplot) then reinitplt 195 195 ; … … 313 313 , /fillxdir, _extra = ex) 314 314 ; if some lines contains no field (the bottom line for ex) it must be 315 ; also filled with 8 neighbo urgmethod315 ; also filled with 8 neighbors method 316 316 IF (where(total(mask*masknan, 1) EQ 0))[0] NE -1 THEN $ 317 317 z2d = remplit(z2d, nite = 1-(n_elements(maskfill) NE 0) $ 318 318 , mask = z2d LT valmask/10, /basique, _extra = ex) 319 319 ENDIF ELSE BEGIN 320 ; filling the mask values with 8 neighbo urg320 ; filling the mask values with 8 neighbors 321 321 z2d = remplit(z2d, nite = (1+(vargrid NE 'T')+keyword_set(nan)) $ 322 322 *(1-(n_elements(maskfill) NE 0)), mask = mask*masknan $ -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/sbar_plot.pro
r262 r295 18 18 ; @keyword NOREINITPLT 19 19 ; We active it if we do not want environment variables !p, !x, !y, !z 20 ; to be reinitializ ated by the procedure reinitplt20 ; to be reinitialized by the procedure <pro>reinitplt</pro> 21 21 ; 22 22 ; @keyword _EXTRA … … 28 28 ; @restrictions 29 29 ; If NOREINITPLT is not activated, all environment 30 ; variables !p, !x, !y, !z are reinitializted by the procedure reinitplt30 ; variables !p, !x, !y, !z are reinitializted by the procedure <pro>reinitplt</pro> 31 31 ; 32 32 ; @examples -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/scontour.pro
r237 r295 9 9 ; @keyword NOREINITPLT 10 10 ; We active it if we do not want environment variables !p, !x, !y, !z 11 ; to be reinitilaliz ated by the procedure reinitplt11 ; to be reinitilalized by the procedure reinitplt 12 12 ; 13 13 ; @keyword _EXTRA … … 36 36 ; 37 37 @common 38 ; 1) I reinitializ ate the graphic environment (variables !x, !y et !p):38 ; 1) I reinitialize the graphic environment (variables !x, !y et !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
r237 r295 9 9 ; @keyword NOREINITPLT 10 10 ; We active it if we do not want environment variables !p, !x, !y, !z 11 ; to be reinitilaliz ated by the procedure reinitplt11 ; to be reinitilalized by the procedure <pro>reinitplt</pro> 12 12 ; 13 13 ; @keyword _EXTRA … … 19 19 ; @restrictions 20 20 ; If NOREINITPLT is not activated, all environment 21 ; variables !p, !x, !y, !z are reinitializted by the procedure reinitplt21 ; variables !p, !x, !y, !z are reinitializted by the procedure <pro>reinitplt</pro> 22 22 ; 23 23 ; @examples … … 40 40 ; 41 41 @common 42 ; 1) I reinitializ ate the graphic environment (les variables !x, !y et !p):42 ; 1) I reinitialize the graphic environment (les variables !x, !y et !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/WIDGET/AUTOUR_de_XXX/xxxmenubar_event.pro
r267 r295 232 232 widget_control, basegraph, /realize 233 233 xmanager, 'xxx', basegraph, /no_block 234 ; We redraw what the irwere into it234 ; We redraw what they were into it 235 235 ; We recuperate the list of instructions 236 236 globalcommand = extractatt(top_uvalue, 'globalcommand') -
trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_combobox_pm.pro
r242 r295 143 143 ; 144 144 ; @file_comments 145 ; Like WIDGET_COMBOBOX but here, the irare 2 buttons + and - to move the widget from +/- 1145 ; Like WIDGET_COMBOBOX but here, there are 2 buttons + and - to move the widget from +/- 1 146 146 ; 147 147 ; @categories -
trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_droplist_pm.pro
r242 r295 132 132 ; 133 133 ; @file_comments 134 ; Like WIDGET_DROPLIST but here, the irare 2 buttons + and - to move the widget from +/- 1134 ; Like WIDGET_DROPLIST but here, there are 2 buttons + and - to move the widget from +/- 1 135 135 ; 136 136 ; @categories -
trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slider_pm.pro
r262 r295 237 237 ; 238 238 ; @file_comments 239 ; Like WIDGET_SLIDER but here, the irare 2 buttons + and - to move the widget from +/- 1239 ; Like WIDGET_SLIDER but here, there are 2 buttons + and - to move the widget from +/- 1 240 240 ; 241 241 ; @categories
Note: See TracChangeset
for help on using the changeset viewer.