pro xxx_oneplot
@common
noerase = 1
portrait = 0
; beginning of reading the field to draw
; field number: 1
; declaration de la structure extra:
extra=create_struct('NOTHING',0)
; declaration de la structure readparameters:
readparameters=create_struct('FUNCLEC_NAME','read_ncdf','JPIDTA',182,'JPJDTA',149,'JPKDTA',31,'IXMINDTA',0,'IXMAXDTA',181,'IYMINDTA',0,'IYMAXDTA',148,'IZMINDTA',0,'IZMAXDTA',30)
; on change de lecture?:
nothing=changeread(readparameters)
; declaration de la structure meshparameters:
meshparameters=create_struct('FILENAME','/usr/work/sur/fvi/OPA/geomag/INTERP2/initorca_reg.pro','FILETYPE','batch file','JPIGLO',182,'JPJGLO',149,'JPKGLO',31,'JPI',180,'JPJ',148,'JPK',31,'IXMINMESH',1,'IXMAXMESH',180,'IYMINMESH',0,'IYMAXMESH',147,'IZMINMESH',0,'IZMAXMESH',30,'KEY_SHIFT',0,'KEY_PERIODIQUE',1,'TRIANGULATION',1,'BOUNDARY',[80.0000,439.000])
; on change de grille?:
nothing=changegrid(meshparameters)
; lecture du champ
if keyword_set(date1in) then date1 = date1in else date1 = 10115
if keyword_set(date2in) then date2 = date2in else date2 = 10115
field = litchamp(read_ncdf('Diver', date1, date2,'',parent=1,boite=[80, 440, -79, 90, 0, 5] $
, filename='/usr/work/sur/fvi/OPA/ORCA2/DivBustar_5d_1993_reg.nc' $
, _extra=mixstru(ex, extra)))
field = field
field = create_struct({tab:field, grille:vargrid, unite:varunit, experience:varexp, nom:varname})
; end of reading the field to draw
;
extra = create_struct('NOTHING',0,'MIN',0.00000,'MAX',0.00000,'INTER',0.00000,'LCT',39)
plt, field $
, boite=[80, 440, -79, 90, 0, 5], typein='plt', petit=[1,1,1] $
, _extra= mixstru(ex, extra), NOERASE=noerase
return
end