- Timestamp:
- 03/26/07 17:37:03 (17 years ago)
- Location:
- trunk/SRC
- Files:
-
- 72 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Colors/color24.pro
r231 r237 4 4 ; The purpose of this function is to convert a RGB color triple 5 5 ; into the equivalent 24-big long integer. 6 ; This routine was written to be used with routines like COLORS or 6 ; This routine was written to be used with routines like 7 ; COLORS <!--++ COLORS is not a routine--> or 7 8 ; <pro>GETCOLOR</pro>. 8 9 ; -
trunk/SRC/Colors/xlct.pro
r231 r237 1 1 ;+ 2 ; 2 3 ; @hidden 4 ; 3 5 ;- 4 6 ; … … 397 399 398 400 ;+ 401 ; 399 402 ; @file_comments 400 ; Like xloadct but fastest to write and call by default the palette401 ; palette.tbl which can be in any directory403 ; Like <proidl>xloadct<proidl> but fastest to write and call by default 404 ; the palette palette.tbl which can be in any directory 402 405 ; 403 406 ; @categories … … 467 470 ; 468 471 ;- 469 472 ; 470 473 PRO xlct, SILENT=silent_f, GROUP=group, FILE=file, $ 471 474 USE_CURRENT=use_current, NCOLORS = nc, BOTTOM=bottom, $ -
trunk/SRC/Colors/xpal.pro
r233 r237 439 439 ; 440 440 ; @file_comments 441 ; like xpalettebut shorter to write and, moreover,441 ; Like <proidl>xpalette</proidl> but shorter to write and, moreover, 442 442 ; possess a hotkey save which (thanks to the newpalette routine) 443 443 ; allows to save the routine that we have just done. Comment: when we 444 ; press the predefined hotkey, it calls xlct instead of xloadct 444 ; press the predefined hotkey, it calls <pro>xlct</pro> instead of 445 ; <proidl>xloadct</proidl> 445 446 ; No explicit inputs. The current color table is used as a starting point. 446 447 ; … … 448 449 ; Color, Widget 449 450 ; 450 ; @uses XP_COM: Private to this module. 451 ; @uses XP_COM 452 ; Private to this module. 451 453 ; 452 454 ; @restrictions … … 582 584 ; 583 585 ;- 584 pro xpal, GROUP=group, BLOCK=block, UPDATECALLBACK=updt_cb_name, $ 586 ; 587 PRO xpal, GROUP=group, BLOCK=block, UPDATECALLBACK=updt_cb_name, $ 585 588 UPDATECBDATA=updt_cb_data 586 589 ; 587 590 compile_opt idl2, strictarrsubs 588 591 ; 589 590 591 592 common xp_com, xpw, state 592 593 common colors, r_orig, g_orig, b_orig, r_curr, g_curr, b_curr -
trunk/SRC/Documentation/xmldoc/pro2href.sh
r233 r237 53 53 else 54 54 nblev=$(echo ${fpath} | sed -e "s@/\$@@" | awk -F "/" '{print NF}') 55 nblev=$(( ${nblev} + 1))56 relpath=" ./"55 # nblev=$(( ${nblev} + 1)) 56 relpath="" 57 57 ilev=1 58 58 while [ ${ilev} -le ${nblev} ] 59 59 do 60 relpath="${relpath} /.."60 relpath="${relpath}../" 61 61 ilev=$(( ${ilev} + 1 )) 62 62 done -
trunk/SRC/Grid/computegrid.pro
r236 r237 212 212 ; 213 213 ; @keyword _EXTRA 214 ; (not used in the present case...) 215 ; 216 ; @uses cm_4mesh cm_4data cm_4cal 217 ; 218 ; @restrictions if the grid has x/y periodicity overlap and/or if 219 ; the mask has 0 everywhere at the border (like a close sea) and 214 ; not used in the present case ... 215 ; 216 ; @uses 217 ; cm_4mesh cm_4data cm_4cal 218 ; 219 ; @restrictions 220 ; if the grid has x/y periodicity overlap and/or if 221 ; the mask has 0 everywhere at the border (like a closed sea) and 220 222 ; if (we did not activate /plain and xminmesh, xmaxmesh, yminmesh, 221 223 ; ymaxmesh keywords are defined to their default values), we redefine 222 224 ; xminmesh, xmaxmesh, yminmesh, ymaxmesh in order to reove the 223 ; overlapping part and/or to open the domain (avoid tibe forced225 ; overlapping part and/or to open the domain (avoid it be forced 224 226 ; to use cell_fill = 1). 225 227 ; 226 ; @restrictions FUV points definition is not exact if the grid is irregular 228 ; @restrictions 229 ; FUV points definition is not exact if the grid is irregular 227 230 ; 228 231 ; @history -
trunk/SRC/Grid/micromeshmask.pro
r236 r237 53 53 ; 54 54 ;- 55 ; 55 56 PRO micromeshmask, ncfilein, ncfileout, IODIR = iodir 56 57 ; -
trunk/SRC/Matrix/cmapply.pro
r232 r237 6 6 ; @param X 7 7 ; 8 ; 9 ; @version$Id$8 ; @version 9 ; $Id$ 10 10 ; 11 11 ; @todo seb 12 12 ;- 13 13 ; 14 functioncmapply_product, x14 FUNCTION cmapply_product, x 15 15 ; 16 16 compile_opt idl2, strictarrsubs … … 29 29 30 30 ;+ 31 ; 31 32 ; @file_comments 32 33 ; cmapply_redim : Utility function, used to collect collaped dimensions … … 34 35 ; @param newarr 35 36 ; 36 ;37 37 ; @param dimapply 38 38 ; 39 ;40 39 ; @param dimkeep 41 40 ; 42 ;43 41 ; @param nkeep 44 42 ; 45 ;46 43 ; @param totcol 47 44 ; 48 ;49 45 ; @param totkeep 50 46 ; 51 ;52 47 ; @todo seb 48 ; 53 49 ;- 54 50 ; 55 procmapply_redim, newarr, dimapply, dimkeep, nkeep, totcol, totkeep51 PRO cmapply_redim, newarr, dimapply, dimkeep, nkeep, totcol, totkeep 56 52 ; 57 53 compile_opt idl2, strictarrsubs … … 78 74 end 79 75 80 ; ;Main function76 ;Main function 81 77 ;+ 82 78 ; … … 237 233 ; 238 234 ;- 239 function cmapply, op, array, dimapply, double=dbl, type=type, $ 235 ; 236 FUNCTION cmapply, op, array, dimapply, double=dbl, type=type, $ 240 237 functargs=functargs, nocatch=nocatch 241 238 ; -
trunk/SRC/Matrix/cmset_op.pro
r163 r237 1 1 ;+ 2 ; 2 3 ; @hidden 3 4 ; … … 7 8 ; 8 9 ; @todo seb 10 ; 9 11 ;- 10 12 ; 11 functioncmset_op_uniq, a13 FUNCTION cmset_op_uniq, a 12 14 ; 13 15 compile_opt idl2, strictarrsubs … … 129 131 ; SET_UTILS.PRO by RSI 130 132 ; 131 ; @history Written, CM, 23 Feb 2000 133 ; @history 134 ; Written, CM, 23 Feb 2000 132 135 ; Added empty set capability, CM, 25 Feb 2000 133 136 ; Documentation clarification, CM 02 Mar 2000 … … 160 163 ; craigm\@lheamail.gsfc.nasa.gov 161 164 ; 162 ; @version $Id$ 165 ; @version 166 ; $Id$ 163 167 ; 164 168 ; @examples … … 192 196 ; 193 197 ;- 194 195 196 function cmset_op, a, op0, b, not1=not1, not2=not2, count=count, $ 198 ; 199 FUNCTION cmset_op, a, op0, b, not1=not1, not2=not2, count=count, $ 197 200 empty1=empty1, empty2=empty2, maxarray=ma, index=index 198 201 ; -
trunk/SRC/Matrix/inter.pro
r232 r237 7 7 ; Calculation 8 8 ; 9 ; @param a {in}{required} arrays of positive integers, which need not to be 9 ; @param a {in}{required} 10 ; arrays of positive integers, which need not to be 10 11 ; sorted. Duplicate elements are ignored, as they have no effect on the 11 12 ; result 12 13 ; 13 ; @param b {in}{required} see a 14 ; @param b {in}{required} 15 ; see a 14 16 ; 15 ; @returns tableau 17 ; @returns 18 ; tableau 16 19 ; 17 ; @restrictions The empty set is denoted by an array with the first element equal to 20 ; @restrictions 21 ; The empty set is denoted by an array with the first element equal to 18 22 ; -1. 19 23 ; 20 ; @restrictions These functions will not be efficient on sparse sets with wide 21 ; ranges, as they trade memory for efficiency. The HISTOGRAM function 24 ; @restrictions 25 ; These functions will not be efficient on sparse sets with wide 26 ; ranges, as they trade memory for efficiency. 27 ; The <proidl>HISTOGRAM</proidl> function 22 28 ; is used, which creates arrays of size equal to the range of the 23 29 ; resulting set. -
trunk/SRC/Matrix/union.pro
r232 r237 12 12 ; effect on the result 13 13 ; 14 ; @param b {in}{required} see a 14 ; @param b {in}{required} 15 ; see a 15 16 ; 16 17 ; @returns … … 20 21 ; The empty set is denoted by an array with the first element equal to -1. 21 22 ; 22 ; @restrictions These functions will not be efficient on sparse sets with wide 23 ; ranges, as they trade memory for efficiency. The HISTOGRAM function 23 ; @restrictions 24 ; These functions will not be efficient on sparse sets with wide 25 ; ranges, as they trade memory for efficiency. 26 ; The <proidl>HISTOGRAM</proidl> function 24 27 ; is used, which creates arrays of size equal to the range of the 25 28 ; resulting set. -
trunk/SRC/Matrix/zero_one.pro
r231 r237 1 1 ;+ 2 ; @file_comments 2 ; @file_comments 3 3 ; Send back a vector or a matrix constituted of 0 and 1 in alternation 4 4 ; 5 ; @categories 5 ; @categories 6 6 ; Function, Matrix 7 7 ; 8 ; @param n1 {in}{required} number of elements in the first dimension9 ; @param n2 {in}{required} number of elements in the seconddimension8 ; @param n1 {in}{required} 9 ; number of elements in the first dimension 10 10 ; 11 ; @returns result 12 ; 13 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 11 ; @param n2 {in}{required} 12 ; number of elements in the second dimension 13 ; 14 ; @returns 15 ; result 16 ; 17 ; @history 18 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 14 19 ; 1/12/98 15 20 ; 16 ; @version $Id$ 21 ; @version 22 ; $Id$ 17 23 ; 18 24 ;- 19 25 ; 20 functionzero_one, n1,n226 FUNCTION zero_one, n1,n2 21 27 ; 22 28 compile_opt idl2, strictarrsubs … … 24 30 CASE N_PARAMS() OF 25 31 1:return, findgen(n1) mod 2 26 2:BEGIN 32 2:BEGIN 27 33 if fix(n1/2) EQ n1/2. then BEGIN ;even number of columns 28 34 res = findgen(n1+1,n2) mod 2 … … 31 37 END 32 38 else: return, report('bad number of arguments') 33 endcase 39 endcase 34 40 end -
trunk/SRC/Obsolete/jourdsmois.pro
r232 r237 2 2 ; 3 3 ; @file_comments 4 ; use d<pro>daysinmonth</pro> instead4 ; use <pro>daysinmonth</pro> instead 5 5 ; 6 6 ; @obsolete -
trunk/SRC/ReadWrite/scanctl.pro
r236 r237 92 92 spawn, '\sed -n -e ''/^#/d'' -e ''/^[Xx][Dd][Ee][Ff]/,/^[Yy][Dd][Ee][Ff]/p'' '+filename, xdef 93 93 if xdef[0] EQ '' then BEGIN 94 print, 'Bad definition of xdef or ydef'94 ras = report('Bad definition of xdef or ydef') 95 95 stop 96 96 ENDIF … … 115 115 spawn, '\sed -n -e ''/^#/d'' -e ''/^[Yy][Dd][Ee][Ff]/,/^[Zz][Dd][Ee][Ff]/p'' '+filename, ydef 116 116 if ydef[0] EQ '' then BEGIN 117 print, 'Bad definition of ydef or zdef'117 ras = report('Bad definition of ydef or zdef') 118 118 stop 119 119 ENDIF … … 130 130 'LINEAR':yaxis = float(ydef[3])+findgen(jpj)*float(ydef[4]) 131 131 'LEVELS':yaxis = float(ydef[3:n_elements(ydef)-1]) 132 'GAUST62':BEGIN & print, 'Not yet coded...'& stop & END133 'GAUSR15':BEGIN & print, 'Not yet coded...'& stop & END134 'GAUSR20':BEGIN & print, 'Not yet coded...'& stop & END135 'GAUSR30':BEGIN & print, 'Not yet coded...'& stop & END136 'GAUSR40':BEGIN & print, 'Not yet coded...'& stop & END137 ELSE:BEGIN & print, 'Not yet coded...'& stop & END132 'GAUST62':BEGIN & ras = report( 'Not yet coded...') & stop & END 133 'GAUSR15':BEGIN & ras = report( 'Not yet coded...') & stop & END 134 'GAUSR20':BEGIN & ras = report( 'Not yet coded...') & stop & END 135 'GAUSR30':BEGIN & ras = report( 'Not yet coded...') & stop & END 136 'GAUSR40':BEGIN & ras = report( 'Not yet coded...') & stop & END 137 ELSE:BEGIN & ras = report( 'Not yet coded...') & stop & END 138 138 endcase 139 139 ;------------------------ … … 144 144 spawn, '\sed -n -e ''/^#/d'' -e ''/^[Zz][Dd][Ee][Ff]/,/^[Tt][Dd][Ee][Ff]/p'' '+filename, zdef 145 145 if zdef[0] EQ '' then BEGIN 146 print, 'Bad definition of zdef or tdef'146 ras = report( 'Bad definition of zdef or tdef') 147 147 stop 148 148 ENDIF … … 261 261 littleendian = strpos(options, 'little_endian') NE -1 262 262 cray = strpos(options, 'cray_32bit_ieee') NE -1 263 IF cray THEN BEGIN & print, 'cray_32bit_ieee; Not yet coded...'& stop & ENDIF263 IF cray THEN BEGIN & ras = report( 'cray_32bit_ieee; Not yet coded...') & stop & ENDIF 264 264 cal365 = strpos(options, '365_day_calendar') NE -1 265 IF cal365 THEN BEGIN & print, '365_day_calenda; Not yet coded...'& stop & ENDIF265 IF cal365 THEN BEGIN & ras = report( '365_day_calenda; Not yet coded...') & stop & ENDIF 266 266 ;------------------------ 267 267 ;------------------------ … … 273 273 files = strsplit(files,/extract) 274 274 if n_elements(files) NE 2 then begin 275 print, 'Bad definition of the filename. There should be 2 elements:'276 print, 'DEST and 1 filename (that may define many files)'275 ras = report( 'Bad definition of the filename. There should be 2 elements:') 276 ras = report( 'DEST and 1 filename that may define many files') 277 277 stop 278 278 endif … … 418 418 spawn, '\sed -n -e ''/^#/d'' -e ''/^[Vv][Aa][Rr][Ss]/,/^[Ee][Nn][Dd][Vv][Aa][Rr][Ss]/p'' '+filename, varlist 419 419 if n_elements(varlist) LE 2 then begin 420 print, 'No lines between vars and endvars???'420 ras = report( 'No lines between vars and endvars???') 421 421 stop 422 422 endif 423 423 varlist = varlist[1:n_elements(varlist)-2] 424 424 if n_elements(varlist) NE nvars then begin 425 print, 'Number of variables indicated by VARS ('+strtrim(nvars, 1)+') differs from number of lines (without ''#'' at the beginning) located between VARS and ENDVARS: '+strtrim(n_elements(varlist), 1)425 ras = report( 'Number of variables indicated by VARS ('+strtrim(nvars, 1)+') differs from number of lines (without ''#'' at the beginning) located between VARS and ENDVARS: '+strtrim(n_elements(varlist), 1)) 426 426 stop 427 427 ENDIF … … 435 435 case long(strmid(tmp[2], 3, 2)) of 436 436 10:BEGIN 437 print, 'Special data formats, units = -1,10... Not yet coded...'437 ras = report( 'Special data formats, units = -1,10... Not yet coded...') 438 438 stop 439 439 END 440 440 20:BEGIN 441 print, 'Special data formats, units = -1,20... Not yet coded...'441 ras = report( 'Special data formats, units = -1,20... Not yet coded...') 442 442 stop 443 443 END 444 444 30:BEGIN 445 print, 'Special data formats, units = -1,30... Not yet coded...'445 ras = report( 'Special data formats, units = -1,30... Not yet coded...') 446 446 stop 447 447 END … … 453 453 4:varfmt = 'long' 454 454 ELSE:BEGIN 455 print, 'Bad definition of the special data formats: '456 print,long(strmid(tmp[2],6))+' should be equal to 1, 2, -2 or 4'455 ras = report( 'Bad definition of the special data formats: ') 456 ras = report(long(strmid(tmp[2],6))+' should be equal to 1, 2, -2 or 4') 457 457 stop 458 458 END … … 460 460 END 461 461 ELSE:BEGIN 462 print, 'Special data formats, units = -1, ... Not yet coded...'462 ras = report( 'Special data formats, units = -1, ... Not yet coded...') 463 463 stop 464 464 END -
trunk/SRC/Tests/TestsOld/tst_basic_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @file_comments 3 4 ; figure 1: basics plots … … 7 8 ; Sebastien Masson may 2005 8 9 ; 9 ; @version $Id$ 10 ; @version 11 ; $Id$ 12 ; 10 13 ;- 11 14 PRO tst_basic_old -
trunk/SRC/Tests/TestsOld/tst_initlev_index_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @history 3 4 ; Sebastien Masson 4 5 ; 5 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 6 9 ;- 10 ; 7 11 file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 8 12 initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ -
trunk/SRC/Tests/TestsOld/tst_initlev_index_stride_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @history 3 4 ; Sebastien Masson 4 5 ; 5 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 6 9 ;- 10 ; 7 11 file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 8 12 initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ -
trunk/SRC/Tests/TestsOld/tst_initlev_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @history 3 4 ; Sebastien Masson 4 5 ; 5 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 6 9 ;- 10 ; 7 11 file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 8 12 initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ -
trunk/SRC/Tests/TestsOld/tst_initlev_stride_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @history 3 4 ; Sebastien Masson 4 5 ; 5 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 6 9 ;- 10 ; 7 11 file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 8 12 initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ -
trunk/SRC/Tests/TestsOld/tst_initorca05_index_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @file_comments 3 4 ; definition of the domain on ORCA2 but with i/j index instead of … … 5 6 ; 6 7 ; different possibilities are proposed 8 ; 7 9 ; @history 8 10 ; Sebastien Masson 9 11 ; 10 ; @version $Id$ 12 ; @version 13 ; $Id$ 14 ; 11 15 ;- 12 16 ; -
trunk/SRC/Tests/TestsOld/tst_initorca05_index_stride_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @file_comments 3 4 ; definition of the domain on ORCA2 but with i/j index instead of … … 9 10 ; Sebastien Masson 10 11 ; 11 ; @version $Id$ 12 ; @version 13 ; $Id$ 14 ; 12 15 ;- 16 ; 13 17 ; 1) definition with a file 14 18 ; -
trunk/SRC/Tests/TestsOld/tst_initorca05_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @history 3 4 ; Sebastien Masson 4 5 ; 5 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 6 9 ;- 10 ; 7 11 @common 8 12 @common -
trunk/SRC/Tests/TestsOld/tst_initorca05_short_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @history 3 4 ; Sebastien Masson 4 5 ; 5 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 6 9 ;- 7 10 file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' -
trunk/SRC/Tests/TestsOld/tst_initorca05_short_stride_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @history 3 4 ; Sebastien Masson 4 5 ; 5 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 6 9 ;- 10 ; 7 11 file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 8 12 initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = -1 $ -
trunk/SRC/Tests/TestsOld/tst_initorca05_stride_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @history 3 4 ; Sebastien Masson 4 5 ; 5 ; @version $Id$ 6 ; @version; 7 ; $Id$ 8 ; 6 9 ;- 7 10 ; -
trunk/SRC/Tests/TestsOld/tst_initorca2_index_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @file_comments 3 4 ; definition of the domain on ORCA2 but with i/j index instead of … … 5 6 ; 6 7 ; different possibilities are proposed 8 ; 7 9 ; @history 8 10 ; Sebastien Masson 9 11 ; 10 ; @version $Id$ 12 ; @version 13 ; $Id$ 14 ; 11 15 ;- 12 16 ; -
trunk/SRC/Tests/TestsOld/tst_initorca2_index_stride_old.pro
r189 r237 12 12 ; Sebastien Masson 13 13 ; 14 ; @version $Id$ 14 ; @version 15 ; $Id$ 16 ; 15 17 ;- 16 18 ; -
trunk/SRC/Tests/TestsOld/tst_initorca2_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @history 3 4 ; Sebastien Masson 4 5 ; 5 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 6 9 ;- 7 10 ; -
trunk/SRC/Tests/TestsOld/tst_initorca2_short_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @history 3 4 ; Sebastien Masson 4 5 ; 5 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 6 9 ;- 10 ; 7 11 file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA2.nc' 8 12 initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = 180 $ -
trunk/SRC/Tests/TestsOld/tst_initorca2_short_stride_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @history 3 4 ; Sebastien Masson 4 5 ; 5 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 6 9 ;- 10 ; 7 11 file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA2.nc' 8 12 initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = 180 $ -
trunk/SRC/Tests/TestsOld/tst_initorca2_stride_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @history 3 4 ; Sebastien Masson 4 5 ; 5 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 6 9 ;- 7 10 ; -
trunk/SRC/Tests/TestsOld/tst_plt_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @file_comments 3 4 ; 4 ;5 5 ; @categories 6 ;7 6 ; 8 7 ; @keyword IMAGE … … 13 12 ; @version 14 13 ; $Id$ 14 ; 15 15 ;- 16 ; 16 17 PRO tst_plt_old, IMAGE = image 17 ; commons18 18 ; 19 19 compile_opt idl2, strictarrsubs -
trunk/SRC/Tests/TestsOld/tst_pltt_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @file_comments 3 4 ; 4 ;5 5 ; @categories 6 ;7 6 ; 8 7 ; @keyword IMAGE … … 13 12 ; @version 14 13 ; $Id$ 14 ; 15 15 ;- 16 ; 16 17 PRO tst_pltt_old, IMAGE = image 17 ; commons18 18 ; 19 19 compile_opt idl2, strictarrsubs -
trunk/SRC/Tests/TestsOld/tst_pltz_old.pro
r189 r237 1 1 ;+ 2 ; 2 3 ; @file_comments 3 4 ; 4 ;5 5 ; @categories 6 ;7 6 ; 8 7 ; @keyword IMAGE … … 13 12 ; @version 14 13 ; $Id$ 14 ; 15 15 ;- 16 ; 16 17 PRO tst_pltz_old, IMAGE = image 17 ; commons18 18 ; 19 19 compile_opt idl2, strictarrsubs -
trunk/SRC/Tests/tst_basic.pro
r232 r237 8 8 ; Sebastien Masson may 2005 9 9 ; 10 ; @version $Id$ 10 ; @version 11 ; $Id$ 12 ; 11 13 ;- 12 14 ; -
trunk/SRC/Tests/tst_initlev_index.pro
r232 r237 4 4 ; Sebastien Masson 5 5 ; 6 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 7 9 ;- 8 10 ; -
trunk/SRC/Tests/tst_initlev_index_stride.pro
r232 r237 4 4 ; Sebastien Masson 5 5 ; 6 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 7 9 ;- 8 10 ; -
trunk/SRC/Tests/tst_initlev_stride.pro
r232 r237 4 4 ; Sebastien Masson 5 5 ; 6 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 7 9 ;- 8 10 ; -
trunk/SRC/Tests/tst_initorca05.pro
r232 r237 4 4 ; Sebastien Masson 5 5 ; 6 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 7 9 ;- 8 10 ; -
trunk/SRC/Tests/tst_initorca05_index.pro
r232 r237 6 6 ; 7 7 ; different possibilities are proposed 8 ; 8 9 ; @history 9 10 ; Sebastien Masson 10 11 ; 11 ; @version $Id$ 12 ; @version 13 ; $Id$ 14 ; 12 15 ;- 13 16 ; -
trunk/SRC/Tests/tst_initorca05_index_stride.pro
r232 r237 10 10 ; Sebastien Masson 11 11 ; 12 ; @version $Id$ 12 ; @version 13 ; $Id$ 14 ; 13 15 ;- 16 ; 14 17 ; 1) definition with a file 15 18 ; -
trunk/SRC/Tests/tst_initorca05_short.pro
r232 r237 4 4 ; Sebastien Masson 5 5 ; 6 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 7 9 ;- 8 10 ; -
trunk/SRC/Tests/tst_initorca05_short_stride.pro
r232 r237 4 4 ; Sebastien Masson 5 5 ; 6 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 7 9 ;- 8 10 ; -
trunk/SRC/Tests/tst_initorca05_stride.pro
r232 r237 4 4 ; Sebastien Masson 5 5 ; 6 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 7 9 ;- 8 10 ; -
trunk/SRC/Tests/tst_initorca2.pro
r232 r237 4 4 ; Sebastien Masson 5 5 ; 6 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 7 9 ;- 8 10 ; -
trunk/SRC/Tests/tst_initorca2_index.pro
r232 r237 6 6 ; 7 7 ; different possibilities are proposed 8 ; 8 9 ; @history 9 10 ; Sebastien Masson 10 11 ; 11 ; @version $Id$ 12 ; @version 13 ; $Id$ 14 ; 12 15 ;- 13 16 ; -
trunk/SRC/Tests/tst_initorca2_index_stride.pro
r163 r237 12 12 ; Sebastien Masson 13 13 ; 14 ; @version $Id$ 14 ; @version 15 ; $Id$ 16 ; 15 17 ;- 16 18 ; -
trunk/SRC/Tests/tst_initorca2_short.pro
r232 r237 4 4 ; Sebastien Masson 5 5 ; 6 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 7 9 ;- 8 10 ; -
trunk/SRC/Tests/tst_initorca2_short_stride.pro
r232 r237 4 4 ; Sebastien Masson 5 5 ; 6 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 7 9 ;- 8 10 ; -
trunk/SRC/Tests/tst_initorca2_stride.pro
r232 r237 4 4 ; Sebastien Masson 5 5 ; 6 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 7 9 ;- 8 10 ; -
trunk/SRC/Tests/tst_plt.pro
r232 r237 4 4 ; 5 5 ; @categories 6 ; 6 ; 7 7 ; @keyword IMAGE 8 8 ; … … 10 10 ; Sebastien Masson 11 11 ; 12 ; @version 12 ; @version 13 13 ; $Id$ 14 ; 14 15 ;- 15 16 ; 16 17 PRO tst_plt, IMAGE = image 17 ; commons18 18 ; 19 19 compile_opt idl2, strictarrsubs -
trunk/SRC/Tests/tst_pltt.pro
r232 r237 12 12 ; @version 13 13 ; $Id$ 14 ; 14 15 ;- 15 16 ; 16 17 PRO tst_pltt, IMAGE = image 17 ; commons18 18 ; 19 19 compile_opt idl2, strictarrsubs -
trunk/SRC/Tests/tst_pltz.pro
r232 r237 12 12 ; @version 13 13 ; $Id$ 14 ; 14 15 ;- 15 16 ; 16 17 PRO tst_pltz, IMAGE = image 17 ; commons18 18 ; 19 19 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/CALCULS/grossemoyenne.pro
r232 r237 33 33 ; 34 34 ; @keyword NODOMDEF 35 ; We activate it if we do not want to pass in domdef even if the keyword 36 ; boxzoom is present (like when grossemoyenne is called via checkfield) 35 ; We activate it if we do not want to pass in <pro>domdef</pro> even if the 36 ; keyword boxzoom is present (like when <pro>grossemoyenne</pro> is called via 37 ; <pro>checkfield</pro>) 37 38 ; 38 39 ; @keyword INTEGRATION -
trunk/SRC/ToBeReviewed/CALCULS/moyenne.pro
r232 r237 31 31 ; 32 32 ; @keyword NODOMDEF 33 ; We activate it if we do not want to pass in domdef even if the keyword boxzoom 34 ; is present (like when grossemoyenne is called via checkfield) 33 ; We activate it if we do not want to pass in <pro>domdef</pro> even if the 34 ; keyword boxzoom is present (like when <pro>grossemoyenne</pro> is called 35 ; via <pro>checkfield</pro>) 35 36 ; 36 37 ; @keyword INTEGRATION -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/sbar_plot.pro
r232 r237 31 31 ; 32 32 ; @examples 33 ; 34 ; 35 ; 33 ; IDL> sbar_plot, indgen(10),small = [2,2,2],/rempli 34 ; IDL> sbar_plot, indgen(10),small = [2,2,3],/noerase 35 ; IDL> \@ps 36 36 ; 37 37 ; @history -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/scontour.pro
r231 r237 18 18 ; 19 19 ; @examples 20 ; 21 ; 22 ; 20 ; IDL> z = dist(100) 21 ; IDL> scontour, z, nlevels=10,small=[1,2,1],xstyle=1,ystyle=1 22 ; IDL> \@ps 23 23 ; 24 24 ; @history -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/splot.pro
r231 r237 22 22 ; 23 23 ; @examples 24 ; 25 ; 26 ; 24 ; IDL> splot, indgen(10),ystyle=1,small=[1,2,1],/portrait 25 ; IDL> splot, -indgen(10),ystyle=1,small=[1,2,2],/noerase 26 ; IDL> \@ps 27 27 ; 28 28 ; @history -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/addaxe.pro
r231 r237 2 2 ; 3 3 ; @file_comments 4 ; Add an axis when we do an oblique section in pltz, pltt 5 ; or plt1d 4 ; Add an axis when we do an oblique section in <pro>pltz</pro>, 5 ; <pro>pltt</pro> 6 ; or <pro>plt1d</pro> 6 7 ; 7 8 ; @categories -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/autoscale.pro
r231 r237 8 8 ; Graphics 9 9 ; 10 ; @param MIN {in}{required} 11 ; A reel number specifyingabove what value we want to trace a contour10 ; @param MIN {in}{required} {type=float} 11 ; above what value we want to trace a contour 12 12 ; 13 ; @param MAX {in}{required} 14 ; A reel number specifyingbelow what value we want to trace a contour13 ; @param MAX {in}{required} {type=float} 14 ; below what value we want to trace a contour 15 15 ; 16 ; @param CI. {out}{type=real} 17 ; It is a reel number giving the contour interval. Use it in CONTOUR with the keyword LEVEL. 16 ; @param CI {out} {type=real} 17 ; the contour interval. Use it in <proidl>CONTOUR</proidl> with the 18 ; keyword LEVEL. 18 19 ; 19 20 ; @restrictions 20 21 ; CI is a multiple of the unity in unity log of 10. 21 ; It force the number of contour to be even.22 ; It force the number of contours to be even. 22 23 ; 23 24 ; @history … … 31 32 PRO autoscale, min, max, ci 32 33 ; 33 ; Estimation of a first CI, notice the presence of the floor (Inferior round)34 ; This CI is a multiple of the unity in unity log of 10.35 ;36 ;37 34 compile_opt idl2, strictarrsubs 38 35 ; 36 ; Estimation of a first CI, notice the presence of the floor (Inferior round) 37 ; This CI is a multiple of the unity in unity log of 10. 39 38 ci = (max-min)/20. 40 39 ci = 10.^floor(alog10(ci)) -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/axis4pltz.pro
r232 r237 5 5 ; 6 6 ; @param MASK {in}{required} 7 ; 7 ; 3d mask 8 8 ; 9 9 ; @param GLAM {in}{required} … … 17 17 ; 18 18 ; @keyword XXAXIS 19 ; to get the xaxis we need to use in pltbase19 ; to get the xaxis we need to use in <pro>pltbase</pro> 20 20 ; 21 21 ; @keyword ZZAXIS 22 ; to get the yaxis we need to use in pltbase22 ; to get the yaxis we need to use in <pro>pltbase</pro> 23 23 ; 24 24 ; @keyword SIN … … 33 33 ; Used to pass keywords 34 34 ; 35 ; Others: see pltz 36 ; 35 ; Others: see pltz 37 36 ; 38 37 ; @history -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/barrecouleur.pro
r232 r237 9 9 ; @param COLNUMB 10 10 ; 11 ;12 11 ; @param CLBINF 13 ;14 12 ; 15 13 ; @param CLBSUP 16 14 ; 17 ;18 15 ; @param CLBDIV 19 ;20 16 ; 21 17 ; @keyword NOCOLORBAR 22 18 ; 23 ;24 19 ; @keyword CB_TITLE 25 ;26 20 ; 27 21 ; @keyword NOFILL 28 22 ; 29 ; 30 ; @keyword COLOR_c 31 ; 23 ; @keyword COLOR_C 32 24 ; 33 25 ; @keyword MIN … … 39 31 ; @keyword DIVISIONS 40 32 ; 41 ;42 33 ; @keyword CB_SUBTITLE 43 34 ; 44 ;45 35 ; @keyword POST 46 ;47 36 ; 48 37 ; @keyword _EXTRA … … 61 50 ; @todo 62 51 ; seb: mettre les keyword et les param 52 ; 63 53 ;- 64 54 ; -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checkfield.pro
r232 r237 29 29 ; @version 30 30 ; $Id$ 31 ; 31 32 ;- 32 33 ; … … 67 68 ; @version 68 69 ; $Id$ 70 ; 69 71 ;- 70 72 ; … … 160 162 ; 6 elements: The extraction is made on Boxzoom 161 163 ; 162 ; Where lon1, lon2,lat1,lat2 are global variables defined at the last domdef! 164 ; Where lon1, lon2,lat1,lat2 are global variables defined at the last 165 ; <pro>domdef</pro> ! 163 166 ; 164 167 ; @keyword WDEPTH … … 166 169 ; depth (automatically activated if vargrid eq 'W') 167 170 ; 168 ; @keyword VECTEUR{type=ve tcor}171 ; @keyword VECTEUR{type=vector} 169 172 ; It is a structure composed by 2 elements containing the 2 fields U 170 173 ; and V of values of the zonal and meridian component of the vector of the fields -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placecolor.pro
r232 r237 3 3 ; @file_comments 4 4 ; allows to trace the independently from a graph 5 ; By default, trace a color bar of the same type than the one present in plt 6 ; and pltz. If max, min and divisions are not stipulated, then max=sup,min=inf 5 ; By default, trace a color bar of the same type than the one present in 6 ; <pro>plt</pro> 7 ; and <pro>pltz</pro>. 8 ; If max, min and divisions are not stipulated, then max=sup,min=inf 7 9 ; and divisions=div. 8 10 ; … … 29 31 ; @version 30 32 ; $Id$ 33 ; 34 ; @todo 35 ; reference to plein2dessin in restriction not understable : 36 ; plein2dessin does'nt exist. 31 37 ; 32 38 ;- -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placedessin.pro
r232 r237 8 8 ; 9 9 ; @param TYPEDESSIN {type=string} 10 ; It specify what procedure is called by PLACEDESSIN: 'plt', 'pltz' or 'pltt' 10 ; It specify what procedure is called by <pro>PLACEDESSIN</pro> : 11 ; 'plt', 'pltz' or 'pltt' 11 12 ; 12 13 ; @keyword LANDSCAPE … … 22 23 ; /MAP: In this case, map is automatically calculated have the value: 23 24 ; map = [0, (lon1+lon2)/2., 0] 24 ; Comment : A good way to choose the type of the projection we want to do is to have a look at IDL demo:25 ; Comment 1: A good way to choose the type of the projection we want to do is to have a look at IDL demo: 25 26 ; IDL> demo 26 27 ; Then choose earth sciences and mapping. 27 ; Comment 2: By default it is a cylindrical projection which is effectuated (with or without the keyword map).28 ; Comment 2: By default it is a cylindrical projection which is effectuated (with or without the keyword map). 28 29 ; If we want an other projection, MAP must be activated and we have to add the keyword: /nom_projection. 29 30 ; For example, for a polar projection centered on the south pole: … … 34 35 ; We active it if we do not want the colorbar. 35 36 36 ; ;@keyword NOFILL37 ; @keyword NOFILL 37 38 ; We active it if we only want contours in black and white with a white background. 38 39 ; … … 45 46 ; If there is 4 elements: 46 47 ; then is constituted of coordinates (expressed in cm located from the up and 47 ; left corner of the page or the window (in portrait like in landscape) )of the bottom48 ; left corner of the page or the window (in portrait like in landscape) of the bottom 48 49 ; and left corner and of the up and right corner of the drawing zone. 49 50 ; If there is 3 elements: … … 59 60 ; @keyword POST 60 61 ; Make a postscript. Only works if we made one drawing on the page. 61 ; If we make several drawing, use \@ ps.62 ; If we make several drawing, use \@<pro>ps</pro>. 62 63 ; 63 64 ; @keyword REMPLI … … 74 75 ; If we want to trace contours of a different field than the one 75 76 ; whose we have the colored drawing (by example E-P in color and QSR in contours). 76 ; It must be a field respecting same characteristics than the argument number one of plt. 77 ; It must be a field respecting same characteristics than the argument number 78 ; one of <pro>plt</pro>. 77 79 ; 78 80 ; @keyword ENDPOINTS … … 219 221 ; For the using of \@ps,\@oups et de \@vzoom 220 222 if lmgr(/demo) EQ 0 then BEGIN ; Are we in the demo mode?? 221 if !journal NE 0 then journal ; We close t e journal if it is open223 if !journal NE 0 then journal ; We close the journal if it is open 222 224 homedir = isadirectory(io = homedir, title = 'Bad definition of homedir') 223 225 def_myuniquetmpdir -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/restoreatt.pro
r231 r237 9 9 ; 10 10 ; @param STRUCT {in}{required} 11 ; a structure like the one who read litchamp.11 ; a structure like the one who read <pro>litchamp</pro>. 12 12 ; See IDL> xhelp,'litchamp' 13 13 ; -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/terminedessin.pro
r232 r237 9 9 ; @keyword POST 10 10 ; Make a postscript. Only works if we made one drawing on the page. 11 ; If we make several drawing, use \@ ps.11 ; If we make several drawing, use \@<pro>ps</pro>. 12 12 ; 13 13 ; @keyword SMALL {type=vector} -
trunk/SRC/ToBeReviewed/STRING/getfile.pro
r232 r237 37 37 ; 38 38 ; S. Masson (smasson\@lodyc.jussieu.fr) 4 Feb 2002 39 ; search te file in the all !path directories (use find.pro) 40 ; when using /find keyword. Use spawn, 'cat...' for unix os. 39 ; search the file in the all !path directories (use <pro>find</pro>) 40 ; when using /find keyword. Use <proidl>spawn</proidl>, 'cat...' for 41 ; unix os. 41 42 ; 42 43 ; Copyright (C) 1990, Johns Hopkins University/Applied Physics Laboratory … … 51 52 ;- 52 53 ; 53 functiongetfile, filein, error=err, help=hlp, quiet=quiet, lines=lines, find = find54 FUNCTION getfile, filein, error=err, help=hlp, quiet=quiet, lines=lines, find = find 54 55 ; 55 56 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/TRIANGULATION/section.pro
r232 r237 80 80 6:localbox = [boxzoom2d, boxzoom[4:5]] 81 81 Else:BEGIN 82 print,report('Bad definition of the box')82 ras = report('Bad definition of the box') 83 83 stop 84 84 END -
trunk/SRC/ToBeReviewed/UTILITAIRE/oups.pro
r229 r237 11 11 ; 12 12 ; @restrictions 13 ; compatible with \@ps \@vzoom text_box... 13 ; compatible with \@<pro>ps</pro> 14 ; \@<pro>vzoom</pro> text_box... 14 15 ; 15 16 ; @history 16 17 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 17 ;18 18 ; 19 19 ; @version … … 24 24 ; 25 25 ;- 26 ; 26 27 ;------------------------------------------------------------ 27 28 ; Close the journal! -
trunk/SRC/Utilities/isadirectory.pro
r232 r237 11 11 ; a proposed directory. If neither dirname 12 12 ; input parameter of IODIRECTORY keyword are defined, 13 ; the ask the user to choose a directory.13 ; we ask the user to choose a directory. 14 14 ; 15 15 ; @keyword IODIRECTORY … … 20 20 ; 21 21 ; @keyword _EXTRA 22 ; Used to pass keywords 23 ; 24 ; all dialog_pickfile keywords (like filter) can be used. 22 ; Used to pass keywords to <proidl>dialog_pickfile</proidl> 25 23 ; 26 24 ; @returns … … 42 40 ; @version 43 41 ; $Id$ 42 ; 44 43 ;- 45 44 ; 46 45 FUNCTION isadirectory, directoryin, TITLE = title, IODIRECTORY = iodirectory, _EXTRA = ex 47 ;48 46 ; 49 47 compile_opt idl2, strictarrsubs -
trunk/SRC/Utilities/isafile.pro
r232 r237 5 5 ; isafile calls dialog_pickfile, to ask the user to select a file. 6 6 ; 7 ; @categories 7 ; @categories 8 8 ; io 9 9 ; 10 10 ; @param FILEIN {in}{optional} 11 11 ; a proposed name. If neither filein input parameter of filename keyword are 12 ; defined, the ask the user to choose a file.12 ; defined, we ask the user to choose a file. 13 13 ; 14 14 ; @keyword FILENAME … … 36 36 ; 37 37 ; @keyword _EXTRA 38 ; Used to pass keywords 39 ; 40 ; all find, file_search and dialog_pickfile keywords (like title) can be used38 ; Used to pass keywords to <pro>find</pro>, 39 ; <proidl>file_search</proidl> and 40 ; <proidl>dialog_pickfile</proidl> 41 41 ; 42 42 ; @returns … … 64 64 ; @version 65 65 ; $Id$ 66 ; 66 67 ;- 67 68 ; -
trunk/SRC/buildinit.pro
r232 r237 77 77 ; slightly modified version of cw_field... 78 78 ; 79 FUNCTION cw_field2, Parent, COLUMN=Column, ROW=Row, $79 FUNCTION cw_field2, parent, COLUMN=column, ROW=row, $ 80 80 EVENT_FUNC = efun, $ 81 81 FLOATING=Float, INTEGER=Int, LONG=Long, STRING=String, $ … … 122 122 ; Build Widget 123 123 124 Base = WIDGET_BASE( Parent, ROW=Row, COLUMN=Column, UVALUE=UValue, $124 Base = WIDGET_BASE(parent, ROW=row, COLUMN=column, UVALUE=uvalue, $ 125 125 EVENT_FUNC='CW_FIELD_EVENT', $ 126 126 PRO_SET_VALUE='CW_FIELD_SET', $
Note: See TracChangeset
for help on using the changeset viewer.