Changeset 292

Timestamp:

09/24/07 15:23:37 (17 years ago)

Author:

pinsard

Message:

typo

Location:

trunk/SRC

Files:

• Calendar/caldat.pro (modified) (1 diff)
• Calendar/julday.pro (modified) (1 diff)
• Colors/newpalette.pro (modified) (1 diff)
• Interpolation/extrapolate.pro (modified) (1 diff)
• Interpolation/file_interp.pro (modified) (24 diffs)
• Postscript/openps.pro (modified) (1 diff)
• ToBeReviewed/LECTURE/read_ncdf_varget.pro (modified) (1 diff)
• ToBeReviewed/PLOTS/DESSINE/bar_plot.pro (modified) (1 diff)
• ToBeReviewed/PLOTS/DESSINE/plt.pro (modified) (1 diff)
• ToBeReviewed/PLOTS/VECTEUR/vecteur.pro (modified) (1 diff)
• ToBeReviewed/TRIANGULATION/ciseauxtri.pro (modified) (2 diffs)
• ToBeReviewed/WIDGET/xnotice.pro (modified) (1 diff)

trunk/SRC/Calendar/caldat.pro

@@ -45 +45 @@
 ;
 ; @history
-; Translated from "Numerical Recipies in C", by William H. Press,
+; Translated from "Numerical Recipes in C", by William H. Press,
 ; Brian P. Flannery, Saul A. Teukolsky, and William T. Vetterling.
 ; Cambridge University Press, 1988 (second printing).

trunk/SRC/Calendar/julday.pro

@@ -60 +60 @@
 ;
 ; @history
-; Translated from "Numerical Recipies in C", by William H. Press,
+; Translated from "Numerical Recipes in C", by William H. Press,
 ; Brian P. Flannery, Saul A. Teukolsky, and William T. Vetterling.
 ; Cambridge University Press, 1988 (second printing).

trunk/SRC/Colors/newpalette.pro

@@ -22 +22 @@
 ;
 ; @history
-; Guillaume Roulet (gr\@lodyc.jussieu.fr)
+; Guillaume Roullet (gr\@lodyc.jussieu.fr)
 ; 30/3/1999 s.masson, add _extra, research of the full name, OVER
 ;                       5/5/1999 s.masson

trunk/SRC/Interpolation/extrapolate.pro

@@ -47 +47 @@
 ;
 ; @history
-;  Originaly written by G. Roulet
+;  Originaly written by G. Roullet
 ;  Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;

trunk/SRC/Interpolation/file_interp.pro

@@ -8 +8 @@
   compile_opt idl2, strictarrsubs
 ;
-; for byte, short and long, convert to double before extrepolation and interpolation
+; for byte, short and long, convert to double before extrapolation and interpolation
   intype = size(data, /type)
   if intype LE 3 THEN data = double(temporary(data))
@@ -15 +15 @@
   mask = inmask *finite(data)
 ;
-  IF keyword_set(NaN_value) THEN BEGIN 
+  IF keyword_set(NaN_value) THEN BEGIN
     CASE 1 OF
       nan_value GT 1.e6:mask = temporary(mask) * (data LT (nan_value-10.))
@@ -31 +31 @@
   ENDIF ELSE BEGIN
     data = fromirr(method, temporary(data), inlon, inlat, -1, outlon, outlat, -1, WEIG = weig, ADDR = addr)
-  ENDELSE 
-  
+  ENDELSE
+
   if intype LE 3 THEN data = round(temporary(data))
 
@@ -43 +43 @@
 ;
 ; @categories
-; Interpolation and NetCDF
+; Interpolation, NetCDF
 ;
 ; @param filein {in}{type=scalar string}
@@ -56 +56 @@
 ;
 ; @keyword GRIDIN {type=scalar string}{default=set to filein}
-; define the input grid file name. It must exist and must contain the 
+; define the input grid file name. It must exist and must contain the
 ; longitude and latitude axis as 1D or 2D arrays. Useful if
 ; filein file doesn't contain longitude and latitude axis
@@ -62 +62 @@
 ; @keyword MASKIN {type=scalar string}{default=set to gridin}
 ; define the input mask file name. It must exist. The mask will be
-; determided through <pro>ncdf_getmask</pro> according to the keywords
+; determined through <pro>ncdf_getmask</pro> according to the keywords
 ; inmaskname, ininvmask, inuseasmask, inmissing_value, inaddscl_before
-; (see bellow) 
+; (see below)
 ;
 ; @keyword MASKOUT {type=scalar string}{default=set to gridout}
 ; define the output mask file name. It must exist. The mask will be
-; determided through <pro>ncdf_getmask</pro> according to the keywords
+; determined through <pro>ncdf_getmask</pro> according to the keywords
 ; outmaskname, outinvmask, outuseasmask, outmissing_value,
-; outaddscl_before (see bellow) 
+; outaddscl_before (see bellow)
 ;
 ; @keyword KEEP {type=string array}{default=all variables}
