Changeset 118 for trunk/SRC/Obsolete/nlec.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/nlec.pro (modified) (7 diffs)

trunk/SRC/Obsolete/nlec.pro

@@ -15 +15 @@
 ;
 ;
-;       @keyword BOITE boite sur laquelle integrer (par defaut tt le domaine)
-;
-;       @keyword DIREC: 'x' 'y' 'z' 'xy' 'xz' 'yz' 'xyz' directions selon lesquelles
+; @keyword BOITE boite sur laquelle integrer (par defaut tt le domaine)
+;
+; @keyword DIREC 'x' 'y' 'z' 'xy' 'xz' 'yz' 'xyz' directions selon lesquelles
 ;             effectuer les moyennes (si rien n'est donne on n'effectue pas de moyenne)
 ;
 ; @keyword GRILLE impose la grille a laquelle est rapporte le champ. rq permet
-; d'aller plus vite ds la lecture 
+; d'aller plus vite ds la lecture
 ;
 ; @keyword /TOUT oblige a lire le tableau entier en non pas celui reduit a domdef
-;
-; @uses common.pro vraidate juldate  nlec5j          nlecserie
+; @keyword STRUCTURE 
+; @keyword SEUILMIN 
+; @keyword SEUILMAX 
+; @keyword NAN
+;
+; @keyword _EXTRA used to pass your keywords
+;
+; @uses common.pro vraidate juldate  nlec5j nlecserie
 ;
 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;   14/8/98
+;
+; @version $Id$
+;
 ;-
 ;------------------------------------------------------------
 ;REF.07.790101.grid.T.nc
-;REF.07.790101.grid.U.nc 
-;REF.07.790101.grid.V.nc 
+;REF.07.790101.grid.U.nc
+;REF.07.790101.grid.V.nc
 ;REF.07.790101.grid.W.nc
 ;------------------------------------------------------------
@@ -51 +60 @@
 ;------------------------------------------------------------
    case n_params() of
-      1:BEGIN 
+      1:BEGIN
          year=year+1900*(year ne 0 and year ne -1 and year lt 100)
          date = day+100*month+10000*year
       end
-      2:BEGIN 
+      2:BEGIN
          if size(debut, /tname) EQ 'STRING' then begin
             prefix = strupcase(debut)
@@ -150 +159 @@
          datejul = 5*numsortie-1+julday(1, 1, year)
          if n_elements(date2) ne 0 then date2jul = 5*numsortie2-1+julday(1, 1, year2) $
-         ELSE date2jul = datejul 
+         ELSE date2jul = datejul
          res = nlecserie(nom, datejul, date2jul,BOITE=boite,GRILLE=grille,TOUT=tout, _EXTRA = ex)
-         IF res[0] EQ -1 THEN BEGIN 
+         IF res[0] EQ -1 THEN BEGIN
             dejaserie = 1
             GOTO,  passerie
-         ENDIF 
+         ENDIF
       ENDIF ELSE BEGIN
          passerie:
@@ -163 +172 @@
             dejapasserie = 1
             GOTO,  serie
-         ENDIF 
+         ENDIF
       endelse
    ENDIF ELSE BEGIN
@@ -233 +242 @@
 ; moyenne eventuelle
 ;------------------------------------------------------------
-   IF keyword_set(direc) THEN BEGIN 
+   IF keyword_set(direc) THEN BEGIN
       IF jpt EQ 1 THEN res = moyenne(res,direc,BOITE=boite, nan = notan) $
       ELSE res = grossemoyenne(res,direc,BOITE=boite, nan = notan)
-   ENDIF 
+   ENDIF
 ;------------------------------------------------------------
 ; mise en placer des parametres pour le trace...
@@ -248 +257 @@
    if keyword_set(structure) then res = {tab:res, grille:vargrid, unite:varunit, experience:varexp, nom:varname}
 ;------------------------------------------------------------
-   if keyword_set(key_performance) THEN print, 'temps nlec', systime(1)-tempsun 
+   if keyword_set(key_performance) THEN print, 'temps nlec', systime(1)-tempsun
    time = time-2l
    return,res
@@ -254 +263 @@
 ;------------------------------------------------------------
 end
-
-
-
-
-
-
-
-
-
-
-
-
-
-