; on lance l''aide en ligne

;?

;
; partie a modifier
;

;----------------------------------------------------------
; extension du path pour les scripts init, initgrille (ds HOME) et xxx (ds PACKAGE/WIDGET)

;path smasson:
;!path=expand_path('+/usr1/com/smasson/IDL')+':'+expand_path('+/usr1/com/smasson/IDL_RD')+':'+expand_path('+'+!dir)


;!path=expand_path('+/home/rech/eee/reee421/IDL/HOME')+':'+expand_path('+/home/rech/eee/reee217/IDL_RD')+':'+expand_path('+'+!dir)
;@common

!path=expand_path('+/usr/work/sur/fvi/IDL')+':'+expand_path('+/usr/work/sur/fvi/IDL_RDD')+':'+expand_path('+'+!dir)
@common

;----------------------------------------------------------
; pour l''impression si vous utilisez imprime depuis le lodyc,
; l''ipsl, l''idris.



loginlodyc='fvi'
machlodyc = 'leto'

;----------------------------------------------------------
; definition de differentes directories
;----------------------------------------------------------



homedir = '/usr/work/sur/fvi/OPA/geomag/'
iodir = '/usr/work/sur/fvi/OPA/ORCA2/'
animdir =iodir
psdir = '/usr/work/sur/fvi/IDL/IDL_PS/'
imagedir = iodir
;
; fin de la partie a modifier
;

;----------------------------------------------------------
; environnement graphique (window et ps)
;----------------------------------------------------------
if (((!D.Name EQ 'X') OR (!D.NAME EQ 'MAC')) $
AND (!D.N_Colors GE 256L)) then $
DEVICE, True_Color=24, decompose=0 $
else begin & window, colors=100 & wdelete & $
device, pseudo_color=8 & endelse
;
;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 = 0.99


;----------------------------------------------------------
!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 $
}