source: trunk/SRC/Obsolete/nlecan.pro @ 163

Last change on this file since 163 was 157, checked in by navarro, 18 years ago

header improvements + xxx doc
  • Property svn:keywords set to Id
File size: 6.3 KB
Line 
1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5; @file_comments
6; lit les moyennes annuelles
7; sur maia: /u/rech/eee/reee217/TOTEM/REF/OUTPUTS
8;
9; @obsolete
10; @categories
11; Reading
12;
13; @examples
14; IDL> res=nlecan(nom, numsortie79, nbretps)
15;
16; @param nom {in}{required} nom du tableau contenant le champ que l'on veut (le
17; trouver avec ncdflec,fichier,/var
18;
19; @param numsortie79 {in}{required} le numero du pas de temps que l'on veut sortir du
20; fichier (compte a partir de 1) a partir de 79
21;
22; @param nbretps {in}{required} nombre de pas de temps a extraire
23;
24; @keyword BOITE  boite sur laquelle integrer (par defaut tt le domaine)
25;
26; @keyword GRILLE impose la grille a laquelle est rapporte le champ. rq permet
27; d'aller plus vite ds la lecture
28;
29; @keyword TOUT oblige a lire le tableau entier en non pas celui reduit a domdef
30;
31; @keyword _EXTRA used to pass your keywords
32;
33; @returns tableau 2d (qd la serie ne fait que 1 pas de temps) ou
34; 3d (valable ds 1 premier tps que pour les tableaux 2d)
35;
36; @uses common.pro
37;
38; @restrictions appele par nlec
39;
40; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
41;
42; @version $Id$
43;
44;-
45;------------------------------------------------------------
46;------------------------------------------------------------
47;REF.moyenne.annuelle.grid.T.nc
48;------------------------------------------------------------
49function nlecan, nom, numsortie79, nbretps,BOITE = boite,GRILLE=grille,TOUT=tout, _EXTRA = ex
50;
51  compile_opt idl2, strictarrsubs, obsolete
52;
53@common
54;------------------------------------------------------------
55;------------------------------------------------------------
56   res=-1
57   anneedepart=1979
58;------------------------------------------------------------
59; gestion du nom de la grille en testant les differentes possibilites
60; et ouverture du fichier
61;------------------------------------------------------------
62   if keyword_set(grille) then begin
63      vargrid=grille
64      nomfich=prefix+'.moyenne.annuelle.grid.'+vargrid+'.nc'
65      IF !version.OS_FAMILY EQ 'unix' THEN spawn, '\file '+iodir+nomfich+' > /dev/null'
66      cdfid=ncdf_open(iodir+nomfich)
67      varcontient=ncdf_varinq(cdfid,nom)
68   endif else begin
69; liste des fichiers pouvant convenir
70      quelsfichiers = findfile(iodir+prefix+'.moyenne.annuelle.grid*')
71      IF quelsfichiers[0] EQ '' THEN $ ; liste vide
72         return,  report('LES FICHIERS: '+iodir+prefix+'.moyenne.annuelle.grid... n''existe pas.')
73      for i=0,n_elements(quelsfichiers)-1 do begin
74         IF !version.OS_FAMILY EQ 'unix' THEN spawn, '\file '+quelsfichiers[i]+' > /dev/null'
75         cdfid=ncdf_open(quelsfichiers[i])
76         contient=ncdf_inquire(cdfid)
77         for varid=0,contient.nvars-1 do BEGIN   ; ds les fichiers existants on
78            varcontient=ncdf_varinq(cdfid,varid) ; cherche le nom des variables
79            if varcontient.name eq nom then BEGIN
80               vargrid=strmid(quelsfichiers[i],strpos(quelsfichiers[i],'grid')+5,1) ;nom de grille
81               goto, grilletrouvee
82            ENDIF
83         endfor
84         ncdf_close,cdfid
85      endfor
86      return, report('La variable '+nom+' n''existe pas ds les fichiers'+iodir+prefix+'.moyenne.annuelle.grid...')
87   endelse
88grilletrouvee:
89;------------------------------------------------------------
90; lecture de certains attributs et de l'axe des temps
91;------------------------------------------------------------
92   ncdf_attget,cdfid,nom,'title',value
93   varname=string(value)
94   ncdf_attget,cdfid,nom,'units',value
95   varunit=string(value)
96   if rstrpos(varname,'(') eq -1 then varname=varname+' ('+varunit+')'
97   varexp=prefix
98;------------------------------------------------------------
99; lecture de l'axe des temps
100;------------------------------------------------------------
101   ncdf_varget,cdfid,'time_counter',time, offset = [numsortie79-1],count=[nbretps]
102   time = long(time)+julday(12, 31, 1978)
103   jpt=nbretps
104   IF jpt EQ 1 THEN BEGIN
105      caldat, time[0], month, day, year
106      case 1 of
107         year lt 10:                 s_year ='0'+string(format='(i1)',year)
108         year lt 100 and year ge 10 :s_year =    string(format='(i2)',year)
109         year ge 100:                s_year =    string(format='(i2)',year-1900)
110      endcase
111      vardate='annee: '+s_year
112   endif
113;------------------------------------------------------------
114;------------------------------------------------------------
115; extraction du tableau qui nous interesse
116;------------------------------------------------------------
117;------------------------------------------------------------
118;------------------------------------------------------------
119; determination du domaine geographique
120;------------------------------------------------------------
121   if keyword_set(tout) then begin
122      nx=jpi
123      ny=jpj
124      nz=jpk
125      glam=[1]
126      gphi=[1]
127      gdep=[1]
128      premierx = 0
129      premiery = 0
130      premierz = 0
131   endif else BEGIN
132;------------------------------------------------------------
133; redefinition eventuelle du domaine ajuste a boite (a 6 elements)
134; + on recupere la dim du no9uveau domaine
135;------------------------------------------------------------
136      if keyword_set(boite) then BEGIN
137         Case N_Elements(Boite) Of
138            1:Domdef, lon1, lon2, lat1, lat2, 0.,boite[0],GRILLE=vargrid, _EXTRA = ex
139            2:Domdef, lon1, lon2, lat1, lat2, boite[0],boite[1],GRILLE=vargrid, _EXTRA = ex
140            4:Domdef, [Boite,prof1, prof2],GRILLE=vargrid, _EXTRA = ex
141            5:Domdef, [Boite[0:3], 0, Boite[4]],GRILLE=vargrid, _EXTRA = ex
142            6:Domdef, Boite,GRILLE=vargrid, _EXTRA = ex
143            Else:return, report('Mauvaise Definition de Boite')
144         endcase
145      ENDIF
146      grille, mask, glam, gphi, gdep, nx, ny,nz,premierx,premiery, premierz
147   ENDELSE
148;------------------------------------------------------------
149   if varcontient.ndims eq 3 then $
150    ncdf_varget,cdfid,nom,res,offset=[premierx,premiery,numsortie79-1] $
151    ,count=[nx,ny,nbretps] else $
152    ncdf_varget,cdfid,nom,res,offset=[premierx,premiery, premierz,numsortie79-1] $
153    ,count=[nx,ny,nz,nbretps]
154;------------------------------------------------------------
155   ncdf_close,cdfid
156   return,res
157;------------------------------------------------------------
158;------------------------------------------------------------
159end
Note: See TracBrowser for help on using the repository browser.