Changeset 495 for trunk/SRC/ToBeReviewed/PLOTS/VECTEUR

Timestamp:

04/17/14 10:49:43 (10 years ago)

Author:

pinsard

Message:

fix thanks to coding rules; typo; dupe empty lines; trailing blanks

Location:

trunk/SRC/ToBeReviewed/PLOTS/VECTEUR

Files:

• ajoutvect.pro (modified) (3 diffs)
• vecteur.pro (modified) (10 diffs)

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

@@ -135 +135 @@
 ; We recuperate the complete grid to establish a big mask extensive
 ; in the four directions to cover points for which a land point has
-; been considerated (do a small drawing)
+; been considerate (do a small drawing)
 ;----------------------------------------------------------------------------
       vargrid='T'
@@ -141 +141 @@
       mskv = (vmask())[indice2d+jpi*jpj*firstzt]
       IF keyword_set(cont_nofill) THEN BEGIN  ; make sure msku/v contains only 1
-        msku = finite(msku) 
-        mskv = finite(msku) 
+        msku = finite(msku)
+        mskv = finite(msku)
       ENDIF
       glam = glamt[indice2d]
@@ -246 +246 @@
    ELSE vectlegende = {minmax:[mini, maxi], unite:varunit}
 
-
 sortie:
    if keyword_set(key_performance) NE 0 THEN print, 'temps ajoutvect', systime(1)-tempsun

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

@@ -5 +5 @@
 ; @categories
 ;
-; @param angle 
+; @param angle
 ;
 ; @returns
@@ -24 +24 @@
 ; by rapport at the x axis and which must do 1 cm on the drawing.
 ; Angle can be an array.
-;
-;
 ;
   compile_opt idl2, strictarrsubs
@@ -72 +70 @@
 ;
 ; normalize the vector
-;
 ;
   compile_opt idl2, strictarrsubs
@@ -191 +188 @@
 @common
   tempsun = systime(1)          ; For key_performance
-;
 ;
   taille = size(composanteu)
@@ -253 +249 @@
 ;       determine on the drawing.
 ;
-;
 ; Stage 1, a)
-;
 ;
 ; coordinates of the point T (beginning of the arrow) in spherical coordinates.
@@ -377 +371 @@
   if ind[0] NE -1 then glam[ind] = glam[ind]-360.
 ;
-;
 ; Stage 1, e)
 ;
@@ -405 +398 @@
 ;
   points = where(msk EQ 1)
-  IF points[0] NE -1 THEN BEGIN 
+  IF points[0] NE -1 THEN BEGIN
 
   x0 = x0[points] & x1 = x1[points]
@@ -448 +441 @@
 ; define colors before norme is changed...
     IF NOT KEYWORD_SET(vectcolor) THEN vectcolor = 0
-    IF keyword_set(vectnormcolor) THEN BEGIN 
+    IF keyword_set(vectnormcolor) THEN BEGIN
       mp = projsegment([vectnormcolor], [1, 254], /mp)
       colors = byte(round(mp[0] * norme +  mp[1] ))
@@ -500 +493 @@
   endif
 ;
-;
-
   if keyword_set(key_performance) NE 0 THEN print, 'temps vecteur', systime(1)-tempsun
 ;------------------------------------------------------------
@@ -507 +498 @@
   return
 END
-
-
-
-