Changeset 118 for trunk/SRC/Obsolete/nlecsaison.pro
- Timestamp:
- 06/27/06 17:47:06 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Obsolete/nlecsaison.pro
r114 r118 4 4 ;+ 5 5 ; @file_comments lit les moyennes annuelles 6 ; sur maia: /u/rech/eee/reee217/TOTEM/REF/OUTPUTS 6 ; sur maia: /u/rech/eee/reee217/TOTEM/REF/OUTPUTS 7 7 ; @obsolete 8 8 ; … … 21 21 ; 22 22 ; @keyword GRILLE impose la grille a laquelle est rapporte le champ. rq permet 23 ; d'aller plus vite ds la lecture 23 ; d'aller plus vite ds la lecture 24 24 ; 25 25 ; @keyword /TOUT oblige a lire le tableau entier en non pas celui reduit a domdef 26 26 ; 27 ; @keyword _EXTRA used to pass your keywords 28 27 29 ; @returns tableau 2d (qd la serie ne fait que 1 pas de temps) ou 28 30 ; 3d (valable ds 1 premier tps que pour les tableaux 2d) 29 ; 31 ; 30 32 ; @uses common.pro 31 33 ; … … 33 35 ; 34 36 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 37 ; 38 ; 39 ; @version $Id$ 35 40 ; 36 41 ;- … … 72 77 vargrid=strmid(quelsfichiers[i],strpos(quelsfichiers[i],'grid')+5,1) ;nom de grille 73 78 goto, grilletrouvee 74 ENDIF 79 ENDIF 75 80 endfor 76 81 ncdf_close,cdfid … … 118 123 premiery = 0 119 124 premierz = 0 120 endif else BEGIN 125 endif else BEGIN 121 126 ;------------------------------------------------------------ 122 127 ; redefinition eventuelle du domaine ajuste a boite (a 6 elements) 123 128 ; + on recupere la dim du no9uveau domaine 124 129 ;------------------------------------------------------------ 125 if keyword_set(boite) then BEGIN 130 if keyword_set(boite) then BEGIN 126 131 CASE N_Elements(Boite) Of 127 132 1:Domdef, lon1, lon2, lat1, lat2, 0.,boite[0],GRILLE=vargrid, _EXTRA = ex … … 134 139 ENDIF 135 140 grille, mask, glam, gphi, gdep, nx, ny,nz,premierx,premiery,premierz 136 ENDELSE 141 ENDELSE 137 142 ;------------------------------------------------------------ 138 143 if varcontient.ndims eq 3 then $
Note: See TracChangeset
for help on using the changeset viewer.