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