New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
prend2.pro in branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/TOOLS/OBSTOOLS/dataplot – NEMO

source: branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/TOOLS/OBSTOOLS/dataplot/prend2.pro @ 5967

Last change on this file since 5967 was 5967, checked in by timgraham, 8 years ago

Reset keywords before merging with head of trunk

  • Property svn:keywords set to Id
File size: 707 bytes
Line 
1PRO PREND2,in_printer,keep=keep,noprint=noprint,double=double,$
2    view=view,spin_landscape_ps=spin_landscape_ps,$
3    eps_preview=eps_preview,colour_preview=colour_preview,$
4    dpi_preview=dpi_preview, suppress_stderr=suppress_stderr
5;+
6; NAME:prend
7;
8; Author:  D. J. Lea       Feb 2008
9
10COMMON pr2, view_landscape
11
12; get filename of postscript device 
13
14r = fstat(!D.UNIT)
15filename = r.name
16
17device,/close         
18set_plot,'x'
19
20if keyword_set(view) then begin
21
22   if (view_landscape) then begin
23      spawn,'gv -orientation=landscape -swap '+filename
24   endif else begin
25      spawn,'gv '+filename
26   endelse
27
28endif
29
30!p.font=-1
31!p.charsize=0
32!p.charthick=0
33!p.thick=0
34!p.background=0
35
36;return
37
38end
Note: See TracBrowser for help on using the repository browser.