@common
;---------------------------------------------------------
; bornes de la grille
;----------------------------------------------------------
jpi = 192l
ixminmesh  =0l
ixmaxmesh  =jpi-1l
;
jpj = 94l
iyminmesh  =0l
iymaxmesh  =jpj-1l
;
jpk = 1l
izminmesh  =0l
izmaxmesh  =jpk-1l
;
jpt = 1l
time = 0l
;------------------------------------------------------
; lecture de la grille
;------------------------------------------------------
iodir = '/usr1/antiope/smasson/DATA/'
key_shift = 0
key_stride = [1, 1, 1]
;
glamt = ncdf_lec('lsmask.19294.nc', iodir = iodir, var = 'lon')
glamt = glamt#replicate(1, jpj)
glamu = glamt
glamv = glamt
glamf = glamt+1.875/2.
gphit = ncdf_lec('lsmask.19294.nc', iodir = iodir, var = 'lat')
gphit = replicate(1, jpi)#gphit
gphiu = gphit
gphiv = gphit
gphif = gphit-1.90/2.
gdept = 5.
gdepw = 4.
;
e1t = replicate(1, jpi, jpj)
e1u = e1t
e1v = e1t
e2t = replicate(1, jpi, jpj)
e2u = e2t
e2v = e2t
e2f = e2t
;
e3t = 10.
e3w = 10.
;
tmask = ncdf_lec('lsmask.19294.nc', iodir = iodir, var = 'lsmask')
tmask = 1+tmask
;-------------------------------------------------------------
domdef
;
key_periodique = 1
triangles = triangule()
;----------------------------------------------------------
; bornes pour la lecture des donnees
;----------------------------------------------------------
jpidta = jpiglo
jpjdta = jpjglo
jpkdta = jpkglo
ixmindta = 0
ixmaxdta = jpidta-1
iymindta = 0
iymaxdta = jpjdta-1
izmindta = 0
izmaxdta = jpkdta-1