Changeset 231 for trunk/SRC/ToBeReviewed/GRILLE/v2t.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/v2t.pro (modified) (10 diffs)

trunk/SRC/ToBeReviewed/GRILLE/v2t.pro

@@ -1 @@
-;------------------------------------------------------------
-;------------------------------------------------------------
-;------------------------------------------------------------
 ;+
 ;
 ; @file_comments
-; Allows to pass a field referring to the grid V on the grid T, 
-; thanks to the average: 
-; res = 0.5*(res + shift(res, 1, 0))    
+; Allows to pass a field referring to the grid V on the grid T,
+; thanks to the average:
+; res = 0.5*(res + shift(res, 1, 0))
 ;
-; @categories 
+; @categories
 ; Grid
 ;
@@ -21 +18 @@
 ; common.pro
 ;
-; @restrictions 
-; Force parameters of the zoom on the grid V to be the same as 
+; @restrictions
+; Force parameters of the zoom on the grid V to be the same as
 ; those on the grid T.
 ;
-; @restrictions 
-; Points which can not be calculated are put at the value NaN 
+; @restrictions
+; Points which can not be calculated are put at the value NaN
 ; consecrated by IDL: !values.f_nan
 ;
@@ -37 +34 @@
 ; $Id$
 ;
-; @todo seb: nom du input?
+; @todo
+; seb: nom du input?
 ;
 ;-
-;------------------------------------------------------------
-;------------------------------------------------------------
-;------------------------------------------------------------
+;
 FUNCTION v2t, temp
-;---------------------------------------------------------
 ;
   compile_opt idl2, strictarrsubs
@@ -70 +65 @@
 ; case on tha array's size and application
    taille = size(temp)
-   CASE taille[0] OF 
+   CASE taille[0] OF
       1: res = -1
-      2: BEGIN 
+      2: BEGIN
          case 1 of
             taille[1] eq nxv and taille[2] eq nyv:
@@ -81 +76 @@
          endcase
          mask = (vmask())[firstxv:lastxv, firstyv:lastyv, 0]
-         terre = where(mask EQ 0) 
+         terre = where(mask EQ 0)
          IF terre[0] NE -1 THEN res[terre] = !values.f_nan
          res = 0.5*(res + shift(res, 0, +1))
          res[*, 0] = !values.f_nan
          mask = tmask[firstxv:lastxv, firstyv:lastyv, 0]
-         terre = where(mask EQ 0) 
+         terre = where(mask EQ 0)
          IF terre[0] NE -1 THEN res[terre] = valmask
       END
-      3: BEGIN 
+      3: BEGIN
          case 1 of
             taille[1] eq nxv and taille[2] eq nyv AND taille[3] EQ nzt:
@@ -107 +102 @@
             mask = reform(mask, nxv, nyv, jpt, /over)
          ENDIF ELSE mask = (vmask())[firstxv:lastxv, firstyv:lastyv, firstzt:lastzt]
-         terre = where(temporary(mask) EQ 0) 
+         terre = where(temporary(mask) EQ 0)
          IF terre[0] NE -1 THEN res[temporary(terre)] = !values.f_nan
          res = 0.5*(res + shift(res, 0, +1, 0))
@@ -116 +111 @@
             mask = reform(mask, nxv, nyv, jpt, /over)
          ENDIF ELSE mask = tmask[firstxv:lastxv, firstyv:lastyv, firstzt:lastzt]
-         terre = where(temporary(mask) EQ 0) 
+         terre = where(temporary(mask) EQ 0)
          IF terre[0] NE -1 THEN res[temporary(terre)] = valmask
       END
-      4: BEGIN 
+      4: BEGIN
          case 1 of
             taille[1] eq nxv and taille[2] eq nyv AND taille[3] EQ nzt AND taille[4] EQ jpt:
@@ -132 +127 @@
          mask = temporary(mask[*])#replicate(1, jpt)
          mask = reform(mask, nxv, nyv, nzt, jpt, /over)
-         terre = where(temporary(mask) EQ 0) 
+         terre = where(temporary(mask) EQ 0)
          IF terre[0] NE -1 THEN res[temporary(terre)] = !values.f_nan
          res = 0.5*(res + shift(res, 0, +1, 0, 0))
@@ -139 +134 @@
          mask = temporary(mask[*])#replicate(1, jpt)
          mask = reform(mask, nxv, nyv, nzt, jpt, /over)
-         terre = where(temporary(mask) EQ 0) 
+         terre = where(temporary(mask) EQ 0)
          IF terre[0] NE -1 THEN res[temporary(terre)] = valmask
       END
@@ -146 +141 @@
    IF NOT keyword_set(key_forgetold) THEN BEGIN
    @updateold
-   ENDIF 
+   ENDIF
 
     return, res
 END
-