; on lance l''aide en ligne
?
;
; partie a modifier
;
;----------------------------------------------------------
; extension du path
!path=expand_path('+/usr1/com/smasson/IDL')+':'+expand_path('+/usr1/com/smasson/IDL_RD')+':'+expand_path('+'+!dir)
@common
;----------------------------------------------------------
; pour l''impression si vous utiliser imprime depuis le lodyc,
; l''ipsl, l''idris.
; loginipsl='smlod'
; machipsl = 'cook'
loginlodyc='smasson'
machlodyc = 'gaia'
;----------------------------------------------------------
; definition de differentes directories
;----------------------------------------------------------
homedir = '/usr1/com/smasson/IDL/'
workdir = '/usr1/antiope/smasson/DATA/'
tmpdir = workdir
iodir = workdir
animdir = '/usr1/antiope/smasson/ANIM/'
psdir = '/usr1/com/smasson/IDL'
imagedir = '/usr1/com/smasson/IDL'
;
; fin de la partie a modifier
;
homedir = isadirectory(io = homedir, title = 'Bad definition of homedir')
workdir = isadirectory(io = workdir, title = 'Bad definition of workdir', /nopath)
tmpdir = isadirectory(io = tmpdir, title = 'Bad definition of tmpdir', /nopath)
iodir = isadirectory(io = iodir, title = 'Bad definition of iodir', /nopath)
animdir = isadirectory(io = animdir, title = 'Bad definition of animdir', /nopath)
psdir = isadirectory(io = psdir, title = 'Bad definition of psdir', /nopath)
imagedir = isadirectory(io = imagedir, title = 'Bad definition of imagedir', /nopath)
;----------------------------------------------------------
; environnement graphique (window et ps)
;----------------------------------------------------------
window, colors=100 & wdelete
if !d.n_colors gt 256 then device, decomposed = 0 $
ELSE device, pseudo_color=8
loadct,39
tvlct, rouge,vert,bleu, /get
coefpalit= 1
key_portrait = 0
;----------------------------------------------------------
c_lab=0
c_cote=0
c_cont = (!d.n_colors-1) < 255
;----------------------------------------------------------
grandfeuille = 29.7
petitfeuille = 21.
ccwindowsize = 1
;----------------------------------------------------------
!except = 2
sauveps = 0
;--------------------------------------------------------
;   definition par defaut du fichier que l''on traite
;------------------------------------------------------
year=1
month=1
day=1
niveau=1

;
prefix=' '
;
vargrid = 'T'
varname = ' '
vardate= '0'
varexp = ' '
varunit = ' '
;----------------------------------------------------------
;----------------------------------------------------------
jpiglo = 1
jpjglo = 1
jpkglo = 1
jpidta = jpiglo
jpjdta = jpjglo
jpkdta = jpjglo
jpi = 1
jpj = 1
jpk = 1
jpt = 1
ixminmesh  =-1
ixmaxmesh  =-1
iyminmesh  =-1
iymaxmesh  =-1
izminmesh  =-1
izmaxmesh  =-1
ixmindta = 0
ixmaxdta = jpidta-1
iymindta = 0
iymaxdta = jpjdta-1
izmindta = 0
izmaxdta = jpkdta-1
key_shift = 0
key_periodique = 0
ccmeshparameters ={filename:'No File', filetype:'nothing' $
, jpiglo:jpiglo, jpjglo:jpjglo, jpkglo:jpkglo $
, jpi:jpi, jpj:jpj, jpk:jpk $
, ixminmesh:ixminmesh, ixmaxmesh:ixmaxmesh $
, iyminmesh:iyminmesh, iymaxmesh:iymaxmesh $
, izminmesh:izminmesh, izmaxmesh:izmaxmesh $
, key_shift:key_shift, key_periodique:key_periodique $
, triangulation:0, boundary:[-180, 180]}
ccreadparameters = {funclec_name:'No File' $
, jpidta:jpidta, jpjdta:jpjdta, jpkdta:jpkdta $
, ixmindta:ixmindta, ixmaxdta:ixmaxdta $
, iymindta:iymindta, iymaxdta:iymaxdta $
, izmindta:izmindta, izmaxdta:izmaxdta $
}
lon1 = 0
lon2 = 1
lat1 = 0
lat2 = 1
valmask = 1e20