source: trunk/SRC/Grid/restoreboxparam.pro @ 388

;+
;
; @file_comments
; restore all the zoom parameters (defined by calling <pro>domdef</pro>)
; previously defined by <pro>saveboxparam</pro>
;
; @param filename {in}{required}{type= scalar string}
; the file name
;
; @uses
; <pro>cm_4mesh</pro> (and <pro>cm_demomode</pro> if we are in demo mode)
;
; @restrictions
; call def_myuniquetmpdir, if myuniquetmpdir is undefined:
;               => define, create and add it to !path
;
; @examples
;
;   IDL> restoreboxparam, filename
;
; @history
; Sebastien Masson (smasson\@lodyc.jussieu.fr)
;                      July 2005
;
; @version
; $Id$
;
;-
PRO restoreboxparam, filename
;
  compile_opt idl2, strictarrsubs
;
@cm_4mesh
;
  IF lmgr(/demo) EQ 1 THEN BEGIN
; if we are in demo mode, we cannot save the parameters in a temporary file...
@cm_demomode_used
;
     lon1 = boxzoomparam.bound[0]
     lon2 = boxzoomparam.bound[1]
     lat1 = boxzoomparam.bound[2]
     lat2 = boxzoomparam.bound[3]
     vert1 = boxzoomparam.bound[4]
     vert2 = boxzoomparam.bound[5]
     firstxt = boxzoomparam.indexes[0]
     lastxt = boxzoomparam.indexes[1]
     firstyt = boxzoomparam.indexes[2]
     lastyt = boxzoomparam.indexes[3]
     firstxu = boxzoomparam.indexes[4]
     lastxu = boxzoomparam.indexes[5]
     firstyu = boxzoomparam.indexes[6]
     lastyu = boxzoomparam.indexes[7]
     firstxv = boxzoomparam.indexes[8]
     lastxv = boxzoomparam.indexes[9]
     firstyv = boxzoomparam.indexes[10]
     lastyv = boxzoomparam.indexes[11]
     firstxf = boxzoomparam.indexes[12]
     lastxf = boxzoomparam.indexes[13]
     firstyf = boxzoomparam.indexes[14]
     lastyf = boxzoomparam.indexes[15]
     firstzt = boxzoomparam.indexes[16]
     lastzt = boxzoomparam.indexes[17]
     firstzw = boxzoomparam.indexes[18]
     lastzw = boxzoomparam.indexes[19]
     nxt = boxzoomparam.indexes[20]
     nyt = boxzoomparam.indexes[21]
     nxu = boxzoomparam.indexes[22]
     nyu = boxzoomparam.indexes[23]
     nxv = boxzoomparam.indexes[24]
     nyv = boxzoomparam.indexes[25]
     nxf = boxzoomparam.indexes[26]
     nyf = boxzoomparam.indexes[27]
     nzt = boxzoomparam.indexes[28]
     nzw = boxzoomparam.indexes[29]
     key_shift    = boxzoomparam.key[0]
     key_periodic = boxzoomparam.key[1]
     key_stride   = boxzoomparam.key[2]
     key_gridtype = boxzoomparam.key[3]
     key_yreverse = boxzoomparam.key[4]
     key_zreverse = boxzoomparam.key[5]
     key_partialstep = boxzoomparam.key[6]
     key_onearth  = boxzoomparam.key[7]
;
      boxzoomparam = -1
;
   ENDIF ELSE BEGIN
;
      restore, myuniquetmpdir + filename
      file_delete, myuniquetmpdir + filename
;
   ENDELSE
;
   @updateold
;
  return
end