Changeset 226 for trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/scanfile.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/WIDGET/AUTOUR_de_XXX/scanfile.pro (modified) (15 diffs)

trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/scanfile.pro

@@ -5 +5 @@
 ; @categories
 ;
-; 
+;
 ; @param NAMEFILE
 ;
-; 
 ; @keyword GRID {default='T'}{type=scalar string}
 ; Used to specify on which grid type are located the data
@@ -14 +13 @@
 ; @keyword _EXTRA
 ; Used to pass your keywords to isafile and ncdf_getaxis
-; 
+;
 ; @returns
-; 
-; 
+;
 ; @uses
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
-; 
-; 
+;
 ; @history
-; 
-; 
-; @version 
+;
+; @version
 ; $Id$
 ;
 ; @todo
 ; seb : I don't know what to do with that...
-; 
+;
 ;-
 ;
@@ -49 +43 @@
 ;       dont les noms sont 'x','lon...','xi_...' et 'y','lat...' ou
 ;       'eta_...' ou bien en majuscule.
-;       4) il doit exiter ds ce fichier une unique variable n''ayant
+;       4) il doit exister ds ce fichier une unique variable n''ayant
 ;       qu''une dimension et etant la dimension temporelle. cette
 ;       variable sera prise comme axe des temps. Rq: si plusieurs
@@ -55 +49 @@
 ;       variable
 ;       5) Cette variable axe des temps doit contenir l''attribut
-;       'units'qui doit etre ecrit suivant la syntaxe:
-;               "seconds since 0001-01-01 00:00:00" 
-;               "hours since 0001-01-01 00:00:00" 
-;               "days since 1979-01-01 00:59:59" 
-;               "months since 1979-01-01 00:59:59" 
-;               "years since 1979-01-01 00:59:59" 
+;       'units' qui doit etre ecrit suivant la syntaxe:
+;               "seconds since 0001-01-01 00:00:00"
+;               "hours since 0001-01-01 00:00:00"
+;               "days since 1979-01-01 00:59:59"
+;               "months since 1979-01-01 00:59:59"
+;               "years since 1979-01-01 00:59:59"
 ;
 ; je crois que c''est tout!
@@ -93 +87 @@
   namedim = strarr(inside.ndims)
   for dimiq = 0, inside.ndims-1 do begin
-    ncdf_diminq, cdfid, dimiq, tmpname, value 
+    ncdf_diminq, cdfid, dimiq, tmpname, value
     namedim[dimiq] = strlowcase(tmpname)
   ENDFOR
@@ -110 +104 @@
        (inter(invar.dim, dimidy))[0] NE -1 AND $
        ((where(invar.dim EQ inside.recdim))[0] NE -1 OR inside.recdim EQ -1) $
-    THEN namevar[varid] = invar.name 
+    THEN namevar[varid] = invar.name
   ENDFOR
   namevar = namevar[where(namevar NE '')]
@@ -135 +129 @@
         tmpnm[0] EQ 'xi_u'   AND tmpnm[1] EQ 'eta_rho':listgrid[i] = 'U'
         tmpnm[0] EQ 'xi_u'   AND tmpnm[1] EQ 'eta_v'  :listgrid[i] = 'F'
-        ELSE: 
-      ENDCASE 
+        ELSE:
+      ENDCASE
     ENDFOR
     empty = where(listgrid EQ '')
-    IF empty[0] NE -1 THEN BEGIN   
+    IF empty[0] NE -1 THEN BEGIN
 ; could we define the grid type from the file name??
       pattern = ['GRID.', 'GRID_', 'GRID', 'UPID_', '30ID_']
@@ -153 +147 @@
       ENDFOR
       listgrid[empty] = vargrid
-    ENDIF 
+    ENDIF
   ENDIF ELSE listgrid[*] = vargrid
 ;------------------------------------------------------------
@@ -159 +153 @@
 ;------------------------------------------------------------
   date0fk = date2jul(19000101)
-  IF inside.recdim EQ -1 THEN BEGIN 
+  IF inside.recdim EQ -1 THEN BEGIN
     jpt = 1
     time = date0fk
@@ -170 +164 @@
     repeat BEGIN
       IF varid LT inside.nvars THEN BEGIN
-        invar = ncdf_varinq(cdfid, varid) 
-        varid = varid+1        
+        invar = ncdf_varinq(cdfid, varid)
+        varid = varid+1
       ENDIF ELSE varid = 0
     endrep until (n_elements(invar.dim) EQ 1 AND invar.dim[0] EQ inside.recdim) OR (varid EQ 0)
@@ -177 +171 @@
 ;
     CASE 1 OF
-      varid EQ -1:BEGIN 
+      varid EQ -1:BEGIN
         dummy = report('the file '+fullname+' has no time axis.!C we create a fake calendar ...')
         fakecal = 1
         time = date0fk + lindgen(1>jpt)
       END
-      invar.natts EQ 0:BEGIN 
+      invar.natts EQ 0:BEGIN
         dummy = report('the variable '+invar.name+' has no attribut.!C we create a fake calendar ...')
         fakecal = 1
@@ -197 +191 @@
           fakecal = 1
           time = date0fk + lindgen(1>jpt)
-        ENDIF ELSE BEGIN 
+        ENDIF ELSE BEGIN
 ; we read the time axis
           ncdf_varget, cdfid, varid, time
@@ -223 +217 @@
             err = 1
           ENDIF
-          IF err GT 0 THEN BEGIN 
+          IF err GT 0 THEN BEGIN
             fakecal = 1
             time = date0fk + lindgen(1>jpt)
-          ENDIF ELSE BEGIN 
+          ENDIF ELSE BEGIN
             debut = str_sep(mots[2], '-')
 ;
@@ -241 +235 @@
                 'greg':IF n_elements(key_caltype) EQ 0 THEN key_caltype = 'greg'
                 ELSE:BEGIN
-;            notused = report('Unknown calendar: '+value+', we use greg calendar.') 
+;            notused = report('Unknown calendar: '+value+', we use greg calendar.')
                   key_caltype = 'greg'
                 END
               ENDCASE
             ENDIF ELSE BEGIN
-;        notused = report('Unknown calendar, we use '+key_caltype+' calendar.') 
+;        notused = report('Unknown calendar, we use '+key_caltype+' calendar.')
               IF n_elements(key_caltype) EQ 0 THEN key_caltype = 'greg'
             ENDELSE
@@ -259 +253 @@
               'hour':time = julday(debut[1], debut[2], debut[0])+time/24.d
               'day':time = julday(debut[1], debut[2], debut[0])+time
-              'month':BEGIN 
+              'month':BEGIN
                 if total(fix(time) NE time) NE 0 then $ ; we switch to days with 30d/m
                    time = julday(debut[1], debut[2], debut[0])+round(time*30) $