|
Last change
on this file since 205 was
85,
checked in by aslmd, 14 years ago
|
|
LMD_MM_MARS et LMD_LES_MARS: ajout des routines IDL pour tracer les sorties --> voir mesoscale/PLOT
|
|
File size:
301 bytes
|
| Line | |
|---|
| 1 | pro getcdf, $ |
|---|
| 2 | file=file, $ |
|---|
| 3 | charvar=charvar, $ |
|---|
| 4 | invar=invar |
|---|
| 5 | |
|---|
| 6 | T = SYSTIME(1) |
|---|
| 7 | |
|---|
| 8 | cdfid = ncdf_open(file) |
|---|
| 9 | varid=ncdf_varid(cdfid,charvar) |
|---|
| 10 | ncdf_varget, cdfid, varid, invar |
|---|
| 11 | |
|---|
| 12 | print, 'got '+charvar+' in '+file+' within ', SYSTIME(1) - T, ' seconds' |
|---|
| 13 | print, ' size is', size(invar, /Dimensions) |
|---|
| 14 | |
|---|
| 15 | |
|---|
| 16 | end |
|---|
Note: See
TracBrowser
for help on using the repository browser.
