Changeset 226 for trunk/SRC/ToBeReviewed/GRILLE/decoupeterre.pro

Timestamp:

03/16/07 10:22:26 (17 years ago)

Author:

pinsard

Message:

corrections of some misspellings in some *.pro

File:

• trunk/SRC/ToBeReviewed/GRILLE/decoupeterre.pro (modified) (9 diffs)

trunk/SRC/ToBeReviewed/GRILLE/decoupeterre.pro

@@ -48 +48 @@
 ; Used to pass your keywords
 ;
-; @keyword TRI 
+; @keyword TRI
 ; This keyword serve to obtain, thanks to grille, the triangulation which
 ; refer to the grid but only on the part of the zoom. This of triangulation
@@ -56 +56 @@
 ;
 ; @keyword WDEPTH
-; To specify that the field is at W depth instead of T 
+; To specify that the field is at W depth instead of T
 ; depth (automatically activated if vargrid eq 'W')
 ;
@@ -184 +184 @@
         if vargrid EQ 'V' OR vargrid EQ 'F' then $
           glam = glamv[firstx:lastx, firsty:lasty]
-      ENDIF ELSE BEGIN          ; to drawsectionbottom 
+      ENDIF ELSE BEGIN          ; to drawsectionbottom
         if vargrid EQ 'V' OR vargrid EQ 'F' OR finite(glamu[0]) EQ 0 then $
           glam = glamf[0 > (firstx-1):lastx, firsty:lasty] $
@@ -194 +194 @@
         if vargrid EQ 'U' OR vargrid EQ 'F' then $
           gphi = gphiu[firstx:lastx, firsty:lasty]
-      ENDIF ELSE BEGIN          ; to drawsectionbottom  
+      ENDIF ELSE BEGIN          ; to drawsectionbottom
         if vargrid EQ 'U' OR vargrid EQ 'F' OR finite(gphiv[0]) EQ 0 then $
           gphi = gphif[firstx:lastx, 0 > (firsty-1):lasty] $
@@ -211 +211 @@
     firstz = firstzt
     lastz = lastzt
-  ENDELSE 
+  ENDELSE
   nz = lastz-firstz+1
 ;------------------------------------------------------------
@@ -221 +221 @@
       profond = firstz NE 0
     END
-; for the verical section, we have to choose the right mask according
+; for the vertical section, we have to choose the right mask according
 ; to the grid point and to the direction of the section
     'xz':BEGIN
@@ -267 +267 @@
       END
       keyword_set(key_partialstep) and type EQ 'yz' $
-        AND nx EQ 1 AND keyword_set(realsection):BEGIN 
+        AND nx EQ 1 AND keyword_set(realsection):BEGIN
         bottom = total(mask, 3)
         good = where(bottom NE 0 AND bottom NE nz+1)
@@ -290 +290 @@
       tri = triangule(mask, coinmonte = coinmonte, coindescend = coindescend, _extra = ex)
       indicezoom = (lindgen(jpi, jpj))[firstx:lastx, firsty:lasty]
-  ENDIF ELSE BEGIN 
+  ENDIF ELSE BEGIN
 ; Otherwise, we recuperate the part of triangulation that interest us and we number them well!!
-      if nx EQ jpi AND ny EQ jpj then tri = triangles_list ELSE BEGIN 
+      if nx EQ jpi AND ny EQ jpj then tri = triangles_list ELSE BEGIN
         msk = bytarr(jpi, jpj)
         msk[firstx:lastx, firsty:lasty] = 1
@@ -306 +306 @@
   ENDELSE
 ;-------------------------------------------------------------------
-  if keyword_set(key_performance) THEN print, 'temps decoupeterre', systime(1)-tempsun 
+  if keyword_set(key_performance) THEN print, 'temps decoupeterre', systime(1)-tempsun
 ;------------------------------------------------------------
   return