@@ -81 +81 @@
 ;
 ; @keyword METHOD {type=scalar string}{default='bilinear'}
-; interpolation method: can be only 'bilinear' (or 'imoms3' if the iput grid
+; interpolation method: can be only 'bilinear' (or 'imoms3' if the input grid
 ; is a "regular" grid). A "regular/rectangular grid" is defined as a
-; grid for which  each longitude lines have the same latitude and each
+; grid for which each longitude lines have the same latitude and each
 ; latitude columns have the same longitude.
 ;
@@ -90 +90 @@
 ; <pro>extrapolate</pro> when extrapolating input data over masked
 ; points.
-; 
+;
 ; @keyword SET_XDIMNAME {type=scalar string}{default=not used}
 ; used to defined the name of x dimension in filein input file when
@@ -105 +105 @@
 ; containing the x axis name is not the same. By default, we assume
 ; both file have the same x axis name. Not that if filein includes x
-; axis ther is no point to use gridin
+; axis there is no point to use gridin
 ;
 ; @keyword SET_YAXISNAME {type=scalar string}{default=not used}
@@ -112 +112 @@
 ; @keyword INMASKNAME {type=scalar string}{default=not used}
 ; A string giving the name of the variable in the file maskin that
-; contains the land/sea mask 
+; contains the land/sea mask
 ;
 ; @keyword OUTMASKNAME {type=scalar string}{default=not used}
@@ -119 +119 @@
 ; @keyword ININVMASK {default=0}{type=scalar: 0 or 1}
 ; Inverse the land/sea mask of the input mask file maskin (that should
-; have 0/1 values for land/sea) 
+; have 0/1 values for land/sea)
 ;
 ; @keyword OUTINVMASK {default=0}{type=scalar: 0 or 1}
@@ -138 +138 @@
 ; @keyword INMISSING_VALUE {type=scalar}
 ; To define (or redefine if the attribute is already existing) the
-; missing values used by INUSEASMASK keyword 
+; missing values used by INUSEASMASK keyword
 ;
 ; @keyword OUTMISSING_VALUE {type=scalar}
@@ -144 +144 @@
 ;
 ; @keyword INADDSCL_BEFORE {default=0}{type=scalar: 0 or 1}
-; put 1 to apply add_offset ad scale factor on data before looking for
+; put 1 to apply add_offset and scale factor on data before looking for
 ; missing values when using INUSEASMASK keyword
 ;
@@ -156 +156 @@
 ;
 ; @keyword ADDR {type=2d array or variable name}
-; 1) at the first call of file_interp: 
+; 1) at the first call of file_interp:
 ;   This keyword can be set to a named variable (undefined or equal to
 ;   0) into which the addresses used to perform the interpolation will
@@ -163 +163 @@
 ;   to bypass the computation of the weights and addresses used to
 ;   perform the interpolation. In this case, interpolation is much
-;   faster 
+;   faster
 ;
 ; @keyword WEIG {type=2d array or variable name}
 ; (see ADDR)
-; 
+;
 ; @keyword INXAXISNAME {default='x', 'longitude', 'nav_lon', 'lon', 'lon_rho' or 'NbLongitudes'}{type=scalar string}
-; A string giving the name of the variable containning the x axis in
+; A string giving the name of the variable containing the x axis in
 ; the input grid file gridin
 ;
@@ -302 +302 @@
         indimx = i
         outdimx = outdimid[i]
-      END  
-      strlowcase(name) EQ strlowcase(inydimname): BEGIN 
+      END
+      strlowcase(name) EQ strlowcase(inydimname): BEGIN
         outdimid[i] = ncdf_dimdef(outid, name, jpjout)
         outdimsz[i] = jpjout
         indimy = i
         outdimy = outdimid[i]
-      END 
-      i EQ ininq.recdim: outdimid[i] = ncdf_dimdef(outid, name, /UNLIMITED) 
+      END
+      i EQ ininq.recdim: outdimid[i] = ncdf_dimdef(outid, name, /UNLIMITED)
       ELSE: outdimid[i] = ncdf_dimdef(outid, name, size)
     ENDCASE
@@ -315 +315 @@
 ;
 ; Variables
-; 
+;
   outvarid = lonarr(ininq.nvars)
   FOR i = 0, ininq.nvars-1 DO BEGIN
@@ -332 +332 @@
           strlowcase(varinq.name) EQ strlowcase(inxaxisname):BEGIN ; xaxis
             IF outirr THEN dimvar = [outdimx, outdimy] ELSE dimvar = [outdimx]
-          END 
+          END
           strlowcase(varinq.name) EQ strlowcase(inyaxisname):BEGIN ; yaxis
             IF outirr THEN dimvar = [outdimx, outdimy] ELSE dimvar = [outdimy]
@@ -348 +348 @@
                                     , FLOAT = varinq.datatype EQ 'FLOAT', DOUBLE = varinq.datatype EQ 'DOUBLE')
         ENDIF ELSE outvarid[i] = - 1
-      ENDELSE 
+      ENDELSE
 ; Variables attributes
