| 1 | ; |
|---|
| 2 | ; |
|---|
| 3 | @common |
|---|
| 4 | ;------------------------------------------------------------ |
|---|
| 5 | ;---------------------------------------------------------- |
|---|
| 6 | ; bornes de la grille |
|---|
| 7 | ;---------------------------------------------------------- |
|---|
| 8 | jpi = 1020 |
|---|
| 9 | jpj = 1286 |
|---|
| 10 | jpk = 1 |
|---|
| 11 | gdept = 0 |
|---|
| 12 | gdepw = 0 |
|---|
| 13 | e3t = 10 |
|---|
| 14 | e3w = 10 |
|---|
| 15 | tempsun = systime(1) |
|---|
| 16 | iodir = '/usr1/antiope/smasson/DATA/MERCATOR/' |
|---|
| 17 | cdfid = ncdf_open(iodir+'test_mercator.nc') |
|---|
| 18 | ncdf_varget, cdfid, 'glamt', glamt |
|---|
| 19 | ncdf_varget, cdfid, 'gphit', gphit |
|---|
| 20 | ncdf_varget, cdfid, 'e1t' , e1t |
|---|
| 21 | ncdf_varget, cdfid, 'e2t', e2t |
|---|
| 22 | ncdf_varget, cdfid, 'glamf', glamf |
|---|
| 23 | ncdf_varget, cdfid, 'gphif', gphif |
|---|
| 24 | ncdf_varget, cdfid, 'e1f', e1f |
|---|
| 25 | ncdf_varget, cdfid, 'e2f', e2f |
|---|
| 26 | ncdf_varget, cdfid, 'bat', bat |
|---|
| 27 | ncdf_varget, cdfid, 'tmask', tmask |
|---|
| 28 | ncdf_varget, cdfid, 'sss', sss |
|---|
| 29 | ncdf_close, cdfid |
|---|
| 30 | print, 'temps lecture fichier NetCdf 1ere fois', systime(1)-tempsun |
|---|
| 31 | tempsun = systime(1) |
|---|
| 32 | cdfid = ncdf_open(iodir+'test_mercator.nc') |
|---|
| 33 | ncdf_varget, cdfid, 'glamt', glamt |
|---|
| 34 | ncdf_varget, cdfid, 'gphit', gphit |
|---|
| 35 | ncdf_varget, cdfid, 'e1t' , e1t |
|---|
| 36 | ncdf_varget, cdfid, 'e2t', e2t |
|---|
| 37 | ncdf_varget, cdfid, 'glamf', glamf |
|---|
| 38 | ncdf_varget, cdfid, 'gphif', gphif |
|---|
| 39 | ncdf_varget, cdfid, 'e1f', e1f |
|---|
| 40 | ncdf_varget, cdfid, 'e2f', e2f |
|---|
| 41 | ncdf_varget, cdfid, 'bat', bat |
|---|
| 42 | ncdf_varget, cdfid, 'tmask', tmask |
|---|
| 43 | ncdf_varget, cdfid, 'sss', sss |
|---|
| 44 | ncdf_close, cdfid |
|---|
| 45 | print, 'temps lecture fichier NetCdf 2eme fois', systime(1)-tempsun |
|---|
| 46 | glamu = glamt & glamv = glamt |
|---|
| 47 | gphiu = gphit & gphiv = gphit |
|---|
| 48 | e1u = e1t & e1v = e1t |
|---|
| 49 | e2v = e1t & e2v = e2t |
|---|
| 50 | |
|---|
| 51 | jpt = 1 |
|---|
| 52 | time = 0 |
|---|
| 53 | |
|---|
| 54 | ;------------------------------------------------------------- |
|---|
| 55 | ;------------------------------------------------------------- |
|---|
| 56 | domdef |
|---|
| 57 | triangles = triangule() |
|---|
| 58 | ;---------------------------------------------------------- |
|---|
| 59 | ; environnement graphique (window et ps) |
|---|
| 60 | ;---------------------------------------------------------- |
|---|
| 61 | ;---------------------------------------------------------- |
|---|
| 62 | sauveps = 0 |
|---|
| 63 | ;---------------------------------------------------------- |
|---|
| 64 | ; ajout perso |
|---|
| 65 | ;---------------------------------------------------------- |
|---|
| 66 | key_performance = 1 |
|---|
| 67 | plt, sss, 33, int = .2 |
|---|
