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