Changeset 493 for trunk/SRC


Ignore:
Timestamp:
04/08/14 11:28:29 (10 years ago)
Author:
pinsard
Message:

fix some typos in comments

Location:
trunk/SRC
Files:
96 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Calendar/caldat.pro

    r436 r493  
    22; 
    33; @file_comments 
    4 ; Return the calendar date and time given julian date. 
     4; Return the calendar date and time given Julian date. 
    55; This is the inverse of the function <pro>julday</pro>. 
    66; 3 calendars are available according to the value of key_caltype 

  • trunk/SRC/Calendar/julday.pro

    r396 r493  
    7575; eg. julday(349,1,1970) 
    7676; 
    77 ; Sebastien Masson, May 2006, add different calendat with key_caltype 
     77; Sebastien Masson, May 2006, add different calendar with key_caltype 
    7878; (variable of the common file cm_4cal) 
    7979; 

  • trunk/SRC/Calendar/leapyr.pro

    r371 r493  
    3535; This means that year 1800, 1900, 2100, 2200, 2300 and 2500 are 
    3636; NOT leap years, while year 2000 and 2400 are leap years. 
    37 ; + supress the automatic change 89 -> 1989 
     37; + suppress the automatic change 89 -> 1989 
    3838; 
    3939; June 2005 update for new commons, Sebastien Masson. 

  • trunk/SRC/Computation/bsf.pro

    r462 r493  
    2222; 
    2323; @keyword REFVALUE {type=scalar} {default=0.} 
    24 ; the bsf value that we want to speficy at the position defined by refpoint 
     24; the bsf value that we want to specify at the position defined by refpoint 
    2525; 
    2626; @keyword TRANSPORT {type=scalar: 0 or 1} {default=0.} 
    … …  
    7979  umsk = (umask())[firstx:lastx, firsty:lasty, firstz:lastz] 
    8080  IF total(umsk[*, *, nz-1]) NE 0 THEN return, report('The bottom of the box (defined by lastzt) must be set to land value (=0)') 
    81   IF total(umsk[*, 0, *]) NE 0 THEN return, report('southern boudary must be land point if you want to compute the bsf with this function') 
     81  IF total(umsk[*, 0, *]) NE 0 THEN return, report('southern boundary must be land point if you want to compute the bsf with this function') 
    8282; 
    8383  un = litchamp(z3d) 

  • trunk/SRC/Computation/e3_3d.pro

    r445 r493  
    1010; @keyword e1 {default=0}{type=scalar: 0 or 1} 
    1111; activate to compute e1 * e3 instead of e3 
    12 ; note that of both keywords e1 and e2 are acticated we compute e1 * e2 * e3 instead of e3 
     12; note that of both keywords e1 and e2 are activated we compute e1 * e2 * e3 instead of e3 
    1313; 
    1414; @keyword e2 {default=0}{type=scalar: 0 or 1} 
    1515; activate to compute e2 * e3 instead of e3 
    16 ; note that of both keywords e1 and e2 are acticated we compute e1 * e2 * e3 instead of e3 
     16; note that of both keywords e1 and e2 are activated we compute e1 * e2 * e3 instead of e3 
    1717; 
    1818; @returns 

  • trunk/SRC/Computation/e3t_3d.pro

    r454 r493  
    99; @keyword e1 {default=0}{type=scalar: 0 or 1} 
    1010; activate to compute e1t * e3t instead of e3t 
    11 ; note that of both keywords e1 and e2 are acticated we compute e1t * e2t * e3t instead of e3t 
     11; note that of both keywords e1 and e2 are activated we compute e1t * e2t * e3t instead of e3t 
    1212; 
    1313; @keyword e2 {default=0}{type=scalar: 0 or 1} 
    1414; activate to compute e2t * e3t instead of e3t 
    15 ; note that of both keywords e1 and e2 are acticated we compute e1t * e2t * e3t instead of e3t 
     15; note that of both keywords e1 and e2 are activated we compute e1t * e2t * e3t instead of e3t 
    1616; 
    1717; @returns 

  • trunk/SRC/Computation/e3u_3d.pro

    r454 r493  
    99; @keyword e1 {default=0}{type=scalar: 0 or 1} 
    1010; activate to compute e1u * e3u instead of e3u 
    11 ; note that of both keywords e1 and e2 are acticated we compute e1u * e2u * e3u instead of e3u 
     11; note that of both keywords e1 and e2 are activated we compute e1u * e2u * e3u instead of e3u 
    1212; 
    1313; @keyword e2 {default=0}{type=scalar: 0 or 1} 
    1414; activate to compute e2u * e3u instead of e3u 
    15 ; note that of both keywords e1 and e2 are acticated we compute e1u * e2u * e3u instead of e3u 
     15; note that of both keywords e1 and e2 are activated we compute e1u * e2u * e3u instead of e3u 
    1616; 
    1717; @returns 

  • trunk/SRC/Computation/e3v_3d.pro

    r454 r493  
    99; @keyword e1 {default=0}{type=scalar: 0 or 1} 
    1010; activate to compute e1v * e3v instead of e3v 
    11 ; note that of both keywords e1 and e2 are acticated we compute e1v * e2v * e3v instead of e3v 
     11; note that of both keywords e1 and e2 are activated we compute e1v * e2v * e3v instead of e3v 
    1212; 
    1313; @keyword e2 {default=0}{type=scalar: 0 or 1} 
    1414; activate to compute e2v * e3v instead of e3v 
    15 ; note that of both keywords e1 and e2 are acticated we compute e1v * e2v * e3v instead of e3v 
     15; note that of both keywords e1 and e2 are activated we compute e1v * e2v * e3v instead of e3v 
    1616; 
    1717; @returns 

  • trunk/SRC/Computation/e3w_3d.pro

    r454 r493  
    99; @keyword e1 {default=0}{type=scalar: 0 or 1} 
    1010; activate to compute e1t * e3w instead of e3w 
    11 ; note that of both keywords e1 and e2 are acticated we compute e1t * e2t * e3w instead of e3w 
     11; note that of both keywords e1 and e2 are activated we compute e1t * e2t * e3w instead of e3w 
    1212; 
    1313; @keyword e2 {default=0}{type=scalar: 0 or 1} 
    1414; activate to compute e2t * e3w instead of e3w 
    15 ; note that of both keywords e1 and e2 are acticated we compute e1t * e2t * e3w instead of e3w 
     15; note that of both keywords e1 and e2 are activated we compute e1t * e2t * e3w instead of e3w 
    1616; 
    1717; @returns 

  • trunk/SRC/Computation/msf.pro

    r462 r493  
    1212; 
    1313; @param mask2d {in} {type=2D xy array} {optional} {default=1 everywhere} 
    14 ; land/sea (0/1) mask to be applied (in addtion to the 3D mask 
     14; land/sea (0/1) mask to be applied (in addition to the 3D mask 
    1515; of the model) to mask some parts of the domain (and keep for example 
    1616; the northend atlantic). 
    … …  
    2222; @keyword INDEXBOXZOOM 
    2323; Set this keyword to a named variable in which msf will return the x 
    24 ; and y indexes definig the zoom-box that should be used by pltz to do 
     24; and y indexes defining the zoom-box that should be used by pltz to do 
    2525; the plot (see example) 
    2626; 
    … …  
    9696  IF total(msk[*, *, nz-1]) NE 0 THEN return, report('The bottom of the box (defined by lastzt) must be set to land value (=0)') 
    9797  IF (total(msk[0, *, *]) NE 0 OR total(msk[nx-1, *, *]) NE 0) AND NOT (keyword_set(key_periodic) AND nx EQ jpi) THEN $ 
    98      return, report('for non-periodic domains, eastern and western bondaries must be land point') 
     98     return, report('for non-periodic domains, eastern and western boundaries must be land point') 
    9999  IF keyword_set(key_partialstep) AND total(msk[*, ny-1, *]) NE 0 THEN flagdata = 1 
    100100; 

  • trunk/SRC/Computation/norm.pro

    r371 r493  
    259259; We recover the complete grid to establish a big mask extent in the four 
    260260; direction to cover pointsfor which a land point has been 
    261 ; considerated (make a small drawing) 
     261; considerate (make a small drawing) 
    262262;---------------------------------------------------------------------------- 
    263263      mask = tmask[indice2d+jpi*jpj*firstzt] 
    … …  
    425425; We recover the complete grid to establish a big mask extent in the four 
    426426; direction to cover pointsfor which a land point has been 
    427 ; considerated (make a small drawing) 
     427; considerate (make a small drawing) 
    428428;---------------------------------------------------------------------------- 
    429429      mask = tmask[indice2d+jpi*jpj*firstzt] 

  • trunk/SRC/Documentation/xmldoc/pro2href_t.sh

    r289 r493  
    88# 
    99# todo : 
    10 # ++improve independancies (plateforme, account, location of SAXO working space) 
     10# ++improve independencies (platform, account, location of SAXO working space) 
    1111# ++ improve cleaning, check 
    1212# 

  • trunk/SRC/ForOldVersion/updatekwd.pro

    r371 r493  
    4646  old = [old, 'discret']            & new = [new, 'discrete'] 
    4747;  old = [old, ''] & new = [new, ''] 
    48 ; supress the first dummy argument and make sure we use low case 
     48; suppress the first dummy argument and make sure we use low case 
    4949  old = strtrim(strlowcase(old[1:*]), 2) 
    5050  new = strtrim(strlowcase(new[1:*]), 2) 

  • trunk/SRC/Grid/computegrid.pro

    r491 r493  
    252252;                      2000-04-20 
    253253; Sept 2004, several bug fix to suit C grid type... 
    254 ; Aug 2005, rewritte almost everything... 
     254; Aug 2005, rewrite almost everything... 
    255255; 
    256256; @version 

  • trunk/SRC/Grid/load_orca.pro

    r456 r493  
    6262  ncdf_close, cdfid 
    6363;---------------------------------------------------------- 
    64 ; suppress overlapping bondaries 
     64; suppress overlapping boundaries 
    6565;---------------------------------------------------------- 
    6666  ixminmesh  = 1 

  • trunk/SRC/Grid/ncdf_meshread.pro

    r487 r493  
    7676; of key_shift, ...) 
    7777; Oct. 2004, Sebastien Masson: add PERIODIC and SHIFT 
    78 ; Aug. 2005, Sebastien Masson: some cleaning + english 
     78; Aug. 2005, Sebastien Masson: some cleaning + English 
    7979; 
    8080; @version 

  • trunk/SRC/Grid/ncdf_meshroms.pro

    r487 r493  
    435435  ncdf_close, cdfid 
    436436;------------------------------------------------------- 
    437 ; Apply Glamboudary 
     437; Apply Glamboundary 
    438438;------------------------------------------------------- 
    439439  if keyword_set(glamboundary) AND key_onearth then BEGIN 

  • trunk/SRC/Interpolation/cutsegment.pro

    r371 r493  
    2727;  middle of the cut segments. 
    2828;  - if /ENDPOINTS, a 3d array (2,n+1,p) that gives the 
    29 ;  coordinates of the endpoints of the cutted segments. 
     29;  coordinates of the endpoints of the cut segments. 
    3030; 
    3131; @examples 

  • trunk/SRC/Interpolation/extrapolate.pro

    r473 r493  
    5656; 
    5757; @history 
    58 ;  Originaly written by G. Roullet 
     58;  Originally written by G. Roullet 
    5959;  Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    6060; 

  • trunk/SRC/Interpolation/file_interp.pro

    r473 r493  
    7373;     |----------|     |----------|------------------------------|----------|     |----------| 
    7474;     0      smwin-1  smwin   2*smwin-1                          nx  nx+smwin-1  nx+smwin nx+2*smwin-1  
    75 ; define boundaries (extra colomns and rows) 
     75; define boundaries (extra columns and rows) 
    7676    data = [ data[nx-data_smwin:nx-1, *], data, data[0:data_smwin-1, *] ] 
    7777    data = [ [data[*, 0]#one], [data], [data[*, ny-1]#one] ] 
    … …  
    296296; to force interpolated data to be always < value defined by lethan (for example lethan = 0.) 
    297297; 
    298 ; @keyword  _EXTRA 
     298; @keyword _EXTRA 
    299299; to use <pro>extrapolate</pro>, <pro>extrapsmooth</pro> and <pro>fromreg</pro> keywords 
    300300; 
    … …  
    311311; - output mask is not used but, if the input file contains the mask 
    312312;   in a variable (defined by inmaskname), this variable will contain 
    313 ;   the output mask in the ouput file 
     313;   the output mask in the output file 
    314314; 
    315315; @examples 
    … …  
    385385    divy = round(gridout[1]) 
    386386    IF jpiin MOD divx NE 0 THEN BEGIN  
    387       print, 'in boxmean method, the x size ('+strtrim(divx, 1)+') of the box used to average the data must devide the size of the x dimension ('+strtrim(jpiin, 1)+')' 
     387      print, 'in boxmean method, the x size ('+strtrim(divx, 1)+') of the box used to average the data must divide the size of the x dimension ('+strtrim(jpiin, 1)+')' 
    388388      return 
    389389    ENDIF 
    390390    IF jpjin MOD divy NE 0 THEN BEGIN  
    391       print, 'in boxmean method, the y size ('+strtrim(divy, 1)+') of the box used to average the data must devide the size of the y dimension ('+strtrim(jpjin, 1)+')' 
     391      print, 'in boxmean method, the y size ('+strtrim(divy, 1)+') of the box used to average the data must divide the size of the y dimension ('+strtrim(jpjin, 1)+')' 
    392392      return 
    393393    ENDIF 

  • trunk/SRC/Interpolation/lbcorca.pro

    r418 r493  
    33; @file_comments 
    44; check the lateral boundaries condition (east-west and north) of a 2D/3D/4D array 
    5 ; located on a grif of the orca grid familly. 
     5; located on a grif of the orca grid family. 
    66; 
    77; @categories 

  • trunk/SRC/Interpolation/spl_incr.pro

    r371 r493  
    395395            yifrst[bad[ib]+1] EQ 0.0d:BEGIN 
    396396; case pur convex: we use the first derivative of 1-(1-x)^n 
    397 ; and ajust n to get the good value: yifrst[bad[ib]] in x[bad[ib]] 
     397; and adjust n to get the good value: yifrst[bad[ib]] in x[bad[ib]] 
    398398              y2[xinx2_1[ib]+1:xinx2_2[ib]] $ 
    399399                = pure_convex(x[bad[ib]], x[bad[ib]+1] $ 
    … …  
    404404            yifrst[bad[ib]] EQ 0.0d:BEGIN 
    405405; case pur concave: we use the first derivative of x^n 
    406 ; and ajust n to get the good value: yifrst[bad[ib]+1] in x[bad[ib]+1] 
     406; and adjust n to get the good value: yifrst[bad[ib]+1] in x[bad[ib]+1] 
    407407              y2[xinx2_1[ib]+1:xinx2_2[ib]] $ 
    408408                = pure_concave(x[bad[ib]], x[bad[ib]+1] $ 
    … …  
    422422              CASE 1 OF 
    423423; if y[xinfl] smaller than y[bad[ib]] then we conserve y2 until 
    424 ; the first zero of y2 and from this point we use x^n and ajust n to 
     424; the first zero of y2 and from this point we use x^n and adjust n to 
    425425; get the good value: yifrst[bad[ib]+1] in x[bad[ib]+1] 
    426426                yinfl LT y[bad[ib]]:BEGIN 
    … …  
    430430                  yzero = aaa[ib]*xzero*xzero*xzero + bbb[ib]*xzero*xzero $ 
    431431                    + ccc[ib]*xzero + ddd[ib] 
    432 ; if yzero > y[bad[ib]+1] then we cannot applay the method we want to 
     432; if yzero > y[bad[ib]+1] then we cannot apply the method we want to 
    433433; apply => we use then convex-concave case by changing by hand the 
    434434; value of yinfl and xinfl 
    … …  
    456456; if y[xinfl] bigger than y[bad[ib]+1] then we conserve y2 from 
    457457; the second zero of y2 and before this point we use 1-(1-x)^n and 
    458 ; ajust n to get the good value: yifrst[bad[ib]] in x[bad[ib]] 
     458; adjust n to get the good value: yifrst[bad[ib]] in x[bad[ib]] 
    459459                yinfl GT y[bad[ib]+1]:BEGIN 
    460460; value of the second zero (y'[xzero]=0) 
    … …  
    463463                  yzero = aaa[ib]*xzero*xzero*xzero + bbb[ib]*xzero*xzero $ 
    464464                    + ccc[ib]*xzero + ddd[ib] 
    465 ; if yzero < y[bad[ib]] then we cannot applay the method we want to 
     465; if yzero < y[bad[ib]] then we cannot apply the method we want to 
    466466; apply => we use then convex-concave case by changing by hand the 
    467467; value of yinfl and xinfl 

  • trunk/SRC/Matrix/cmapply.pro

    r325 r493  
    3030; 
    3131; @file_comments 
    32 ; cmapply_redim : Utility function, used to collect collaped dimensions 
     32; cmapply_redim : Utility function, used to collect collapsed dimensions 
    3333; 
    3434; @param newarr 

  • trunk/SRC/Matrix/different.pro

    r373 r493  
    22; 
    33; @file_comments 
    4 ; find the different elements of 2 matrixes of positive whole numbers. 
     4; find the different elements of 2 matrices of positive whole numbers. 
    55; 
    66; see also <pro>union</pro> and <pro>inter</pro>. 

  • trunk/SRC/Picture/imdisp.pro

    r325 r493  
    736736 
    737737;------------------------------------------------------------------------------- 
    738 ;- DISPLAY IMAGE ON GRAPHICS DEVICES WHICH HAVE SCALEABLE PIXELS 
     738;- DISPLAY IMAGE ON GRAPHICS DEVICES WHICH HAVE SCALABLE PIXELS 
    739739;------------------------------------------------------------------------------- 
    740740 

  • trunk/SRC/Postscript/closeps.pro

    r487 r493  
    1919; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    2020;                       21/12/98 
    21 ; June 2005: Sebastien Masson, english version with new commons 
     21; June 2005: Sebastien Masson, English version with new commons 
    2222; 
    2323; @version 

  • trunk/SRC/Postscript/openps.pro

    r489 r493  
    4646; 1/2/98: ajout de nameps en input 
    4747; 1/9/1999: ajout du mot cle FILENAME et du widget 
    48 ; June 2005: Sebastien Masson, cleaning, english version with new commons 
     48; June 2005: Sebastien Masson, cleaning, English version with new commons 
    4949; 
    5050; @version 
    … …  
    124124           , xsize = xs, ysize = ys, xoffset = xoff, yoffset = yoff $ 
    125125           , bits_per_pixel = 8, language_level = 2, _EXTRA = ex 
    126 ; to make smaller postcripts 
     126; to make smaller postscripts 
    127127   IF NOT (keyword_set(keeppfont) OR keyword_set(keep_pfont)) $ 
    128128   THEN !p.font = 0 

  • trunk/SRC/Postscript/printps.pro

    r487 r493  
    197197; 
    198198; @keyword ARCHIVE {default=0} {type=integer 0 or 1} 
    199 ; activate to bypass the widget and directly archive the postcript 
     199; activate to bypass the widget and directly archive the postscript 
    200200; (useful to use printps in batch mode) 
    201201; 
    202202; @keyword DIRECTPRINT {default=not defined} {type=string} 
    203203; bypass the widget and directly define the printer that must be used 
    204 ; to print the postcript file. DIRECTPRINT must correspond to one of 
    205 ; the names defined in the comoon variables printer_machine_names or 
     204; to print the postscript file. DIRECTPRINT must correspond to one of 
     205; the names defined in the common variables printer_machine_names or 
    206206; printer_human_names. useful to use printps in batch mode  
    207207; 

  • trunk/SRC/ReadWrite/idl-NetCDF/ncdf_listvars.pro

    r371 r493  
    77; 
    88; @param input {in}{required}{type=salar string or long integer}  
    9 ; the name of the file or its Id (defined by a previus call to 
     9; the name of the file or its Id (defined by a previous call to 
    1010; ncdf_open or ncdf_create) 
    1111; Note that if input corresponds to the file name, ncdf_listvars will 

  • trunk/SRC/ReadWrite/idl-NetCDF/ncdf_quickread/ncdf_quickread_helper.pro

    r325 r493  
    2727;                           output script. 
    2828;  17 Feb 98  S. Rupert     Corrected validation routine to handle instance 
    29 ;                           of name strating with a number and containing a 
     29;                           of name starting with a number and containing a 
    3030;                           dash. 
    3131;  05 Jul 00  A.M.Iwi       Added keyword PREFIX= on CDF2IDL.  Supplied string 

  • trunk/SRC/ReadWrite/idl-NetCDF/ncdf_read.pro

    r157 r493  
    151151    endfor 
    152152endif else begin 
    153     ;; arbitary scalar value 
     153    ;; arbitrary scalar value 
    154154    ;; an empty list would be sensible but IDL doesn't support it 
    155155    gatts=-1 

  • trunk/SRC/ReadWrite/ncdf_getatt.pro

    r488 r493  
    22; 
    33; @file_comments 
    4 ; Get variable attibutes from a NetCDF file 
     4; Get variable attributes from a NetCDF file 
    55; 
    66; @categories 

  • trunk/SRC/ReadWrite/ncdf_gettime.pro

    r474 r493  
    2525; procedure. It can be only '<pro>read_ncdf</pro>' or '<pro>scanfile</pro>'. 
    2626; 
    27 ; 
    2827; @keyword CALTYPE 
    29 ; Used to specify (or orverwrite) the type of calendar that should be 
     28; Used to specify (or overwrite) the type of calendar that should be 
    3029; used. We accept only 'noleap', '360d', 'greg' and 'gregorian'. By 
    31 ; default, we use the type of calendar defied in the attibute 
     30; default, we use the type of calendar defined in the attribute 
    3231; calendar. if not, we define it as gregorian. 
    3332; 
    … …  
    165164    'gregorian':key_caltype = 'greg' 
    166165    ELSE:BEGIN  
    167       dummy = report( ['unknow calendar type: '+calendar, 'we use gregorian calendar'] ) 
     166      dummy = report( ['unknown calendar type: '+calendar, 'we use gregorian calendar'] ) 
    168167      key_caltype = 'greg' 
    169168    END 

  • trunk/SRC/ReadWrite/rseries_getname.pro

    r463 r493  
    22; 
    33; @file_comments 
    4 ; find the name of a file that coud potentatialy contain a date 
     4; find the name of a file that could potentially contain a date 
    55; the file name must follow the following pattern: 
    66;     prefix + * +dates_description + * + suffix + *.nc 
    … …  
    1313; @param prefix {in}{required}{type=string} 
    1414; a string defining the prefix used to identify the file. It can be 
    15 ; anything except the pattren used to define the dates (see DATEFMT keyword) 
     15; anything except the pattern used to define the dates (see DATEFMT keyword) 
    1616; 
    1717; @param suffix {in}{required}{type=string} 
    1818; a string defining the suffix used to identify the file. It can be 
    19 ; anything except the pattren used to define the dates (see DATEFMT keyword) 
     19; anything except the pattern used to define the dates (see DATEFMT keyword) 
    2020; note that *.nc is added to suffix if it is not finishing with ".nc' 
    2121; 
    … …  
    3131; @keyword DATEFMT {default='i8_i8'}{type=scalar string} 
    3232; a string defining the date format used in the file name. the 
    33 ; possible coices are: 
     33; possible choices are: 
    3434;   - 'i8_i8': yyyymmdd_yyyymmdd (for ex. 20110401_20110431) 
    3535;   - 'i6_i6': yyyymm_yyyymm (for ex. 201104_201104). we assume date1(date2) = beginning(end) of the month 

  • trunk/SRC/ReadWrite/rseries_ncdf.pro

    r463 r493  
    88; name of the variable to be read. 
    99; 
    10 ; @param date1 {in}{required}{type=scalar, long interger or double precision} 
     10; @param date1 {in}{required}{type=scalar, long integer or double precision} 
    1111; date given in the yyyymmdd format. data will be read from date1 
    1212; 
    13 ; @param date2 {in}{required}{type=scalar, long interger or double precision} 
     13; @param date2 {in}{required}{type=scalar, long integer or double precision} 
    1414; date given in the yyyymmdd format. data will be read until date1 
    1515; 
    … …  
    2323; @keyword DATEFMT {default='i8_i8'}{type=scalar string} 
    2424; a string defining the date format used in the file name. the 
    25 ; possible coices are: 
     25; possible choices are: 
    2626;   - 'i8_i8': yyyymmdd_yyyymmdd (for ex. 20110401_20110431) 
    2727;   - 'i6_i6': yyyymm_yyyymm (for ex. 201104_201104). we assume date1(date2) = beginning(end) of the month 

  • trunk/SRC/ReadWrite/write_oasis.pro

    r332 r493  
    2424; 
    2525; @keyword RECSIZE 
    26 ; define the size of the full data array to be written. Usefull when 
     26; define the size of the full data array to be written. Useful when 
    2727; you want to save memory and write the data in several write_oasis 
    2828; instructions. see example 
    … …  
    3434; @keyword HEADER 
    3535; activate to write the header ("character*8" contained in varname) 
    36 ; before writting the data. Used when recsize is defined and /= 0, see example 
     36; before writing the data. Used when recsize is defined and /= 0, see example 
    3737; 
    3838; @keyword ENDING 

  • trunk/SRC/Textoidl/matchdelim.pro

    r325 r493  
    4949; Copyright (C) 1996 The Regents of the University of California, All 
    5050; Rights Reserved.  Written by Matthew W. Craig. 
    51 ; See the file COPYRIGHT for restrictions on distrubting this code. 
     51; See the file COPYRIGHT for restrictions on distributing this code. 
    5252; This code comes with absolutely NO warranty; see DISCLAIMER for details. 
    5353; 

  • trunk/SRC/Textoidl/nexttok.pro

    r134 r493  
    44;       NEXTTOK 
    55; PURPOSE: 
    6 ;       Find the next occurance of any of a set of characters in a 
     6;       Find the next occurrence of any of a set of characters in a 
    77;       string and return the character which occurs next. 
    88; CATEGORY: 
    … …  
    3636; 
    3737;       Revision 1.2  1996/05/09 00:22:17  mcraig 
    38 ;       Generalized so that the next occurence of any of a set of characters will 
    39 ;       be returned. 
     38;       Generalized so that the next occurrence of any of a set of characters  
     39;       will be returned. 
    4040; 
    4141;       Revision 1.1  1996/01/31 18:41:06  mcraig 
    … …  
    4848;  Copyright (C) 1996 The Regents of the University of California, All 
    4949;  Rights Reserved.  Written by Matthew W. Craig. 
    50 ;  See the file COPYRIGHT for restrictions on distrubting this code. 
     50;  See the file COPYRIGHT for restrictions on distributing this code. 
    5151;  This code comes with absolutely NO warranty; see DISCLAIMER for details. 
    5252;- 
    … …  
    6464    IF (n_params() NE 2) OR keyword_set(Help) THEN BEGIN  
    6565        offset = '   ' 
    66         print, offset+'Find the next occurance of any of a set of characters in a' 
     66        print, offset+'Find the next occurrence of any of a set of characters in a' 
    6767        print, offset+'string and return the character which occurs next.' 
    6868; CALLING SEQUENCE: 

  • trunk/SRC/Textoidl/showtex.pro

    r325 r493  
    4444;  Copyright (C) 1996 The Regents of the University of California, All 
    4545;  Rights Reserved.  Written by Matthew W. Craig. 
    46 ;  See the file COPYRIGHT for restrictions on distrubting this code. 
     46;  See the file COPYRIGHT for restrictions on distributing this code. 
    4747;  This code comes with absolutely NO warranty; see DISCLAIMER for details. 
    4848;- 

  • trunk/SRC/Textoidl/str_token.pro

    r163 r493  
    5757;  Copyright (C) 1996 The Regents of the University of California, All 
    5858;  Rights Reserved.  Written by Matthew W. Craig. 
    59 ;  See the file COPYRIGHT for restrictions on distrubting this code. 
     59;  See the file COPYRIGHT for restrictions on distributing this code. 
    6060;  This code comes with absolutely NO warranty; see DISCLAIMER for details. 
    6161;- 

  • trunk/SRC/Textoidl/strcnt.pro

    r325 r493  
    77; 
    88; @param STRN {in}{required}{type=string} 
    9 ; The string in which to count occurences. 
     9; The string in which to count occurrences. 
    1010; 
    1111; @param SUBSTRN {in}{required}{type=string} 
    … …  
    2020; 
    2121; @returns 
    22 ; Number of occurances of substring in string. 
     22; Number of occurrences of substring in string. 
    2323; 
    2424; @restrictions 
    25 ; Overlapping occurances are not counted separately.  For 
    26 ; example, counting occurances of 'bb' in 'blah bbb' returns one 
    27 ; occurance.  
     25; Overlapping occurrences are not counted separately.  For 
     26; example, counting occurrences of 'bb' in 'blah bbb' returns one 
     27; occurrence.  
    2828; 
    2929; @history 
    … …  
    3333; 
    3434;       Revision 1.2  1996/05/09 00:22:17  mcraig 
    35 ;       Added fast processing using BYTE arrays if we are counting occurences of 
    36 ;       a single character.  Added error handling. 
     35;       Added fast processing using BYTE arrays if we are counting occurrences  
     36;       of a single character.  Added error handling. 
    3737; 
    3838;       Revision 1.1  1996/01/31 18:47:37  mcraig 
    … …  
    4141;  Copyright (C) 1996 The Regents of the University of California, All 
    4242;  Rights Reserved.  Written by Matthew W. Craig. 
    43 ;  See the file COPYRIGHT for restrictions on distrubting this code. 
     43;  See the file COPYRIGHT for restrictions on distributing this code. 
    4444;  This code comes with absolutely NO warranty; see DISCLAIMER for details. 
    4545; 
    … …  
    6262        print, offset+'num = strcnt(strn, substring, [pos])' 
    6363        print, offset+'Inputs:' 
    64         print,offset+offset+'string    -- The string in which to count occurences.     in' 
     64        print,offset+offset+'string    -- The string in which to count occurrences.     in' 
    6565        print,offset+offset+'substring -- The substring to count occurrences of.       in' 
    6666        print,offset+offset+'pos       -- the position at which to begin the search.   [in]' 
    … …  
    7070        print,offset+offset+'/HELP     -- Print useful message and return.' 
    7171        print, offset+'Outputs:' 
    72         print,offset+offset+'num       -- Number of occurances of substring in string. out' 
     72        print,offset+offset+'num       -- Number of occurrences of substring in string. out' 
    7373        return, -1 
    7474    ENDIF  
    … …  
    7878;  return if we weren't really given a substring to search for. . . 
    7979    IF strlen(substrn) EQ 0 THEN BEGIN  
    80         print, "Error: Can't count occurances of null string." 
     80        print, "Error: Can't count occurrences of null string." 
    8181        return, -1 
    8282    ENDIF  
    … …  
    8686    IF strlen(tmpstrn) EQ 0 THEN return, 0 
    8787 
    88 ; If looking for occurences of single character, process using BYTE 
     88; If looking for occurrences of single character, process using BYTE 
    8989; array. 
    9090    IF strlen(substrn) EQ 1 THEN BEGIN 

  • trunk/SRC/Textoidl/strtrans.pro

    r325 r493  
    44;       STRTRANS 
    55; PURPOSE: 
    6 ;       Translate all occurences of one substring to another. 
     6;       Translate all occurrences of one substring to another. 
    77; CATEGORY: 
    88;       text/strings 
    … …  
    4242; 
    4343;       Revision 1.6  2004/01/11 01:49:00  mcraig 
    44 ;       Changed format of one array to newer [] style to avoidf conflict with function name in astro library. 
     44;       Changed format of one array to newer [] style to avoid conflict with function name in astro library. 
    4545; 
    4646;       Revision 1.5  2001/11/23 21:14:35  mcraig 
    … …  
    6868;  Copyright (C) 1996 The Regents of the University of California, All 
    6969;  Rights Reserved.  Written by Matthew W. Craig. 
    70 ;  See the file COPYRIGHT for restrictions on distrubting this code. 
     70;  See the file COPYRIGHT for restrictions on distributing this code. 
    7171;  This code comes with absolutely NO warranty; see DISCLAIMER for details. 
    7272;- 
    … …  
    8484    IF (n_params() LT 3) OR keyword_set(help) THEN BEGIN 
    8585        offset = '   ' 
    86         print, offset+'Translate all occurences of one substring to another.' 
     86        print, offset+'Translate all occurrences of one substring to another.' 
    8787        print, offset+'new = strtrans(oldstr,from,to,ned)' 
    8888        print, offset+'Inputs:' 
    … …  
    127127 
    128128; Say strn='a#b#c', from='#' and to='@'.  Then the approach here is to 
    129 ; first split strn at all occurances of '#', then recombine the pieces 
     129; first split strn at all occurrences of '#', then recombine the pieces 
    130130; with '@' inserted instead.  Do this for all elements of strn, and 
    131131; all elements of from. 

  • trunk/SRC/Textoidl/textable.pro

    r325 r493  
    5454;  Copyright (C) 1996 The Regents of the University of California, All 
    5555;  Rights Reserved.  Written by Matthew W. Craig. 
    56 ;  See the file COPYRIGHT for restrictions on distrubting this code. 
     56;  See the file COPYRIGHT for restrictions on distributing this code. 
    5757;  This code comes with absolutely NO warranty; see DISCLAIMER for details. 
    5858; 

  • trunk/SRC/Textoidl/textoidl.pro

    r372 r493  
    4545; 
    4646;       Revision 1.6  2004/01/11 01:49:00  mcraig 
    47 ;       Changed format of one array to newer [] style to avoidf conflict with function name in astro library. 
     47;       Changed format of one array to newer [] style to avoid conflict with function name in astro library. 
    4848; 
    4949;       Revision 1.5  2001/11/23 21:10:55  mcraig 
    … …  
    6464;  Copyright (C) 1996 The Regents of the University of California, All 
    6565;  Rights Reserved.  Written by Matthew W. Craig. 
    66 ;  See the file COPYRIGHT for restrictions on distrubting this code. 
     66;  See the file COPYRIGHT for restrictions on distributing this code. 
    6767;  This code comes with absolutely NO warranty; see DISCLAIMER for details. 
    6868; 

  • trunk/SRC/Textoidl/translate_sub_super.pro

    r327 r493  
    5959;  Copyright (C) 1996 The Regents of the University of California, All 
    6060;  Rights Reserved.  Written by Matthew W. Craig. 
    61 ;  See the file COPYRIGHT for restrictions on distrubting this code. 
     61;  See the file COPYRIGHT for restrictions on distributing this code. 
    6262;  This code comes with absolutely NO warranty; see DISCLAIMER for details. 
    6363; 
    … …  
    163163;  Copyright (C) 1996 The Regents of the University of California, All 
    164164;  Rights Reserved.  Written by Matthew W. Craig. 
    165 ;  See the file COPYRIGHT for restrictions on distrubting this code. 
     165;  See the file COPYRIGHT for restrictions on distributing this code. 
    166166;  This code comes with absolutely NO warranty; see DISCLAIMER for details. 
    167167;- 

  • trunk/SRC/ToBeReviewed/CALCULS/determ2.pro

    r371 r493  
    2424; 
    2525; @returns 
    26 ; n elements array, the determinent of each 2*2 arrrays 
     26; n elements array, the determinent of each 2*2 arrays 
    2727; 
    2828; @examples 

  • trunk/SRC/ToBeReviewed/CALCULS/fsfzpt.pro

    r430 r493  
    99;               freezing pt 
    1010;       reference : unesco tech. papers in the marine science no 28 1978 
    11 ;               eigth report jpots 
     11;               eighth report jpots 
    1212;               annex 6 freezing point of seawater F.J.Millero pp.29-35 
    1313;       checkvalue: fsfzpt=-2.588567 deg.c,for s=40.0,p=500 decibars 

  • trunk/SRC/ToBeReviewed/CALCULS/grossemoyenne.pro

    r445 r493  
    6666; 
    6767; @keyword SSH 
    68 ; array giving the sea level elenation (in meter) that must be added 
     68; array giving the sea level elevation (in meter) that must be added 
    6969; to the thickness of the first level when computing vertical mean 
    7070; 
    … …  
    8484; 
    8585; @history 
    86 ; Jerome Vialard (jv\@lodyc.jussieu.fr) 
     86; JérÃŽme Vialard (jv\@lodyc.jussieu.fr) 
    8787;                       2/7/98 
    8888;                       Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    … …  
    148148  endcase 
    149149;------------------------------------------------------------ 
    150 ;   I.3) Obtainment of scale's factors and of the mask on the subdomain concernedby the average. 
    151 ; Redefinition of the domain ajusted at boxzoom (at 6 elements) 
     150;   I.3) Obtainment of scale's factors and of the mask on the subdomain  
     151;        concerned by the average. 
     152; Redefinition of the domain adjusted at boxzoom (at 6 elements) 
    152153; This will allowed us to calculate only in the domain concerned by the average. 
    153154; Domdef, followed by grid give us all arrays of the grid on the subdomain 
    … …  
    272273        if keyword_set(savedbox) THEN restoreboxparam, 'boxparam4grmoyenne.dat' 
    273274        return, report('Probleme d''adequation entre les tailles du domaine nx*ny*jpt '+strtrim(nx, 1)+'*'+strtrim(ny, 1)+'*'+strtrim(jpt, 1)+' et du tableau '+strtrim(taille[1], 1)+'*'+strtrim(taille[2], 1)+'*'+strtrim(taille[3], 1)) 
    274       enD 
     275      END 
    275276    endcase 
    276277    if keyword_set(nan) NE 0 then BEGIN 
    … …  
    612613  ENDIF 
    613614;------------------------------------------------------------ 
    614 ; IV.3) We replace in the domain whch was defined at the entry of average 
     615; IV.3) We replace in the domain which was defined at the entry of average 
    615616;------------------------------------------------------------ 
    616617  if keyword_set(savedbox) THEN restoreboxparam, 'boxparam4grmoyenne.dat' 

  • trunk/SRC/ToBeReviewed/GRILLE/changegrid.pro

    r325 r493  
    3333   if cmpgrid(newgrid) EQ 0 then return, 0 
    3434; 
    35 ; update the common paramaters 
     35; update the common parameters 
    3636; 
    3737   ccmeshparameters = newgrid 

  • trunk/SRC/ToBeReviewed/GRILLE/domdef.pro

    r492 r493  
    286286        IF (dom[0] EQ -1) THEN BEGIN 
    287287          IF keyword_set(findalways) THEN BEGIN 
    288 ; if t grid parameters alreday defined, we use them... 
     288; if t grid parameters already defined, we use them... 
    289289            CASE 1 OF 
    290290              (where(gdtype eq 'T'))[0] NE -1 OR (where(gdtype EQ 'W'))[0] NE -1:BEGIN 

  • trunk/SRC/ToBeReviewed/GRILLE/fmask.pro

    r325 r493  
    1111; 
    1212; @examples 
    13 ; Used like if fmask was a known array by substituing fmask by (fmask()) 
     13; Used like if fmask was a known array by substituting fmask by (fmask()) 
    1414; For example: Instead of write fmask[domainef] we have to write (fmask())[domainef] 
    1515; 

  • trunk/SRC/ToBeReviewed/GRILLE/grille.pro

    r388 r493  
    345345;------------------------------------------------------------ 
    346346;------------------------------------------------------------ 
    347 ; Variables refering to the vertical dimension 
     347; Variables referring to the vertical dimension 
    348348;------------------------------------------------------------ 
    349349;------------------------------------------------------------ 

  • trunk/SRC/ToBeReviewed/GRILLE/umask.pro

    r370 r493  
    1414; 
    1515; @examples 
    16 ; Used like if umask was a known array by substituing umask by (umask()) 
     16; Used like if umask was a known array by substituting umask by (umask()) 
    1717; For example: Instead of write umask[domainef] we have to write (umask())[domainef] 
    1818; 

  • trunk/SRC/ToBeReviewed/GRILLE/vmask.pro

    r325 r493  
    1111; 
    1212; @examples 
    13 ; Used like if vmask was a known array by substituing vmask by (vmask()) 
     13; Used like if vmask was a known array by substituting vmask by (vmask()) 
    1414; For example: Instead of write vmask[domainef] we have to write (vmask())[domainef] 
    1515; 

  • trunk/SRC/ToBeReviewed/HOPE/read_hope.pro

    r371 r493  
    203203; 
    204204; @file_comments 
    205 ; Read the Hope grid file converted in NetCdf by xconv 
     205; Read the Hope grid file converted in netCDF by xconv 
    206206; 
    207207; @categories 
    … …  
    323323  compile_opt idl2, strictarrsubs 
    324324; 
    325 @common                         ; usefull only for the definition of iodir 
     325@common                         ; useful only for the definition of iodir 
    326326  if n_elements(filename) EQ 0 then filename = isafile(iodirectory = iodir, _extra = ex) 
    327327  IF size(filename, /type) NE 7 THEN return, -1 
    … …  
    377377    dimvar[0:res.ndims-1, varid] = res.dim 
    378378  ENDFOR 
    379 ; we cut dimvar to select only the interessant part 
     379; we cut dimvar to select only the interesting part 
    380380  dimvar = dimvar[0:max(ndimsvar)-1, *] 
    381381; selection of the data variables which are different from the 
    … …  
    453453  base5 = widget_base(base, /row, uname = 'baset', /frame) 
    454454  timename = strlowcase((tag_names(dimlist))[wathinside.recdim]) 
    455 ; read the time axis in julina days 
     455; read the time axis in Julian days 
    456456  time = ncdf_gettime(filename, cdfid) 
    457457; update the dimlist structure 

  • trunk/SRC/ToBeReviewed/IMAGE/animgif.pro

    r371 r493  
    6868; 
    6969;---------------------------------------------------------------- 
    70 ; Beggining of the part we want to change. 
     70; Beginning of the part we want to change. 
    7171;---------------------------------------------------------------- 
    7272; 

  • trunk/SRC/ToBeReviewed/LECTURE/changeread.pro

    r325 r493  
    4949   endcase 
    5050; 
    51 ; update the common paramaters 
     51; update the common parameters 
    5252; 
    5353   ccreadparameters = newread 

  • trunk/SRC/ToBeReviewed/LECTURE/litchamp.pro

    r371 r493  
    1919;        -other elements are strings containing informations on the field except 
    2020;        for the one about the date. This one can be either a string to designate 
    21 ;        a particular date (ex: 'August 1999') or a vector of julian days (of IDL) 
     21;        a particular date (ex: 'August 1999') or a vector of Julian days (of IDL) 
    2222;        corresponding  to the calendar to be associated with the field if it is a 
    2323;        temporal series. 
    … …  
    171171         END 
    172172         ELSE:BEGIN 
    173             ras = report('Le nom '+nomelements[i]+' ne correspont a aucun element reconnu de la structure. cf. IDL> xhelp, ''litchamp''') 
     173            ras = report('Le nom '+nomelements[i]+' ne correspond a aucun element reconnu de la structure. cf. IDL> xhelp, ''litchamp''') 
    174174         end 
    175175      endcase 

  • trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

    r466 r493  
    4646; 
    4747; @keyword CALLITSELF {default=0}{type=scalar: 0 or 1} 
    48 ; For ROMS outputs. Use by read_ncdf itself to access auxilliary data  
     48; For ROMS outputs. Use by read_ncdf itself to access auxiliary data  
    4949; (h and zeta). 
    5050; 
    … …  
    403403  ENDIF 
    404404;--------------------------------------------------------------------- 
    405 ; if it is roms outputs, we need to get additionals infos... 
     405; if it is roms outputs, we need to get additional infos... 
    406406  IF NOT keyword_set(callitself) THEN BEGIN 
    407407    IF strmid(dimnames[0], 0, 3) EQ 'xi_' AND strmid(dimnames[1], 0, 4) EQ 'eta_' THEN BEGIN 

  • trunk/SRC/ToBeReviewed/LECTURE/read_ncdf_varget.pro

    r491 r493  
    1010;  l''on fait et en particulier arriver a positionner la boite 
    1111;  specifiee par firstx:lastx par rapport au tableau contenu dans 
    12 ;  le fichier NetCdf. 
     12;  le fichier netCDF. 
    1313;  pour s''y reperer voici un petit dessin 
    1414; 
    … …  
    2929;   |,,,,|--------|--------------|      |........|..........|,,,,,,,,,,,| 
    3030; 
    31 ;  apres il suffit de remplacer i et j par firstx ou lastx qd on 
     31;  aprÚs il suffit de remplacer i et j par firstx ou lastx qd on 
    3232;  ne fait pas de stride. 
    3333; 
    … …  
    5454;  we must read 4 points instead of 3...:  +--+--+--+-- 
    5555;  This problem as an easy solution by using the keyword count with 
    56 ;  the appropiate value! 
     56;  the appropriate value! 
    5757; 
    5858  key_shift = long(testvar(var = key_shift)) 

  • trunk/SRC/ToBeReviewed/LECTURE/xncdf_lec.pro

    r378 r493  
    22; 
    33; @file_comments 
    4 ; Reading of a NetCdf file with widgets 
     4; Reading of a netCDF file with widgets 
    55; 
    66; @categories 
    … …  
    140140;------------------------------------------------------------ 
    141141   base1 = widget_base(base, /column, /align_center) 
    142    rien = widget_label(base1, value = 'NetCdf filename', /align_center) 
     142   rien = widget_label(base1, value = 'netCDF filename', /align_center) 
    143143   rien = widget_text(base1, value = name, /align_center, uvalue=1, /editable) ;File's name we can change 
    144144   rien = widget_label(base1, value = ' ') ; We jump a line 
    … …  
    402402; 
    403403; @uses 
    404 ; resultat,infovariable,indicewid_var,motcle 
     404; resultat, infovariable, indicewid_var, motcle 
    405405; 
    406406; @version 
    … …  
    434434   if keyword_set(mcoffset) AND n_elements(mcoffset) EQ varcontient.ndims THEN $ 
    435435    valinit[0,*]=mcoffset ELSE valinit[0, *] = 0 
    436 ; colomn 1 : counts 
     436; column 1 : counts 
    437437   if keyword_set(mccount) AND n_elements(mccount) EQ varcontient.ndims THEN  $ 
    438438    valinit[1,*]=mccount ELSE valinit[1, *] = tailledim[varcontient.dim] 
    … …  
    534534      END 
    535535      2:BEGIN                   ; A variable is selected. 
    536          varid = event.index    ; We recuperat its number in the file Netcdf 
     536         varid = event.index    ; We recuperate its number in the file netCDF 
    537537         varcontient = ncdf_varinq(cdfid,varid) 
    538538         wid_var, event.top     ; We call the program which launch the second widget. See sooner. 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt.pro

    r490 r493  
    434434    endif 
    435435  ENDIF ELSE BEGIN 
    436 ;To axes of coordinates be considerated. 
     436;To axes of coordinates be considerate. 
    437437    if !x.type EQ 0 AND n_elements(contour) LE 4 then $ 
    438438      plot, [0], [0], /nodata, xstyle = 5, ystyle = 5, title = '', subtitle = '', /noerase 
    … …  
    526526  if keyword_set(overplot) then GOTO, fini 
    527527;------------------------------------------------------------ 
    528 ; V2) Trace the line of change of date, the equator and the greenwich meridian, ... 
     528; V2) Trace the line of change of date, the equator and the Greenwich meridian, ... 
    529529;------------------------------------------------------------ 
    530530  if NOT keyword_set(map) AND key_onearth then meridienparallele, 'xy' 
    … …  
    533533;------------------------------------------------------------ 
    534534  if keyword_set(realcont) then BEGIN 
    535 ; si noease est passe de _extra, on s''assure qu''il est a 1 
     535; si noerase est passe de _extra, on s''assure qu''il est a 1 
    536536    if chkstru(ex, 'NOERASE') then begin 
    537537      oldnoerase = ex.noerase 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltbase.pro

    r419 r493  
    110110; $Id$ 
    111111; 
    112 ; @todo seb L.172 à 173 
     112; @todo seb L.172 à 173 
    113113; 
    114114;- 
    … …  
    162162    label, 0, min(z2d*mask), max(z2d*mask), ncontour, levels, colors 
    163163; attention bidouille inexplicable pour que tout se passe bien avec les 
    164 ; postcript ds pltz!!! 
     164; postscript ds pltz!!! 
    165165  if n_elements(contour) LE 4 AND !x.type EQ 0 THEN $ 
    166166    plot, [0], [0], xstyle = 5, ystyle = 5, /nodata, /noerase, title = '', subtitle = '' 
    … …  
    212212    ENDIF 
    213213; 
    214 ; We do not pass if we have to make differents contours... 
     214; We do not pass if we have to make different contours... 
    215215; In the case of unsur2 is activated, we reduce levels 
    216216    if NOT keyword_set(nocontour) then begin 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro

    r483 r493  
    183183; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    184184;                       27/5/98 
    185 ;                       Jerome Vialard (adapting plt to hovmoeller drawing) 
     185;                       JérÃŽme Vialard (adapting plt to hovmoeller drawing) 
    186186;                       2/7/98 
    187187;                       Sebastien Masson 14/8/98 (continents,barres) 
    … …  
    199199; 
    200200; @todo  
    201 ; seb: definition of parameters, L.426 à 427, L. 492 à 493 
     201; seb: definition of parameters, L.426 à 427, L. 492 à 493 
    202202; 
    203203;- 
    … …  
    331331            ELSE tempsmin = temps[0] 
    332332; on shift l''axe du temps pour des questions de precision sur les 
    333 ; dates du calendier julien en long qui sont passes en float ds les axes 
     333; dates du calendrier julien en long qui sont passes en float ds les axes 
    334334            xx = temps-tempsmin 
    335335            !x.range=!x.range-tempsmin 
    … …  
    397397;----------------------------------------------------------------------------- 
    398398; on shift l''axe du temps pour des questions de precision sur les 
    399 ; dates du calendier julien en long qui sont passes en float ds les axes 
     399; dates du calendrier julien en long qui sont passes en float ds les axes 
    400400   case typdes of 
    401401      '1d' : begin 
    … …  
    644644fini: 
    645645;------------------------------------------------------------ 
    646 ; we reput time axis in IDL julian days and not in julian days count from tempsmin 
     646; we reput time axis in IDL Julian days and not in Julian days count from tempsmin 
    647647;------------------------------------------------------------ 
    648648   if type EQ 'xt' then BEGIN 
    … …  
    653653      !x.tickv=!x.tickv+tempsmin 
    654654   ENDELSE 
    655 ; We do a false plot to these values are considerated 
     655; We do a false plot to these values are considerate 
    656656   plot, [0], [0], /nodata, /noerase, xstyle = 5, ystyle = 5 $ 
    657657     , title = '', subtitle = '', ytitle = '', xtitle = '' 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltz.pro

    r428 r493  
    114114; 
    115115; @keyword NOMASK 
    116 ; activate to supress the use of the land-sea mask when plotting the field 
     116; activate to suppress the use of the land-sea mask when plotting the field 
    117117;  
    118118; @keyword NO_PARTIALSTEP 
    119 ; activate to supress the use of partial steps (force key_partialstep = 0 within pltz) 
     119; activate to suppress the use of partial steps (force key_partialstep = 0 within pltz) 
    120120; 
    121121; @keyword NOTRI 
    … …  
    175175; 
    176176; @todo  
    177 ; seb definition of paramaters L.215 à 221 
     177; seb definition of parameters L.215 à 221 
    178178; 
    179179;- 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/scontour.pro

    r472 r493  
    1010; @keyword NOREINITPLT 
    1111; We active it if we do not want environment variables !p, !x, !y, !z 
    12 ; to be reinitilalized by the procedure <pro>reinitplt</pro> 
     12; to be reinitialized by the procedure <pro>reinitplt</pro> 
    1313; 
    1414; @keyword _EXTRA 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/splot.pro

    r370 r493  
    1010; @keyword NOREINITPLT 
    1111; We active it if we do not want environment variables !p, !x, !y, !z 
    12 ; to be reinitilalized by the procedure <pro>reinitplt</pro> 
     12; to be reinitialized by the procedure <pro>reinitplt</pro> 
    1313; 
    1414; @keyword _EXTRA 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/tvplus.pro

    r479 r493  
    8282; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    8383;                       18/12/98 
    84 ; Aug 2005: quick cleaning + english 
     84; Aug 2005: quick cleaning + English 
    8585; 
    8686; @version 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/autoscale.pro

    r325 r493  
    4343    coef = [2, 2.5, 5, 10] 
    4444; 
    45 ; We test differents CI (contour intervals), i.e. 1, 2, 2.5, 5 and 10 
     45; We test different CI (contour intervals), i.e. 1, 2, 2.5, 5 and 10 
    4646; until the number of contour is inferior to 30. 
    4747; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/restoreatt.pro

    r378 r493  
    4949         end 
    5050         ELSE:BEGIN 
    51             ras = report('Le nom '+nomelements[i]+' ne correspont a aucun element reconnu de la structure. !C cf. IDL> xhelp, ''litchamp''') 
     51            ras = report('Le nom '+nomelements[i]+' ne correspond a aucun element reconnu de la structure. !C cf. IDL> xhelp, ''litchamp''') 
    5252         end 
    5353      endcase 

  • trunk/SRC/ToBeReviewed/PLOTS/LABEL/label_date.pro

    r371 r493  
    111111 
    112112x1 = x + offset 
    113 caldat, long(x1), month, day, year, _EXTRA = ex;Get the calendar date from julian 
     113caldat, long(x1), month, day, year, _EXTRA = ex;Get the calendar date from Julian 
    114114frac = x1 - long(x1)            ;time of day, from 0 to 1. 
    115115 

  • trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/vecteur.pro

    r482 r493  
    231231; What we do: 
    232232; In a 3d cartesian reference, 
    233 ;       a) We find coordinates of the point T (starting of the arrow) situed 
     233;       a) We find coordinates of the point T (starting of the arrow) situated 
    234234;       on the sphere. 
    235235;       b) To each point T, we determine local directions defined by the grid 
    … …  
    274274; Stage 1, b) 
    275275; 
    276 ; Construction of a vector nu (resp. nv), vectr normed carried by the axis of 
     276; Construction of a vector nu (resp. nv), vector normed carried by the axis of 
    277277; points u[i,j] and u[i-1,j] (resp v[i,j] and v[i,j-1]) which define, for each 
    278278; point on the sphere, local directions associated with u and v. These vectors 
    … …  
    364364; of changing of date... BEWARE, do not cut arrow which goes out of the 
    365365; window! 
    366 ; test: If it goes out of the frame, but, thanks to +/- 360° it come in, 
     366; test: If it goes out of the frame, but, thanks to +/- 360° it come in, 
    367367; we modify it 
    368368; 
    … …  
    443443; 
    444444; We modify the array norme to an element having the value cm be represented 
    445 ; by a line of lenght 1 cm on the paper. Norme contains the norm of vectors 
     445; by a line of length 1 cm on the paper. Norme contains the norm of vectors 
    446446; we want to draw. 
    447447; 

  • trunk/SRC/ToBeReviewed/PLOTS/axe.pro

    r369 r493  
    1414; @param TEMPSMIN {in}{required} 
    1515; In the case where we do cut containing the time dimension, we have 
    16 ; to specify the beginning of the time's axis in julian days. 
     16; to specify the beginning of the time's axis in Julian days. 
    1717; 
    1818; @param TEMPSMAX {in}{required} 
    1919; In the case where we do cut containing the time dimension, we have 
    20 ; to specify the end of the time's axis in julian days. 
     20; to specify the end of the time's axis in Julian days. 
    2121; 
    2222; @keyword SIN 

  • trunk/SRC/ToBeReviewed/PLOTS/legende.pro

    r378 r493  
    123123  endif 
    124124;------------------------------------------------------------ 
    125 ; Shapping of subdomain 's dimensions 
     125; Shaping of subdomain 's dimensions 
    126126;------------------------------------------------------------ 
    127127  la1 = strtrim(string(format = fmt_bt, lat1), 2) 

  • trunk/SRC/ToBeReviewed/PLOTS/style.pro

    r378 r493  
    5454;    value itself, a more general definition can be given with a scalar 
    5555;    string with the following structure: 'xxNN...NNyy' with   
    56 ;    xx and yy correspondind to one the following choices (with the  
     56;    xx and yy corresponding to one the following choices (with the  
    5757;    corresponding meaning) 
    5858;               so -> Solid      

  • trunk/SRC/ToBeReviewed/PLOTS/symbols.pro

    r378 r493  
    55; 
    66; @param NSYM {in}{required} {type=integer} 
    7 ; Code of sympbols : 
     7; Code of symbols : 
    88; 1 = open circle 
    99; 2 = filled circle 

  • trunk/SRC/ToBeReviewed/STATISTICS/a_timecorrelate.pro

    r371 r493  
    140140 
    141141   NAN = ( (WHERE(FINITE(X) EQ 0 ))[0] NE -1 ) ? 1 : 0 
    142 ;We can retrieve the matrix of real lenghts of time-series    
     142;We can retrieve the matrix of real lengths of time-series    
    143143   nTreal = ( (WHERE(FINITE(X) EQ 0 ))[0] NE -1 ) ?  TOTAL(FINITE(X),  XNDim) : nT  
    144144 

  • trunk/SRC/ToBeReviewed/STATISTICS/skewness_4d.pro

    r378 r493  
    9191 
    9292   NAN = ( (WHERE(FINITE(X) EQ 0 ))[0] NE -1 ) ? 1 : 0 
    93 ;We can retrieve the matrix of real lenghts of time-series    
     93;We can retrieve the matrix of real lengths of time-series    
    9494   nTreal = ( (WHERE(FINITE(X) EQ 0 ))[0] NE -1 ) ?  TOTAL(FINITE(X),  XNDim) : nT  
    9595 

  • trunk/SRC/ToBeReviewed/STRING/isnumber.pro

    r372 r493  
    1414; 
    1515; @returns 
    16 ;       x = optionaly returned numeric value if valid.   
     16;       x = optionally returned numeric value if valid.   
    1717;       i = test flag:                                   
    1818;           0: not a number. 
    … …  
    4646          print,' i = isnumber(txt, [x])' 
    4747          print,'   txt = text string to test.                      in' 
    48           print,'   x = optionaly returned numeric value if valid.  out' 
     48          print,'   x = optionally returned numeric value if valid.  out' 
    4949          print,'   i = test flag:                                  out' 
    5050          print,'       0: not a number.' 

  • trunk/SRC/ToBeReviewed/STRING/lenstr.pro

    r325 r493  
    11;+ 
    22; ROUTINE:         lenstr 
    3 ; USEAGE:          result=lenstr(str) 
     3; USAGE:           result=lenstr(str) 
    44; 
    55; input: 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/dessinetri.pro

    r479 r493  
    1212; 
    1313; @param X {in}{optional} 
    14 ; The x position of points to which the trangulation refer to 
     14; The x position of points to which the triangulation refer to 
    1515; (see the x array provided in triangulate) 
    1616; 
    1717; @param Y {in}{optional} 
    18 ; The y position of points to which the trangulation refer to 
     18; The y position of points to which the triangulation refer to 
    1919; (see the y array provided in triangulate) 
    2020; 
    … …  
    3030; @keyword CHANGECOLOR 
    3131; =n. To change the color of each triangle. n colors 
    32 ; will be used and repeted if necessary. 
     32; will be used and repeated if necessary. 
    3333; 
    3434; @uses 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/tracecote.pro

    r370 r493  
    6161   if key_gridtype EQ 'e' then onemore = xf[0, 0] gT xf[0, 1] 
    6262; We pass in normalized coordinates to be able to become independant from the projection's 
    63 ; type choosen and from the support on which we do the drawing (screen or postscript) 
     63; type chosen and from the support on which we do the drawing (screen or postscript) 
    6464   z = convert_coord(xf[*],yf[*],/data,/to_normal) 
    6565   xf = reform(z[0, *], nx, ny) 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/tracemask.pro

    r370 r493  
    7070; The 2 first lines are identical. 
    7171   mask[1:tailleentree[1], 0] = maskentree[*, 0] 
    72 ; We calculate the position following x of points which will serve to trace the mask. They are situated between each points of the mask, exept for the last column we can not calculate and so we put at max (!x.range). 
     72; We calculate the position following x of points which will serve to trace the mask. They are situated between each points of the mask, except for the last column we can not calculate and so we put at max (!x.range). 
    7373   xrange = !x.range[sort(!x.range)] ; if REVERSE_X is used 
    7474   xentree = .5*(xentree+shift(xentree, -1, 0)) 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildreadcmd.pro

    r370 r493  
    9797 
    9898  if procedure EQ 'pltt' AND date1 EQ date2 then BEGIN 
    99 ; we redefine the dates to the begining and end of the calendar 
     99; we redefine the dates to the beginning and end of the calendar 
    100100    calendar = (*(extractatt(top_uvalue, 'fileparameters'))[currentfile]).time_counter 
    101101    date1 = jul2date(calendar[0]) 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/createhistory.pro

    r367 r493  
    5151   optionsflag = extractatt(top_uvalue, 'optionsflag') 
    5252   portrait = (optionsflag[where(options EQ 'Portrait/Landscape'), 0])[0] 
    53 ; composition du text contennu ds history.pro 
     53; composition du text contenu dans history.pro 
    5454   texte = ['@common' $ 
    5555            , ' ' $ 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/xcreateanim.pro

    r325 r493  
    117117  wdelete, !d.window 
    118118; 
    119 ; Creation and writting loop in the file. 
     119; Creation and writing loop in the file. 
    120120; 
    121121  IF index2 GT index1 THEN BEGIN 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_domain.pro

    r371 r493  
    419419         gdep2 = fix(dthlv2_value.combobox_value) 
    420420         if dthlv1_value.combobox_index GT event.index then BEGIN 
    421 ; We redfine the value of dthlv1id 
     421; We redefine the value of dthlv1id 
    422422            widget_control, dthlv1id, set_value = {combobox_select:event.index} 
    423423; So we redefine the value and the min of the slider 1 

  • trunk/SRC/ToBeReviewed/WIDGET/xx.pro

    r327 r493  
    5858      listgrid[[3, 5]] = 'V' 
    5959   ENDIF 
    60 ; calendar to be used (in IDL julian days 
     60; calendar to be used (in IDL Julian days 
    6161; ++++    if NOT keyword_set(calendar) then BEGIN 
    6262; ++++       if keyword_set(jour) then calendar = calendriertotem(/julian_day) ELSE calendar = calendriertotem(/julian_day, /mensuel) 
    6363; ++++    ENDIF 
    64 ; Name of the file refering to the mask 
     64; Name of the file referring to the mask 
    6565   if NOT keyword_set(meshfilename) then meshfilename = '/usr1/com/smasson/IDL/INIT/inittotem.pro' 
    6666; ++++   meshparameters = whichgrid(meshfilename) 

  • trunk/SRC/Utilities/createpro.pro

    r375 r493  
    4040; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    4141;  - cleaning + new keywords: October 2005 
    42 ;  - Feb. 2006: supress keyword "kwdused" and use call_procedure instead of  
     42;  - Feb. 2006: suppress keyword "kwdused" and use call_procedure instead of  
    4343;    execute 
    4444; 

  • trunk/SRC/Utilities/isadirectory.pro

    r371 r493  
    6060        directory[i] = dialog_pickfile(/directory, title = title $ 
    6161                                       , /must_exist, _extra = ex) 
    62         if directory[i] EQ '' THEN RETURN, report('check/find directory canceled') 
     62        if directory[i] EQ '' THEN RETURN, report('check/find directory cancelled') 
    6363      ENDIF 
    6464    ENDFOR 

  • trunk/SRC/Utilities/isafile.pro

    r423 r493  
    100100    IF dirname[0] EQ '.' AND keyword_set(iodirectory) THEN dirpath = dirname[n_elements(dirname)-1] ELSE dirpath = dirname[0] 
    101101    fileout = dialog_pickfile(path = dirpath, filter = filter, _extra = ex) 
    102     if fileout EQ '' THEN RETURN, report('check/find file canceled') 
     102    if fileout EQ '' THEN RETURN, report('check/find file cancelled') 
    103103; check again everything... 
    104104    basename = file_basename(fileout) 
    … …  
    108108                           + basename) 
    109109; if we cancel the check 
    110     IF size(dirname, /type) NE 7 THEN return, report('check/find file canceled') 
     110    IF size(dirname, /type) NE 7 THEN return, report('check/find file cancelled') 
    111111    fileout = find(basename, iodirectory = dirname $ 
    112112                   , recursive = recursive, /unique, /firstfound, ONLYPRO = onlypro $ 

  • trunk/SRC/Utilities/mergeonline_help.pro

    r461 r493  
    176176  lines = strmatch(about, '@*') 
    177177  about = about[where(lines EQ 0)] 
    178 ; add some informattions: 
     178; add some informations: 
    179179  about = [about, '', 'More informations on', 'http://forge.ipsl.jussieu.fr/saxo', ''] 
    180180; 

  • trunk/SRC/Utilities/report.pro

    r485 r493  
    120120; we get the line, routine name and revision version 
    121121  IF NOT keyword_set(simple) THEN BEGIN 
    122 ;    Look for the revsion in the code of the procedure/function calling this  
     122;    Look for the revision in the code of the procedure/function calling this  
    123123;    report function (ie the one where an problem was detected) in the first 
    124 ;    occurence of the form : 
     124;    occurrence of the form : 
    125125;    "; $Id$" 
    126126    prefix = routine_name(1) 

  • trunk/SRC/Utilities/routine_name.pro

    r430 r493  
    6767  name = strtrim(name, 2)     ; we remove blanks in front of and behind 
    6868  name = strcompress(name)      ; we compress blanks 
    69 ; we do not hold back the two first elements who are a blanck and the line concerning 
     69; we do not hold back the two first elements who are a blank and the line concerning 
    7070; routine_name. 
    7171  name = name[2: n_elements(name)-1] 

  • trunk/SRC/Utilities/set_default_device.pro

    r479 r493  
    66; 
    77; @categories 
    8 ; devide managment and default definitions 
     8; device management and default definitions 
    99; 
    1010; @examples 
    … …  
    2222;     thanks to fstat help and 
    2323;     http://idl.tamu.edu/headless_X.html for z-buffer usage 
    24 ;     IDL instruction HELP,/FILES,-2,-1,0 might also be usefull here 
     24;     IDL instruction HELP,/FILES,-2,-1,0 might also be useful here 
    2525; 
    2626; @version 

  • trunk/SRC/Utilities/xhelp.pro

    r378 r493  
    8181; do we have hidden parts? 
    8282     hide = where(stregex(fulltext, '^ *; *@hidden *$', /boolean) EQ 1) 
    83 ; buid the text to display 
     83; build the text to display 
    8484     header = '' 
    8585     sepbloc = ['', string(replicate(byte('='), 60)), ''] 
Note: See TracChangeset for help on using the changeset viewer.