Changeset 231 for trunk/SRC/ToBeReviewed/GRILLE/tracegrille.pro

Timestamp:

03/19/07 18:15:51 (17 years ago)

Author:

pinsard

Message:

improvements/corrections of some *.pro headers

File:

• trunk/SRC/ToBeReviewed/GRILLE/tracegrille.pro (modified) (6 diffs)

trunk/SRC/ToBeReviewed/GRILLE/tracegrille.pro

@@ -1 @@
-;------------------------------------------------------------
-;------------------------------------------------------------
-;------------------------------------------------------------
 ;+
 ;
@@ -8 +5 @@
 ;
 ; @categories
-; 
+;
 ; @param GLAMIN {in}{required}
-; The 1d or 2d array in longitude of points of the grid.If GLAM/GLAMIN 
-; is not specified, it trace the grid specified by vargrid, on the 
+; The 1d or 2d array in longitude of points of the grid.If GLAM/GLAMIN
+; is not specified, it trace the grid specified by vargrid, on the
 ; domain defined by domdef.
 ;
 ; @param GPHIIN {in}{required}
-; The 1d or 2d array in latitude of points of the grid.If GPHI/GPHIIN 
-; is not specified, it trace the grid specified by vargrid, on the 
+; The 1d or 2d array in latitude of points of the grid.If GPHI/GPHIIN
+; is not specified, it trace the grid specified by vargrid, on the
 ; domain defined by domdef.
 ;
-; @keyword XSTRIDE {type=integer} 
-; It specify that we want to trace only one line of 
+; @keyword XSTRIDE {type=integer}
+; It specify that we want to trace only one line of
 ; constant i every xstride points
 ;
 ; @keyword YSTRIDE {type=integer}
-; It specify that we want to trace only one line of 
+; It specify that we want to trace only one line of
 ; constant j every xstride points
 ;
-; @keyword OCEAN 
+; @keyword OCEAN
 ; To trace the grid only on ocean points.
-; 
+;
 ; @keyword EARTH
 ; To trace the grid only on land points.
@@ -38 +35 @@
 ;
 ; @keyword _EXTRA
-; Used to pass your keywords.
-; 
+; Used to pass keywords
+;
 ; @uses
 ; common.pro
-; 
+;
 ; @examples
 ;
@@ -56 +53 @@
 ; @version
 ; $Id$
-;                  
+;
 ;-
-;------------------------------------------------------------
-;------------------------------------------------------------
-;------------------------------------------------------------
+;
 PRO tracegrille, glamin, gphiin, OCEAN = ocean, EARTH = earth $
                  , XSTRIDE = xstride, YSTRIDE = ystride, RMOUT = rmout $
                  , _extra = extra
-;---------------------------------------------------------
 ;
   compile_opt idl2, strictarrsubs
@@ -116 +110 @@
     gphi = gphiin
     IF (size(glam))[0] EQ 1 AND (size(gphi))[0] EQ 1 THEN BEGIN
-      nx = n_elements(glam) 
-      ny = n_elements(gphi) 
+      nx = n_elements(glam)
+      ny = n_elements(gphi)
       glam = glam#replicate(1, ny)
       gphi = replicate(1, nx)#gphi
@@ -191 +185 @@
   endcase
 
-  if keyword_set(key_performance) THEN print, 'temps trace grille', systime(1)-tempsun 
+  if keyword_set(key_performance) THEN print, 'temps trace grille', systime(1)-tempsun
   !except = oldexcept