PRO draw, field, glam, gphi, zpi, zpj, nbcol, dessin, nbdessin, title = title, zmin, zmax, LAND = land
@common
jpi = zpi
jpj = zpj
glamt = glam
IF size(glamt, /n_dimensions) EQ 1 THEN glamt = glamt#replicate(1, jpj)
glamf = glam
gphit = gphi
IF size(gphit, /n_dimensions) EQ 1 THEN gphit = replicate(1, jpi)#gphit
gphif = gphi
gdept = [0]
gdepw = [0]
tmask = replicate(1, jpi, jpj)

e1t = replicate(1, jpi, jpj)
e2t = replicate(1, jpi, jpj)
e3t = [1]
jpk = 1
;
varname = title
domdef, grille = ['T', 'F']
key_periodique = 1
;
ind = where(field GE 1.e20)
IF n_elements(ind) GT 1 THEN field(ind) = 0.
;
IF size(glam, /n_dimensions) EQ 1 THEN triangles = triangule() ELSE triangulate, glamt, gphit, triangles
;
IF keyword_set(land) THEN BEGIN
   if dessin EQ 1 then plt, field, zmin, zmax, nite = 0, /carte, petit = [nbcol, nbdessin, dessin], /remplit, div = 4, /cont_nofill, retain = 2, /nocontour, /land $
   ELSE plt, field, zmin, zmax, nite = 0, /carte, petit = [nbcol, nbdessin, dessin], $
    /noerase, /remplit, div = 4, /cont_nofill, /nocontour, /land
ENDIF ELSE BEGIN
if dessin EQ 1 then plt, field, zmin, zmax, nite = 0, /carte, petit = [nbcol, nbdessin, dessin], /remplit, div = 4, /cont_nofill, retain = 2, /nocontour, /port $
ELSE plt, field, zmin, zmax, nite = 0, /carte, petit = [nbcol, nbdessin, dessin], $
 /noerase, /remplit, div = 4, /cont_nofill, /nocontour, /port
ENDELSE
return
end