1 | |
---|
2 | PRO xx, JOUR = jour, MESHFILENAME = meshfilename, LISTVAR = listvar, LISTGRID = listgrid, FUNCLEC_NAME = funclec_name, CALENDAR = calendar, _extra = ex |
---|
3 | ; |
---|
4 | @common |
---|
5 | ;---------------------------------------------------------------------- |
---|
6 | ;---------------------------------------------------------------------- |
---|
7 | ; partie a changer |
---|
8 | ;---------------------------------------------------------------------- |
---|
9 | ;---------------------------------------------------------------------- |
---|
10 | ; nom de la fonction de lecture: |
---|
11 | if NOT keyword_set(funclec_name) then funclec_name = 'slec' |
---|
12 | prefix = 'INF' |
---|
13 | ; liste des variables |
---|
14 | if NOT keyword_set(listvar) then listvar = ['tn','sn','un','vn', 'taux', 'tauy','hdep20','hdep28','hdep15','hturb','hpycn','htoth','emp','qn','qs', 'smltot11', 'smltot12', 'smltot13', 'smltot14', 'smltot15', 'smltot16', 'tmltot11', 'tmltot12', 'tmltot13', 'tmltot14', 'tmltot15', 'tmltot16'] |
---|
15 | ; liste des grilles auxquelles elles se rapportent les variables |
---|
16 | if NOT keyword_set(listgrid) then BEGIN |
---|
17 | listgrid = replicate('T', n_elements(listvar)) |
---|
18 | listgrid[[2, 4]] = 'U' |
---|
19 | listgrid[[3, 5]] = 'V' |
---|
20 | ENDIF |
---|
21 | ; calendrier a utiliser (en jours juliens d''IDL |
---|
22 | if NOT keyword_set(calendar) then BEGIN |
---|
23 | if keyword_set(jour) then calendar = calendriertotem(/julian_day) ELSE calendar = calendriertotem(/julian_day, /mensuel) |
---|
24 | ENDIF |
---|
25 | ; nom du fichier se rapportant au masque |
---|
26 | if NOT keyword_set(meshfilename) then meshfilename = '/usr1/com/smasson/IDL/INIT/inittotem.pro' |
---|
27 | meshparameters = whichgrid(meshfilename) |
---|
28 | ; parameteres specifiant comment doit etre lu le champ |
---|
29 | readparameters= {funclec_name: funclec_name $ |
---|
30 | , jpidta: jpidta, jpjdta: jpjdta, jpkdta: jpkdta $ |
---|
31 | , ixmindta: ixmindta, ixmaxdta: ixmaxdta $ |
---|
32 | , iymindta: iymindta, iymaxdta: iymaxdta $ |
---|
33 | , izmindta: izmindta, izmaxdta: izmaxdta } |
---|
34 | ;---------------------------------------------------------------------- |
---|
35 | ;---------------------------------------------------------------------- |
---|
36 | ; fin de la partie a changer |
---|
37 | ;---------------------------------------------------------------------- |
---|
38 | ;---------------------------------------------------------------------- |
---|
39 | ; |
---|
40 | ; |
---|
41 | fileparameters = {filename: 'many !' $ |
---|
42 | , time_counter: calendar $ |
---|
43 | , listvar: listvar $ |
---|
44 | , listgrid: strupcase(listgrid)} |
---|
45 | ; |
---|
46 | multistructure = {fileparameters: temporary(fileparameters) $ |
---|
47 | , readparameters: temporary(readparameters) $ |
---|
48 | , meshparameters: temporary(meshparameters)} |
---|
49 | ; |
---|
50 | xxx, multistructure = temporary(multistructure), _extra = ex |
---|
51 | |
---|
52 | return |
---|
53 | end |
---|