;
;
@common
;------------------------------------------------------------
;----------------------------------------------------------
; bornes de la grille
;----------------------------------------------------------
jpi = 1020
jpj = 1286
jpk = 1
gdept = 0
gdepw = 0
e3t = 10
e3w = 10
tempsun = systime(1)
iodir = '/usr1/antiope/smasson/DATA/MERCATOR/'
cdfid = ncdf_open(iodir+'test_mercator.nc')
ncdf_varget, cdfid, 'glamt', glamt
ncdf_varget, cdfid, 'gphit', gphit
ncdf_varget, cdfid, 'e1t' , e1t
ncdf_varget, cdfid, 'e2t', e2t
ncdf_varget, cdfid, 'glamf', glamf
ncdf_varget, cdfid, 'gphif', gphif
ncdf_varget, cdfid, 'e1f', e1f
ncdf_varget, cdfid, 'e2f', e2f
ncdf_varget, cdfid, 'bat', bat
ncdf_varget, cdfid, 'tmask', tmask
ncdf_varget, cdfid, 'sss', sss
ncdf_close, cdfid
print, 'temps lecture fichier NetCdf 1ere fois', systime(1)-tempsun 
tempsun = systime(1)
cdfid = ncdf_open(iodir+'test_mercator.nc')
ncdf_varget, cdfid, 'glamt', glamt
ncdf_varget, cdfid, 'gphit', gphit
ncdf_varget, cdfid, 'e1t' , e1t
ncdf_varget, cdfid, 'e2t', e2t
ncdf_varget, cdfid, 'glamf', glamf
ncdf_varget, cdfid, 'gphif', gphif
ncdf_varget, cdfid, 'e1f', e1f
ncdf_varget, cdfid, 'e2f', e2f
ncdf_varget, cdfid, 'bat', bat
ncdf_varget, cdfid, 'tmask', tmask
ncdf_varget, cdfid, 'sss', sss
ncdf_close, cdfid
print, 'temps lecture fichier NetCdf 2eme fois', systime(1)-tempsun 
glamu = glamt & glamv = glamt 
gphiu = gphit & gphiv = gphit 
e1u = e1t & e1v = e1t
e2v = e1t & e2v = e2t

jpt = 1
time = 0

;-------------------------------------------------------------
;-------------------------------------------------------------
domdef
triangles = triangule()
;----------------------------------------------------------
; environnement graphique (window et ps)
;----------------------------------------------------------
;----------------------------------------------------------
sauveps = 0
;----------------------------------------------------------
; ajout perso
;----------------------------------------------------------
key_performance = 1
plt, sss, 33, int = .2