Changeset 118 for trunk/SRC/Obsolete/nlecan.pro
- Timestamp:
- 06/27/06 17:47:06 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Obsolete/nlecan.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 ; 8 8 ; @obsolete 9 9 ; @categories lecture de NETCDF 10 10 ; 11 ; @examples 11 ; @examples 12 12 ; IDL> res=nlecan(nom, numsortie79, nbretps) 13 13 ; … … 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 ;- … … 55 60 vargrid=grille 56 61 nomfich=prefix+'.moyenne.annuelle.grid.'+vargrid+'.nc' 57 IF !version.OS_FAMILY EQ 'unix' THEN spawn, '\file '+iodir+nomfich+' > /dev/null' 62 IF !version.OS_FAMILY EQ 'unix' THEN spawn, '\file '+iodir+nomfich+' > /dev/null' 58 63 cdfid=ncdf_open(iodir+nomfich) 59 64 varcontient=ncdf_varinq(cdfid,nom) … … 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 … … 121 126 premiery = 0 122 127 premierz = 0 123 endif else BEGIN 128 endif else BEGIN 124 129 ;------------------------------------------------------------ 125 130 ; redefinition eventuelle du domaine ajuste a boite (a 6 elements) 126 131 ; + on recupere la dim du no9uveau domaine 127 132 ;------------------------------------------------------------ 128 if keyword_set(boite) then BEGIN 133 if keyword_set(boite) then BEGIN 129 134 Case N_Elements(Boite) Of 130 135 1:Domdef, lon1, lon2, lat1, lat2, 0.,boite[0],GRILLE=vargrid, _EXTRA = ex … … 137 142 ENDIF 138 143 grille, mask, glam, gphi, gdep, nx, ny,nz,premierx,premiery, premierz 139 ENDELSE 144 ENDELSE 140 145 ;------------------------------------------------------------ 141 146 if varcontient.ndims eq 3 then $
Note: See TracChangeset
for help on using the changeset viewer.