[150] | 1 | ;+ |
---|
[231] | 2 | ; |
---|
[150] | 3 | ; @file_comments |
---|
| 4 | ; |
---|
| 5 | ; @categories |
---|
| 6 | ; |
---|
| 7 | ; @keyword JOUR |
---|
[231] | 8 | ; |
---|
[150] | 9 | ; @keyword MESHFILENAME |
---|
[231] | 10 | ; |
---|
[150] | 11 | ; @keyword LISTVAR |
---|
[231] | 12 | ; |
---|
[150] | 13 | ; @keyword LISTGRID |
---|
[231] | 14 | ; |
---|
| 15 | ; @keyword FUNCLEC_NAME |
---|
| 16 | ; |
---|
[150] | 17 | ; @keyword CALENDAR |
---|
[231] | 18 | ; |
---|
[150] | 19 | ; @keyword _EXTRA |
---|
[231] | 20 | ; Used to pass keywords |
---|
| 21 | ; |
---|
[150] | 22 | ; @uses |
---|
[231] | 23 | ; |
---|
[150] | 24 | ; @restrictions |
---|
[231] | 25 | ; |
---|
[150] | 26 | ; @examples |
---|
[231] | 27 | ; |
---|
[150] | 28 | ; @history |
---|
[231] | 29 | ; |
---|
| 30 | ; @version |
---|
[150] | 31 | ; $Id$ |
---|
| 32 | ; |
---|
| 33 | ; @todo |
---|
| 34 | ; seb documenter |
---|
| 35 | ; |
---|
| 36 | ;- |
---|
[327] | 37 | PRO xx, JOUR=jour, MESHFILENAME=meshfilename, LISTVAR=listvar $ |
---|
| 38 | , LISTGRID=listgrid, FUNCLEC_NAME=funclec_name, CALENDAR=calendar $ |
---|
| 39 | , _EXTRA=ex |
---|
[2] | 40 | ; |
---|
[114] | 41 | compile_opt idl2, strictarrsubs |
---|
| 42 | ; |
---|
[2] | 43 | @common |
---|
| 44 | ;---------------------------------------------------------------------- |
---|
| 45 | ;---------------------------------------------------------------------- |
---|
[150] | 46 | ; Name of the part to be changed |
---|
[2] | 47 | ;---------------------------------------------------------------------- |
---|
| 48 | ;---------------------------------------------------------------------- |
---|
[150] | 49 | ; Name of the reading function |
---|
[2] | 50 | if NOT keyword_set(funclec_name) then funclec_name = 'slec' |
---|
[52] | 51 | varexp = 'INF' |
---|
[150] | 52 | ; list of variables |
---|
[2] | 53 | 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'] |
---|
[150] | 54 | ; list of grids to which variables refer to. |
---|
[231] | 55 | if NOT keyword_set(listgrid) then BEGIN |
---|
[2] | 56 | listgrid = replicate('T', n_elements(listvar)) |
---|
| 57 | listgrid[[2, 4]] = 'U' |
---|
| 58 | listgrid[[3, 5]] = 'V' |
---|
| 59 | ENDIF |
---|
[231] | 60 | ; calendar to be used (in IDL julian days |
---|
| 61 | ; ++++ if NOT keyword_set(calendar) then BEGIN |
---|
[157] | 62 | ; ++++ if keyword_set(jour) then calendar = calendriertotem(/julian_day) ELSE calendar = calendriertotem(/julian_day, /mensuel) |
---|
| 63 | ; ++++ ENDIF |
---|
[150] | 64 | ; Name of the file refering to the mask |
---|
[2] | 65 | if NOT keyword_set(meshfilename) then meshfilename = '/usr1/com/smasson/IDL/INIT/inittotem.pro' |
---|
[157] | 66 | ; ++++ meshparameters = whichgrid(meshfilename) |
---|
[150] | 67 | ; parameters specifing how the field must be read |
---|
[2] | 68 | readparameters= {funclec_name: funclec_name $ |
---|
| 69 | , jpidta: jpidta, jpjdta: jpjdta, jpkdta: jpkdta $ |
---|
| 70 | , ixmindta: ixmindta, ixmaxdta: ixmaxdta $ |
---|
| 71 | , iymindta: iymindta, iymaxdta: iymaxdta $ |
---|
| 72 | , izmindta: izmindta, izmaxdta: izmaxdta } |
---|
| 73 | ;---------------------------------------------------------------------- |
---|
| 74 | ;---------------------------------------------------------------------- |
---|
[150] | 75 | ; End of the part to be change |
---|
[2] | 76 | ;---------------------------------------------------------------------- |
---|
| 77 | ;---------------------------------------------------------------------- |
---|
| 78 | ; |
---|
| 79 | ; |
---|
| 80 | fileparameters = {filename: 'many !' $ |
---|
| 81 | , time_counter: calendar $ |
---|
| 82 | , listvar: listvar $ |
---|
| 83 | , listgrid: strupcase(listgrid)} |
---|
| 84 | ; |
---|
| 85 | multistructure = {fileparameters: temporary(fileparameters) $ |
---|
| 86 | , readparameters: temporary(readparameters) $ |
---|
| 87 | , meshparameters: temporary(meshparameters)} |
---|
| 88 | ; |
---|
| 89 | xxx, multistructure = temporary(multistructure), _extra = ex |
---|
| 90 | |
---|
| 91 | return |
---|
| 92 | end |
---|