Changeset 118 for trunk/SRC/Obsolete/lec.pro

Timestamp:

06/27/06 17:47:06 (18 years ago)

Author:

pinsard

Message:

add $ in Calendar, Grid, Interpolation, Obsolete and Postscript *.pro files, add svn:keywords Id to all these files, some improvements in header

File:

• trunk/SRC/Obsolete/lec.pro (modified) (12 diffs)

trunk/SRC/Obsolete/lec.pro

@@ -20 +20 @@
 ;
 ; @param nomchamp {in}{required} 2 choix possibles:
-;             1) nom de champ Vairmer (chaine de 8 caracteres en majuscule ou 
+;             1) nom de champ Vairmer (chaine de 8 caracteres en majuscule ou
 ; minuscule commencant par vo ou so). Dans cette methode on saute directement
 ; d'en-tete en en-tete jusqu'a trouver le bon fichier.
@@ -31 +31 @@
 ;
 ;
-; @keyword /ANOM {in} type du fichier vairmer par rapport auquel on doit calculer 
+; @keyword /ANOM {in} type du fichier vairmer par rapport auquel on doit calculer
 ;             l'anomalie ('EX','AN','SE','MO','')
 ;
@@ -37 +37 @@
 ; ds ce cas en input on met seulement 'vo' ou 'so' la fonction retourne le
 ; nombre de fichiers lus.
+;
+; @keyword BOITE
 ;
 ; @keyword /EXPANOM {in} si on calcule l'anom par rapport a une exper
@@ -60 +62 @@
 ; celle du sous domaine definit par domdef (nx,ny,nz). avec /TOUT le
 ; champ a la taille du  domaine qui a etait selectionne pour la
-; cession en cours (jpi,jpj,jpk). 
-; pour les sous domaines cf:  
+; cession en cours (jpi,jpj,jpk).
+; pour les sous domaines cf:
 ;        http://www.ipsl.jussieu.fr/~smlod/sousdomaine.html
 ; Retourne -1 en cas d'erreur.
 ;
-; @uses common.pro isnumber.pro fivardate.pro  
+; @uses common.pro isnumber.pro fivardate.pro
 ;
 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
@@ -76 +78 @@
 ;                       Sebastien Masson (decoupe pour les sous domaines...)
 ;                       2/99
+;
+; @version $Id$
+;
 ;;-
 ;--------------------------------------------------------------
@@ -141 +146 @@
 ; definition de la taille du fichier a aller chercher: jpidta,jpjdta,jpkdta...
 ;---------------------------------------------------------------------
-   if n_elements(jpidta) EQ 0 THEN BEGIN 
+   if n_elements(jpidta) EQ 0 THEN BEGIN
       if n_elements(ixmindta) EQ 0 OR n_elements(ixmaxdta) EQ 0 then $
        jpidta = jpiglo else jpidta = ixmaxdta-ixmindta+1
    endif
-   if n_elements(jpjdta) EQ 0 THEN BEGIN 
+   if n_elements(jpjdta) EQ 0 THEN BEGIN
       if n_elements(iymindta) EQ 0 OR n_elements(iymaxdta) EQ 0 then $
        jpjdta = jpjglo else jpjdta = iymaxdta-iymindta+1
    endif
-   if n_elements(jpkdta) EQ 0 THEN BEGIN 
+   if n_elements(jpkdta) EQ 0 THEN BEGIN
       if n_elements(izmindta) EQ 0 OR n_elements(izmaxdta) EQ 0 then $
        jpkdta = jpkglo else jpkdta = izmaxdta-izmindta+1
@@ -267 +272 @@
 ; on shift z si key_shift est defininit
 ;---------------------------------------------------------------------
-   if n_elements(key_shift) NE 0 THEN BEGIN 
+   if n_elements(key_shift) NE 0 THEN BEGIN
       if dim EQ 'SO' then z = shift(z,key_shift, 0) $
       ELSE z = shift(z,key_shift, 0, 0)
@@ -275 +280 @@
 ;  du zoom: nx,ny nz
 ;---------------------------------------------------------------------
-   if NOT keyword_set(tout) then BEGIN 
+   if NOT keyword_set(tout) then BEGIN
 ;-------------------------------------------------------------
 ; changement de domaine
 ;-------------------------------------------------------------
-      if keyword_set(boite) then BEGIN 
+      if keyword_set(boite) then BEGIN
          Case 1 Of
             N_Elements(Boite) Eq 1:bte=[lon1, lon2, lat1, lat2, 0.,boite[0]]
@@ -290 +295 @@
          oldboite = [lon1, lon2, lat1, lat2, prof1, prof2]
          domdef, bte,GRILLE=vargrid
-      ENDIF 
+      ENDIF
 ;-------------------------------------------------------------
       grille,mask,glam,gphi,gdep,nx,ny,nz,premierx,premiery,premierz,dernierx,derniery,dernierz
@@ -296 +301 @@
       if dim EQ 'SO' then z = z[premierx:dernierx, premiery:derniery]  $
       ELSE z = z[premierx:dernierx, premiery:derniery, premierz:dernierz]
-   ENDIF ELSE BEGIN 
+   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
          'T':mask = tmask       ;  de la valeur de vargrid
-         'W':mask = tmask       
+         'W':mask = tmask 
          'V':mask = vmask()
          'F':mask = fmask()
       ENDCASE
-   ENDELSE 
+   ENDELSE
 ;---------------------------------------------------------------------
 ; calcul d'une anomalie si le keyword anom est active
@@ -311 +316 @@
       case anom of
          'EX' : adate = 0
-         'AN' : adate = floor(date/10000)*10000 
+         'AN' : adate = floor(date/10000)*10000
          'SE' : adate = floor(date - floor(date/10000)*10000)/100 * 100
          'MO' : adate = floor(date/100)*100
@@ -327 +332 @@
 ;---------------------------------------------------------------------
    IF n_elements(valmask) EQ 0 THEN valmask = 1e20
-   if dim EQ 'SO' then BEGIN 
+   if dim EQ 'SO' then BEGIN
       terre = where(mask[*,*,0] EQ 0)
-      if terre[0] NE -1 then z[terre] = valmask 
-   ENDIF ELSE BEGIN 
+      if terre[0] NE -1 then z[terre] = valmask
+   ENDIF ELSE BEGIN
       terre = where(mask[*,*,0] EQ 0)
       if terre[0] NE -1 then z[where(mask EQ 0)] = valmask
-   ENDELSE 
+   ENDELSE
 ;---------------------------------------------------------------------
    free_lun,numlec