Changeset 226 for trunk/SRC/Obsolete

Timestamp:

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

Author:

pinsard

Message:

corrections of some misspellings in some *.pro

Location:

trunk/SRC/Obsolete

Files:

• lec.pro (modified) (7 diffs)
• meshlec.pro (modified) (1 diff)
• nlec.pro (modified) (1 diff)

trunk/SRC/Obsolete/lec.pro

@@ -6 +6 @@
 ; lit les fichiers Vairmer en sort:
 ; un tableau 2d ou 3d en fonction de nomchamp qui est le nom
-; du champ a extaire (2d s'il commence par SO et 3d s'il commence par VO)
+; du champ a extraire (2d s'il commence par SO et 3d s'il commence par VO)
 ; cette fonction modifie aussi les variables globales:
 ; varname: trois lettres: nom de l'experience
 ; vargrid: nom de la grille
 ; vardate: date (yy)yymmdd
-; varexp: nom Vairmer du champ a tarcer
+; varexp: nom Vairmer du champ a tracer
 ;
 ; @obsolete
 ;
-; @categories 
+; @categories
 ; Graphics, Reading
 ;
@@ -25 +25 @@
 ; minuscule commencant par vo ou so). Dans cette methode on saute directement
 ; d'en-tete en en-tete jusqu'a trouver le bon fichier.
-;             2) chaine de characteres commencant par vo ou so suivit du
+;             2) chaine de caracteres commencant par vo ou so suivit du
 ; numero de champ a aller chercher (par ex 'vo5'). Cette methode est un peu
 ; plus rapide car elle va directement chercher le fichier qui nous interesse.
@@ -72 +72 @@
 ; @uses common.pro isnumber.pro fivardate.pro
 ;
-; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
+; @history
+; Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;                       26/5/98
 ;                       Jerome Vialard : adaptation au format vairmer
@@ -82 +83 @@
 ;                       2/99
 ;
-; @version $Id$
+; @version 
+; $Id$
 ;
 ;;-
@@ -166 +168 @@
 ;  le fortran ajoute au debut et a la fin de chaque write 4 octets de controle
 ;  les reels du model sont codes sur 4 octets
-;  un charactere fait 1 octet
+;  un caractere fait 1 octet
 ;-----------------------------------------------------------------------
-;4 chaines de 8 characteres+un tableau de reels+4 trucs de controle (pour les
+;4 chaines de 8 caracteres+un tableau de reels+4 trucs de controle (pour les
 ; 2 write):
    if dim eq 'VO' then $
@@ -229 +231 @@
 ;---------------------------------------------------------------------
       if taillebloc*numerochamp gt infofichier.size then $
-       return, report('Ce numero de champ n''exite pas. Le fichier '+infofichier.name+' ne contient que ',infofichier.size/taillebloc,' champs.')
+       return, report('Ce numero de champ n''existe pas. Le fichier '+infofichier.name+' ne contient que ',infofichier.size/taillebloc,' champs.')
 ;---------------------------------------------------------------------
 ; lecture de l'en-tete numero numerochamp
@@ -306 +308 @@
    ENDIF ELSE BEGIN
       case vargrid OF           ; on recupere le mask en entier ds le cas ou /TOUT
-         'U':mask = umask()     ; n''est pas active et on le choisit en fontion
+         'U':mask = umask()     ; n''est pas active et on le choisit en fonction
          'T':mask = tmask       ;  de la valeur de vargrid
          'W':mask = tmask

trunk/SRC/Obsolete/meshlec.pro

@@ -58 +58 @@
    tab    = 'aaaaa'
 ;---------------------------------------------------------
-;  definition du domaine de la grille surlequel sont
+;  definition du domaine de la grille sur lequel sont
 ;  effectuees les sorties.les indices des tableaux commencant
 ;  a 1: cf le fichier wrivr2.F ds WKOPA sur le cray

trunk/SRC/Obsolete/nlec.pro

@@ -221 +221 @@
    endif
 ;------------------------------------------------------------
-; points a metre a nan
+; points a mettre a nan
 ;------------------------------------------------------------
    if n_elements(nan) NE 0 then BEGIN