Changeset 97 for trunk/SRC/Obsolete
- Timestamp:
- 06/09/06 17:18:59 (18 years ago)
- Location:
- trunk/SRC/Obsolete
- Files:
-
- 19 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Obsolete/common.pro
r33 r97 1 ; @obsolete 1 2 @all_cm -
trunk/SRC/Obsolete/cp.pro
r11 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME: cp 5 ; @file_comments copy files 6 ; @obsolete 7 ; @file_comments file_copy should be used instead... 6 8 ; 7 ; PURPOSE: copy files 8 ; obsolete, file_copy should be used instead... 9 ; 10 ; MODIFICATION HISTORY: 9 ; @history 11 10 ; June 2005: Sebastien Masson => obsolete routine 12 11 ; -
trunk/SRC/Obsolete/ficdate.pro
r44 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME: ficdate 6 ; 7 ; PURPOSE: sets s_fichier to name of the vairmer file associated 5 ; @file_comments sets s_fichier to name of the vairmer file associated 8 6 ; to the given date in vairmer format ( yymmdd ) 9 7 ; 10 ; CATEGORY:8 ; @obsolete 11 9 ; 12 ; CALLING SEQUENCE: fic = ficdate(930124) 10 ; @param vdate {in} date vairmer ex:930124 11 ; @param dim {in} 'so' ou 'vo' par defaut so est choisi 12 ; @param nomexp {in} nom de l'experience en trois lettres par defaut prefix 13 13 ; 14 ; INPUTS:vdate:date vairmer ex:930124 15 ; dim:'so' ou 'vo' par defaut so est choisi 16 ; nomexp:nomde l'experience en trois lettres par defaut prefix 14 ; @returns le nom du fichier vairmer (depuis iodir) 17 15 ; 18 ; KEYWORD PARAMETERS:16 ; @uses common.pro 19 17 ; 20 ; OUTPUTS:le nom du fichier vairmer (depuis iodir) 18 ; @example 19 ; IDL> fic = ficdate(930124) 21 20 ; 22 ; COMMON BLOCKS: 23 ; common.pro 24 ; 25 ; SIDE EFFECTS: 26 ; 27 ; RESTRICTIONS: 28 ; 29 ; EXAMPLE: 30 ; 31 ; MODIFICATION HISTORY: Jerome Vialard (jv@lodyc.jussieu.fr) 32 ; 1/7/98 21 ; @history Jerome Vialard (jv\@lodyc.jussieu.fr) 22 ;1/7/98 33 23 ;- 34 24 ;------------------------------------------------------------ -
trunk/SRC/Obsolete/fictype.pro
r44 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME: fictype 5 ; @file_comments gives fictype ('DA' 'MO' 'AN' 'SE' 'EX') corresponding 6 ; to the given date in vairmer format ( yymmdd ) 7 ; @uses common.pro 6 8 ; 7 ; PURPOSE: gives fictype ('DA' 'MO' 'AN' 'SE' 'EX') corresponding8 ; to the given date in vairmer format ( yymmdd)9 ; @exammples 10 ; IDL> fictype = fictype(930124) 9 11 ; 10 ; CATEGORY: 11 ; 12 ; CALLING SEQUENCE: fictype = fictype(930124) 13 ; 14 ; INPUTS: 15 ; 16 ; KEYWORD PARAMETERS: 17 ; 18 ; OUTPUTS: 19 ; 20 ; COMMON BLOCKS: 21 ; common.pro 22 ; 23 ; SIDE EFFECTS: 24 ; 25 ; RESTRICTIONS: 26 ; 27 ; EXAMPLE: 28 ; 29 ; MODIFICATION HISTORY: Jerome Vialard (jv@lodyc.jussieu.fr) 30 ; 2/7/98 12 ; @history Jerome Vialard (jv\@lodyc.jussieu.fr) 13 ; 2/7/98 31 14 ;- 32 15 ;------------------------------------------------------------ -
trunk/SRC/Obsolete/imprime.pro
r16 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME:6 ; imprime5 ; @file_comments use printps instead... 6 ; @obsolete 7 7 ; 8 ; PURPOSE: 9 ; obsolete, use printps instead... 10 ; 11 ; MODIFICATION HISTORY: 8 ; @history 12 9 ; June 2005: Sebastien Masson, english version 13 10 ;- -
trunk/SRC/Obsolete/jourdsmois.pro
r9 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME:jourdsmois 5 ; @file_comments used daysinmonth instead... 6 ; @obsolete 6 7 ; 7 ; PURPOSE: 8 ; obsolete, used daysinmonth instead... 9 ; 10 ; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr) 8 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 9 ; June 2005: Sebastien Masson, english version 11 10 ;- 12 ; June 2005: Sebastien Masson, english version13 11 ;------------------------------------------------------------ 14 12 ;------------------------------------------------------------ -
trunk/SRC/Obsolete/juldate.pro
r9 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME: juldate 5 ; @file_comments you better use date2jul 6 ; @obsolete 6 7 ; 7 ; OBSOLETE: you better use date2jul 8 ; 9 ; PURPOSE: gives julian date equivalent of a date in vairmer 8 ; @file_comments gives julian date equivalent of a date in vairmer 10 9 ; ( yymmdd or yyyymmdd ) format 11 10 ; sets month, day and year to the corresp values 12 11 ; 13 ; CATEGORY: bidouilles dates12 ; @categories calendar 14 13 ; 15 ; CALLING SEQUENCE: date = juldate(930124)14 ; @param vvdate {in} date de la forme yymmdd ou yyyymmdd 16 15 ; 17 ; INPUTS:date de la forme yymmdd ou yyyymmdd16 ; @uses common.pro vraidate 18 17 ; 19 ; KEYWORD PARAMETERS: 20 ; 21 ; /VRAIDATE: pour ne pas transformer l''annnee 01 en 1901 22 ; /GRADS: if 1 le year le 49 then year = 2000+year 23 ; if 50 le year le 99 then year = 1900+year 24 ; 25 ; OUTPUTS:date en jour julien 26 ; 27 ; COMONTHON BLOCKS: 28 ; common.pro vraidate 29 ; 30 ; SIDE EFFECTS: 18 ; @returns date en jour julien 31 19 ; l'annee 0 n'existant pas, qd year est nulle on calcule le 32 20 ; jour julien de l'annee -1. … … 35 23 ; Attention, les variables globales year, month day sont attribuees 36 24 ; 37 ; MODIFICATION HISTORY: Jerome Vialard (jv@lodyc.jussieu.fr) 38 ; 2/7/98 25 ; @examples 26 ; IDL> date = juldate(930124) 27 ; 28 ; @history Jerome Vialard (jv\@lodyc.jussieu.fr) 29 ; 2/7/98 39 30 ;- 40 31 ;------------------------------------------------------------ … … 63 54 end 64 55 ;------------------------------------------------------------ 65 -
trunk/SRC/Obsolete/lec.pro
r44 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME:lec 6 ; 7 ; 8 ; PURPOSE: 5 ; @file_comments 9 6 ; lit les fichiers Vairmer en sort: 10 ; un tableau 2d ou 3d en fonction de nomchamp qui est le nom 11 ; du champ a extaire (2d s'il commence par SO et 3d s'il commence par VO) 12 ; cette fonction modifie aussi les variables globales: 13 ; varname: trois lettres: nom de l'experience 14 ; vargrid: nom de la grille 15 ; vardate: date (yy)yymmdd 16 ; varexp: nom Vairmer du champ a tarcer 17 ; 18 ; CATEGORY: 19 ; Graphics, lecture de fichier Vaimer 20 ; 21 ; CALLING SEQUENCE: 22 ; resultat=lec('nom_Vairmer'[,date[,'nom_experience']]) 23 ; 24 ; INPUTS: 25 ; nom_Vairmer: 2 choix possibles: 7 ;un tableau 2d ou 3d en fonction de nomchamp qui est le nom 8 ;du champ a extaire (2d s'il commence par SO et 3d s'il commence par VO) 9 ;cette fonction modifie aussi les variables globales: 10 ;varname: trois lettres: nom de l'experience 11 ;vargrid: nom de la grille 12 ;vardate: date (yy)yymmdd 13 ;varexp: nom Vairmer du champ a tarcer 14 ; 15 ; @obsolete 16 ; @categories Graphics, lecture de fichier Vaimer 17 ; 18 ; @examples 19 ; IDL>resultat=lec('nom_Vairmer'[,date[,'nom_experience']]) 20 ; 21 ; @param nomchamp {in}{required} 2 choix possibles: 26 22 ; 1) nom de champ Vairmer (chaine de 8 caracteres en majuscule ou 27 23 ; minuscule commencant par vo ou so). Dans cette methode on saute directement … … 31 27 ; plus rapide car elle va directement chercher le fichier qui nous interesse. 32 28 ; 33 ; arguments optionnels: 34 ; 35 ; date:nombres de 6 ou 8 chiffres (anneemoisjour, par ex:19980507) 36 ; nom_experience:trois lettres designant le nom de l'experience 37 ; 38 ; KEYWORD PARAMETERS: 39 ; 40 ; /ANOM:type du fichier vairmer par rapport auquel on doit calculer 29 ; @param date {in}{optional} nombres de 6 ou 8 chiffres (anneemoisjour, par ex:19980507) 30 ; @param nomexp {in}{optional} trois lettres designant le nom de l'experience 31 ; 32 ; 33 ; @keyword /ANOM {in} type du fichier vairmer par rapport auquel on doit calculer 41 34 ; l'anomalie ('EX','AN','SE','MO','') 42 35 ; 43 ; /ECRIT:permet d'imprimer tous les noms vairmer que contient le fichier.36 ; @keyword /ECRIT {in} permet d'imprimer tous les noms vairmer que contient le fichier. 44 37 ; ds ce cas en input on met seulement 'vo' ou 'so' la fonction retourne le 45 38 ; nombre de fichiers lus. 46 39 ; 47 ; /EXPANOM:si on calcule l'anom par rapport a une exper40 ; @keyword /EXPANOM {in} si on calcule l'anom par rapport a une exper 48 41 ; differente 49 42 ; 50 ; FILENAME:string pour passer directement le nom du champ sans43 ; @keyword FILENAME string pour passer directement le nom du champ sans 51 44 ; utiliser les inputs: nom_Vairmer',date,'nom_experience'. Rq si 52 45 ; ces inputs sont qd meme donnes ils ne sont pas modifies par 53 46 ; filename. 54 47 ; 55 ; /GRID:lorsque ce mot clef est active, lec retourne la liste48 ; @keyword /GRID lorsque ce mot clef est active, lec retourne la liste 56 49 ; des types de grilles (T, U...) auxquelles se rapportent les 57 50 ; variables. ds ce cas en input on met seulement 'vo' ou 'so'. 58 51 ; 59 ; /NAME:lorsque ce mot clef est active, lec retourne la liste52 ; @keyword /NAME lorsque ce mot clef est active, lec retourne la liste 60 53 ; des noms des variables. ds ce cas en input on met seulement 61 54 ; 'vo' ou 'so'. 62 55 ; 63 ; /TOUT:oblige lec a lire le champ sur tout le domaine qui a56 ; @keyword /TOUT oblige lec a lire le champ sur tout le domaine qui a 64 57 ; etait selectionne pour la cession en cours (jpi,jpj,jpk) 65 58 ; 66 ; OUTPUTS:un tableau 2 ou 3d. sans le mot cle /TOUT, sa taille est59 ; @returns un tableau 2 ou 3d. sans le mot cle /TOUT, sa taille est 67 60 ; celle du sous domaine definit par domdef (nx,ny,nz). avec /TOUT le 68 61 ; champ a la taille du domaine qui a etait selectionne pour la … … 70 63 ; pour les sous domaines cf: 71 64 ; http://www.ipsl.jussieu.fr/~smlod/sousdomaine.html 72 ; 73 ; COMMON BLOCKS: 74 ; common.pro isnumber.pro fivardate.pro 75 ; 76 ; SIDE EFFECTS:Retourne -1 en cas d'erreur. 77 ; 78 ; RESTRICTIONS: 79 ; 80 ; EXAMPLE: 81 ; 82 ; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr) 65 ; Retourne -1 en cas d'erreur. 66 ; 67 ; @uses common.pro isnumber.pro fivardate.pro 68 ; 69 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 83 70 ; 26/5/98 84 71 ; Jerome Vialard : adaptation au format vairmer -
trunk/SRC/Obsolete/lect.pro
r44 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME:lect6 5 ; 7 ; PURPOSE:6 ; @file_comments 8 7 ; lit les fichiers Vairmer de date1 a date2 et en sort un tableau 9 8 ; 1D, 2D ou 3D qui peut etre reutilise pour une courbe / hov / animation 10 ; 11 ; 12 ; 13 ; 14 ; 15 ; CATEGORY:16 ; Graphics, lecture de fichier Vaimer17 ; 18 ; CALLING SEQUENCE:19 ; resultat=lec('nom_Vairmer',date1,date2,'nomexp','direc',BOITE=boite)20 ; 21 ; INPUTS:22 ; nom_Vairmer:nom de champ Vairmer (chaine de 8 caracteres commencant9 ;cette fonction modifie aussi les variables globales: 10 ;varname: huit lettres: nom Vairmer du champ a tracer 11 ;vargrid:1 lettre : nom de la grille 12 ;varexp: trois lettres :nom de l'experience 13 ; 14 ; @obsolete 15 ; 16 ; @categories Graphics, lecture de fichier Vaimer 17 ; 18 ; @examples 19 ; IDL> resultat=lec('nom_Vairmer',date1,date2,'nomexp','direc',BOITE=boite) 20 ; 21 ; @param nomchamp {in}{required} nom de champ Vairmer (chaine de 8 caracteres commencant 23 22 ; par VO ou SO 24 ; date de depart (date1) et de fin (date2) de la serie temporelle a 23 ; @param date1 {in}{required} date de depart de la serie temporelle a 24 ; @param date2 {in}{required} date de fin (date2) de la serie temporelle a 25 25 ; extraire 26 ; nomexpnom de l' experience a lire (prefix pardefaut)27 ; 28 ; direc :'x' 'y' 'z' 'xy' 'xz' 'yz' 'xyz' 'xt' 'yt' 'zt' 'xyt' 'xzt'26 ; @param nomexp {in}{required} nom de l' experience a lire (prefix pardefaut) 27 ; 28 ; @param direc {in}{required} 'x' 'y' 'z' 'xy' 'xz' 'yz' 'xyz' 'xt' 'yt' 'zt' 'xyt' 'xzt' 29 29 ; 'yzt' 'xyzt' directions selon lesquelles effectuer les moyennes 30 30 ; (si rien n'est donne on n'effectue pas de moyenne) … … 32 32 ; 33 33 ; 34 ; KEYWORD PARAMETERS: 35 ; boite : boite sur laquelle integrer (par defaut tt le domaine) 36 ; anom : type de fichiers ('SE','AN','') a relire pour calc une 34 ; @keyword boite {in} boite sur laquelle integrer (par defaut tt le domaine) 35 ; @keyword anom {in} type de fichiers ('SE','AN','') a relire pour calc une 37 36 ; anomalie 38 ; expanom:experience pour laquelle on veut calculer une anomalie37 ; @keyword expanom {in} experience pour laquelle on veut calculer une anomalie 39 38 ; (par defaut la meme que nomexp) 40 ; repeat : nombre de fois que l'on veut dupliquer la serie bout a bout 41 ; 42 ; COMMON BLOCKS: 43 ; common vraidate juldate 44 ; 45 ; SIDE EFFECTS: 46 ; 47 ; RESTRICTIONS: 48 ; 49 ; EXAMPLE: 50 ; 51 ; MODIFICATION HISTORY: Jerome Vialard (jv@lodyc.jussieu.fr) 52 ; 2/7/98 39 ; 40 ; @uses common vraidate juldate 41 ; 42 ; @history Jerome Vialard (jv\@lodyc.jussieu.fr) 43 ; 2/7/98 53 44 ;- 54 45 ;-------------------------------------------------------------- -
trunk/SRC/Obsolete/meshlec.pro
r13 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME:meshlec 6 ; 7 ; PURPOSE: lecture du mask de des sorties d'OPA. les sources se trouvent ds les 5 ; 6 ; @file_comments lecture du mask de des sorties d'OPA. les sources se trouvent ds les 8 7 ; repertoires sur maia du type: 9 8 ; /nom_exp/RESTARTS 10 9 ; 11 ; CATEGORY: 12 ; 13 ; CALLING SEQUENCE:meshmask[,' nomfich'] 14 ; 15 ; INPUTS: 16 ; nomfich: string, c''est le nom du fichier a lire. Par defaut, c''est 17 ; meshmask. 18 ; 19 ; KEYWORD PARAMETERS: 20 ; 21 ; GLAMBOUNDARY: un vecteur de 2 elements specifaint le min et le 10 ; @obsolete 11 ; @examples 12 ; IDL> meshmask[,' nomfich'] 13 ; 14 ; @param nomfich {in}{required} string, c''est le nom du fichier a lire. Par defaut, c''est meshmask. 15 ; 16 ; 17 ; @keyword GLAMBOUNDARY {in} un vecteur de 2 elements specifaint le min et le 22 18 ; max qui doivent etre imposes en longitude (obligatoire si le 23 19 ; tableau depasse 360 degres) 24 20 ; 25 ; /pasblabla:pour suprimer les blablas26 ; 27 ; /DOUBLE:pour forcer a lire les tableaux en double21 ; @keyword /pasblabla {in} pour suprimer les blablas 22 ; 23 ; @keyword /DOUBLE {in} pour forcer a lire les tableaux en double 28 24 ; precision. ce Mot clef est maintenant active 29 25 ; automatiquement. 30 26 ; 31 ; OUTPUTS: 32 ; 33 ; COMMON BLOCKS: 34 ; common.pro 35 ; 36 ; SIDE EFFECTS: 37 ; 38 ; RESTRICTIONS: 39 ; 27 ; @uses common.pro 28 ; 29 ; @restrictions 40 30 ; La definition de ixminmesh,ixmaxmesh,iyminmesh,iymaxmesh 41 31 ; ,izminmesh,izmaxmesh doit etre faite avant l''entree dans cette … … 43 33 ; possible les mettre toutes a -1 et meshlec les calculera. 44 34 ; 45 ; EXAMPLE: 46 ; 47 ; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr) 35 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 48 36 ; Marina Levy : lecture en double precision (cas calcul sur shine) 49 37 ;- … … 65 53 ; a 1: cf le fichier wrivr2.F ds WKOPA sur le cray 66 54 ;---------------------------------------------------------- 67 ; 55 ; LECTURE DU MASK trouve ds les fichiers restart 68 56 ;---------------------------------------------------------- 69 57 ;---------------------------------------------------------- -
trunk/SRC/Obsolete/ncdf_meshlec.pro
r13 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME:ncdf_meshlec 5 ; @file_comments use ncdf_meshread instead... 6 ; @obsolete 6 7 ; 7 ; PURPOSE:obsolete, use ncdf_meshread instead... 8 ; 9 ; MODIFICATION HISTORY: 10 ; 8 ; @history 11 9 ; Aug. 2005, Sebastien Masson: switch to ncdf_meshread 12 10 ;- -
trunk/SRC/Obsolete/nlec.pro
r44 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME:nlec 6 ; 7 ; PURPOSE:lit les fichiers Net-Cdf de l'experience TOTEM/ECMWF qui sont sur 5 ; @file_comments lit les fichiers Net-Cdf de l'experience TOTEM/ECMWF qui sont sur 8 6 ; maia: /u/rech/eee/reee217/TOTEM/REF/OUTPUTS 9 ; 10 ; CATEGORY: 11 ; 12 ; CALLING SEQUENCE: 13 ; 14 ; INPUTS:nom:nom du tableau contenant le champ que l'on veut (le 7 ; @obsolete 8 ; 9 ; @param name {in}{required} nom du tableau contenant le champ que l'on veut (le 15 10 ; trouver avec ncdflec,fichier,/var 16 11 ; 17 ; arguments optionnels: 18 ; 19 ; date:nombres de 6 ou 8 chiffres (anneemoisjour, par ex:19980507) 20 ; nom_experience:trois lettres designant le nom de l'experience 21 ; 22 ; 23 ; KEYWORD PARAMETERS: 24 ; 25 ; BOITE: boite sur laquelle integrer (par defaut tt le domaine) 26 ; 27 ; DATE2:stipule la seconde date pour extraire une serie temporelle 28 ; 29 ; DIREC: 'x' 'y' 'z' 'xy' 'xz' 'yz' 'xyz' directions selon lesquelles 12 ; @param debut {in} nombres de 6 ou 8 chiffres (anneemoisjour, par ex:19980507) 13 ; @param fin {in} nombres de 6 ou 8 chiffres (anneemoisjour, par ex:19980507) 14 ; @param nomexperience {in}{optional} trois lettres designant le nom de l'experience 15 ; 16 ; 17 ; @keyword BOITE boite sur laquelle integrer (par defaut tt le domaine) 18 ; 19 ; @keyword DIREC: 'x' 'y' 'z' 'xy' 'xz' 'yz' 'xyz' directions selon lesquelles 30 20 ; effectuer les moyennes (si rien n'est donne on n'effectue pas de moyenne) 31 21 ; 32 ; GRILLE:impose la grille a laquelle est rapporte le champ. rq permet22 ; @keyword GRILLE impose la grille a laquelle est rapporte le champ. rq permet 33 23 ; d'aller plus vite ds la lecture 34 24 ; 35 ; /TOUT:oblige a lire le tableau entier en non pas celui reduit a domdef 36 ; 37 ; OUTPUTS: 38 ; 39 ; COMMON BLOCKS: 40 ; common.pro vraidate juldate 41 ; nlec5j nlecserie 42 ; 43 ; SIDE EFFECTS: 44 ; 45 ; RESTRICTIONS: 46 ; 47 ; EXAMPLE: 48 ; 49 ; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr) 50 ; 14/8/98 25 ; @keyword /TOUT oblige a lire le tableau entier en non pas celui reduit a domdef 26 ; 27 ; @uses common.pro vraidate juldate nlec5j nlecserie 28 ; 29 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 30 ; 14/8/98 51 31 ;- 52 32 ;------------------------------------------------------------ -
trunk/SRC/Obsolete/nlec5j.pro
r44 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME:NLEC5J 6 ; 7 ; PURPOSE:lit les fichiers Net-Cdf de l'experience TOTEM/ECMWF qui 5 ; @file_comments lit les fichiers Net-Cdf de l'experience TOTEM/ECMWF qui 8 6 ; contiennent les sorties a 5j regroupees par type de grille par 9 7 ; paquets de 6 mois. 10 8 ; sur maia: /u/rech/eee/reee217/TOTEM/REF/OUTPUTS 9 ; @obsolete 11 10 ; 12 ; CATEGORY:lecture de NETCDF11 ; @categories lecture de NETCDF 13 12 ; 14 ; CALLING SEQUENCE: res=nlec5j( nom, numsortie, nbretps) 13 ; @examples 14 ; IDL> res=nlec5j( nom, numsortie, nbretps) 15 15 ; 16 ; INPUTS: 17 ; nom:nom du tableau contenant le champ que l'on veut (le 16 ; @param nom {in}{required} nom du tableau contenant le champ que l'on veut (le 18 17 ; trouver avec ncdflec,fichier,/var 19 ; numsortie:le numero du pas de temps que l'on veut sortir du18 ; @param numsortie {in}{required}le numero du pas de temps que l'on veut sortir du 20 19 ; fichier (compte a partir de 1) a partir de year 21 ; nbretps:nombre de pas de temps a extraire20 ; @param nbretps {in}{required} nombre de pas de temps a extraire 22 21 ; 23 ; KEYWORD PARAMETERS:24 22 ; 25 ; BOITE:boite sur laquelle integrer (par defaut tt le domaine)23 ; @keyword BOITE boite sur laquelle integrer (par defaut tt le domaine) 26 24 ; 27 ; GRILLE:impose la grille a laquelle est rapporte le champ. rq permet25 ; @keyword GRILLE impose la grille a laquelle est rapporte le champ. rq permet 28 26 ; d'aller plus vite ds la lecture 29 27 ; 30 ; /TOUT:oblige a lire le tableau entier en non pas celui reduit a domdef28 ; @keyword /TOUT oblige a lire le tableau entier en non pas celui reduit a domdef 31 29 ; 32 ; OUTPUTS: res=tableau 2d (qd on ne demande pas de serie) ou 3d ou 4d ds le cas dune serie30 ; @returns tableau 2d (qd on ne demande pas de serie) ou 3d ou 4d ds le cas dune serie 33 31 ; 34 ; COMMON BLOCKS: 35 ; common.pro 32 ; @uses common.pro 36 33 ; 37 ; SIDE EFFECTS:34 ; @restrictions appele par nlec 38 35 ; 39 ; RESTRICTIONS:appele par nlec 40 ; 41 ; EXAMPLE: 42 ; 43 ; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr) 36 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 44 37 ; 45 38 ;- -
trunk/SRC/Obsolete/nlecan.pro
r44 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME:NLECAN 6 ; 7 ; PURPOSE:lit les moyennes annuelles 5 ; @file_comments lit les moyennes annuelles 8 6 ; sur maia: /u/rech/eee/reee217/TOTEM/REF/OUTPUTS 9 7 ; 10 ; CATEGORY:lecture de NETCDF 8 ; @obsolete 9 ; @categories lecture de NETCDF 11 10 ; 12 ; CALLING SEQUENCE:res=nlecan(nom, numsortie79, nbretps) 11 ; @examples 12 ; IDL> res=nlecan(nom, numsortie79, nbretps) 13 13 ; 14 ; INPUTS: 15 ; nom:nom du tableau contenant le champ que l'on veut (le 14 ; @param nom {in}{required} nom du tableau contenant le champ que l'on veut (le 16 15 ; trouver avec ncdflec,fichier,/var 17 ; numsortie79:le numero du pas de temps que l'on veut sortir du16 ; @param numsortie79 {in}{required} le numero du pas de temps que l'on veut sortir du 18 17 ; fichier (compte a partir de 1) a partir de 79 19 ; nbretps:nombre de pas de temps a extraire18 ; @param nbretps {in}{required} nombre de pas de temps a extraire 20 19 ; 21 ; KEYWORD PARAMETERS:20 ; @keyword BOITE boite sur laquelle integrer (par defaut tt le domaine) 22 21 ; 23 ; BOITE: boite sur laquelle integrer (par defaut tt le domaine) 24 ; 25 ; GRILLE:impose la grille a laquelle est rapporte le champ. rq permet 22 ; @keyword GRILLE impose la grille a laquelle est rapporte le champ. rq permet 26 23 ; d'aller plus vite ds la lecture 27 24 ; 28 ; /TOUT:oblige a lire le tableau entier en non pas celui reduit a domdef25 ; @keyword /TOUT oblige a lire le tableau entier en non pas celui reduit a domdef 29 26 ; 30 ; OUTPUTS: res=tableau 2d (qd la serie ne fait que 1 pas de temps) ou27 ; @returns tableau 2d (qd la serie ne fait que 1 pas de temps) ou 31 28 ; 3d (valable ds 1 premier tps que pour les tableaux 2d) 32 29 ; 33 ; COMMON BLOCKS: 34 ; common.pro 30 ; @uses common.pro 35 31 ; 36 ; SIDE EFFECTS:appele par nlec32 ; @restrictions appele par nlec 37 33 ; 38 ; RESTRICTIONS: 39 ; 40 ; EXAMPLE: 41 ; 42 ; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr) 34 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 43 35 ; 44 36 ;- -
trunk/SRC/Obsolete/nlecmois.pro
r44 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME:nlecmois.pro6 5 ; 7 ; 8 ; PURPOSE:lit les fichiers Net-Cdf de moyenne mensuel de 6 ; @file_comments lit les fichiers Net-Cdf de moyenne mensuel de 9 7 ; l'experience TOTEM/ECMWF qui sont sur 10 8 ; maia: /u/rech/eee/reee217/TOTEM/REF/OUTPUTS 9 ; @obsolete 11 10 ; 12 ; CATEGORY:11 ; @keyword BOITE boite sur laquelle integrer (par defaut tt le domaine) 13 12 ; 14 ; CALLING SEQUENCE: 15 ; 16 ; INPUTS: 17 ; 18 ; KEYWORD PARAMETERS: 19 ; 20 ; BOITE: boite sur laquelle integrer (par defaut tt le domaine) 21 ; 22 ; GRILLE:impose la grille a laquelle est rapporte le champ. rq permet 13 ; @keyword GRILLE impose la grille a laquelle est rapporte le champ. rq permet 23 14 ; d'aller plus vite ds la lecture 24 15 ; 25 ; /TOUT:oblige a lire le tableau entier en non pas celui reduit a domdef 16 ; @keyword /TOUT oblige a lire le tableau entier en non pas celui reduit a domdef 17 ; @uses common.pro 26 18 ; 27 ; OUTPUTS: 28 ; 29 ; COMMON BLOCKS: 30 ; common.pro 31 ; 32 ; SIDE EFFECTS: 33 ; 34 ; RESTRICTIONS: 35 ; 36 ; EXAMPLE: 37 ; 38 ; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr) 19 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 39 20 ; 40 21 ;- -
trunk/SRC/Obsolete/nlecsaison.pro
r44 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME:NLECAN 5 ; @file_comments lit les moyennes annuelles 6 ; sur maia: /u/rech/eee/reee217/TOTEM/REF/OUTPUTS 7 ; @obsolete 6 8 ; 7 ; PURPOSE:lit les moyennes annuelles 8 ; sur maia: /u/rech/eee/reee217/TOTEM/REF/OUTPUTS 9 ; @categories lecture de NETCDF 9 10 ; 10 ; CATEGORY:lecture de NETCDF 11 ; @examples 12 ; IDL> res=nlecsaison(nom, numsortie79, nbretps) 11 13 ; 12 ; CALLING SEQUENCE:res=nlecsaison(nom, numsortie79, nbretps) 14 ; @param nom {in}{required} nom du tableau contenant le champ que l'on veut (le 15 ; trouver avec ncdflec,fichier,/var 16 ; @param numsortie79 {in}{required} le numero du pas de temps que l'on veut sortir du 17 ; fichier (compte a partir de 1) a partir de 79 18 ; @param nbretps {in}{required} nombre de pas de temps a extraire 13 19 ; 14 ; INPUTS: 15 ; nom:nom du tableau contenant le champ que l'on veut (le 16 ; trouver avec ncdflec,fichier,/var 17 ; numsortie79:le numero du pas de temps que l'on veut sortir du 18 ; fichier (compte a partir de 1) a partir de 79 19 ; nbretps:nombre de pas de temps a extraire 20 ; @keyword BOITE boite sur laquelle integrer (par defaut tt le domaine) 20 21 ; 21 ; KEYWORD PARAMETERS: 22 ; 23 ; BOITE: boite sur laquelle integrer (par defaut tt le domaine) 24 ; 25 ; GRILLE:impose la grille a laquelle est rapporte le champ. rq permet 22 ; @keyword GRILLE impose la grille a laquelle est rapporte le champ. rq permet 26 23 ; d'aller plus vite ds la lecture 27 24 ; 28 ; /TOUT:oblige a lire le tableau entier en non pas celui reduit a domdef25 ; @keyword /TOUT oblige a lire le tableau entier en non pas celui reduit a domdef 29 26 ; 30 ; OUTPUTS: res=tableau 2d (qd la serie ne fait que 1 pas de temps) ou27 ; @returns tableau 2d (qd la serie ne fait que 1 pas de temps) ou 31 28 ; 3d (valable ds 1 premier tps que pour les tableaux 2d) 32 29 ; 33 ; COMMON BLOCKS: 34 ; common.pro 30 ; @uses common.pro 35 31 ; 36 ; SIDE EFFECTS:appele par nlec32 ; @restrictions appele par nlec 37 33 ; 38 ; RESTRICTIONS: 39 ; 40 ; EXAMPLE: 41 ; 42 ; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr) 34 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 43 35 ; 44 36 ;- -
trunk/SRC/Obsolete/nlecserie.pro
r44 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME:NLECSERIE 5 ; @file_comments lit les series temporelles se rapportant a une variable 6 ; sur maia: /u/rech/eee/reee217/TOTEM/REF/OUTPUTS 7 ; @obsolete 6 8 ; 7 ; PURPOSE:lit les series temporelles se rapportant a une variable 8 ; sur maia: /u/rech/eee/reee217/TOTEM/REF/OUTPUTS 9 ; @categories lecture de NETCDF 9 10 ; 10 ; CATEGORY:lecture de NETCDF 11 ; @examples 12 ; IDL> res=nlecserie(nom, date1, date2) 11 13 ; 12 ; CALLING SEQUENCE:res=nlecserie(nom, date1, date2) 13 ; 14 ; INPUTS: 15 ; nom:nom du tableau contenant le champ que l'on veut (le 14 ; @param nom {in}{required} nom du tableau contenant le champ que l'on veut (le 16 15 ; trouver avec ncdflec,fichier,/var 17 16 ; 18 ; date1 et date2les dates vermairs qui delimitent la serie temporelle17 ; @param date1 date2 {in}{required} les dates vermairs qui delimitent la serie temporelle 19 18 ; 20 ; KEYWORD PARAMETERS:19 ; @keyword BOITE boite sur laquelle integrer (par defaut tt le domaine) 21 20 ; 22 ; BOITE: boite sur laquelle integrer (par defaut tt le domaine) 23 ; 24 ; GRILLE:impose la grille a laquelle est rapporte le champ. rq permet 21 ; @keyword GRILLE impose la grille a laquelle est rapporte le champ. rq permet 25 22 ; d'aller plus vite ds la lecture 26 23 ; 27 ; /TOUT:oblige a lire le tableau entier en non pas celui reduit a domdef24 ; @keyword /TOUT oblige a lire le tableau entier en non pas celui reduit a domdef 28 25 ; 29 ; OUTPUTS: res=tableau 2d (qd la serie ne fait que 1 pas de temps) ou26 ; @returns tableau 2d (qd la serie ne fait que 1 pas de temps) ou 30 27 ; 3d (valable ds 1 premier tps que pour les tableaux 2d) 31 28 ; 32 ; COMMON BLOCKS: 33 ; common.pro 29 ; @uses common.pro 34 30 ; 35 ; SIDE EFFECTS:appele par nlec31 ; @restrictions appele par nlec 36 32 ; 37 ; RESTRICTIONS: 38 ; 39 ; EXAMPLE: 40 ; 41 ; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr) 33 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 42 34 ; 43 35 ;- -
trunk/SRC/Obsolete/vairdate.pro
r9 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME: vairdate6 5 ; 7 ; OBSOLETE: you better use jul2date 6 ; @file_comments gives vairmer date equivalent of a date in julian format 7 ; sets month, day and year to the corresp values 8 ; @obsolete 9 ; @file_comments you better use jul2date 8 10 ; 9 ; PURPOSE: gives vairmer date equivalent of a date in julian format10 ; sets month, day and year to the corresp values11 ; @examples 12 ; IDL> vdate = vairdate(1755087) 11 13 ; 12 ; CATEGORY:14 ; @param jdate {in}{required} date en jours juliens 13 15 ; 14 ; CALLING SEQUENCE: vdate = vairdate(1755087)15 16 ; 16 ; INPUTS:jdate=date en jours juliens 17 ; 18 ; KEYWORD PARAMETERS: 19 ; 20 ; MENSUEL: a activer si on veut pour que les dates dont le jour est 17 ; @keyword MENSUEL a activer si on veut pour que les dates dont le jour est 21 18 ; 15 deviennent avec un jour egale a 0. par ex: 22 19 ; 19990115 -> 19990100 23 20 ; 24 ; ANNUEL:a activer si on veut pour que les dates dont le mois est21 ; @keyword ANNUEL a activer si on veut pour que les dates dont le mois est 25 22 ; 6 et dont le jour est 1 deviennent avec un mois et jour egale a 26 23 ; 0. par ex: 27 24 ; 19990601 -> 19990000 28 25 ; 29 ; OUTPUTS:vdate=date vairmer30 ; 26 ; @returns vdate date vairmer 27 ; plus year, month et day 31 28 ; 32 ; COMMON BLOCKS: 33 ; common.pro 29 ; @uses common.pro 34 30 ; 35 ; SIDE EFFECTS:36 31 ; 37 ; RESTRICTIONS: 38 ; 39 ; EXAMPLE: 40 ; 41 ; MODIFICATION HISTORY: Jerome Vialard (jv@lodyc.jussieu.fr) 42 ; 2/7/98 32 ; @history Jerome Vialard (jv\@lodyc.jussieu.fr) 33 ; 2/7/98 43 34 ; 13/9/1999, Sebastien Masson (smasson@lodyc.jussieu.fr) 44 35 ; ANNUEL,MENSUEL,_EXTRA et possibilite -
trunk/SRC/Obsolete/vraidate.pro
r9 r97 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME:vraidate 5 ; @file_comments donne la date en long 6 ; @obsolete 6 7 ; 7 ; PURPOSE:donne la date en long8 8 ; 9 ; CATEGORY:9 ; @param date {in}{required} une date du type yyyymmdd 10 10 ; 11 ; CALLING SEQUENCE:res=vraidate(date) 12 ; 13 ; INPUTS:date:une date du type yyyymmdd 14 ; 15 ; KEYWORD PARAMETERS: 16 ; 17 ; /GRADS: if 1 le year le 49 then year = 2000+year 11 ; @keyword /GRADS if 1 le year le 49 then year = 2000+year 18 12 ; if 50 le year le 99 then year = 1900+year 19 13 ; 20 ; OUTPUTS:une date vairmer du type yyyymmdd 14 ; @returns une date vairmer du type yyyymmdd 15 ; si year est nulle ou egale a -1 ne change rien 21 16 ; 22 ; SIDE EFFECTS:si year est nulle ou egale a -1 ne change rien 17 ; @examples 18 ; IDL> res=vraidate(date) 19 ; IDL> vraidate(980703) 20 ; donne 19980703 qui est un long 23 21 ; 24 ; EXAMPLE:vraidate(980703) donne 19980703 qui est un long 25 ; 26 ; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr) 27 ; 3/7/98 22 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 23 ; 3/7/98 28 24 ; remove automatic change from year 1 to 1901... Aug 2004 29 25 ;-
Note: See TracChangeset
for help on using the changeset viewer.