Changeset 297


Ignore:
Timestamp:
09/25/07 17:09:12 (17 years ago)
Author:
pinsard
Message:

typo

Location:
trunk/SRC
Files:
38 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Calendar/julday.pro

    r292 r297  
    1111; Calendar 
    1212; 
    13 ; @param MONTH {in}{required} {type=scalar (integer or double) or array of scalars} 
     13; @param MONTH {in}{optional} {type=scalar (integer or double) or array of scalars} 
    1414; Number of the desired month (1 = January, ..., 12 = December). 
    1515; 
    16 ; @param DAY {in}{required} {type=scalar (integer or double) or array of scalars} 
     16; @param DAY {in}{optional} {type=scalar (integer or double) or array of scalars} 
    1717; Number of day of the month. 
    1818; 
    19 ; @param YEARin {in}{required} {type=scalar (integer or double) or array of scalars} 
     19; @param YEARin {in}{optional} {type=scalar (integer or double) or array of scalars} 
    2020; Number of the desired year.Year parameters must be valid 
    2121; values from the civil calendar.  Years B.C.E. are represented 
    … …  
    9393  IF n_elements(key_caltype) EQ 0 THEN key_caltype = 'greg' 
    9494  if keyword_set(ndayspm) then key_caltype = '360d' 
     95   
     96  NP = n_params() 
     97; Process the input, if all are missing, use today's date. 
     98  IF (np EQ 0) THEN RETURN, SYSTIME(/JULIAN) 
     99  IF (np LT 3) THEN ras = report('Incorrect number of arguments.') 
    95100; 
    96101  YEAR = long(yearin) 
    97102  zero = where(year EQ 0, cnt) 
    98103  IF cnt NE 0 THEN YEAR[zero] = 654321L 
    99    
    100   NP = n_params() 
    101 ; Process the input, if all are missing, use todays date. 
    102   IF (np EQ 0) THEN RETURN, SYSTIME(/JULIAN) 
    103   IF (np LT 3) THEN ras = report('Incorrect number of arguments.') 
    104104; 
    105105  CASE key_caltype OF 

  • trunk/SRC/Grid/computegrid.pro

    r287 r297  
    509509; check y periodicity... Only according to ORCA grid 
    510510;==================================================== 
    511 ; check the peridicity if iyminmesh and iymaxmesh have the default definitions... 
     511; check the periodicity if iyminmesh and iymaxmesh have the default definitions... 
    512512  IF NOT keyword_set(plain) AND key_onearth EQ 1 $ 
    513513    AND iyminmesh EQ 0l AND iymaxmesh eq jpjglo-1 AND jpj GE 3 AND jpi GE 2 THEN BEGIN 
    … …  
    546546;==================================================== 
    547547IF n_elements(periodic) NE 0 THEN forcenoperio = 1 - keyword_set(periodic) 
    548 ; check the peridicity if ixminmesh and ixmaxmesh have the default definitions... 
     548; check the periodicity if ixminmesh and ixmaxmesh have the default definitions... 
    549549  IF NOT keyword_set(plain) AND NOT keyword_set(forcenoperio) AND key_onearth EQ 1 $ 
    550550     AND ixminmesh EQ 0l AND ixmaxmesh eq jpiglo-1 AND jpi GE 3 THEN BEGIN 

  • trunk/SRC/Grid/micromeshmask.pro

    r240 r297  
    101101    ENDELSE 
    102102  ENDELSE 
    103 ;; get the variables list related to the partial steps 
     103; get the variables list related to the partial steps 
    104104  varlist_ps = ncdf_listvars(cdfid) 
    105105  varlist_ps = strtrim(strlowcase(varlist_ps), 2) 

  • trunk/SRC/Interpolation/compute_fromirr_bilinear_weigaddr.pro

    r295 r297  
    114114  IF out[0] NE -1 THEN olon[out] = olon[out]+360 
    115115; 
    116 ; we work only on the ouput grid water points 
     116; we work only on the output grid water points 
    117117  awater = where(amsk EQ 1) 
    118118  nawater = n_elements(awater) 

  • trunk/SRC/Interpolation/inquad.pro

    r242 r297  
    2929; to specify that the quadrilateral are on a sphere and 
    3030; that their coordinates are longitude-latitude coordinates. In this 
    31 ; case, est-west periodicity, poles singularity and other pbs 
     31; case, east-west periodicity, poles singularity and other pbs 
    3232; related to longitude-latitude coordinates are managed 
    3333; automatically. 
    … …  
    345345    !p = save.p 
    346346  ENDIF 
    347 ;; 
     347; 
    348348  RETURN, found 
    349349END 

  • trunk/SRC/Interpolation/lbcorca.pro

    r262 r297  
    5353  res = 0 
    5454 
    55 ; est-west periodicity checks 
     55; east-west periodicity checks 
    5656 
    5757  IF array_equal(arr[0, *, *, *], arr[jpi-2, *, *, *]) NE 1 THEN BEGIN 
    … …  
    156156  ENDCASE 
    157157 
    158 ; est-west periodicity correction (again) 
     158; east-west periodicity correction (again) 
    159159 
    160160  IF keyword_set(correction) THEN BEGIN 

  • trunk/SRC/Interpolation/spl_incr.pro

    r242 r297  
    194194; more than 2 pieces... 
    195195      IF cntbad GT 1 THEN BEGIN 
    196 ; we take care of the piece located wetween bad[ib-1]+1 and bad[ib] 
     196; we take care of the piece located between bad[ib-1]+1 and bad[ib] 
    197197        FOR ib = 1, cntbad-1 DO BEGIN 
    198198; if there is x2 values smaller that x[bad[ib]], then the x2 values 
    … …  
    287287; we force yp0 = 0.0d and ypn_1 = 0.0d 
    288288      IF cntbad GT 1 THEN BEGIN 
    289 ; we take care of the piece located wetween bad[ib-1] and bad[ib] 
     289; we take care of the piece located between bad[ib-1] and bad[ib] 
    290290        FOR ib = 1, cntbad-1 DO BEGIN 
    291291; if there is x2 values smaller that x[bad[ib]], then the x2 values 

  • trunk/SRC/Interpolation/spl_keep_mean.pro

    r242 r297  
    77; of X2. The interpolation method is based on cubic spline, corrected 
    88; in a way that integral of the interpolated values is the same as the 
    9 ; integral of the input values. (-> for exemple to build daily data 
     9; integral of the input values. (-> for example to build daily data 
    1010; from monthly mean and keep the monthly mean of the computed daily 
    11 ; data equa to the original values) 
     11; data equal to the original values) 
    1212; 
    1313; @param x {in}{required} 

  • trunk/SRC/Obsolete/lec.pro

    r254 r297  
    283283              , iyminmesh-iymindta:iymaxmesh-iymindta, izminmesh-izmindta:izmaxmesh-izmindta] 
    284284;--------------------------------------------------------------------- 
    285 ; on shift z si key_shift est defininit 
     285; on shift z si key_shift est defini 
    286286;--------------------------------------------------------------------- 
    287287   if n_elements(key_shift) NE 0 THEN BEGIN 
    … …  
    290290   endif 
    291291;--------------------------------------------------------------------- 
    292 ;  si /TOUT n''est pas active, on coupe z pour q''il soit a la taille 
     292;  si /TOUT n''est pas active, on coupe z pour qu''il soit a la taille 
    293293;  du zoom: nx,ny nz 
    294294;--------------------------------------------------------------------- 

  • trunk/SRC/Obsolete/lect.pro

    r231 r297  
    9898   ficname=ficname+'.'+box+'.'+direc+'.hovdat' 
    9999;------------------------------------------------------------- 
    100 ; Est ce que le fichier de hovmoller existe ? 
     100; Est ce que le fichier de hovmoeller existe ? 
    101101;------------------------------------------------------------- 
    102102; 

  • trunk/SRC/Obsolete/nlec5j.pro

    r254 r297  
    151151;------------------------------------------------------------ 
    152152; redefinition eventuelle du domaine ajuste a boite (a 6 elements) 
    153 ; + on recupere la dim du no9uveau domaine 
     153; + on recupere la dim du nouveau domaine 
    154154;------------------------------------------------------------ 
    155155      if keyword_set(boite) then BEGIN 

  • trunk/SRC/Obsolete/nlecan.pro

    r254 r297  
    142142;------------------------------------------------------------ 
    143143; redefinition eventuelle du domaine ajuste a boite (a 6 elements) 
    144 ; + on recupere la dim du no9uveau domaine 
     144; + on recupere la dim du nouveau domaine 
    145145;------------------------------------------------------------ 
    146146      if keyword_set(boite) then BEGIN 

  • trunk/SRC/Obsolete/nlecmois.pro

    r254 r297  
    9999;------------------------------------------------------------ 
    100100; redefinition eventuelle du domaine ajuste a boite (a 6 elements) 
    101 ; + on recupere la dim du no9uveau domaine 
     101; + on recupere la dim du nouveau domaine 
    102102;------------------------------------------------------------ 
    103103      if keyword_set(boite) then BEGIN 

  • trunk/SRC/Obsolete/nlecsaison.pro

    r254 r297  
    141141;------------------------------------------------------------ 
    142142; redefinition eventuelle du domaine ajuste a boite (a 6 elements) 
    143 ; + on recupere la dim du no9uveau domaine 
     143; + on recupere la dim du nouveau domaine 
    144144;------------------------------------------------------------ 
    145145      if keyword_set(boite) then BEGIN 

  • trunk/SRC/Obsolete/nlecserie.pro

    r254 r297  
    137137;------------------------------------------------------------ 
    138138; redefinition eventuelle du domaine ajuste a boite (a 6 elements) 
    139 ; + on recupere la dim du no9uveau domaine 
     139; + on recupere la dim du nouveau domaine 
    140140;------------------------------------------------------------ 
    141141      if keyword_set(boite) then BEGIN 

  • trunk/SRC/ReadWrite/ncdf_gettime.pro

    r272 r297  
    3434; a double 1D array of IDL Julian days 
    3535; In case of error return -1 if the time dimension was not found 
    36 ;               or return -jpt if it as been found that the time dimesion size is jpt 
     36;               or return -jpt if it as been found that the time dimension size is jpt 
    3737; 
    3838; @restrictions 

  • trunk/SRC/Textoidl/textable.pro

    r231 r297  
    166166                           ] 
    167167;Special symbols --  
    168 ;  NOTES -- You must leave \infty before \in in the translatation 
     168;  NOTES -- You must leave \infty before \in in the translation 
    169169;           table to avoid having the \in part of \infty translated 
    170170;           away.  

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

    r232 r297  
    4040   if n_elements(ccmeshparameters) EQ 0 then return, 1 
    4141; 
    42 ; we compare the structure which caracterise the grid whith 
     42; we compare the structure which characterise the grid with 
    4343; ccmeshparameters 
    4444; 

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

    r268 r297  
    108108    END 
    109109  ENDCASE 
    110 ; however for the vertical section we don''t whant to extent the domain 
     110; however for the vertical section we don''t want to extent the domain 
    111111; in the direction perpendicular to the vertical section 
    112112  if type EQ 'xz' then begin 

  • trunk/SRC/ToBeReviewed/INIT/initncdf.pro

    r271 r297  
    109109    zvarid = (where(namevar EQ 'nav_lev' or namevar EQ zaxisname OR namevar EQ 'level' OR namevar EQ 'lev' OR strmid(namevar, 0, 5) EQ 'depth'))[0] 
    110110    if zvarid EQ -1 AND inside.ndims GT 3 then begin 
    111       ras = report( 'initncdf: the zaxis was not found..., check the use of ZAXISNAME keyword if you whant to find one...') 
     111      ras = report( 'initncdf: the zaxis was not found..., check the use of ZAXISNAME keyword if you want to find one...') 
    112112;     stop 
    113113    endif 

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

    r232 r297  
    3434   if size(newread, /type) NE 8 then return, 0 
    3535; 
    36 ; we compare the two structure which caracterise the read 
     36; we compare the two structure which characterise the read 
    3737; 
    3838   case 1 of 

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

    r295 r297  
    7575   COMMON motcle, mcatt, mccount, mcoffset, mciodir, mcshift, mcstride, mcvar 
    7676;------------------------------------------------------------ 
    77 ; Trick for using keywords (we pass by variables declarated in a common) 
     77; Trick for using keywords (we pass by variables declared in a common) 
    7878;------------------------------------------------------------ 
    7979   res = -1 
    … …  
    207207; 
    208208; @param EVENT {in}{required} 
    209 ; A structure caracterizing the type of event which arrive to a widget number1 2 
     209; A structure characterizing the type of event which arrive to a widget number1 2 
    210210; 
    211211; @uses 
    … …  
    378378; 
    379379; @file_comments 
    380 ; This procedure manage the second created whiget when we call xncdf_lec. 
     380; This procedure manage the second created widget when we call xncdf_lec. 
    381381; This widget concern the reading of the variable. 
    382382; 
    … …  
    385385; created by xncdf_lec and which has allowed to select the variable to be read. 
    386386; 
    387 ; OUTPUTS: indirectement res (le tableau ou la structure resultat) 
     387; @results 
     388; indirectement res (le tableau ou la structure resultat) 
    388389; 
    389390; @uses 
    … …  
    449450   widbase2 = widget_base(widbase, /column) 
    450451; To each attribute, we created a widget (widbase21) containing in line a button 
    451 ; yes/no (widbase211), and two wigdet text (widbase212, widbase213) comprising the 
     452; yes/no (widbase211), and two widget text (widbase212, widbase213) comprising the 
    452453; name and the value of the attribute. 
    453454   widbase21 = lonarr(varcontient.natts) 
    … …  
    459460   widbase212 = lonarr(varcontient.natts) 
    460461   widbase213 = lonarr(varcontient.natts) 
    461    for attid = 0, varcontient.natts-1 do BEGIN ;Lop on the number of attribute. 
     462   for attid = 0, varcontient.natts-1 do BEGIN ;Loop on the number of attribute. 
    462463      widbase21[attid] = widget_base(widbase2, /row) 
    463464      name=ncdf_attname(cdfid,varid,attid) 
    … …  
    491492; 
    492493; @param EVENT 
    493 ; A structure caracterising the event type which arrive at the widget number 1. 
     494; A structure characterising the event type which arrive at the widget number 1. 
    494495; 
    495496; @uses 

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

    r295 r297  
    88; 
    99; @param TAB {in}{required} 
    10 ; The field whose we want to make the hovmoller map can be 2 kind of thing: 
     10; The field whose we want to make the hovmoeller map can be 2 kind of thing: 
    1111;       1) An array which can be: 
    1212;          * 2d, 3d or 4d:  array xy, xyz. xyt or xyzt. In this case, the array will pass 
    … …  
    8484; 
    8585; @keyword TYPEIN 
    86 ; allows to specify the type of hovmoller we want to do 
     86; allows to specify the type of hovmoeller we want to do 
    8787;             'xt','yt','zt','t' 
    8888; with help of a keyword rather than the argument type. If the argument and the 

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

    r295 r297  
    6868; Comment: We do not reinitialize when we call back pltsc 
    6969   if NOT keyword_set(ov1d) then reinitplt 
    70    ;; reduce data xyzt domain 
     70   ; reduce data xyzt domain 
    7171 
    7272   if keyword_set(boxzoom) then BEGIN 

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

    r295 r297  
    22; 
    33; @file_comments 
    4 ; Trace hovmoller graphs: xt,yt,zt,t 
     4; Trace hovmoeller graphs: xt,yt,zt,t 
    55; 
    66; @categories  
    … …  
    88; 
    99; @param TAB {in}{required} 
    10 ; The field whose we want to make the hovmoller map can be 2 kind of thing: 
     10; The field whose we want to make the hovmoeller map can be 2 kind of thing: 
    1111;       1) An array which can be: 
    1212;          * 3d or 4d: array  'xt','yt','zt','t'. The last component is the time. In this case, the array will 
    … …  
    166166; 
    167167; @keyword TYPEIN 
    168 ; allows to specify the type of hovmoller we want to do 
     168; allows to specify the type of hovmoeller we want to do 
    169169;             'xt','yt','zt','t' 
    170170; with help of a keyword rather than the argument type. If the argument and the 
    … …  
    181181; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    182182;                       27/5/98 
    183 ;                       Jerome Vialard (adapting plt to hovmoller drawing) 
     183;                       Jerome Vialard (adapting plt to hovmoeller drawing) 
    184184;                       2/7/98 
    185185;                       Sebastien Masson 14/8/98 (continents,barres) 

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

    r295 r297  
    161161; 
    162162; @todo  
    163 ; seb definition of parmaters L.215 à 221 
     163; seb definition of paramaters L.215 à 221 
    164164; 
    165165;- 
    … …  
    299299  !y.range = [-1, 0] 
    300300;-------------------------------------------------------------- 
    301 ; extrapolation of datas on lands and specifying of the min/max value 
     301; extrapolation of data on lands and specifying of the min/max value 
    302302;-------------------------------------------------------------- 
    303303; define masknan 

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

    r296 r297  
    288288  ENDCASE 
    289289;-------------------------------------------------------------- 
    290 ; is the size of the array compatible with teh domain? 
     290; is the size of the array compatible with the domain? 
    291291;-------------------------------------------------------------- 
    292292  arr = fitintobox(temporary(arr), nx, ny, nz, firstx, firsty $ 

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

    r296 r297  
    2222; 
    2323; @param dtasize {in}{optional}{type=2 elements vector} 
    24 ; used by pltv to specify the size of the array that wil be plotted 
     24; used by <pro>pltv</pro> to specify the size of the array that will be plotted 
    2525; and therefore the default yxaspect to be used. 
    2626; 

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

    r296 r297  
    152152; can not calculate the average) 
    153153;----------------------------------------------------------- 
    154 ; extention of the mask 
     154; extension of the mask 
    155155      u = u*msku*shift(msku,1,0) 
    156156      v = v*mskv*shift(mskv,0,1) 

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

    r292 r297  
    451451; 
    452452   if NOT keyword_set(novectref) then BEGIN 
    453       dx = cmref*cv_cm2normal(0) ; Length of the vector of reference in normalzed coordinates. 
     453      dx = cmref*cv_cm2normal(0) ; Length of the vector of reference in normalized coordinates. 
    454454      if keyword_set(vectrefformat) then $ 
    455455       normelegende = strtrim(string(normeref, format = vectrefformat), 1)+' ' $ 

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

    r262 r297  
    44; Define a triangulation array like <proidl>TRIANGULATE</proidl>. 
    55;         But in a VERY SIMPLE CASE: 
    6 ; the points are regulary-gridded on nx*ny array. 
     6; the points are regularly-gridded on nx*ny array. 
    77; Find a Delaunay triangulation for this set of points is easy: 
    88; Points define (nx-1)*(ny-1) rectangles which we can cut in 2 triangles. 
    … …  
    124124; 
    125125      trinumber = 2*(upward-upward/nx) 
    126 ;; we define the right triangles 
     126; we define the right triangles 
    127127      triangles[0, trinumber] = upward 
    128128      triangles[1, trinumber] = upward+1 

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

    r232 r297  
    1010; 2d array specifying the mask 
    1111; 
    12 ; @param XIN {in}{required}, 
     12; @param XIN {in}{required} 
    1313; 2d array specifying longitude coordinates. 
    1414; 
    15 ; @param YIN {in}{required}, 
     15; @param YIN {in}{required} 
    1616; 2d array specifying latitude coordinates. 
    1717; 
    … …  
    9898; 
    9999   IF testvar(var = key_performance) EQ 2 THEN $ 
    100     print, 'temps tracemask: determination du mask et des ses coordonnes', systime(1)-tempdeux 
     100    print, 'temps tracemask: determination du mask et de ses coordonnees', systime(1)-tempdeux 
    101101; 
    102102; We trace vertical segments: 

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

    r231 r297  
    5858; 
    5959; @restrictions 
    60 ; Datas whose we want to do the contour must be disposed in a matrix. 
     60; Data whose we want to do the contour must be disposed in a matrix. 
    6161; On the other hand, in the matrix, the points's arrangement can not be 
    6262; irregular. If it is, use TRIANGULE. 

  • trunk/SRC/ToBeReviewed/UTILITAIRE/oups.pro

    r238 r297  
    6060 
    6161; 
    62 ; we erase the last line to reexecute all the programm but the last order. 
     62; we erase the last line to reexecute all the program but the last order. 
    6363; 
    6464 IF strpos(vectjournal[n_elements(vectjournal)-1],';,pos=[' ) NE -1 then $ 

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

    r262 r297  
    352352    6:boxzoom = boxextra 
    353353  ENDCASE 
    354 ; Writting of this one as a string 
     354; Writing of this one as a string 
    355355  box = '['+strtrim(boxzoom[0], 1) 
    356356  for i = 1, (n_elements(boxzoom)-1) < (3+2*(strpos(type, 'z') EQ -1)) do $ 

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

    r262 r297  
    4949  widget_control, specifieid, set_value = exextra 
    5050; Change the variable -> Do we need to change the vertical axis 
    51 ; according to the tye of points (T or W)? 
     51; according to the type of points (T or W)? 
    5252  dthlv1id = widget_info(base, find_by_uname = 'dthlv1') 
    5353  widget_control, dthlv1id, get_uvalue = dthlv1_uval 

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

    r231 r297  
    9494  widget_control, base, /realize 
    9595; 
    96 ; Beginning of the gif file. Writting of an empty picture. 
     96; Beginning of the gif file. Writing of an empty picture. 
    9797  IF keyword_set(fakecal) THEN date = index1 ELSE date = jul2date(calendar[index1]) 
    9898  xxx2ps, /noerase, date1in = date, date2in = date 
    … …  
    156156  wset, current_window 
    157157 
    158 ; If we are under x, we try to lauch xanim... 
     158; If we are under X, we try to launch xanim... 
    159159 
    160160  if thisOS NE 'MAC' AND thisOS NE 'WIN' then begin 

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

    r254 r297  
    265265      boxzoom[5] = boxzoom[4]+1 
    266266   endif 
    267 ; Now, values and indexes are proprely defined. 
     267; Now, values and indexes are properly defined. 
    268268; So we can apply them 
    269269   widget_control, dthlv1id, set_value = {combobox_select:indice1} 
Note: See TracChangeset for help on using the changeset viewer.