OCEAN script using SKILL

Hello,

I generated the oceanscript from the corners. It is able to run the device corners.

I would like to run temp corners and design variable corner togther with device corners. How can I modified it to incorporate temp corner and design variables corner to the script. 

This is the oceanscript:

;---------------------------------------------
; Ocean script saved using ArtistKit 5.7.2
; ArtistKit 5.7.2 (C) STMicroelectronics
; Feb  5 09:29:11 2015
;---------------------------------------------
(let (dir simulator libName cellName viewName scenarioList)
; ================================================
; INITIALIZE THE .cdsenv FILE
; ================================================
(UartOceanInitCdsenvFile "/net/agt604/es14/home/test/simulation")
; ================================================
; DUMP THE CURRENT SESSION
; ================================================
(setq simulator "spectre")
(setq dir "/net/agt604/es14/home/test/simulation/ocean/spectre/schematic")
simulator('spectre)
(setq libName "playground")
(setq cellName "ocean")
(setq viewName "schematic")
design(libName cellName viewName)
ocnWaveformTool( 'wavescan )
definitionFile(
    "models.scs"
)
analysis('dc ?saveOppoint t  )
desVar(       "ib" 1u   )
temp( 27 )
; ================================================
; INCLUDE THE MODELS FILE AND SET SOME OPTIONS
; ================================================
resultsDir( dir)
definitionFile("models.scs")
; ================================================
; LOOP ON SCENARIOS
; ================================================
; Enable Import Netlist
(UartImportSetState t)
(createNetlist ?recreateAll t ?display nil)
(UartOceanInitResultsData simulator)
(UartOceanCleanOceanDir simulator (strcat dir "/ocean"))
(setq scenarioList '(
"MOSmax" "default" ))
(foreach scenario scenarioList
   (let (waveList)
   ; Switch the scenario
   UartCornerSetupFromOcean(simulator (strcat dir "/netlist") scenario ?screen t ?lcv "playgroundoceanschematic")
   ; Run the simulation
   run()
   ; Extract the output measurements and keep the waveforms
   ; ------------------------------------------------
   (let (measure waveId)
    (when (or (errset (eval VDC("/net2"))) (errset VDC("/net2")))
      (if (or (drIsWaveform (setq waveId (eval VDC("/net2")))) (drIsParamWave (setq waveId (eval VDC("/net2"))))) then
         (setq waveList (cons (list "vdc" waveId) waveList))
      else
         (if (or (drIsWaveform (setq waveId VDC("/net2"))) (drIsParamWave (setq waveId VDC("/net2")))) then
            (setq waveList (cons (list "vdc" waveId) waveList))
         else
            measure = VDC("/net2")
            (info (sprintf nil "      ...%s (%s) = %L\n" "vdc" scenario measure))
            (UartOceanKeepResultsData scenario simulator "vdc" measure)
         )
      )
    )
   )
   ; Plot the outputs
   ; ------------------------------------------------
   (UartOceanPlotSimulationResults ?simulator simulator
       ?scenario scenario
       ?analysisList '("dc")
       ?waveList waveList
   )
 (UartOceanCopyResultsInOceanDir scenario (strcat dir "/psf") (strcat dir "/ocean"))
 )
)
; ================================================
; PRINT OUTPUT MEASUREMENTS
; ================================================
(UartOceanPrintSimulationResults ?simulator simulator
                                 ?outputDir (strcat dir "/ocean")
                                 ?outputFile (strcat simulator ".meas")
                                 ?maxwidth 200
                                 ?referenceScenario "MOSmax"
                                 ?type "scenario"
)
(when (hiGraphicMode) (view (strcat dir "/ocean/" simulator ".meas")))
)
; ================================================
; RESTORE THE .cdsenv FILE
; ================================================
(UartOceanRestoreCdsenvFile)