Changeset 231 for trunk/SRC/Obsolete


Ignore:
Timestamp:
03/19/07 18:15:51 (17 years ago)
Author:
pinsard
Message:

improvements/corrections of some *.pro headers

Location:
trunk/SRC/Obsolete
Files:
23 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Obsolete/common.pro

    r134 r231  
    22; @obsolete 
    33; 
    4 ; @version $Id$ 
     4; @version 
     5; $Id$ 
    56; 
    67;- 

  • trunk/SRC/Obsolete/congridseb.pro

    r157 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; @file_comments 
    … …  
    4845; 
    4946;- 
    50 ;------------------------------------------------------------ 
    51 ;------------------------------------------------------------ 
    52 ;------------------------------------------------------------ 
     47; 
    5348function congridseb, tableau, x, y 
    5449; 

  • trunk/SRC/Obsolete/cp.pro

    r134 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; @file_comments 
    … …  
    1310; @param filenameout {in}{required} 
    1411; 
    15 ; @keyword _EXTRA used to pass your keywords 
     12; @keyword _EXTRA 
     13; Used to pass keywords 
    1614; 
    1715; @history 
    1816; June 2005: Sebastien Masson => obsolete routine 
    1917; 
    20 ; @version $Id$ 
     18; @version 
     19; $Id$ 
    2120; 
    2221;- 
    23 ;------------------------------------------------------------ 
    24 ;------------------------------------------------------------ 
    25 ;------------------------------------------------------------ 
     22; 
    2623PRO cp, filenamein, filenameout, _extra = ex 
    2724; 

  • trunk/SRC/Obsolete/extrait.pro

    r163 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; 
    6 ; @file_comments  
    7 ; extraction of subdomains of matrices;  
     3; @file_comments 
     4; extraction of subdomains of matrices; 
    85; Even if the subdomain is "pierced" (see the example) 
    96; By default, IDL can make extractions of subdomain: 
    107; 
    11 ;      IDL> a=indgen(5,5)  
    12 ;      IDL> print, a  
     8;      IDL> a=indgen(5,5) 
     9;      IDL> print, a 
    1310;             0       1       2       3       4 
    1411;             5       6       7       8       9 
    … …  
    1613;            15      16      17      18      19 
    1714;            20      21      22      23      24 
    18 ;      IDL> print, a[[0,2],3]  
     15;      IDL> print, a[[0,2],3] 
    1916;            15      17 
    20 ;      IDL> print, a[[0,2],*]   
     17;      IDL> print, a[[0,2],*] 
    2118;             0       2 
    2219;             5       7 
    … …  
    2522;            20      22 
    2623; but 
    27 ;      IDL> print, a[[0,2],[3,4]]  
     24;      IDL> print, a[[0,2],[3,4]] 
    2825;            15      22 
    2926; while 
    30 ;      IDL> print, extrait(a,[0,2],[3,4])   
     27;      IDL> print, extrait(a,[0,2],[3,4]) 
    3128;            15      17 
    3229;            20      22 
    … …  
    3734; @obsolete 
    3835; 
    39 ; @categories  
     36; @categories 
    4037; Utilities 
    4138; 
    42 ; @param tab {in}{required}  
     39; @param tab {in}{required} 
    4340; a 1,2,3 or 4 dim table 
    4441; 
    45 ; @param indicex {in}{required}  
     42; @param indicex {in}{required} 
    4643; can have 2 forms: 
    4744; 1)a vector containing indexes of lines we want to keep 
    4845; 2)the string '*' if we want to keep all lines. 
    4946; 
    50 ; @param indicey {in}{required}  
     47; @param indicey {in}{required} 
    5148; the same thing that indicex but for dim 2. 
    5249; 
    53 ; @param indicez {in}{required}  
     50; @param indicez {in}{required} 
    5451; the same thing that indicex but for dim 3. 
    55 ;  
    56 ; @param indicet {in}{required}  
     52; 
     53; @param indicet {in}{required} 
    5754; the same thing that indicex but for dim 4. 
    5855; 
    59 ; @returns  
     56; @returns 
    6057; a matrix 1,2,3 or 4d extract from tab 
     58; -1 in case of mistake 
    6159; 
    62 ; @restrictions  
    63 ; res=-1 in case of mistake 
    64 ;  
    65 ; @examples  
    66 ; I have a dim 2 matrix named A. I want extract a small intersection  
     60; @examples 
     61; I have a dim 2 matrix named A. I want extract a small intersection 
    6762; matrix 2d of the line 2,3 and 7 and of the column 0 and 1: 
    68 ;       
     63; 
    6964; IDL> res=extrait(A,[2,3,7],[0,1]) 
    7065; 
    7166; other ex: 
    72 ; IDL> print, a  
     67; IDL> print, a 
    7368; a b c 
    7469; d e f 
    7570; g h i 
    76 ; IDL> print, extrait(a,[0,2],[0,2])         
     71; IDL> print, extrait(a,[0,2],[0,2]) 
    7772; a c 
    7873; g i 
    79 ;  
     74; 
    8075; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    8176; 12/1/1999 
    … …  
    8580; 
    8681;- 
    87 ;------------------------------------------------------------ 
    88 ;------------------------------------------------------------ 
    89 ;------------------------------------------------------------ 
     82; 
    9083FUNCTION extrait, tab, indicex, indicey, indicez, indicet 
    91 ;------------------------------------------------------------ 
    9284; 
    9385  compile_opt idl2, strictarrsubs 

  • trunk/SRC/Obsolete/ficdate.pro

    r134 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; @file_comments 
    … …  
    96; @obsolete 
    107; 
    11 ; @param vdate {in} date vairmer ex:930124 
     8; @param vdate {in} 
     9; date vairmer ex:930124 
    1210; 
    13 ; @param dim {in} 'so' ou 'vo' par defaut so est choisi 
     11; @param dim {in} 
     12; 'so' ou 'vo' par defaut so est choisi 
    1413; 
    15 ; @param nomexp {in} nom de l'experience en trois lettres par defaut prefix 
     14; @param nomexp {in} 
     15; nom de l'experience en trois lettres par defaut prefix 
    1616; 
    17 ; @returns le nom du fichier vairmer (depuis iodir) 
     17; @returns 
     18; le nom du fichier vairmer (depuis iodir) 
    1819; 
    19 ; @uses common.pro 
     20; @uses 
     21; common.pro 
    2022; 
    2123; @examples 
    2224; IDL> fic = ficdate(930124) 
    2325; 
    24 ; @history Jerome Vialard  (jv\@lodyc.jussieu.fr) 
    25 ;1/7/98 
     26; @history 
     27; Jerome Vialard  (jv\@lodyc.jussieu.fr) 
     28; 1/7/98 
    2629; 
    27 ; @version $Id$ 
     30; @version 
     31; $Id$ 
    2832; 
    2933;- 
    30 ;------------------------------------------------------------ 
    31 ;------------------------------------------------------------ 
    32 ;------------------------------------------------------------ 
     34; 
    3335function ficdate, vdate, dim, nomexp 
    3436; 

  • trunk/SRC/Obsolete/fictype.pro

    r134 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; @file_comments 
    … …  
    96; @param vdate {in}{required} 
    107; 
    11 ; @param dim unused 
     8; @param dim 
     9; unused 
    1210; 
    13 ; @uses common.pro 
     11; @uses 
     12; common.pro 
    1413; 
    1514; @examples 
    … …  
    2221; 
    2322;- 
    24 ;------------------------------------------------------------ 
    25 ;------------------------------------------------------------ 
    26 ;------------------------------------------------------------ 
     23; 
    2724function fictype, vdate, dim 
    2825; 

  • trunk/SRC/Obsolete/imprime.pro

    r134 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; @file_comments 
    … …  
    1411; @keyword NB 
    1512; 
    16 ; @uses printps 
     13; @uses 
     14; printps 
    1715; 
    1816; @history 
    1917; June 2005: Sebastien Masson, english version 
    2018; 
    21 ; @version $Id$ 
     19; @version 
     20; $Id$ 
    2221; 
    2322;- 
    24 ;------------------------------------------------------------ 
    25 ;------------------------------------------------------------ 
    26 ;------------------------------------------------------------ 
     23; 
    2724PRO imprime, filename, TRANS = trans, NB = nb 
    2825; 

  • trunk/SRC/Obsolete/jourdsmois.pro

    r134 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; @file_comments 
    6 ; used daysinmonth instead... 
     3; used <pro>daysinmonth<pro> instead 
    74; 
    85; @obsolete 
    … …  
    129; @param annee {in}{optional} 
    1310; 
    14 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
     11; @history 
     12; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    1513; June 2005: Sebastien Masson, english version 
    1614; 
    17 ; @version $Id$ 
     15; @version 
     16; $Id$ 
    1817; 
    1918;- 
    20 ;------------------------------------------------------------ 
    21 ;------------------------------------------------------------ 
    22 ;------------------------------------------------------------ 
     19; 
    2320function jourdsmois, mois, annee 
    2421; 

  • trunk/SRC/Obsolete/juldate.pro

    r157 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    5 ; @file_comments  
     2; @file_comments 
    63; gives julian date equivalent of a date in vairmer 
    74; ( yymmdd or yyyymmdd ) format 
    … …  
    129; @obsolete 
    1310; 
    14 ; @categories  
     11; @categories 
    1512; Calendar 
    1613; 
    17 ; @param vvdate {in} date de la forme yymmdd ou yyyymmdd 
     14; @param vvdate {in} 
     15; date de la forme yymmdd ou yyyymmdd 
    1816; 
    19 ; @keyword _EXTRA used to pass your keywords 
     17; @keyword _EXTRA 
     18; Used to pass keywords 
    2019; 
    21 ; @uses common.pro vraidate 
     20; @uses 
     21; common.pro 
     22; vraidate 
    2223; 
    23 ; @returns date en jour julien 
     24; @returns 
     25; date en jour julien 
    2426;   l'annee 0 n'existant pas, qd year est nulle on calcule le 
    2527;     jour julien de l'annee -1. 
    … …  
    3133; IDL> date = juldate(930124) 
    3234; 
    33 ; @history Jerome Vialard  (jv\@lodyc.jussieu.fr) 
     35; @history 
     36; Jerome Vialard  (jv\@lodyc.jussieu.fr) 
    3437; 2/7/98 
    3538; 
    36 ; @version $Id$ 
     39; @version 
     40; $Id$ 
    3741; 
    3842;- 
    39 ;------------------------------------------------------------ 
    40 ;------------------------------------------------------------ 
    41 ;------------------------------------------------------------ 
     43; 
    4244function juldate, vvdate, _EXTRA = ex 
    4345; 

  • trunk/SRC/Obsolete/lec.pro

    r226 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; @file_comments 
    … …  
    2118; IDL> resultat=lec('nom_Vairmer'[,date[,'nom_experience']]) 
    2219; 
    23 ; @param nomchamp {in}{required} 2 choix possibles: 
     20; @param nomchamp {in}{required} 
     21; 2 choix possibles: 
    2422;             1) nom de champ Vairmer (chaine de 8 caracteres en majuscule ou 
    2523; minuscule commencant par vo ou so). Dans cette methode on saute directement 
    … …  
    2927; plus rapide car elle va directement chercher le fichier qui nous interesse. 
    3028; 
    31 ; @param date {in}{optional} nombres de 6 ou 8 chiffres (anneemoisjour, par ex:19980507) 
    32 ; 
    33 ; @param nomexp {in}{optional} trois lettres designant le nom de l'experience 
    34 ; 
    35 ; 
    36 ; @keyword ANOM {in} type du fichier vairmer par rapport auquel on doit calculer 
     29; @param date {in}{optional} 
     30; nombres de 6 ou 8 chiffres (anneemoisjour, par ex:19980507) 
     31; 
     32; @param nomexp {in}{optional} 
     33; trois lettres designant le nom de l'experience 
     34; 
     35; 
     36; @keyword ANOM {in} 
     37; type du fichier vairmer par rapport auquel on doit calculer 
    3738;             l'anomalie ('EX','AN','SE','MO','') 
    3839; 
    39 ; @keyword ECRIT {in} permet d'imprimer tous les noms vairmer que contient le fichier. 
     40; @keyword ECRIT {in} 
     41; permet d'imprimer tous les noms vairmer que contient le fichier. 
    4042; ds ce cas en input on met seulement 'vo' ou 'so' la fonction retourne le 
    4143; nombre de fichiers lus. 
    … …  
    4345; @keyword BOITE 
    4446; 
    45 ; @keyword EXPANOM {in} si on calcule l'anom par rapport a une exper 
    46 ;       differente 
    47 ; 
    48 ; @keyword FILENAME string pour passer directement le nom du champ sans 
     47; @keyword EXPANOM {in} 
     48; si on calcule l'anom par rapport a une exper differente 
     49; 
     50; @keyword FILENAME 
     51; string pour passer directement le nom du champ sans 
    4952;       utiliser les inputs: nom_Vairmer',date,'nom_experience'. Rq si 
    5053;       ces inputs sont qd meme donnes ils ne sont pas modifies par 
    5154;       filename. 
    5255; 
    53 ; @keyword GRID lorsque ce mot clef est active, lec retourne la liste 
     56; @keyword GRID 
     57; lorsque ce mot clef est active, lec retourne la liste 
    5458;       des types de grilles (T, U...) auxquelles se rapportent les 
    5559;       variables. ds ce cas en input on met seulement 'vo' ou 'so'. 
    5660; 
    57 ; @keyword NAME lorsque ce mot clef est active, lec retourne la liste 
     61; @keyword NAME 
     62; lorsque ce mot clef est active, lec retourne la liste 
    5863;       des noms des variables. ds ce cas en input on met seulement 
    5964;       'vo' ou 'so'. 
    6065; 
    61 ; @keyword TOUT  oblige lec a lire le champ sur tout le domaine qui a 
     66; @keyword TOUT 
     67; oblige lec a lire le champ sur tout le domaine qui a 
    6268;       etait selectionne pour la cession en cours (jpi,jpj,jpk) 
    6369; 
    64 ; @returns un tableau 2 ou 3d. sans le mot cle /TOUT, sa taille est 
     70; @returns 
     71; un tableau 2 ou 3d. sans le mot cle /TOUT, sa taille est 
    6572; celle du sous domaine definit par domdef (nx,ny,nz). avec /TOUT le 
    6673; champ a la taille du  domaine qui a etait selectionne pour la 
    6774; cession en cours (jpi,jpj,jpk). 
    6875; pour les sous domaines cf: 
    69 ;        http://www.ipsl.jussieu.fr/~smlod/sousdomaine.html 
     76;        <a href="http://www.ipsl.jussieu.fr/~smlod/sousdomaine.html"> 
    7077; Retourne -1 en cas d'erreur. 
    7178; 
    72 ; @uses common.pro isnumber.pro fivardate.pro 
     79; @uses 
     80; common.pro 
     81; isnumber.pro 
     82; fivardate.pro 
    7383; 
    7484; @history 
    … …  
    8393;                       2/99 
    8494; 
    85 ; @version  
     95; @version 
    8696; $Id$ 
    87 ; 
    88 ;;- 
    89 ;-------------------------------------------------------------- 
    90 ;-------------------------------------------------------------- 
    91 ;-------------------------------------------------------------- 
     97;- 
     98; 
    9299function lec, nomchamp,date,nomexp,ECRIT=ecrit,ANOM=anom, BOITE = boite,EXPANOM=expanom, TOUT = tout, GRID = grid, NAME = name, filename = FILENAME 
    93100; 

  • trunk/SRC/Obsolete/lect.pro

    r157 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; 
    … …  
    1411; @obsolete 
    1512; 
    16 ; @categories  
     13; @categories 
    1714; Graphics, Reading 
    1815; 
    … …  
    4744; par defaut la meme que nomexp 
    4845; 
    49 ; @uses common vraidate juldate 
    50 ; 
    51 ; @history Jerome Vialard (jv\@lodyc.jussieu.fr) 
     46; @uses 
     47; common 
     48; vraidate 
     49; juldate 
     50; 
     51; @history 
     52; Jerome Vialard (jv\@lodyc.jussieu.fr) 
    5253; 2/7/98 
    5354; 
    54 ; @version $Id$ 
     55; @version 
     56; $Id$ 
    5557; 
    5658;- 
    57 ;-------------------------------------------------------------- 
    58 ;-------------------------------------------------------------- 
    59 ;-------------------------------------------------------------- 
     59; 
    6060;                  1      2      3    4      5 
    6161function lect, nomchamp,date1,date2,nomexp,direc,BOITE=boite, $ 

  • trunk/SRC/Obsolete/meshlec.pro

    r226 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; 
    6 ; @file_comments  
     3; @file_comments 
    74; lecture du mask des sorties d'OPA. les sources se trouvent ds les 
    85; repertoires sur maia du type: 
    … …  
    1411; IDL> meshmask[,' nomfich'] 
    1512; 
    16 ; @param nomfich {in}{required} string, c''est le nom du fichier a lire. Par defaut, c''est meshmask. 
    17 ; 
    18 ; @keyword GLAMBOUNDARY {in} un vecteur de 2 elements specifaint le min et le 
     13; @param nomfich {in}{required} 
     14; string, c''est le nom du fichier a lire. Par defaut, c''est meshmask. 
     15; 
     16; @keyword GLAMBOUNDARY {in} 
     17; un vecteur de 2 elements specifaint le min et le 
    1918; max qui doivent etre imposes en longitude (obligatoire si le 
    2019; tableau depasse 360 degres) 
    2120; 
    22 ; @keyword pasblabla {in} pour suprimer les blablas 
    23 ; 
    24 ; @keyword DOUBLE {in} pour forcer a lire les tableaux en double 
     21; @keyword pasblabla {in} 
     22; pour supprimer les blablas 
     23; 
     24; @keyword DOUBLE {in} 
     25; pour forcer a lire les tableaux en double 
    2526;        precision. ce Mot clef est maintenant active 
    2627;        automatiquement. 
    … …  
    2829; @keyword GETDIMENSIONS 
    2930; 
    30 ; @uses common.pro 
     31; @uses 
     32; common.pro 
    3133; 
    3234; @restrictions 
    … …  
    3638;  possible les mettre toutes a -1 et meshlec les calculera. 
    3739; 
    38 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
     40; @history 
     41; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    3942;     Marina Levy : lecture en double precision (cas calcul sur shine) 
    4043; 
    41 ; @version $Id$ 
     44; @version 
     45; $Id$ 
    4246; 
    4347;- 
    44 ;------------------------------------------------------------ 
    45 ;------------------------------------------------------------ 
    46 ;------------------------------------------------------------ 
    47 pro meshlec, nomfich, PASBLABLA = pasblabla,DOUBLE = double, GLAMBOUNDARY = glamboundary, GETDIMENSIONS = GETDIMENSIONS 
     48; 
     49PRO meshlec, nomfich, PASBLABLA = pasblabla,DOUBLE = double, GLAMBOUNDARY = glamboundary, GETDIMENSIONS = GETDIMENSIONS 
    4850; 
    4951  compile_opt idl2, strictarrsubs, obsolete 

  • trunk/SRC/Obsolete/ncdf_meshlec.pro

    r134 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    5 ; @file_comments  
    6 ; use ncdf_meshread instead... 
     2; @file_comments 
     3; use <pro>ncdf_meshread</pro> instead 
    74; 
    85; @obsolete 
    … …  
    107; @param filename 
    118; 
    12 ; @keyword _EXTRA used to pass your keywords 
     9; @keyword _EXTRA 
     10; Used to pass keywords 
    1311; 
    1412; @history 
    1513; Aug. 2005, Sebastien Masson: switch to ncdf_meshread 
    1614; 
    17 ; @version $Id$ 
     15; @version 
     16; $Id$ 
    1817; 
    1918;- 
    20 ;------------------------------------------------------------ 
    21 ;------------------------------------------------------------ 
    22 ;------------------------------------------------------------ 
     19; 
    2320PRO ncdf_meshlec, filename, _EXTRA = ex 
    24 ; 
    2521; 
    2622  compile_opt idl2, strictarrsubs, obsolete 

  • trunk/SRC/Obsolete/nlec.pro

    r226 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    5 ; @file_comments  
     2; @file_comments 
    63; lit les fichiers Net-Cdf de l'experience TOTEM/ECMWF qui sont sur 
    74; maia: /u/rech/eee/reee217/TOTEM/REF/OUTPUTS 
    … …  
    96; @obsolete 
    107; 
    11 ; @param name {in}{required} nom du tableau contenant le champ que l'on veut (le 
     8; @param name {in}{required} 
     9; nom du tableau contenant le champ que l'on veut (le 
    1210; trouver avec ncdflec,fichier,/var 
    1311; 
    14 ; @param debut {in} nombres de 6 ou 8 chiffres (anneemoisjour, par ex:19980507) 
    15 ; @param fin {in} nombres de 6 ou 8 chiffres (anneemoisjour, par ex:19980507) 
    16 ; @param nomexperience {in}{optional} trois lettres designant le nom de l'experience 
    17 ; 
    18 ; 
    19 ; @keyword BOITE boite sur laquelle integrer (par defaut tt le domaine) 
    20 ; 
    21 ; @keyword DIREC 'x' 'y' 'z' 'xy' 'xz' 'yz' 'xyz' directions selon lesquelles 
    22 ;             effectuer les moyennes (si rien n'est donne on n'effectue pas de moyenne) 
    23 ; 
    24 ; @keyword GRILLE impose la grille a laquelle est rapporte le champ. rq permet 
     12; @param debut {in} 
     13; nombres de 6 ou 8 chiffres (anneemoisjour, par ex:19980507) 
     14; 
     15; @param fin {in} 
     16; nombres de 6 ou 8 chiffres (anneemoisjour, par ex:19980507) 
     17; 
     18; @param nomexperience {in}{optional} 
     19; trois lettres designant le nom de l'experience 
     20; 
     21; @keyword BOITE 
     22; boite sur laquelle integrer (par defaut tt le domaine) 
     23; 
     24; @keyword DIREC 
     25; 'x' 'y' 'z' 'xy' 'xz' 'yz' 'xyz' directions selon lesquelles 
     26; effectuer les moyennes (si rien n'est donne on n'effectue pas de moyenne) 
     27; 
     28; @keyword GRILLE 
     29; impose la grille a laquelle est rapporte le champ. rq permet 
    2530; d'aller plus vite ds la lecture 
    2631; 
    27 ; @keyword TOUT oblige a lire le tableau entier en non pas celui reduit a domdef 
     32; @keyword TOUT 
     33; oblige a lire le tableau entier en non pas celui reduit a domdef 
     34; 
    2835; @keyword STRUCTURE 
     36; 
    2937; @keyword SEUILMIN 
     38; 
    3039; @keyword SEUILMAX 
     40; 
    3141; @keyword NAN 
    3242; 
    33 ; @keyword _EXTRA used to pass your keywords 
    34 ; 
    35 ; @uses common.pro vraidate juldate  nlec5j nlecserie 
    36 ; 
    37 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
     43; @keyword _EXTRA 
     44; Used to pass keywords 
     45; 
     46; @uses 
     47; common.pro 
     48; vraidate 
     49; juldate 
     50; nlec5j 
     51; nlecserie 
     52; 
     53; @history 
     54; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    3855;   14/8/98 
    3956; 
    40 ; @version $Id$ 
     57; @version 
     58; $Id$ 
    4159; 
    4260;- 
    … …  
    4765;REF.07.790101.grid.W.nc 
    4866;------------------------------------------------------------ 
    49 ;------------------------------------------------------------ 
     67; 
    5068function nlec,name,debut,fin,nomexperience,BOITE=boite,DIREC=direc,GRILLE=grille,TOUT=tout $ 
    5169              , STRUCTURE = structure, SEUILMIN = seuilmin, SEUILMAX = seuilmax, NAN = nan $ 

  • trunk/SRC/Obsolete/nlec5j.pro

    r157 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    5 ; @file_comments  
     2; @file_comments 
    63; lit les fichiers Net-Cdf de l'experience TOTEM/ECMWF qui 
    74; contiennent les sorties a 5j regroupees par type de grille par 
    … …  
    118; @obsolete 
    129; 
    13 ; @categories  
     10; @categories 
    1411; Reading 
    1512; 
    … …  
    1714; IDL> res=nlec5j( nom, numsortie, nbretps) 
    1815; 
    19 ; @param nom {in}{required} nom du tableau contenant le champ que l'on veut (le 
     16; @param nom {in}{required} 
     17; nom du tableau contenant le champ que l'on veut (le 
    2018; trouver avec ncdflec,fichier,/var 
    2119; 
    … …  
    2422; fichier (compte a partir de 1) a partir de year 
    2523; 
    26 ; @param nbretps {in}{required} nombre de pas de temps a extraire 
    27 ; 
    28 ; @keyword BOITE boite sur laquelle integrer (par defaut tt le domaine) 
    29 ; 
    30 ; @keyword GRILLE impose la grille a laquelle est rapporte le champ. rq permet 
     24; @param nbretps {in}{required} 
     25; nombre de pas de temps a extraire 
     26; 
     27; @keyword BOITE 
     28; boite sur laquelle integrer (par defaut tt le domaine) 
     29; 
     30; @keyword GRILLE 
     31; impose la grille a laquelle est rapporte le champ. rq permet 
    3132; d'aller plus vite ds la lecture 
    3233; 
    33 ; @keyword TOUT oblige a lire le tableau entier en non pas celui reduit a domdef 
    34 ; 
    35 ; @keyword _EXTRA used to pass your keywords 
     34; @keyword TOUT 
     35; oblige a lire le tableau entier en non pas celui reduit a domdef 
     36; 
     37; @keyword _EXTRA 
     38; Used to pass keywords 
    3639 
    37 ; @returns tableau 2d (qd on ne demande pas de serie) ou 3d ou 4d ds le cas dune serie 
    38 ; 
    39 ; @uses common.pro 
    40 ; 
    41 ; @restrictions appele par nlec 
    42 ; 
    43 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    44 ; 
    45 ; 
    46 ; @version $Id$ 
     40; @returns 
     41; tableau 2d (qd on ne demande pas de serie) ou 3d ou 4d ds le cas dune serie 
     42; 
     43; @uses 
     44; common.pro 
     45; 
     46; @restrictions 
     47; appele par <pro>nlec</pro> 
     48; 
     49; @history 
     50; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
     51; 
     52; @version 
     53; $Id$ 
    4754; 
    4855;- 
    49 ;------------------------------------------------------------ 
    50 ;------------------------------------------------------------ 
    51 ;------------------------------------------------------------ 
     56; 
    5257function nlec5j, nom, numsortie, nbretps,BOITE = boite, GRILLE=grille,TOUT=tout, _EXTRA = ex 
    5358; 

  • trunk/SRC/Obsolete/nlecan.pro

    r157 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; @file_comments 
    … …  
    1411; IDL> res=nlecan(nom, numsortie79, nbretps) 
    1512; 
    16 ; @param nom {in}{required} nom du tableau contenant le champ que l'on veut (le 
     13; @param nom {in}{required}  
     14; nom du tableau contenant le champ que l'on veut (le 
    1715; trouver avec ncdflec,fichier,/var 
    1816; 
    19 ; @param numsortie79 {in}{required} le numero du pas de temps que l'on veut sortir du 
     17; @param numsortie79 {in}{required}  
     18; le numero du pas de temps que l'on veut sortir du 
    2019; fichier (compte a partir de 1) a partir de 79 
    2120; 
    22 ; @param nbretps {in}{required} nombre de pas de temps a extraire 
     21; @param nbretps {in}{required}  
     22; nombre de pas de temps a extraire 
    2323; 
    24 ; @keyword BOITE  boite sur laquelle integrer (par defaut tt le domaine) 
     24; @keyword BOITE   
     25; boite sur laquelle integrer (par defaut tt le domaine) 
    2526; 
    26 ; @keyword GRILLE impose la grille a laquelle est rapporte le champ. rq permet 
     27; @keyword GRILLE  
     28; impose la grille a laquelle est rapporte le champ. rq permet 
    2729; d'aller plus vite ds la lecture 
    2830; 
    29 ; @keyword TOUT oblige a lire le tableau entier en non pas celui reduit a domdef 
     31; @keyword TOUT  
     32; oblige a lire le tableau entier en non pas celui reduit a domdef 
    3033; 
    31 ; @keyword _EXTRA used to pass your keywords 
     34; @keyword _EXTRA  
     35; Used to pass keywords 
    3236; 
    33 ; @returns tableau 2d (qd la serie ne fait que 1 pas de temps) ou 
     37; @returns  
     38; tableau 2d (qd la serie ne fait que 1 pas de temps) ou 
    3439; 3d (valable ds 1 premier tps que pour les tableaux 2d) 
    3540; 
    36 ; @uses common.pro 
     41; @uses  
     42; common.pro 
    3743; 
    38 ; @restrictions appele par nlec 
     44; @restrictions  
     45; appele par <pro>nlec</pro> 
    3946; 
    40 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
     47; @history  
     48; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    4149; 
    42 ; @version $Id$ 
     50; @version  
     51; $Id$ 
    4352; 
    4453;- 
    4554;------------------------------------------------------------ 
    46 ;------------------------------------------------------------ 
    4755;REF.moyenne.annuelle.grid.T.nc 
    4856;------------------------------------------------------------ 
     57; 
    4958function nlecan, nom, numsortie79, nbretps,BOITE = boite,GRILLE=grille,TOUT=tout, _EXTRA = ex 
    5059; 

  • trunk/SRC/Obsolete/nlecmois.pro

    r134 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; 
    … …  
    118; @obsolete 
    129; 
    13 ; @keyword BOITE boite sur laquelle integrer (par defaut tt le domaine) 
     10; @keyword BOITE 
     11; boite sur laquelle integrer (par defaut tt le domaine) 
    1412; 
    15 ; @keyword GRILLE impose la grille a laquelle est rapporte le champ. rq permet 
     13; @keyword GRILLE 
     14; impose la grille a laquelle est rapporte le champ. rq permet 
    1615; d'aller plus vite ds la lecture 
    1716; 
    18 ; @keyword TOUT oblige a lire le tableau entier en non pas celui reduit a domdef 
     17; @keyword TOUT 
     18; oblige a lire le tableau entier en non pas celui reduit a domdef 
    1919; 
    20 ; @keyword _EXTRA used to pass your keywords 
     20; @keyword _EXTRA 
     21; Used to pass keywords 
    2122; 
    22 ; @uses common.pro 
     23; @uses 
     24; common.pro 
    2325; 
    24 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
     26; @history 
     27; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    2528; 
    26 ; @version $Id$ 
     29; @version 
     30; $Id$ 
    2731; 
    2832;- 
    2933;------------------------------------------------------------ 
    30 ;------------------------------------------------------------ 
    3134;REF.moyenne.mensuelle.79-81.grid.T.nc 
    3235;------------------------------------------------------------ 
     36; 
    3337function nlecmois,nom,numsortie79,nbretps ,BOITE=boite,GRILLE=grille,TOUT=tout, _EXTRA = ex 
    3438; 

  • trunk/SRC/Obsolete/nlecsaison.pro

    r157 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; @file_comments 
    … …  
    96; @obsolete 
    107; 
    11 ; @categories  
     8; @categories 
    129; Reading 
    1310; 
    … …  
    1512; IDL> res=nlecsaison(nom, numsortie79, nbretps) 
    1613; 
    17 ; @param nom {in}{required} nom du tableau contenant le champ que l'on veut (le 
     14; @param nom {in}{required} 
     15; nom du tableau contenant le champ que l'on veut (le 
    1816; trouver avec ncdflec,fichier,/var 
    1917; 
    20 ; @param numsortie79 {in}{required} le numero du pas de temps que l'on veut sortir du 
     18; @param numsortie79 {in}{required} 
     19; le numero du pas de temps que l'on veut sortir du 
    2120; fichier (compte a partir de 1) a partir de 79 
    2221; 
    23 ; @param nbretps {in}{required} nombre de pas de temps a extraire 
     22; @param nbretps {in}{required} 
     23; nombre de pas de temps a extraire 
    2424; 
    25 ; @keyword BOITE boite sur laquelle integrer (par defaut tt le domaine) 
     25; @keyword BOITE 
     26; boite sur laquelle integrer (par defaut tt le domaine) 
    2627; 
    27 ; @keyword GRILLE impose la grille a laquelle est rapporte le champ. rq permet 
     28; @keyword GRILLE 
     29; impose la grille a laquelle est rapporte le champ. rq permet 
    2830; d'aller plus vite ds la lecture 
    2931; 
    30 ; @keyword TOUT oblige a lire le tableau entier en non pas celui reduit a domdef 
     32; @keyword TOUT 
     33; oblige a lire le tableau entier en non pas celui reduit a domdef 
    3134; 
    32 ; @keyword _EXTRA used to pass your keywords 
     35; @keyword _EXTRA 
     36; Used to pass keywords 
    3337; 
    34 ; @returns tableau 2d (qd la serie ne fait que 1 pas de temps) ou 
     38; @returns 
     39; tableau 2d (qd la serie ne fait que 1 pas de temps) ou 
    3540; 3d (valable ds 1 premier tps que pour les tableaux 2d) 
    3641; 
    37 ; @uses common.pro 
     42; @uses 
     43; common.pro 
    3844; 
    39 ; @restrictions appele par nlec 
     45; @restrictions 
     46; appele par <pro>nlec</.pro> 
    4047; 
    41 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
     48; @history 
     49; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    4250; 
    43 ; 
    44 ; @version $Id$ 
     51; @version 
     52; $Id$ 
    4553; 
    4654;- 
    … …  
    4957;------------------------------------------------------------ 
    5058;------------------------------------------------------------ 
     59; 
    5160function nlecsaison, nom, numsortie79, nbretps,BOITE = boite, GRILLE=grille,TOUT=tout, _EXTRA = ex 
    5261; 

  • trunk/SRC/Obsolete/nlecserie.pro

    r157 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; @file_comments 
    … …  
    96; @obsolete 
    107; 
    11 ; @categories  
     8; @categories 
    129; Reading 
    1310; 
    … …  
    1512; IDL> res=nlecserie(nom, date1, date2) 
    1613; 
    17 ; @param nom {in}{required} nom du tableau contenant le champ que l'on veut (le 
     14; @param nom {in}{required} 
     15; nom du tableau contenant le champ que l'on veut (le 
    1816; trouver avec ncdflec,fichier,/var 
    1917; 
    20 ; @param date1 {in}{required}  
    21 ; @param date2 {in}{required}  
     18; @param date1 {in}{required} 
     19; @param date2 {in}{required} 
    2220; les dates vermairs qui delimitent la serie temporelle 
    2321; 
    24 ; @keyword BOITE boite sur laquelle integrer (par defaut tt le domaine) 
     22; @keyword BOITE 
     23; boite sur laquelle integrer (par defaut tt le domaine) 
    2524; 
    26 ; @keyword GRILLE impose la grille a laquelle est rapporte le champ. rq permet 
     25; @keyword GRILLE 
     26; impose la grille a laquelle est rapporte le champ. rq permet 
    2727; d'aller plus vite ds la lecture 
    2828; 
    29 ; @keyword TOUT oblige a lire le tableau entier en non pas celui reduit a domdef 
     29; @keyword TOUT 
     30; oblige a lire le tableau entier en non pas celui reduit a domdef 
    3031; 
    31 ; @keyword _EXTRA used to pass your keywords 
     32; @keyword _EXTRA 
     33; Used to pass keywords 
    3234; 
    33 ; @returns tableau 2d (qd la serie ne fait que 1 pas de temps) ou 
     35; @returns 
     36; tableau 2d (qd la serie ne fait que 1 pas de temps) ou 
    3437; 3d (valable ds 1 premier tps que pour les tableaux 2d) 
    3538; 
    36 ; @uses common.pro 
     39; @uses 
     40; common.pro 
    3741; 
    38 ; @restrictions appele par nlec 
     42; @restrictions 
     43; appele par <pro>nlec</pro> 
    3944; 
    40 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
     45; @history 
     46; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    4147; 
    42 ; @version $Id$ 
     48; @version 
     49; $Id$ 
    4350; 
    4451;- 
    … …  
    4754;REF.sss.grid.T.nc 
    4855;------------------------------------------------------------ 
     56; 
    4957function nlecserie, nom, date1, date2,BOITE = boite, GRILLE=grille,TOUT=tout, _EXTRA = ex 
    5058; 

  • trunk/SRC/Obsolete/strrepl.pro

    r192 r231  
    1 ;------------------------------------------------------------- 
    21;+ 
    32; 
    4 ; @file_comments  
     3; @file_comments 
    54; replace one (or more) character(s)/string(s) in a string 
    6 ; --- OBSOLETE --- you should better use strsed.pro 
     5; --- OBSOLETE --- you should better use <pro>strsed</pro> 
    76; 
    87; @categories 
    … …  
    2120; another string 
    2221; 
    23 ; @restrictions  
     22; @restrictions 
    2423; Known shortcoming: if index is an array, it must contain all 
    2524; valid elements (only the first entry is checked). 
    … …  
    4948; @history 
    5049;        mgs, 02 Jun 1998: VERSION 1.00 
    51 ;        sebastien Masson (smlod\@ipsl.jussieu.fr) 
    52 ; 
    53 ; @version 
    54 ; $Id$ 
    55 ; 
    56 ;- 
    5750; Copyright (C) 1998, Martin Schultz, Harvard University 
    5851; This software is provided as is without any warranty 
    … …  
    6457; Bugs and comments should be directed to mgs@io.harvard.edu 
    6558; with subject "IDL routine strrepl" 
    66 ;------------------------------------------------------------- 
    67  
    68  
     59; 
     60;        sebastien Masson (smlod\@ipsl.jussieu.fr) 
     61; 
     62; @version 
     63; $Id$ 
     64; 
     65;- 
     66; 
    6967function strrepl,str,arg2,rchar 
    7068; 
    7169  compile_opt idl2, strictarrsubs, obsolete 
    7270; 
    73     
     71 
    7472   if (n_elements(str) eq 0) then return,'' 
    75     
     73 
    7674                                ; convert strign and replace character to byte 
    7775   BStr = byte(str) 
    … …  
    110108                                ; return result as string 
    111109   return,string(BStr) 
    112     
     110 
    113111end 

  • trunk/SRC/Obsolete/vairdate.pro

    r134 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; 
    … …  
    85; sets month, day and year to the corresp values 
    96; 
    10 ; you better use jul2date 
     7; you better use <pro>jul2date</pro> 
    118; 
    129; @obsolete 
    … …  
    1512; IDL> vdate = vairdate(1755087) 
    1613; 
    17 ; @param jdate {in}{required} date en jours juliens 
     14; @param jdate {in}{required} 
     15; date en jours juliens 
    1816; 
    19 ; @keyword MENSUEL a activer si on veut pour  que les dates dont le jour est 
     17; @keyword MENSUEL 
     18; a activer si on veut pour  que les dates dont le jour est 
    2019;    15 deviennent avec un jour egale a 0. par ex: 
    2120;    19990115   ->   19990100 
    2221; 
    23 ; @keyword ANNUEL a activer si on veut pour  que les dates dont le mois est 
     22; @keyword ANNUEL 
     23; a activer si on veut pour  que les dates dont le mois est 
    2424;    6 et dont le jour est 1 deviennent avec un mois et jour egale a 
    2525;    0. par ex: 
    2626;    19990601   ->   19990000 
    2727; 
    28 ; @keyword _EXTRA used to pass your keywords 
     28; @keyword _EXTRA 
     29; Used to pass keywords 
    2930; 
    30 ; @returns vdate date vairmer 
    31 ;   plus year, month et day 
     31; @returns 
     32; vdate date vairmer plus year, month et day 
    3233; 
    33 ; @uses  common 
     34; @uses 
     35; common 
    3436; 
    35 ; 
    36 ; @history  Jerome Vialard  (jv\@lodyc.jussieu.fr) 
     37; @history 
     38; Jerome Vialard  (jv\@lodyc.jussieu.fr) 
    3739;   2/7/98 
    3840;                13/9/1999, Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    … …  
    4143;                       tableaux 
    4244; 
    43 ; @version $Id$ 
     45; @version 
     46; $Id$ 
    4447; 
    4548;- 
    46 ;------------------------------------------------------------ 
    47 ;------------------------------------------------------------ 
    48 ;------------------------------------------------------------ 
     49; 
    4950function vairdate, jdate,  ANNUEL = annuel, MENSUEL = mensuel, _EXTRA = ex 
    5051; 
    … …  
    5253; 
    5354@common 
    54 ;------------------------------------------------------------ 
    5555   caldat, jdate, month, day, year, _EXTRA = ex 
    5656   index = where(year eq -1) 

  • trunk/SRC/Obsolete/vraidate.pro

    r134 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; @file_comments 
    … …  
    85; @obsolete 
    96; 
    10 ; @param date {in}{required} une date du type yyyymmdd 
     7; @param date {in}{required} 
     8; une date du type yyyymmdd 
    119; 
    12 ; @keyword GRADS if  1 le year le 49 then year = 2000+year 
    13 ;               if 50 le year le 99 then year = 1900+year 
     10; @keyword GRADS 
     11; if  1 le year le 49 then year = 2000+year 
     12; if 50 le year le 99 then year = 1900+year 
    1413; 
    15 ; @keyword _EXTRA used to pass your keywords 
     14; @keyword _EXTRA 
     15; Used to pass keywords 
    1616; 
    17 ; @returns une date vairmer du type yyyymmdd 
     17; @returns 
     18; une date vairmer du type yyyymmdd 
    1819; si year est nulle ou egale a -1 ne change rien 
    1920; 
    … …  
    2324; donne 19980703 qui est un long 
    2425; 
    25 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
     26; @history 
     27; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    2628;   3/7/98 
    2729; remove automatic change from year 1 to 1901... Aug 2004 
    2830; 
    29 ; @version $Id$ 
     31; @version 
     32; $Id$ 
    3033; 
    3134;- 
    32 ;------------------------------------------------------------ 
    33 ;------------------------------------------------------------ 
    34 ;------------------------------------------------------------ 
     35; 
    3536function vraidate, date, GRADS = grads, _EXTRA = ex 
    36 ;------------------------------------------------------------ 
    3737; 
    3838  compile_opt idl2, strictarrsubs, obsolete 

  • trunk/SRC/Obsolete/zeroun.pro

    r157 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    5 ; @file_comments  
     2; 
     3; @file_comments 
    64; Send back a vector or a matrix constituate of 0 and 1 in alternation 
    75; 
    8 ; you better use zero_one 
     6; you better use <pro>zero_one</pro> 
    97; 
    108; @obsolete 
    119; 
    12 ; @categories  
     10; @categories 
    1311; Function, Matrix 
    1412; 
    15 ; @param n1 {in}{required} number of elements in the first dimension 
    16 ; @param n2 {in}{required} numbre of elements in the second dimension 
     13; @param n1 {in}{required} 
     14; number of elements in the first dimension 
    1715; 
    18 ; @returns resultat 
    19 ;  
    20 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
     16; @param n2 {in}{required} 
     17; number of elements in the second dimension 
     18; 
     19; @returns 
     20; resultat 
     21; 
     22; @history 
     23; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    2124;                       1/12/98 
    2225; 
    23 ; @version $Id$ 
     26; @version 
     27; $Id$ 
    2428; 
    2529;- 
    26 ;------------------------------------------------------------ 
    27 ;------------------------------------------------------------ 
    28 ;------------------------------------------------------------ 
    29 function zeroun, n1,n2 
     30; 
     31FUNCTION zeroun, n1,n2 
    3032; 
    3133  compile_opt idl2, strictarrsubs 
Note: See TracChangeset for help on using the changeset viewer.