-      IF outvarid[i] NE - 1 THEN BEGIN 
+      IF outvarid[i] NE - 1 THEN BEGIN
         FOR j = 0, varinq.natts-1 DO BEGIN
           name = ncdf_attname(inid, i, j)
@@ -371 +371 @@
           IF outirr THEN ncdf_varput, outid, outvarid[i], outlon $
           ELSE ncdf_varput, outid, outvarid[i], outlon[*, 0]
-        END 
+        END
         strlowcase(varinq.name) EQ strlowcase(inyaxisname):BEGIN ; y axis
           IF outirr THEN ncdf_varput, outid, outvarid[i], outlat $
@@ -384 +384 @@
               ncdf_varget, inid, i, data
               ncdf_varput, outid, outvarid[i], temporary(data)
-            END 
+            END
             1:BEGIN             ; 1D
               ncdf_varget, inid, i, data
               ncdf_varput, outid, outvarid[i], temporary(data)
-            END 
+            END
             2:BEGIN             ; 2D
               ncdf_varget, inid, i, data
@@ -395 +395 @@
                                                   , WEIG = weig, ADDR = addr, NAN_VALUE = NaN_value, _extra = ex)
               ncdf_varput, outid, outvarid[i], temporary(data)
-            END 
+            END
             3:BEGIN             ; 3D
               FOR k = 0, indimsz[varinq.dim[2]]-1 DO BEGIN
@@ -409 +409 @@
                 ncdf_varput, outid, outvarid[i], temporary(data), offset = off, count = outcnt
               ENDFOR
-            END 
+            END
             4:BEGIN             ; 4D
               FOR t = 0, indimsz[varinq.dim[3]]-1 DO BEGIN
@@ -424 +424 @@
                 ENDFOR
               ENDFOR
-            END 
+            END
           ENDCASE
         END
       ENDCASE
-    ENDIF 
+    ENDIF
   ENDFOR
-  
+
   ncdf_close, inid
   ncdf_close, outid
 
   return
-END 
+END

trunk/SRC/Postscript/openps.pro

@@ -130 +130 @@
 ; show some informations
    IF arg_present(infowidget) THEN $
-    infowidget = xnotice('Postcript file is currently processed...')
+    infowidget = xnotice('Postscript file is currently processed...')
 ;
    RETURN

trunk/SRC/ToBeReviewed/LECTURE/read_ncdf_varget.pro

@@ -45 +45 @@
 ;        |--+---+---+|--+---+---+---+-|  +...+..|+...+...+
 ;  in the ........ part, it is easy the first point is number 0 but in
-;  the --------- part the first point is number 3... Ihe position of
+;  the --------- part the first point is number 3... The position of
 ;  the first point in the is given by:
 ;         (key_stride[0]-1)-((key-1) MOD key_stride[0])

trunk/SRC/ToBeReviewed/PLOTS/DESSINE/bar_plot.pro

@@ -135 +135 @@
           TITLE=title, XTITLE=xtitle, YTITLE=ytitle, BASERANGE=baserange, $
           BARWIDTH=barwidth, BARSPACE=barspace, BAROFFSET=baroffset, $
-          OUTLINE=outline, OVERPLOt=overplot, BACKGROUND=background, $
+          OUTLINE=outline, OVERPLOT=overplot, BACKGROUND=background, $
           ROTATE=rotate, _EXTRA = ex
 ;

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

@@ -459 +459 @@
     Conn = [replicate(3, 1, n_elements(trifield)/3), trifield]
     Result = mesh_decimate(temporary(verts), (temporary(Conn))[*] $
-                           , Connout, vertices = Vertsout $
+                           , connout, vertices = Vertsout $
                            , percent_vertices = decimatetri)
     connout = reform(connout, 4,  n_elements(connout)/4, /over)

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

@@ -333 +333 @@
    direcz = direcz/100.
 ;
-; Stege 1, d)
+; Stage 1, d)
 ; coordinates of the point of the arrow in the cartesian reference.
 

trunk/SRC/ToBeReviewed/TRIANGULATION/ciseauxtri.pro

@@ -4 +4 @@
 ; Delete arrays which do not have to be drawn thanks to 2 tests:
 ;     1) Corners of the array must be in the window
-;     2) Lengthes of side of triangles expressed in normalized
+;     2) Lengths of side of triangles expressed in normalized
 ;        coordinates must not surpass a sill length.
 ;
@@ -79 +79 @@
    seuil = 5 < (min([nx, ny])-2)
 ;
-; Now we delete tringles whose one side has a size superior to 1/sill from the domain reserved for the drawing.
+; Now we delete triangles whose one side has a size superior to 1/sill from the domain reserved for the drawing.
 ;
 

trunk/SRC/ToBeReviewed/WIDGET/xnotice.pro

@@ -39 +39 @@
 ;
 ; We separate the text in different lines (separated by !C) if it is not done yet...
-; n''est pas deja fait...
 ;
   compile_opt idl2, strictarrsubs